// compara a data do servidor com a data da máquina
sIp is string = BuscaConfigValor("IP") //adriano
sUser is string = BuscaConfigValor("User") //adriano
sPass is string = BuscaConfigValor("Pass") //adriano
sPort is string = BuscaConfigValor("Port") //adriano


IF SQLConnect(sIp,sUser,sPass,"","OLEDB",hNativeAccessPostgreSQL,sPort) > 0 THEN //adriano
SQLExec("SELECT CURRENT_DATE","QseData")
IF SQLFetch("QseData")=0 THEN
DtServer is Date = SQLGetCol("QseData",1)
IF DtServer<>DateSys() THEN
Info("A data de seu computador está errada, favor corrigir !")
EndProgram()
END
END
END

SQLDisconnect() //adriano

EndProgram() //adriano