SINCRONIZAR HORARIO CON HORA DEL SERVIDOR

 //SINCRONIZA HORARIO COM A HORA DO SERVIDOR  //ADRIANO BOLLER

PathFile is string = fCurrentDir ( fCurrentDrive() ) +"\config.ini"

IF CBOX_Sincronizar..Value = True THEN
Sincronizar = "S"
ok is boolean = INIWrite("Nagyro", "Sincronizar", Sincronizar , PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END
ELSE
Sincronizar = "N"
ok is boolean = INIWrite("Nagyro", "Sincronizar", Sincronizar , PathFile)
IF ErrorOccurred = True AND Sincronizar = "" THEN
Error()
END
END

IF Sincronizar = "S" THEN
ExeRun("NET TIME \\192.168.1.180 /SET /YES",exeIconize,exeDontWait)
END