PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - TermoAceite()
WX - TermoAceite()
Débuté par BOLLER, 02 nov. 2017 15:53 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 02 novembre 2017 - 15:53
// Summary: <specify the procedure action>
// Syntax:
// Pular ()
//
// Parameters:
// None
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
Procedure TermoAceite()
//Verifica se tem usuario cadastrado
HReadSeekFirst(t001_usuarios,t001_usuarios.t001_ID_AutoNumber,1,hKeepFilter)

IF t001_usuarios.t001_aceite = False
OpenMobileWindow(WIN_09_TermoAceite)
ELSE
OpenMobileWindow(WIN_02_MeusDados)
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/