Exemplo de chamada no Delphi - Serviço 506

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

var

  vDM: TDM_IntDistribuicao_Server;
  v_DataPDV : OleVariant;
begin
  try
     vDM:= TDM_IntDistribuicao_Server.Create(Self);
     vDM.Cl_WEBPedidoVenda_.CreateDataSet;
     vDM.Cl_WEBItemPedidoVenda_.CreateDataSet;
     vDM.Cl_WEBObservacaoPedido_.CreateDataSet;
     vDM,Cl_WEBRepresentantePed_.CreateDataSet;
     vDM.Cl_WEBRepresentanteItemPed_.CreateDataSet;
     vDM.Cl_WEBObsItemPedido_.CreateDataSet;
     vDM.Cl_WEBPedProgEstoque_.CreateDataSet;
     vDM.Cl_WEBParcFinPedido_.CreateDataSet;

      v_DataPDV := VarArrayCreate([0, 8, 0, 0], varVariant);

      v_DataPDV [1,0] := Cl_WEBObservacaoPedido_.Data;
      v_DataPDV [0,0] := Cl_WEBPedidoVenda_.Data;
      v_DataPDV [2,0] := Cl_WEBRepresentantePed_.Data;
      v_DataPDV [3,0] := Cl_WEBItemPedidoVenda_.Data;
      v_DataPDV [4,0] := Cl_WEBRepresentanteItemPed_.Data;
      v_DataPDV [5,0] := Cl_WEBObsItemPedido_.Data;
      v_DataPDV [6,0] := Cl_WEBPedProgEntrega_.Data;
      v_DataPDV [7,0] := Cl_WEBPedProgEstoque_.Data;
      v_DataPDV [8,0] := Cl_WEBParcFinPedido_.Data;

      v_DataPDV := vDM.ImportaPedidoVenda('P', v_DataPDV, RDMUsuario, '', -1]);
  finally
    FreeAndNil(vDM);
  end;
end;