Main.PUB_SQL_MEM.BeginTransaction
Main.PUB_SQL_MEM.ExecNonQuery("delete from MEM_SLS_RPT")
For Each records() As Object In result.Rows
Dim ListOfMaps As List
ListOfMaps.Initialize
Dim m As Map
m.Initialize
m.Put("AREA", records(0))
m.Put("CTY", records(1))
m.Put("DPT",records(2))
m.Put("COUNTER",records(3))
m.Put("MNTH",records(4))
m.Put("TYP",records(5))
m.Put("SUB_TYP",records(6))
m.Put("GRP",records(7))
m.Put("QTY",records(8))
ListOfMaps.Add(m)
DBUtils.InsertMaps(Main.PUB_SQL_MEM, "MEM_SLS_RPT", ListOfMaps)
Next
Main.PUB_SQL_MEM.TransactionSuccessful
Main.PUB_SQL_MEM.EndTransaction