Aun con problemas :( ayuda
Hola Amigo, tome en cuenta todas tus recomendaciones pero aun no salen los decimales. El programa como tal esta en Visual Basic 6.0, lo he verificado y parece que si ponen los decimales. Esta es una de las lineas de código que guardan los datos en un DBF
* cInsert = "INSERT INTO VENTA (FECHA,TIPINF,INDICA,MONTO) VALUES ('" & Cursor("DOC_FECHA") & "','TOTGEN','TOTVENTASIVA'," & Replace(Round(Cursor("TOTVENSIVA"), 2), ",", ".") & ")"
cnDBF.Execute cInsert
No se si mi problema es el DBF, ¿cómo veo las propiedades de este?
Gracias por tus respuesta tan oportunas.
* cInsert = "INSERT INTO VENTA (FECHA,TIPINF,INDICA,MONTO) VALUES ('" & Cursor("DOC_FECHA") & "','TOTGEN','TOTVENTASIVA'," & Replace(Round(Cursor("TOTVENSIVA"), 2), ",", ".") & ")"
cnDBF.Execute cInsert
No se si mi problema es el DBF, ¿cómo veo las propiedades de este?
Gracias por tus respuesta tan oportunas.
Respuesta de jorivelme
1
Pues puede ser el problema de la base lo puedes ver con dbf explorer y la base debería tener la columna decimal de 18,2 o algo así ese 18 es la cantidad de enteros y el, 2 es la cantidad de decimales
Y a lo que haces esto
Replace(Round(Cursor
el round lo que hace es redondear a enteros quitake eso y pruebale
Y a lo que haces esto
Replace(Round(Cursor
el round lo que hace es redondear a enteros quitake eso y pruebale
