Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH"
User Function F091Natur()
LOCAL cNatur090 := CRIAVAR("E2_NATUREZ") //Space(TamSX3("E2_NATUREZ")1)
LOCAL oDlg
LOCAL lAcepto := .F.
DEFINE MSDIALOG oDlg FROM 65,000 To 200,340 Title "TESTE NATUREZA" PIXEL
@ 01,003 To 68,130 Label "TESTE PE" Of oDlg PIXEL
@ 12,008 SAY "NATUREZA" SIZE 30,10 Of oDlg PIXEL
@ 12,040 MSGET cNatur090 F3 "SED" SIZE 50,10 Of oDlg PIXEL
DEFINE SBUTTON FROM 57,070 Type 1 Action If((!Empty(cNatur090)),(nOpca := 1,oDlg:End()),HELP(" ",1,"OBRIGAT",,SPACE(45),3,0)) ENABLE PIXEL OF oDlg
ACTIVATE DIALOG oDlg CENTERED
Return cNatur090
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas