Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 


02. DESCRIÇÃO

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

03. EXEMPLO DE UTILIZAÇÃO

TM050OBS
#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.

04. DEMAIS INFORMAÇÕES

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

05. ASSUNTOS RELACIONADOS

Não há.