Error al insertar datos: Fallo comando...

Quisiera hacerte otra consulta (si no es molestia); con la corrección que realize ya puedo insertar datos en la tabla ordentrab, pero cuando quiero insertar los datos en la tabla detorden (que son los items de la orden de trabajo) aparece un error "fallo el comando..." Me parece que estoy escribiendo algo mal pero no me doy cuenta... Te paso el código a ver que opinas!
xfech= Dtoc(Date())
tsql=[insert into ordentrab (fecha, codcliente, modelo, dominio, codempl) values(']+;
+ xfech +[', ]+Str(cur_validacion.dni)+[,]+Str(cur_validacion.modelo)+[,']+ xdomi +[' ,']+ cur_emple.codempl +[')]
* Wait Window tsql
tres=sqlx(fh,tsql,"nada")
tsql=[select MAX(norden) as num from ordentrab]
tres=sqlx(fh,tsql,"cur_numero")
Wait Window tsql
xnum=cur_numero.num
////////hasta aqui funciona bien....
SELECT cur_grilla
SCAN
tsql=[ insert into detorden (norden, codrepuesto, desc, cantidad, pciovta, pciovehic) values(] + ;
+ STR(xnum)+[, ]+ STR(cur_grilla.codigo_repuesto)+[, ']+cur_grilla.descripcion+[', ]+STR(cur_grilla.cantidad)+[, ]+ ;
+ STR(cur_grilla.pciovta,7,2)+[, ]+STR(cur_grilla.pciovehic,7,2)+[ )]
Wait Window tsql
tres=sqlx(fh,tsql,"nada")
Thisform.Refresh
ENDSCAN

Los campos de la tabla detorden son numéricos excepto desc que es carácter y, pciovta y pciovehic son numéricos (decimales)...
                                            Saludos!

1 Respuesta

Respuesta
1
Es muy difícil depurar el código, no has usado un comando más sencillo para insertar datos tales como el append y replace. asi por ejemplo
sele tabla
append blank &&agrega un registro en blanco
replace campo with variable    &&graba el dato
replace campo2 with variable2
Con esto no necesitas transformar nada, todo como el dato que debe ser, así no necesitas de str() ni de dto()
Gracias por el dato! Salio por fin, disculpa que no te conteste antes, pero había un problema en la página y no me permitía contestarte... Saludos..

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas