| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
Ponto de Entrada utilizado para alterar o cliente, no contrato de prestação de serviços, no TMS Protheus (SIGATMS).
O ponto de entrada altera somente os dados do cliente e loja. |
SINTAXE
TMALTCLI( ) ---> aRet
PARÂMETROS
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| aParamIXB | Vetor | Vetor com os dados para montagem do filtro de pesquisa, sendo: [ 1 ] - cCliente - Código do cliente - Tipo: String [ 2 ] - cLoja- Loja do cliente - Tipo: String [ 3 ] - cServic - Código do serviço - Tipo: String [ 4 ] - cTipFre - Tipo do frete - Tipo String [ 5 ] - cCodNeg - Código da negociação - Tipo String |
RETORNO
| Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| aRet | Array | Retorna um Array com o código e loja do cliente novo, do contrato de prestação de serviços, do TMS Protheus (SIGATMS). |
#Include "Protheus.ch"
User Function TMALTCLI()
Local aRet := {}
Local cCliente := AllTrim(PARAMIXB[1])
Local cCliNovo := ''
Local cLoja := AllTrim(PARAMIXB[2])
Local cLojaNova := ''
cCliNovo := 'SP0001'
cLojaNova := '01'
MsgInfo('Vou trocar o cliente: ' + cCliente + ' e loja: ' + cLoja, +' pelo cliente novo: '+ cCliNovo + ' e loja nova: ' + cLojaNova)
AAdd(aRet, cCliNovo)
AAdd(aRet, cLojaNova)
Return aRet |
A execução do ponto de entrada TMALTCLI, é realizada somente em momento de processamento do cálculo.
O exemplo foi criado com base na rotina TMSA040 - Cotação de frete. Entretanto, esse ponto de entrada também é chamado em outras rotinas.
As rotinas são: