...
| 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 |
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:
