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;