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, 7, 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_RecPedidosReceb_Imp_.Data;
    v_DataNF[6,0] := vDM.Cl_ParcelasFin_Imp_.Data;
    v_DataNF[7,0] := vDM.Cl_ProcessoAdmJudReceb_Imp_.Data;
    vDM.IntegrarRecebimento('P', v_DataNF, RDMUsuario, '', -1);
  finally
    FreeAndNil(vDM);
  end;