En cuanto al comando que ejecuto es el mismo q hace años lleva haciendolo con foxydb sin problemas: (rellena una tabla con los datos de una tabla libre)
Una vez conectados a la BBDD
TEXT TO CSQL NOSHOW
SELECT * FROM INFORMES WHERE 1=2 ORDER BY ID
ENDTEXT
IF OFORM.CLASEDATOS.Query(CSQL,"INFORMES")
IF OFORM.CLASEDATOS.CursorEdit("INFORMES")
USE INFORME_LIBRE.DBF IN 0 ALIAS INFORME_ORIGEN * Esta es la tabla libre de donde saco los datos para rellenar la tabla de la BBDD
INSERT INTO INFORMES (DIRECTORIO,TITULO,NOMBRE,MODULO,CALCULOS,DESCRIPCIO,HECHO,ORDEN,TIPO,FENTRADA,IMPRESORA,CUSTOM, ;
COPIAS,ANCHO,LARGO,PAPELCUSTOM,VISIBLEREP,EXPRESION,CAMPOS,CONDICION,AGRUPADO,TRASINF,ENTORNO_DATOS,CONVERTIR,;
FPROPIA,ENTORNO_NUEVO,CAMPO_T,CAMPO_X,FECHA_REV) SELECT IIF(TIPO="E",CAST("\ETIQUETAS\" as c(20)),CAST("\INFORMES\" as c(20))) AS DIRECTORIO,TITULO,NOMBRE,MODULO,CALCULOS,DESCRIPCIO,HECHO,ORDEN,TIPO,FENTRADA,0.0 AS IMPRESORA,0.0 AS CUSTOM,;
1.0 AS COPIAS,"" AS ANCHO, "" AS LARGO, 0.0 AS PAPELCUSTOM, 0.0 AS VISIBLEREP, EXPRESION, CAMPOS, CONDICION, AGRUPADO,TRASINF,ENTORNO_DA AS ENTORNO_DATOS,0.0 AS CONVERTIR,;
0.0 AS FPROPIA, 0.0 AS ENTORNO_NUEVO, CAMPO_T, CAMPO_X, TTOC(FECHA_REV,1) FROM INFORME_ORIGEN ORDER BY MODULO,NOMBRE WHERE 1=1
USE IN INFORME_ORIGEN
IF OFORM.CLASEDATOS.Update("INFORMES")
IF !oForm.ClaseDatos.Commit()
oForm.Clasedatos.RollBack()
lDEVUELVO=.F.
ELSE
lDEVUELVO=.T.
ENDIF
ENDIF
ENDIF
ENDIF
etc...
El lunes, 19 de diciembre de 2022 a las 15:45:31 UTC+1, Antonio Meza escribió: