PC Toledo

Código: Selecionar todos

#include "common.ch"
#include "inkey.ch"
#include "box.ch"

FUNCTION Main
	LOCAL GetList := {}
	LOCAL cBotaoNovo := .t.
	LOCAL cBotaoGravar := .t.
	LOCAL cBotaoSair := .t.
	LOCAL cLetraBotao := ""
	LOCAL cNome := Space(25)
	LOCAL cEndereco := Space(25)
	LOCAL nTelefone := Space(15)
        LOCAL lNovo := .f.
  
  Private cCordoBotao:="GR+/B*,GR+/G,R+/N,GR+/R*"
  Private cCordoGet:=(","+"W+/R"+",,,"+"N/B")
  ConfiguraAmbiente()
	CLS
  set key 103 to SetaBotao('G')
  set key 115 to SetaBotao('S')
  set key 110 to SetaBotao('N')

  Do While .T.

    @ 2, 8, 12, 47 BOX B_DOUBLE + Space(1) Color "N/BG"
    HB_Shadow(2, 8, 12, 47)
    SetColor(cCordoGet)
    @ 4, 10 SAY "Nome" + Space(10 - Len("Nome")) Color "W+/BG" GET cNome PICTURE "@A" When lNovo
    @ 6, 10 SAY "Endereco" + Space(10 - Len("Endereco")) Color "W+/BG" GET cEndereco PICTURE "@A" When lNovo
    @ 8, 10 SAY "Telefone" + Space(10 - Len("Telefone")) Color "W+/BG" GET nTelefone PICTURE "###-###-###" when lNovo

    @ 10, 11 GET cBotaoNovo PushButton CAPTION " &Novo " Color cCordoBotao STYLE "[]" STATE {|| SetaBotao('N') }
    @ 10, 23 GET cBotaoGravar PushButton CAPTION " &Gravar " Color cCordoBotao STYLE "[]" STATE {|| SetaBotao('G')}
    @ 10, 35 GET cBotaoSair PushButton CAPTION " &Sair " Color cCordoBotao STYLE "[]" STATE {|| SetaBotao('S')}
    
    SET CURSOR ON
    READ
    SET CURSOR OFF
    IF LASTKEY() = K_ESC; RETURN .F.; ENDIF
  Enddo
RETURN NIL

Procedure SetaBotao(cLetraBotao)
  Private cTecla
  cTecla:=Upper(cLetraBotao)
  @ 24,10 say cTecla
  DO CASE
	CASE cTecla == 'G'
	   @ 14, 12 SAY cNome + " " + cEndereco + ", " + cTelefone Color "W/N"
	   WAIT
	   Return	
      CASE cTecla == 'S'
           CLS
	   Keyboard(chr(K_ESC))	
      Case cTecla == 'N'
           lNovo:=.T.
          //Ler os Gets
 ENDCASE
Return

Procedure ConfiguraAmbiente()
  REQUEST SQLRDD
  REQUEST SR_PGS
  REQUEST HB_LANG_PT
  REQUEST HB_CODEPAGE_UTF8
  REQUEST HB_CODEPAGE_UTF8EX
  REQUEST HB_GT_WVT_DEFAULT

  HB_CDPSELECT( "UTF8EX")
  HB_LANGSELECT("PT")

  mSetCursor(.T.)

  SETMODE(25,80)

  SET CONFIRM ON
  SET CURSOR OFF
  SET TYPEAHEAD TO 0
  SET INTENSITY ON
  SET SCOREBOARD OFF
  SET DELETED ON
  SET SAFETY OFF
  SET DATE ANSI
  SET ESCAPE ON
  SET CENTURY ON
  SET DELIMITERS TO
  SET EXCLUSIVE OFF
  SET WRAP ON
  SET EPOCH TO 1920
  SET OPTIMIZE ON
  SET MESSAGE TO 24 CENTER
  SET(_SET_DATEFORMAT,"dd/mm/yyyy")
  SET SOFTSEEK ON
  SET AUTOPEN OFF
 
  SetColor("B/N")
  SET EventMask to INKEY_ALL
                                                       
Return