| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | SIGATMS - TMS |
| Função: | TMALTCLI - Contrato de prestação de serviços. |
| Abrangências: | Microsiga Protheus 12 |
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). |
EXEMPLO
#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 |