FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
WX - Controlando as mensagens de erro do HDelete e dando a eles uma nava interface de tela ara o usuário final
WX - Controlando as mensagens de erro do HDelete e dando a eles uma nava interface de tela ara o usuário final
Débuté par BOLLER, 11 déc. 2018 15:35 - 1 réponse
Connectez-vous…
BOLLER
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 11 décembre 2018 - 15:35
EXEMPLO: Como controlar as mensagens de erros do HDelete e dando a eles uma nava interface de tela ara o usuário final
// in global
HOnError
(
"*"
,
hErrAll
,
GerenciarMsgErros
)
WHEN EXCEPTION IN
HDelete
(
Tabela
,
hRecNumCurrent
,
hCheckIntegrity
)
DO
ProcedureControlErrors
(
)
END
Procedure
GerenciarMsgErros
(
)
SWITCH
HError
(
hErrCurrent
)
CASE
70100
// Lock Error
/ COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Registro bloqueado por outro usuario"
,
"aguarde desbloqueio"
)
RESULT
opEndProcess
CASE
70015
// Integrity Error
COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Erro de integridade: "
+
HErrorInfo
(
hErrFile
)
+
"."
+
HErrorInfo
(
hErrItem
)
)
Open
(
WIN_Integridade
)
RESULT
opEndProcess
CASE
70010
// Duplicate Error
/ COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Duplicidade: "
+
HErrorInfo
(
hErrFile
)
+
"."
+
HErrorInfo
(
hErrItem
)
,
...
"Valor do item: "
+
{
HErrorInfo
(
hErrFile
)
+
"."
+
HErrorInfo
(
hErrItem
)
,
indItem
}
)
Open
(
WIN_Duplicidade
)
RESULT
opEndProcess
CASE
70022
// Password Error / COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Erro senha do BD: "
+
HErrorInfo
(
hErrFile
)
)
RESULT
opEndProcess
CASE
70700
// Modification Conflict / COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Existe atualização recente neste registro, registro não poderá ser atualizado "
+
H.FileName
)
RESULT
opEndProcess
CASE
70710
// Mandatory Value / COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Campo não preenchido: "
+
HErrorInfo
(
)
)
RESULT
opEndProcess
CASE
70720
// Maintenance Error / COLOCAR OUTROS CODIGOS DOS OUTROS BANCOS
Error
(
"Manutenção do BD em progresso"
,
"tente depois!"
)
RESULT
opEndProcess
OTHER
CASE
Error
(
"Erro durante o procedimento: "
+
HErrorInfo
(
)
)
RESULT
opEndProcess
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/
Signaler
0
0
BOLLER
#2
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 11 décembre 2018 - 16:18
IF
HDelete
(
Tabela
,
hRecNumCurrent
,
hCheckIntegrity
) =
True
Info
(
"Excluiu com sucesso"
)
ELSE
GerenciarMsgErros
(
)
END
//ajuste é a mesma procedure
ProcedureControlErrors() = GerenciarMsgErros()
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modifié, 11 décembre 2018 - 16:19
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte