Duda sobre procedimiento almacenado

[aurafern]

Disculpame la ignorancia pero yo escribo en Delphi:

Código Delphi [-]
query2.close;
query2.ParamByName('empresa').AsString:=' AND E.ID_EMPRESA=1 ';;
query2.ParamByName('sucursal').AsString:=' AND E.ID_SUCURSAL=1 ';
Query2.ParamByName('modelo').AsInteger:=4;
Query2.ParamByName('no_rango').AsInteger:=4;
query2.ParamByName('PFECHA').Asstring:=Formatdatetime('mm/dd/yyyy',mdFECHA.AsDateTime);
query2.ParamByName('PVENDEDOR').AsString:='';
query2.ParamByName('PZONA').AsString:='';
query2.ParamByName('PCUENTA').AsString:='';
query2.ParamByName('PTERCERO').AsString:=' AND E.ID_TERCERO=1 ';
query2.Open;

pfecha en el procedimiento timestamp
pfecha entre comillas

en delphi:
el parametro del query en delphi es date
y arroja:

column unknown 14-sep-2004

si

parametro pfecha en procedimiento varchar(20)
y el parametro pfecha en delphi date

column unknown 09/14/2004


y asi sucesivamente pruebo varias combinaciones y todas devuelven uno de estos dos mensajes

Disculpen la molestia!!

[guillotmarc]

Hola.

Prueba :

query2.ParamByName('PFECHA').Asstring := QuotedStr(Formatdatetime('mm/dd/yyyy',mdFECHA.AsDateTime));

Siendo el parámetro en el procedimiento varchar(20) y en Delphi string.

Saludos.

[aurafern]

Hola!!

Persiste el error

[guillotmarc]

Sigues teniendo un problema en la consulta que construyes dinamicamente. No es válida.

Saludos.

[aurafern]

Bueno de todos modos muchas gracias por dedicar tiempo a los n problemas que se me presentan, en mi camino por el aprendizaje de delphi y Firebird

Después de dar muchas vueltas probando la alternativa de utilizar
EXECUTE STETEMENT. Y revisando con un compañero la sintaxis tanto en delphi como en firebird, no logramos hacer uso de esta característica que me ayudaría a solucionar muchos problemas.


Solucioné el problema utilizando like y pasando solo el valor del parametro

Código Delphi [-]
query2.close;
query2.ParamByName('empresa').AsString:='%';;
query2.ParamByName('sucursal').AsString:='%';
Query2.ParamByName('modelo').AsInteger:=4;
Query2.ParamByName('no_rango').AsInteger:=4;
query2.ParamByName('PFECHA').AsDateTime:=int(mdFECHA.AsDateTime);
query2.ParamByName('PVENDEDOR').AsString:='1';
query2.ParamByName('PZONA').AsString:='%';
query2.ParamByName('PCUENTA').AsString:='%';
query2.ParamByName('PTERCERO').AsString:='1';
query2.ParamByName('Psuc_TERCERO').AsString:='%';
query2.ParamByName('Psuc_VENDEDOR').AsString:='%';
query2.Open;

Código SQL [-]
FOR SELECT SUM(e.DEBITO-e.CREDITO) AS SALDO, e.ID_AUXILIAR,e.ID_EMPRESA_CRUCE, e.ID_SUCURSAL_CRUCE,e.ID_TIPO_DOC_CRUCE, e.numero_cruce, E.CUOTA_CRUCE,
d.fecha, d.vencimiento,e.id_tercero,e.ID_SUCURSAL_TERCERO, E.ID_VENDEDOR FROM CUENTAS_POR_TERCERO e , cuentas_por_tercero d
where e.ID_EMPRESA_CRUCE=d.ID_EMPRESA and e.ID_SUCURSAL_CRUCE=d.ID_SUCURSAL AND E.CUOTA_CRUCE=D.CUOTA
and e.ID_TIPO_DOC_CRUCE= d.id_tipo_doc and e.numero_cruce=d.numero  AND e.ID_EMPRESA like(:EMPRESA) AND E.ID_SUCURSAL like(:SUCURSAL)
and (fecha - d.vencimiento)>=:desde and (fecha - d.vencimiento)<=:hasta and e.id_tercero like(tercero) AND E.ID_VENDEDOR LIKE (:PVENDEDOR) AND E.ID_SUC_VENDEDOR LIKE (:PSUC_VENDEDOR)
and e.id_sucursal_tercero like (suc_tercero) and e.id_auxiliar like (cuenta)
GROUP BY e.ID_AUXILIAR,e.ID_EMPRESA_CRUCE, e.ID_SUCURSAL_CRUCE,e.ID_TIPO_DOC_CRUCE,
e.numero_cruce, E.CUOTA_CRUCE , d.fecha, d.vencimiento,e.id_tercero,e.ID_SUCURSAL_TERCERO, E.ID_VENDEDOR
having SUM(e.DEBITO-e.CREDITO)<>0
into :saldo,:id_auxiliar,:id_empresa,:id_sucursal,:id_tipo,:numero,:cuota,:fecha_DOC,:vencimiento,:id_ter  cero,:id_sucursal_tercero, :ID_VENDEDOR

