Moderador: Moderadores
Marcelo Baliza escreveu:Agora surgiu a necessidade de uma tela em modo gráfico, para marcação com mouse.
#include "inkey.ch"
#include "hbgtinfo.ch"
SET WRAP ON
SET ESCAPE ON
SET SAFETY OFF
SET STATUS OFF
SET TALK OFF
SET CONSOLE OFF
SET SCOREBOARD OFF
SET INTENSITY ON
**************************VIRADA DO MILENIO******
set epoc to 2000
**************************VIRADA DO MILENIO******
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN_DEFAULT
MAIN()
FUNCTION MAIN()
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
LIN=5
DO WHILE !EOF()
@ LIN,02 SAY QUESTAO
@ LIN,70 GET SIM
@ LIN,74 GET NAO
@ LIN,78 GET NAOAPLI
READ
IF LASTKEY()=27
CLOSE DATABASES
RETURN
ENDIF
LIN++
SKIP
LOOP
ENDDO
CLOSE DATABASES
RETURN
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 22 visitantes