Exemplo da chamada no Delphi - Serviço 705

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;