Pero no sé que tan eficiente sea el like.

Saludos!!

[guillotmarc]

Hola.

En mi opinión tu problema no tiene que ver con el comando EXECUTE STATEMENT.

El problema está en que no estas construyendo una sentencia SQL válida. Solucionarlo tendría que ser bastante sencillo.

Solo tienes que utilizar un depurador de procedimientos almacenados (hay varios disponibles pero solo conozco los comerciales, como el IB-Expert en la versión completa).

Depura tu procedimiento, hasta llegar al EXECUTE STATEMENT, y comprueba cual es la sentencia exacta que se va a lanzar (para ello quizá sea conveniente ponerla primero en una variable).

Una vez tengas la sentencia que se va a ejecutar, pruébala directamente en el IBConsole, IB-Expert, ... o tu herramienta favorita. Va a fallar, solo tienes que corregirla hasta conseguir que funcione correctamente.

Una vez funcione, ya solo tienes que modificar el procedimiento, para que construya la sentencia, en el formato probado.

NOTA: Si no consigues hacer funcionar la sentencia, indícanos cual es exactamente la sentencia que se lanza, y probaremos de ayudarte.

PD : Efectivamente, el Like no es muy eficiente.

Saludos.

[aurafern]

Hola!

Ya estoy dudosa, acerca de si la brutalidad me esta invadiendo!!
Hice las pruebas que me aconsejaste (con IBadmin 4), pero nada.

Te envío la estructura de las tablas y el procedimiento que utilizo, por si los necesitas para probar

Código SQL [-]

/* Domain definitions */
CREATE DOMAIN TNATURALEZA AS VARCHAR(10)
   default "DEBITO"
   CHECK (value in ("DEBITO","CREDITO"));
CREATE DOMAIN TTIPO_TRANS AS CHAR(1)
   default "C"
   CHECK (value in ("S","C"));

/* Table: CUENTAS_POR_TERCERO, Owner: SYSDBA */

CREATE TABLE CUENTAS_POR_TERCERO 
(
  ID_CONTADOR   INTEGER NOT NULL,
  ID_EMPRESA   VARCHAR(2),
  ID_SUCURSAL   VARCHAR(2),
  ID_TIPO_DOC   VARCHAR(3),
  NUMERO   INTEGER,
  CUOTA   SMALLINT,
  ID_TERCERO   INTEGER,
  ID_SUCURSAL_TERCERO   SMALLINT,
  ID_AUXILIAR   VARCHAR(12),
  FECHA   TIMESTAMP,
  VENCIMIENTO   TIMESTAMP,
  ID_EMPRESA_CRUCE   VARCHAR(2),
  ID_SUCURSAL_CRUCE   VARCHAR(2),
  ID_TIPO_DOC_CRUCE   VARCHAR(3),
  NUMERO_CRUCE   INTEGER,
  ID_DEPARTAMENTO   VARCHAR(15),
  ID_CENTRO_COSTO   VARCHAR(15),
  ID_ACTIVIDAD   VARCHAR(15),
  DEBITO   DOUBLE PRECISION,
  CREDITO   DOUBLE PRECISION,
  BENEFICIARIO   INTEGER,
  ID_VENDEDOR   INTEGER,
  TIPO_TRANS   TTIPO_TRANS  default "C",
  NATURALEZA   TNATURALEZA  default "DEBITO",
  CUOTA_CRUCE   DOUBLE PRECISION,
  ID_BENEFICIARIO   INTEGER,
  BASE   DOUBLE PRECISION,
  ID_SUC_VENDEDOR   INTEGER,
 PRIMARY KEY (ID_CONTADOR)
);

/* Table: RANGO_REP_TERCERO, Owner: SYSDBA */

CREATE TABLE RANGO_REP_TERCERO 
(
  ID_MODELO   INTEGER NOT NULL,
  DESCRIPCION   VARCHAR(50),
  NUMERO_RANGOS   INTEGER,
CONSTRAINT PK_RANGO_REP_TERCERO PRIMARY KEY (ID_MODELO)
);

CREATE TABLE RANGO_REP_TERCERO_DET 
(
  ID_MODELO   INTEGER NOT NULL,
  ID_RANGO   INTEGER NOT NULL,
  ID_DESCRIPCION_RANGO   VARCHAR(10),
  DESCRIPCION_RANGO   VARCHAR(50),
  DESDE   INTEGER,
  HASTA   INTEGER,
  TIPO_RANGO   VARCHAR(10),
CONSTRAINT PK_RANGO_REP_TERCERO_DET PRIMARY KEY (ID_MODELO, ID_RANGO)
);