| 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).
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
...
