Gracias Lucas por responder.
Eso es exactamente lo que hago, primero el insert de la factura y después llamo al otro procedimiento.
Todo lo hago en un procedimiento almacenado para no hacer tantas llamadas a la base de datos.
Te voy a poner un trozo de código para que lo veas:
Código:
Insert into FAC_CLI (ID_FAC_CLI, NFACTURA, FECHA, ID_CLI,
CODIGO_FOR_PAG, ID_ALM, IMPORTE, DESCUENTO, ID_EJE)
Código:
execute procedure PasarRecibos :sId, :eEmpresa;
Y luego en el otro procedimiento:
Código:
Select FAC_CLI.IMPORTE, FAC_CLI.FECHA, REC_CLI.DIA_PAGO_MES,
REC_CLI.ID_BAN_CLI, REC_CLI.CODIGO_PRE_REC, REC_CLI.CODIGO_ORD_REC,
FOR_PAG.PRIVENCIMIENTO, FOR_PAG.NVENCIMIENTO, FOR_PAG.INTERVALO,
FOR_PAG.RECIBO from FAC_CLI
Código:
inner join FOR_PAG on
FOR_PAG.CODIGO = FAC_CLI.CODIGO_FOR_PAG
Código:
inner join
REC_CLI on REC_CLI.ID_CLI = FAC_CLI.ID_CLI
Código:
where
FAC_CLI.ID_FAC_CLI = :sId
Código:
into :vIMPORTE, :vFECHA, :vDIA_PAGO_MES, :vID_BAN_CLI,
:vCODIGO_PRE_REC, :vCODIGO_ORD_REC, :vPRIVENCIMIENTO,
:vNVENCIMIENTO, :vINTERVALO, :vRECIBO;
Código:
If (NRECIBO = 1) then begin
Aquí es donde empieza los errores, pues están todos los valores devueltos a Null.
Si me pueden ayudar, gracias.