PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → 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
Started by BOLLER, Dec., 11 2018 3:35 PM - No answer
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on December, 11 2018 - 3:35 PM
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/