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!
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 de davsoft
1