var
vDM: TDm_IntRecebimento_Server;
v_DataNF : OleVariant;
begin
try
vDM := TDm_IntRecebimento_Server.Create(Self);
vDM.CL_Recebimento_Imp_.Close;
vDM.JnCl_ItensReceb_Imp_.Close;
vDM.CL_LotesVinculados_Imp_.Close;
vDM.CL_ItensReceb_CCF_Imp_.Close;
vDM.CL_ItensReceb_Proj_Imp_.Close;
vDM.Cl_ParcelasFin_Imp_.Close;
vDM.CL_Recebimento_Imp_.CreateDataSet;
vDM.JnCl_ItensReceb_Imp_.Open;
vDM.CL_LotesVinculados_Imp_.CreateDataSet;
vDM.CL_ItensReceb_CCF_Imp_.CreateDataSet;
vDM.CL_ItensReceb_Proj_Imp_.CreateDataSet;
vDM.Cl_ParcelasFin_Imp_.CreateDataSet;
vDM.CL_Recebimento_Imp_.Insert;
vDM.JnCl_ItensReceb_Imp_.Insert;
v_DataNF := VarArrayCreate([0, 5, 0, 0], varVariant);
v_DataNF[0,0] := vDM.CL_Recebimento_Imp_.Data;
v_DataNF[1,0] := vDM.JnCl_ItensReceb_Imp_.Data;
v_DataNF[2,0] := vDM.CL_LotesVinculados_Imp_.Data;
v_DataNF[3,0] := vDM.CL_ItensReceb_CCF_Imp_.Data;
v_DataNF[4,0] := vDM.CL_ItensReceb_Proj_Imp_.Data;
v_DataNF[5,0] := vDM.Cl_ParcelasFin_Imp_.Data;
vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);
finally
FreeAndNil(vDM);
end;
