PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Wx - Hibernate
Wx - Hibernate
Iniciado por Boller, mar., 22 2021 9:53 PM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em março, 22 2021 - 9:53 PM
//GLOBAL INIT PROJECT

myServerIp_A is connection = myServerIp
myServerIp_B is connection = myServerIp



Procedure HConnectWithHibernet()
Ok is boolean

IF HOpenConnection(myServerIp_A) = True
HChangeConnection(*, myServerIp_A)

Ok = True

ELSE

Ok = False

IF HOpenConnection(myServerIp_B) = True
HChangeConnection(*, myServerIp_B)
Ok = True
ELSE
gnTentativa++
IF gnTentativa <= 3
HconnectHibernet()
END
END

END

RESULT ok



Procedure Hibernet()
HCloseConnection(myServerIp)
HCloseConnection(myServerIp_A)
HCloseConnection(myServerIp_B)


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