¿insertar en procedimientos ?

[Giniromero]

Hola Nuria,

El procedimiento funciona perfectamente desde IBExpert, que es, de hecho, donde lo he creado. Me devuelve 300 registros más o menos que son los pendientes de pago.

Por ahí no hay ningún problema.

El tema es que no sé como abrir el procedimiento desde la aplicación.

Te cuento lo que tengo, para ver si me falta algo.

Tengo un procedure creado en IB, (usando IBExpert), que tiene el siguiente código:

CREATE PROCEDURE PROECONOPAGO (
    NUMALUACT SMALLINT)
RETURNS (
    CODIGO INTEGER,
    NUMALU SMALLINT,
    NUMGRUP SMALLINT,
    FECHA TIMESTAMP,
    ASIENTO INTEGER,
    CONCEPTO VARCHAR(50),
    IMPDEBE NUMERIC(15,2),
    IMPHABER NUMERIC(15,2),
    FORPAGO SMALLINT,
    RECIBO VARCHAR(10),
    FACTURA VARCHAR(10),
    USUARIO VARCHAR(10),
    TIPO VARCHAR(1),
    EMPRESATXT VARCHAR(1),
    CONTROL VARCHAR(1))
AS
DECLARE VARIABLE VCODIGO INTEGER;
DECLARE VARIABLE VNUMALU SMALLINT;
DECLARE VARIABLE VNUMGRUP SMALLINT;
DECLARE VARIABLE VFECHA TIMESTAMP;
DECLARE VARIABLE VASIENTO INTEGER;
DECLARE VARIABLE VCONCEPTO VARCHAR(50);
DECLARE VARIABLE VIMPDEBE NUMERIC(15,2);
DECLARE VARIABLE VIMPHABER NUMERIC(15,2);
DECLARE VARIABLE VFORPAGO SMALLINT;
DECLARE VARIABLE VRECIBO VARCHAR(10);
DECLARE VARIABLE VFACTURA VARCHAR(10);
DECLARE VARIABLE VUSUARIO VARCHAR(10);
DECLARE VARIABLE VTIPO VARCHAR(1);
DECLARE VARIABLE VPRODUCTOGRUP VARCHAR(2);
DECLARE VARIABLE VEMPRESAPRO VARCHAR(1);
begin
for select CODIGO, NUMALU, NUMGRUP, FECHA, ASIENTO, CONCEPTO, IMPDEBE, 
IMPHABER, FORPAGO, RECIBO, FACTURA, USUARIO, TIPO

from ECONO
WHERE NUMALU =:NUMALUACT
order by numalu
into
:VCODIGO,:VNUMALU,:VNUMGRUP,:VFECHA,:VASIENTO,:VCONCEPTO,:VIMPDEBE,
:VIMPHABER, :VFORPAGO,:VRECIBO,:VFACTURA,:VUSUARIO,:VTIPO  do
begin
select  PRODUCTO from grupos where NUMGRUP =:vnumgrup  into  :vproductogrup ;
select  EMPRESA from produ where PRODUCTO=:vproductogrup  into :vempresapro;

  If (:vasiento <2 AND :vimpdebe <> 0 ) Then Begin
    CODIGO = :VCODIGO;
    NUMALU = :VNUMALU;
    NUMGRUP = :VNUMGRUP;
    FECHA = :VFECHA;
    ASIENTO = :VASIENTO;
    CONCEPTO = :VCONCEPTO;
    IMPDEBE = :VIMPDEBE;
    IMPHABER = :VIMPHABER;
    FORPAGO = :VFORPAGO;
    RECIBO = :VRECIBO;
    FACTURA = :VFACTURA;
    USUARIO = :VUSUARIO;
    TIPO = :VTIPO;
    EMPRESATXT =:vempresapro;
    suspend;
    end
end
end

Luego, en mi aplicación, (usando delphi 6 e interbase 7), dentro de un DataModule, tengo un TIbStorePro, conectado a una transaccion que solo le afecta a el, conectada a la base de datos general.

El TIBStorePRo tiene las siguientes propiedades:

object TbEconoPago: TIBStoredProc
Database = IBDBFX
Transaction = IBTransFXProce
OnCalcFields = TbEconoPagoCalcFields
OnNewRecord = TbEconoPagoNewRecord
StoredProcName = 'PROECONOPAGO'
Left = 282
Top = 80
ParamData = <
item
DataType = ftInteger
Name = 'CODIGO'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'NUMALU'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'NUMGRUP'
ParamType = ptOutput
end
item
DataType = ftDateTime
Name = 'FECHA'
ParamType = ptOutput
end
item
DataType = ftInteger
Name = 'ASIENTO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'CONCEPTO'
ParamType = ptOutput
end
item
DataType = ftBCD
Name = 'IMPDEBE'
ParamType = ptOutput
end
item
DataType = ftBCD
Name = 'IMPHABER'
ParamType = ptOutput
end
item
DataType = ftSmallint
Name = 'FORPAGO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'RECIBO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'FACTURA'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'USUARIO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'TIPO'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'EMPRESATXT'
ParamType = ptOutput
end
item
DataType = ftString
Name = 'CONTROL'
ParamType = ptOutput
item
DataType = ftSmallint
Name = 'NUMALUACT'
ParamType = ptInput
end

