Radov3r
16-08-2007, 11:59:33
Buenos días,
Estoy haciendo un programa que saca listados. Para ello, me he creado un componente RxMemoryData y me paso los datos suficientes para luego hacer una SQL y rellenarme el Registro con los datos.
Se me queda así:
R_ALBARAN : GSCAVENT;
begin
SERIE := QUERY.FIELDBYNAME('SERDOC').ASSTRING;
NUMALBA := QUERY.FIELDBYNAME('NUMERO').ASINTEGER;
FECLUG.CAPTION := R_PARAMETROS.FECHA_SISTEMA;
NUMREF.CAPTION := COPY(R_PARAMETROS.FECHA_SISTEMA,9,2)+SERIE+INTTOSTR(NUMALBA);
//Query para recuperar los datos del albarán
Q_CAVENT := TQUERY.CREATE(NIL);
Q_CAVENT.DATABASENAME := R_PARAMETROS.DBX_CONEXION.DATABASENAME;
Q_CAVENT.CLOSE;
Q_CAVENT.SQL.CLEAR;
Q_CAVENT.SQL.ADD('SELECT GSCAVENT.* FROM GSCAVENT');
Q_CAVENT.SQL.ADD('WHERE CODEMP = ' + INTTOSTR(R_PARAMETROS.EMPRESA));
Q_CAVENT.SQL.ADD(' AND SERDOC = ' + QUOTEDSTR(SERIE));
Q_CAVENT.SQL.ADD(' AND NUMERO = ' + INTTOSTR(NUMALBA));
Q_CAVENT.OPEN;
R_ALBARAN := CARGAR_GSCAVENT(Q_CAVENT);
El problema está que al hacer el OPEN me salta un error -404. La SQL es muy sencilla como para que haga esas cosas. Por cierto, he comprobado el SERIE y el NUMALBA y tienen valor.
¿Alguien puede echarme una mano? Gracias.
Estoy haciendo un programa que saca listados. Para ello, me he creado un componente RxMemoryData y me paso los datos suficientes para luego hacer una SQL y rellenarme el Registro con los datos.
Se me queda así:
R_ALBARAN : GSCAVENT;
begin
SERIE := QUERY.FIELDBYNAME('SERDOC').ASSTRING;
NUMALBA := QUERY.FIELDBYNAME('NUMERO').ASINTEGER;
FECLUG.CAPTION := R_PARAMETROS.FECHA_SISTEMA;
NUMREF.CAPTION := COPY(R_PARAMETROS.FECHA_SISTEMA,9,2)+SERIE+INTTOSTR(NUMALBA);
//Query para recuperar los datos del albarán
Q_CAVENT := TQUERY.CREATE(NIL);
Q_CAVENT.DATABASENAME := R_PARAMETROS.DBX_CONEXION.DATABASENAME;
Q_CAVENT.CLOSE;
Q_CAVENT.SQL.CLEAR;
Q_CAVENT.SQL.ADD('SELECT GSCAVENT.* FROM GSCAVENT');
Q_CAVENT.SQL.ADD('WHERE CODEMP = ' + INTTOSTR(R_PARAMETROS.EMPRESA));
Q_CAVENT.SQL.ADD(' AND SERDOC = ' + QUOTEDSTR(SERIE));
Q_CAVENT.SQL.ADD(' AND NUMERO = ' + INTTOSTR(NUMALBA));
Q_CAVENT.OPEN;
R_ALBARAN := CARGAR_GSCAVENT(Q_CAVENT);
El problema está que al hacer el OPEN me salta un error -404. La SQL es muy sencilla como para que haga esas cosas. Por cierto, he comprobado el SERIE y el NUMALBA y tienen valor.
¿Alguien puede echarme una mano? Gracias.