COMO CONTROLAR LOS CEROS 452.00000 EN vfp 6.0

ALFONSO
22 de Noviembre del 2004
HOLA, NECESITO CONTROLAR LOS RESULTADOS AL MULTIPLICAR LA SUMA POR EL 0.15 Y POR EL 0.10 YA QUE CUANDO SE EJECUTA APARECEN CANTIDADES ENORMES EJEMPLO 452.000000
GRACIAS

Select Sum(precio) as sumastotal From cres into cursor cSumas

ThisForm.sumatotal.Value=csumas.Sumastotal
sumatotal=csumas.Sumastotal
thisform.sumamenosiva.value=sumatotal * .15
sumamenosiva=((sumatotal)*(0.15))
thisform.totaluno.value=sumatotal-sumamenosiva
totaluno=sumatotal-sumamenosiva
thisform.comicion.value=totaluno * .10
comicion=((totaluno)*(0.10))
thisform.totaldos.value=totaluno-comicion

Ricardo
22 de Noviembre del 2004
Especifica el número de decimales que se mostrarán en las expresiones numéricas.

SET DECIMALS TO [nDecimalPlaces]
Parámetros
nDecimalPlaces
Especifica el número mínimo de indicadores decimales que se muestran. El valor predeterminado es dos decimales. El número máximo de decimales es 18 y el mínimo es cero.
Observaciones
SET DECIMALS especifica el número mínimo de decimales que se utilizarán para mostrar los resultados de división, multiplicación, y funciones trigonométricas y financieras.

SET DECIMALS tiene como alcance la sesión actual de datos



El siguiente ejemplo muestra los resultados cuando el código es incorrecto, menor que, e igual al tamaño del valor que se quiere mostrar.
CREATE CURSOR myCursor (col1 n(5,2))
INSERT INTO myCursor VALUES (-555.5)
* Sin Codigo de Formato y devuelve **.**
? TRANSFORM(myCursor.col1 )
* Un codigo de formato menor que el valor devuelve ***.**
? TRANSFORM(myCursor.col1,'999.99' )
* Un codigo de formato del mismo tamaño que el valor devuelve -556.00
? TRANSFORM(myCursor.col1,'9999.99' )