Prezados,
Vejamos o seguinte exemplo, nesse o nulo é ignorado:
IGNORA CAMPOS NULOS SE ESTIVEREM VAZIOS MESMO ESTANDO NO BANCO PRA NÃO ACEITAR
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
hQueryDefault
hCheckIntegrity+hQueryDefault+hQueryWithoutCorrection+hCheckDuplicates
NÃO IGNORA CAMPOS VAZIOS COM NOT NULL SENDO OBRIGATÓRIO INFORMAR
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/