PROBLEMAS CON DECIMALES, CALCULOS TEXTBOX
Publicado por edwin (2 intervenciones) el 03/08/2010 20:08:14
EL PROBLEMA ES EL SIGUIENTE DESARROLLE UN SISTEMA DE FACTURACION EL CUAL ME HACE LOS CALCULOS EXCELENTES EN MI PC, PERO EN EL PC DEL CLIENTE LA SUMATORIA DE 2 CASILLAS QUE SON TOTAL MAS IVA NO ME MUESTRA LA SUMA DE LOS DECIMALES.
Label6.Caption = Val(Text8.Text) + Val(Text12.Text) + Val(Text16.Text) + Val(Text20.Text) + Val(Text24.Text) + Val(Text28.Text) + Val(Text32.Text) + Val(Text36.Text) + Val(Text40.Text) + Val(Text44.Text) + Val(Text48.Text) + Val(Text52.Text) + Val(Text56.Text) + Val(Text60.Text) + Val(Text64.Text) + Val(Text68.Text)
Text71.Text = ((CLng(Label14.Caption) * CLng(Label6.Caption))) / 100
Text70.Text = CStr(Label6.Caption)
Text72.Text = CStr(Val(Text70.Text) + Val(Text71.Text))
Command2.Visible = False
Text70.Text = Format(Text70.Text, "###,###,###,###.##")
Text71.Text = Format(Text71.Text, "###,###,###,###.##")
Text72.Text = Format(Text72.Text, "###,###,###,###.##")
Label6.Caption = Val(Text8.Text) + Val(Text12.Text) + Val(Text16.Text) + Val(Text20.Text) + Val(Text24.Text) + Val(Text28.Text) + Val(Text32.Text) + Val(Text36.Text) + Val(Text40.Text) + Val(Text44.Text) + Val(Text48.Text) + Val(Text52.Text) + Val(Text56.Text) + Val(Text60.Text) + Val(Text64.Text) + Val(Text68.Text)
Text71.Text = ((CLng(Label14.Caption) * CLng(Label6.Caption))) / 100
Text70.Text = CStr(Label6.Caption)
Text72.Text = CStr(Val(Text70.Text) + Val(Text71.Text))
Command2.Visible = False
Text70.Text = Format(Text70.Text, "###,###,###,###.##")
Text71.Text = Format(Text71.Text, "###,###,###,###.##")
Text72.Text = Format(Text72.Text, "###,###,###,###.##")
Valora esta pregunta


0