Ayuda con campos de importe
Publicado por Marcos (11 intervenciones) el 28/02/2007 10:59:36
Ayuda por favor,
tengo una aplicacion con una entrada de pedidos y cuando hago el cálculo no me graba los importes. el proceso es mas o menos el siguiente:
Dim Lineas as new ADODB.Recorset '(Registro donde tengo todas las lineas del pedido)
Dim Cabecera as new ADODB.Recordset '(Registro donde tengo la cabecera del pedido)
Dim ImpBruto as Double '(En esta variable voy acumulando el Importe Bruto de cada línea)
Lineas.MoveFirst
While not Lineas.EOF
ImpBruto = ImpBruto + Cdbl(Lineas.Fields("ImporteBruto"))
Lineas.MoveNext
Wend
'Al salir del bucle el valor de la variable ImpBruto es: (1101,56)
Cabecera.Fields("ImpBruto") = Cdbl(ImpBruto)
'Pero cuando lo paso a la cabecera del pedido me graba el valor: (1101,)
La base de datos es SqlServer
¿Que estoy haciendo mal?
Muchas Gracias.
Marcos
tengo una aplicacion con una entrada de pedidos y cuando hago el cálculo no me graba los importes. el proceso es mas o menos el siguiente:
Dim Lineas as new ADODB.Recorset '(Registro donde tengo todas las lineas del pedido)
Dim Cabecera as new ADODB.Recordset '(Registro donde tengo la cabecera del pedido)
Dim ImpBruto as Double '(En esta variable voy acumulando el Importe Bruto de cada línea)
Lineas.MoveFirst
While not Lineas.EOF
ImpBruto = ImpBruto + Cdbl(Lineas.Fields("ImporteBruto"))
Lineas.MoveNext
Wend
'Al salir del bucle el valor de la variable ImpBruto es: (1101,56)
Cabecera.Fields("ImpBruto") = Cdbl(ImpBruto)
'Pero cuando lo paso a la cabecera del pedido me graba el valor: (1101,)
La base de datos es SqlServer
¿Que estoy haciendo mal?
Muchas Gracias.
Marcos
Valora esta pregunta
0