Histórico da Página

#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'

    MsgAlertMsgInfo('Vou trocar o cliente: ' + cCliente + ' e loja:  ' + cLoja,  +' pelo cliente novo: '+ cCliNovo + ' e loja nova: ' + cLojaNova)

    AAdd(aRet, cCliNovo)
    AAdd(aRet, cLojaNova)

Return aRet