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, 714, 0, 01], varVariant);
//PES-133 //PFIS-2631
v_DataNF[0 ,0] := vDM.CL_Recebimento_Imp_.Data;
Cl_NotaFiscal_ .Data;
v_DataNF[1 ,0] := JnCl_ItemNotaFiscal_ .Data;
v_DataNF[12 ,0] := vDM.JnCl_ItensReceb_Imp_.Data;
Cl_ItemNotaEstoque_ .Data;
v_DataNF[3 ,0] := Cl_DeclaracaoImpItemNF_ .Data;
v_DataNF[24 ,0] := vDM.CL_LotesVinculados_Imp_.Data;
Cl_ObservacaoNF_ .Data;
v_DataNF[5 ,0] := Cl_VolumeNF_ .Data;
v_DataNF[36 ,0] := vDM.CL_ItensReceb_CCF_Imp_.Data;
_GeraParcelas_ .Data;
v_DataNF[7 ,0] := Cl_DeclaracaoImp_ .Data;
v_DataNF[48 ,0] := vDM.CLCl_ItensRecebItemPed_ProjItemNot_ImpNOT_ .Data;
v_DataNF[59 ,0] := vDM.Cl_RecPedidosReceb_Imp_.Data;
Cl_DocVinculados_ .Data;
v_DataNF[10,0] := Cl_NotasVinculadas_ .Data;
v_DataNF[11,0] := Cl_DeclaracaoExp_ .Data;
v_DataNF[612,0] := vDM.Cl_ParcelasFin_Imp_CTeEmissao_ .Data;
v_DataNF[713,0] := vDM.Cl_ProcessoAdmJudReceb_Imp CL_ItemNotaFiscalNVE_ .Data;
v_DataNF[14,0] := CL_ItemNotaFiscalCredPres_.Data;
vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);
finally
FreeAndNil(vDM);
end; | 