dbedit y cifras monetarias problemas al calcular
Que la paz de Dios reine en mi....
tengo varios dbedit en los cuales capturo el sueldo bruto estoy usando sql server y declare los campos en las tablas como money.
en mi formulario de delphi le puse una mascara en la propiedad display format y edit formar asi ($#,###.oo y #,###.00) me captura bien y se ve muy jevi, pero a la hora de calcular del sueldo bruto el (seguroS,descuentos,prestamos etc,, en el dbedit me sale una cantidad negativa e incorrecta. Este es el codigo que uso..
VAR
UNO,DOS,TRES,COD1,COD2,COD3,RESULTADO:INTEGER;
BEGIN
VAL(dbEdit8.Text,UNO,COD1);
VAL(dbEdit9.Text,DOS,COD2);
VAL(DBEDIT10.Text,TRES,COD3);
IF (COD1<>0) OR (COD2<>0)THEN
BEGIN
dbEdit8.Text:='';
dbEdit9.Text:='';
DBEDIT10.Text:='';
dbEdit8.SetFocus;
END
ELSE
BEGIN
RESULTADO:=UNO-DOS-TRES;
dbedit11.Text:=inttostr(resultado);
creo que el error esta en ponerle la mascara, pero es que la necesito, cuando le quito la mascara me calcula bien no se que hacer.......
Jesucristo es el mismo ayer, hoy, y siempre....
|