Exemplo da chamada no Delphi - Serviço 708

Owned by William Halter Batista (Unlicensed)
Last updated: Jul 13, 2017 by Thaise Sousa (Unlicensed)
1 min read

var

  vDM: TDm_IntRecebimento_Server;

  v_DataNF : OleVariant;

begin

  try

    vDM := TDm_IntRecebimento_Server.Create(Self);

    vDM.CL_Conhec_Imp_.Close;

    vDM.CL_NotasVinculadas_Imp_.Close;

    vDM.CL_Conhec_Imp_.CreateDataSet;

    vDM.CL_NotasVinculadas_Imp_.CreateDataSet;

    vDM.CL_Conhec_Imp_.Insert;

    vDM. CL_NotasVinculadas_Imp_.Insert;

    v_DataNF := VarArrayCreate([0, 1, 0, 0], varVariant);

    v_DataNF[0,0] := vDM. CL_Conhec_Imp_.Data;

    v_DataNF[1,0] := vDM. CL_NotasVinculadas_Imp_.Data;

    vDM. IntegrarConhecimento('P', v_DataNF, RDMUsuario, '', -1);

  finally

    FreeAndNil(vDM);

end;