//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)