Exemplo da chamada no Delphi - Serviço 709

var
  vDM: TDm_IntRecebimento_Server;
  v_DataNF : OleVariant;
begin
  try
    vDM := TDm_IntRecebimento_Server.Create(Self);
    vDM. CL_NotaCompl_Imp_.Close;
    vDM. CL_NotaItemCompl_Imp_.Close;
    vDM. CL_NotaCompl_Imp_.CreateDataSet;
    vDM. CL_NotaItemCompl_Imp_.CreateDataSet;
    vDM. CL_NotaCompl_Imp_.Insert;
    vDM. CL_NotaItemCompl_Imp_.Insert;
    v_DataNF := VarArrayCreate([0, 1, 0, 0], varVariant);
    v_DataNF[0,0] := vDM.CL_NotaCompl_Imp_.Data;
    v_DataNF[1,0] := vDM. CL_NotaItemCompl_Imp_.Data;
    vDM. IntegrarNotaComplementar ('P', v_DataNF, RDMUsuario, '', -1);
  finally
    FreeAndNil(vDM);
  end;
end;