Hello!
PL/SQL Code:
---------------------------------------------
create or replace package body Actualizaciones as
Procedure Act_Conceptos_Mes(Desde in date,
hasta in date) is
Begin
delete begarinmo.conceptos_mes cm
where cm.fecha between desde and hasta;
insert into begarinmo.conceptos_mes
(CODIGO_ACTIVIDAD,CENTRO_TRABAJO,ANO,MES,CODIGO,DESCRIPCION1,SUBCODIGO,DESCRIPCION2,IMPORTE)
(
select * from ver_conceptos_mes
where to_date('01/'| |mes| |'/'| |ano) between desde and hasta
);
commit;
End;
Procedure Actualizar_Datos(Desde in date,
hasta in date) is
Begin
Act_conceptos_mes(Desde,hasta);
End;
end Actualizaciones;
---------------------------------------------
My Delphi Code (PKG_Actualizacion is a TOraclePackage):
with PKG_Actualizacion do
try
CallProcedure('Act_Conceptos_Mes', [DesdeFecha, HastaFecha]);
except
on E: EOracleError do
BEGIN
MessageDlg(e.message, mtError, [mbOK], 0);
Ok := False;
end;
end;
I've an exception when I execute this:
ORA-01036 ILEGAL VAR/NUM
Why? Thanks.
------------------
