PC Toledo

Código: Selecionar todos

#include "hmg.ch"

REQUEST HB_CODEPAGE_PTISO

Function Main

	HB_CDPSELECT("PTISO")
	SET LANGUAGE TO PORTUGUESE
	SET NAVIGATION EXTENDED

	CriarARQ()

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'Validação em TEXTBOX' ;
		MAIN 

		@ 10,10 TEXTBOX Text_1 ;
			WIDTH 150 ;
			TOOLTIP 'Validar campo em branco/vazio' ;
			ON ENTER {|| Val_Vazio(This.Value) }

		@ 40,10 TEXTBOX Text_2 ;
			VALUE 0 ;
			TOOLTIP 'Validar valor maior que zero' ;
			NUMERIC ;
			MAXLENGTH 5 ;
			RIGHTALIGN ;
			ON ENTER {|| Val_Valor(This.Value) }

		@ 70,10 TEXTBOX Text_3 ;
			WIDTH 50 ;
			TOOLTIP 'Validar conteúdo em outro arquivo' ;
			INPUTMASK '9999' ;
			ON ENTER {|| Val_Campo(This.Value) }

		@ 73,70 LABEL Label_1 ;
			AUTOSIZE ;
			VALUE '' ;
			TRANSPARENT ;
			FONT "ARIAL" SIZE 12 BOLD

	END WINDOW

	Form_1.Center

	Form_1.Activate

Return Nil

*****************************************
Function Val_Vazio(cValue)
Local lRet:=Empt(cValue)
If lRet
 MsgInfo("Este campo não pode ficar em branco!","Campo vazio")
 Form_1.Text_1.SetFocus
Endif
Return Nil

*****************************************
Function Val_Valor(nValue)
Local lRet:=nValue>0
If !lRet
 MsgInfo("Informe um valor maior que zero!","Valor inválido")
 Form_1.Text_2.SetFocus
Endif
Return Nil

*****************************************
Function Val_Campo(cValue)
Local lRet:=.T., cCod:=STRZERO(VAL(cValue),4)
If VAL(cCod)>0
 SELE ARQDEMO
 GO TOP
 SEEK cCod
 If Found()
  Form_1.Text_3.Value := cCod
  Form_1.Label_1.Value := Alltrim(DESCRI)
 Else
  MsgInfo("Código "+cCod+" não foi encontrado no arquivo de dados!","Valor inválido")
  Form_1.Text_3.SetFocus
 Endif
Else
 MsgInfo("Favor informar um valor para o campo!","Valor inválido")
 Form_1.Text_3.SetFocus
Endif
Return Nil

********************************************
Proc CriarARQ()
Local aStruc := { {"COD","C",4,0}, {"DESCRI","C",30,0} },;
      cARQ:="ARQDEMO.DBF"

If !File( cARQ )
 DBcreate( cARQ, aStruc )
 USE ( cARQ ) NEW
 For i=1 to 10
  Append Blank
  repl COD WITH STRZERO(i,4), DESCRI WITH "CAMPO "+STRZERO(i,2)
 Next
Else
 USE ( cARQ ) NEW
EndIF
If !File( "IND.NTX" )
 INDEX ON COD TO IND
EndIF
SET INDEX TO IND
Return

Código: Selecionar todos

@ 10,10 TEXTBOX Text_1 ;
         VALUE 1234.56 ;
         NUMERIC INPUTMASK "99,999.99" FORMAT 'E'

Código: Selecionar todos

ONENTER iif(CONFIRMOU := F_MUDA_SENHA_HMG.TBmPASSWORD.value == F_MUDA_SENHA_HMG.TBaPASSWORD.value, F_MUDA_SENHA_HMG.Bt_1.setfocus,F_MUDA_SENHA_HMG.TBaPASSWORD.setfocus)