AdvPL clássico
Emulador AdvPL
core 03d2bda7
Executar código
Código AdvPL
#Include "Protheus.ch" User Function MinhaTela() Local oDlg, oCampoNome, oAtivo Local cNome := "Maria" Local lAtivo := .T. DEFINE MSDIALOG oDlg TITLE "Cadastro de cliente" ; FROM 000, 000 TO 220, 500 PIXEL @ 025, 025 SAY "Nome:" SIZE 050, 012 OF oDlg PIXEL @ 023, 085 GET oCampoNome VAR cNome ; SIZE 140, 012 OF oDlg PIXEL @ 055, 085 CHECKBOX oAtivo VAR lAtivo ; PROMPT "Cliente ativo" SIZE 100, 012 OF oDlg PIXEL @ 085, 165 BUTTON "Confirmar" ; ACTION MsgInfo("Olá, " + cNome) ; SIZE 070, 022 OF oDlg PIXEL @ 085, 245 BUTTON "Fechar" ; ACTION oDlg:End() SIZE 060, 022 OF oDlg PIXEL ACTIVATE MSDIALOG oDlg CENTERED Return
Pronto para interpretar.
Resultado emulado
Execute o código para visualizar o resultado.
Informação
OK
i
Atenção
N
ão
S
im