Public Sub set_federations_map(mapRecords As Map, strDateTime As String)
Dim sqlSelectUpd As SQL
sqlSelectUpd.Initialize(xui.DefaultFolder, "strings.db", False)
sqlSelectUpd.ExecNonQuery("DELETE FROM cmn_lst_federaciones")
sqlSelectUpd.BeginTransaction
For Each intID As Int In mapRecords.Keys
Dim strDescShort As String = mapRecords.Get(intID).As (List).Get(0).As (String)
Dim strDesc As String = mapRecords.Get(intID).As (List).Get(1).As (String)
sqlSelectUpd.ExecNonQuery2("INSERT INTO cmn_lst_federaciones VALUES (?, ?, ?)", Array As Object(intID, strDesc, strDescShort))
Next
sqlSelectUpd.TransactionSuccessful
sqlSelectUpd.EndTransaction
sqlSelectUpd.ExecNonQuery("UPDATE cfg_last_update SET updated = '" & strDateTime & "' WHERE table_id = 'cmn_lst_federaciones'")
sqlSelectUpd.Close
End Sub