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_RecPedidosReceb_Imp_.Close;
vDM.Cl_ProcessoAdmJudReceb_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_RecPedidosReceb_Imp_.CreateDataSet;
Cl_ProcessoAdmJudReceb_Imp_.CreateDataSet;
vDM.CL_Recebimento_Imp_.Insert;
vDM.JnCl_ItensReceb_Imp_.Insert;
v_DataNF := VarArrayCreate([0, 14, 0, 1], varVariant);//PES-133 //PFIS-2631
v_DataNF[0 ,0] := Cl_NotaFiscal_ .Data;
v_DataNF[1 ,0] := JnCl_ItemNotaFiscal_ .Data;
v_DataNF[2 ,0] := Cl_ItemNotaEstoque_ .Data;
v_DataNF[3 ,0] := Cl_DeclaracaoImpItemNF_ .Data;
v_DataNF[4 ,0] := Cl_ObservacaoNF_ .Data;
v_DataNF[5 ,0] := Cl_VolumeNF_ .Data;
v_DataNF[6 ,0] := CL_GeraParcelas_ .Data;
v_DataNF[7 ,0] := Cl_DeclaracaoImp_ .Data;
v_DataNF[8 ,0] := Cl_ItemPed_ItemNot_NOT_ .Data;
v_DataNF[9 ,0] := Cl_DocVinculados_ .Data;
v_DataNF[10,0] := Cl_NotasVinculadas_ .Data;
v_DataNF[11,0] := Cl_DeclaracaoExp_ .Data;
v_DataNF[12,0] := Cl_CTeEmissao_ .Data;
v_DataNF[13,0] := CL_ItemNotaFiscalNVE_ .Data;
v_DataNF[14,0] := CL_ItemNotaFiscalCredPres_.Data;
vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);
finally
FreeAndNil(vDM);
end;
