08 Out 2019 14:58
#include "hwgui.ch"
FUNCTION MAIN()
Local nLin, mTeste
IF !FILE('MTESTE.DBF')
mTESTE := {}
AADD(MTESTE, {'QUESTAO ', 'C', 65, 0})
AADD(MTESTE, {'SIM ', 'C', 1, 0})
AADD(MTESTE, {'NAO ', 'C', 1, 0})
AADD(MTESTE, {'NAOAPLI ', 'C', 1, 0})
DBCREATE('MTESTE.DBF', MTESTE)
RELEASE MTESTE
ENDIF
USE MTESTE
IF RECCOUNT()=0
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Cedula de Identidade ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Carteira de Habilitacao ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Comprovante de Endereco ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Prova de Quitacao com Servico Militar ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Comprovante de Renda ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Certificado de Conclusao de Ensino Medio ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Cartao de Vacina ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Titulo de Eleitor ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Ultima Declaracao IRRF ? '
APPEND BLANK
REPL QUESTAO WITH 'Apresentou Nota Fiscal da Compra ? '
ENDIF
GO TOP
nLin := 5
INIT Dialog oDlg AT 0,0 SIZE 800,600 CLIPPER noexit
@ nLIN,02 SAY oQuestao Caption QUESTAO size 200,30
@ nLIN,60 GET SIM size 30,30
@ nLIN,90 GET NAO size 30,30
@ nLIN,120 GET NAOAPLI size 30,30
@ nLin,160 button oBotao caption "Pular" size 60,30 on click {||next()}
ACTIVATE Dialog oDlg center
CLOSE DATABASES
RETURN NIL
Function Next()
if !eof()
dbskip()
endif
oQuestao:settext(mteste->questao)
Return .t.
08 Out 2019 15:16
08 Out 2019 15:39
#xcommand ACTIVATE WINDOW <oWnd> ;
[<lNoShow: NOSHOW>] ;
[<lMaximized: MAXIMIZED>] ;
[<lMinimized: MINIMIZED>] ;
[<lCenter: CENTER>] ;
[ ON ACTIVATE <bInit> ] ;
=> ;
<oWnd>:Activate( !<.lNoShow.>, <.lMaximized.>, <.lMinimized.>, <.lCenter.>, <bInit> )
08 Out 2019 15:42
08 Out 2019 15:46
08 Out 2019 16:13
08 Out 2019 16:29
08 Out 2019 16:30
08 Out 2019 16:32
08 Out 2019 16:37
08 Out 2019 16:50
08 Out 2019 16:54
08 Out 2019 17:23
Assim é minha compilação:(BAT)
set path=C:\hb32\bin;C:\hb32\comp\mingw\bin;%path%
set HB_COMPILER=mingw
hbmk2 MTESTE.hbp
>harbour -build
08 Out 2019 17:34
11 Set 2020 01:46