PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WX - Como validar campos NULOS ao gravar
WX - Como validar campos NULOS ao gravar
Débuté par adrianoboller, 01 mar. 2016 22:44 - Aucune réponse
#1
Membre enregistré
3 659 messages
Popularité : +175 (223 votes)
Posté le 01 mars 2016 - 22:44
Prezados,

Vejamos o seguinte exemplo, nesse o nulo é ignorado:


IGNORA CAMPOS NULOS SE ESTIVEREM VAZIOS MESMO ESTANDO NO BANCO PRA NÃO ACEITAR
//Gravar cadastro do cliente
ok is boolean

IF gsAcao="incluir" THEN
ok=HExecuteQuery(QRY_insert_T003,hQueryDefault,EDT_T002_CNPJ,EDT_T003_DESCRICAO,EDT_T003_DATA,EDT_T003_VALOR,EDT_T003_DC)
IF ok=True THEN
ToastDisplay("Operação realizada com sucesso",toastShort,vaMiddle,haCenter)
ELSE
ToastDisplay("Ocorreu erro ao salvar",toastShort,vaMiddle,haCenter)
END
ELSE IF gsAcao="alterar"
ok=HExecuteQuery(QRY_update_T003,hQueryDefault,EDT_T002_CNPJ,EDT_T003_DESCRICAO,EDT_T003_DATA,EDT_T003_VALOR,EDT_T003_DC,EDT_T003_CCID)
IF ok=True THEN
ToastDisplay("Operação realizada com sucesso",toastShort,vaMiddle,haCenter)
ELSE
ToastDisplay("Ocorreu erro ao salvar",toastShort,vaMiddle,haCenter)
END
END

refresh()

WIN_conta_corrente..Plane=1



//NOTE QUE NO EXEMPLO ACIMA TEM APENAS:
hQueryDefault

//NOTE QUE NO EXEMPLO ABAIXO TEM APENAS:
hCheckIntegrity+hQueryDefault+hQueryWithoutCorrection+hCheckDuplicates



NÃO IGNORA CAMPOS VAZIOS COM NOT NULL SENDO OBRIGATÓRIO INFORMAR
//gravar cadastro do cliente
ok is boolean

IF gsAcao="incluir" THEN
ok=HExecuteQuery(QRY_insert_T003,hCheckIntegrity+hQueryDefault+hQueryWithoutCorrection+hCheckDuplicates,EDT_T002_CNPJ,EDT_T003_DESCRICAO,EDT_T003_DATA,EDT_T003_VALOR,EDT_T003_DC)
IF ok=True THEN
ToastDisplay("Operação realizada com sucesso",toastShort,vaMiddle,haCenter)
ELSE
ToastDisplay("Ocorreu erro ao salvar",toastShort,vaMiddle,haCenter)
END
ELSE IF gsAcao="alterar"
ok=HExecuteQuery(QRY_update_T003,hCheckIntegrity+hQueryDefault+hQueryWithoutCorrection+hCheckDuplicates,EDT_T002_CNPJ,EDT_T003_DESCRICAO,EDT_T003_DATA,EDT_T003_VALOR,EDT_T003_DC,EDT_T003_CCID)
IF ok=True THEN
ToastDisplay("Operação realizada com sucesso",toastShort,vaMiddle,haCenter)
ELSE
ToastDisplay("Ocorreu erro ao salvar",toastShort,vaMiddle,haCenter)
END
END

refresh()

WIN_conta_corrente..Plane=1


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/
→ Revenir à WINDEV 25