#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.
hbmk2 mteste.prg
Saudações,
Itamar M. Lins Jr.