end>
object TbEconoPagoCODIGO: TIntegerField
FieldName = 'CODIGO'
Origin = 'PROECONOPAGO.CODIGO'
end
object TbEconoPagoNUMALU: TSmallintField
FieldName = 'NUMALU'
Origin = 'PROECONOPAGO.NUMALU'
end
object TbEconoPagoNUMGRUP: TSmallintField
FieldName = 'NUMGRUP'
Origin = 'PROECONOPAGO.NUMGRUP'
end
object TbEconoPagoFECHA: TDateTimeField
FieldName = 'FECHA'
Origin = 'PROECONOPAGO.FECHA'
end
object TbEconoPagoASIENTO: TIntegerField
FieldName = 'ASIENTO'
Origin = 'PROECONOPAGO.ASIENTO'
end
object TbEconoPagoCONCEPTO: TIBStringField
FieldName = 'CONCEPTO'
Origin = 'PROECONOPAGO.CONCEPTO'
Size = 50
end
object TbEconoPagoIMPDEBE: TIBBCDField
FieldName = 'IMPDEBE'
Origin = 'PROECONOPAGO.IMPDEBE'
Precision = 18
Size = 2
end
object TbEconoPagoIMPHABER: TIBBCDField
FieldName = 'IMPHABER'
Origin = 'PROECONOPAGO.IMPHABER'
Precision = 18
Size = 2
end
object TbEconoPagoFORPAGO: TSmallintField
FieldName = 'FORPAGO'
Origin = 'PROECONOPAGO.FORPAGO'
end
object TbEconoPagoRECIBO: TIBStringField
FieldName = 'RECIBO'
Origin = 'PROECONOPAGO.RECIBO'
Size = 10
end
object TbEconoPagoFACTURA: TIBStringField
FieldName = 'FACTURA'
Origin = 'PROECONOPAGO.FACTURA'
Size = 10
end
object TbEconoPagoUSUARIO: TIBStringField
FieldName = 'USUARIO'
Origin = 'PROECONOPAGO.USUARIO'
Size = 10
end
object TbEconoPagoTIPO: TIBStringField
FieldName = 'TIPO'
Origin = 'PROECONOPAGO.TIPO'
Size = 1
end
object TbEconoPagoEMPRESATXT: TIBStringField
FieldName = 'EMPRESATXT'
Origin = 'PROECONOPAGO.EMPRESATXT'
Size = 1
end
object TbEconoPagoCONTROL: TIBStringField
FieldName = 'CONTROL'
Origin = 'PROECONOPAGO.CONTROL'
Size = 1
end
object TbEconoPagoNUMALUACT: TSmallintField
FieldName = 'NUMALUACT'
Origin = 'PROECONOPAGO.NUMALUACT'
Size = 1
end

end

Este TIbStoreProc tiene un DataSource enlazado a él.

Este DataSource está relacionado con el DBGrid de la ventana en la que quiero se muestren los registros de los apunte económicos pendientes de pago, que, como te comenté antes, salen vacios, como si no lo ejecutase.

El código que utilizo para abrir este procedimiento es:

     screen.cursor := crHourGlass;
     FrmEfePago := TFrmEfePago.Create(Self);
     Screen.cursor := crDefault;


     TRY
        FrmDMOdule.IBTransFXProce.Active := false;

        if not FrmDModule.IBTransFXProce.InTransaction then begin
           FrmDModule.IBTransFXProce.StartTransaction;
        end;
        FrmDModule.TbEconoPago.ParamByName('numaluACT').AsInteger := FrmDModule.TbAlumnosNUMALU.AsInteger;
        FrmDModule.TbEconoPago.Prepare;
        FrmDMOdule.IBTransFXProce.Active := true;
        FrmDModule.TbEconoPago.ExecProc;
        //si NO hay registros de deudas
       if FrmDmodule.TbEconoPago.RecordCount = 0 then begin
         showmessage('No existen efectos a pagar !!!');
       end
       else begin // Si hay registros de deudas
           //inserta un registro
           FrmDmodule.TbEcono.Append;
           //mostramos como modal el form
           FrmEfePago.ShowModal;
       end;

        FrmDMOdule.IBTransFXProce.Commit;
     FINALLY

       FrmEfePago.Free;
       //liberamos recursos usados con el Procedure
       FrmDMOdule.TbEconoPago.UnPrepare;

     END;

Muchas gracias por la ayuda,

Virginia