Code: Select all
If OpenDatabase(#DB_MISC, "dados\misc.db3", "", "")
If DatabaseQuery(#DB_MISC, "SELECT * FROM div;")
IMPREVISTO = ValF(GetGadgetText(#Gadget_opcoes_imprevisto))
DatabaseUpdate(#DB_MISC, "UPDATE div SET value='" + StrF(IMPREVISTO, 2) + "' where id='imprevisto';")
MT = ValF(GetGadgetText(#Gadget_opcoes_mtpiso))
DatabaseQuery(#DB_MISC, "UPDATE div SET value='" + StrF(MT, 2) + "' where id='mt';")
AUMENTO = ValF(GetGadgetText(#Gadget_opcoes_aum_gen))
DatabaseUpdate(#DB_MISC, "UPDATE div SET value='" + StrF(AUMENTO, 2) + "' where id='aumento';")
EndIf
C1_REP = ValF(GetGadgetItemText(#Gadget_opcoes_C1, 0, 1))
DatabaseUpdate(#DB_MISC, "UPDATE c1 SET value='" + StrF(c1_REP, 2) + "' where id='REP';")
C1_MOD = ValF(GetGadgetItemText(#Gadget_opcoes_C1, 1, 1))
DatabaseUpdate(#DB_MISC, "UPDATE c1 SET value='" + StrF(c1_MOD, 2) + "' where id='MOD';")
CloseDatabase(#DB_MISC)
EndIf