Code: Select all
on updateQtyOh qtyToUpdate
if qtyToUpdate = 1 then
put executeSQL("BEGIN IMMEDIATE TRANSACTION") into resultSet
put "Updating All Quantities" into field "updateStatus"
show field "updateStatus"
end if
put revXMLNodeContents(xmlQtyTree_ONCE, "string/NewDataSet/Table[" & qtyToUpdate & "]/I") into qty_itemno
put revXMLNodeContents(xmlQtyTree_ONCE, "string/NewDataSet/Table[" & qtyToUpdate & "]/Q") into qty_qty
put revXMLNodeContents(xmlQtyTree_ONCE, "string/NewDataSet/Table[" & qtyToUpdate & "]/C") into qty_cprc
put "INSERT INTO Onhand_Cache VALUES (" & qty_itemno & "," & qty_qty & "," & qty_cprc & ")" into qtySQL
put executeSQL(qtySQL) into qtyResult
put (1+qtyToUpdate) into qtyToUpdate
if qtyToUpdate <= totalQtys then
send "updateQtyOh qtyToUpdate" to me in 0 milliseconds
else
put executeSQL("COMMIT TRANSACTION") into tResult
put "UPDATE Items SET QTYOH = (SELECT OnHand_Cache.QTYOH FROM OnHand_Cache WHERE OnHand_Cache.ITEMNO = Items.ITEMNO), CPRC = (SELECT OnHand_Cache.CPRC FROM OnHand_Cache WHERE OnHand_Cache.ITEMNO = Items.ITEMNO)" & \
"WHERE EXISTS (SELECT * FROM OnHand_Cache WHERE OnHand_Cache.ITEMNO = Items.ITEMNO)" into qtySQL
put executeSQL(qtySQL) into qtyResult
put "Update Complete" into field "updateStatus"
revDeleteXMLTree xmlQtyTree_ONCE
end if
end updateQtyOh