GLOBAL gsUser, gsSenha, gsToken is string = "" HCS.Timeout = INTERNET
HCS.FrameSize = hInternetFrame
HModifyStructure("*",hmsBackgroundTask)
HCreationIfNotFound("*") IF HOpenConnection(MyHfsql_Local) = True THEN HChangeConnection("*",MyHfsql_Local) END
IF HOpenConnection(MyHfsql_Server) = True THEN HChangeConnection("*",MyHfsql_Server) END |