| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
Ponto de Entrada que cria e valida a tela de Observação e que aparece ao selecionar um cliente, dentro da tela de Entrada de Documento de Cliente (TMSA050).
Retorno
Boolean .T.
Eventos de chamada do Ponto de Entrada
TMSA050ObsCli()
Variáveis
oDlg = objeto
oGet = objeto
nOpca = Numérico
#INCLUDE "PROTHEUS.CH"
User function TM050OBS()
Local oDlg
local oGetObs
local nOpca := 0
local cString := 'Testando'
Alert("Acesso ao PE TM050OBS")
DEFINE MSDIALOG oDlgObs TITLE 'TESTE PE' FROM 15,20 TO 25,62 //"Observacao do Cliente"
DEFINE SBUTTON FROM 52, 101.8 TYPE 1 ENABLE OF oDlgObs ACTION (nOpca := 1,oDlgObs:End())
DEFINE SBUTTON FROM 52, 128.9 TYPE 2 ENABLE OF oDlgObs ACTION (nOpca := 2,oDlgObs:End())
@ 0.5,0.7 GET oGetObs VAR cString OF oDlgObs MEMO size 150,40 READONLY
oGetObs:bRClicked := {||AllwaysTrue()}
ACTIVATE MSDIALOG oDlgObs
Return .T.
Essa informação também está disponível na Central de Atendimento através do link:
https://centraldeatendimento.totvs.com/hc/pt-br/articles/360007482331
Não há.