Global Code ::Mass Update
Stat vActivity as Int
vActivity = @XResultSetNew("DATA\invent.DB","INVENT!ACTIVITY")


TRANS NO :: MASS UPDATE
#include "sbasic_include.sbas"
Var C1 as String
var vNEWITEM as int
Var vITEMCODE0 as String
Var vTRANSDATE as String
Var vTRANSNUMBER0 as String
Var vSRIN as String
Var vSMIN as String
Var vANIN as String
Var vNGIN as String
Var vSROUT as String
Var vSMOUT as String
Var vANOUT as String
Var vNGOUT as String
Var vTOTALIN as String
Var vTOTALOUT as String
Var vCHG as String
Var vForm as String
var vRSHandle as Int
var vRSHandle1 as Int
var vActivity as Int
var vC1 as String
Var vCOST as String

vITEMCODE0 = CODE
vTRANSDATE = LE2
vTRANSNUMBER0 = TRANS NO
vSRIN = SRIN
vSMIN = SMIN
vANIN = ANIN
vNGIN = NGIN
vSROUT = SROUT
vSMOUT = SMOUT
vANOUT = ANOUT
vNGOUT = NGOUT
vTOTALIN = vSRIN + vSMIN + vANIN + vNGIN
vTOTALOUT = vSROUT + vSMOUT + vANOUT + vNGOUT
vCHG = vTOTALIN + vTOTALOUT
C1 = CODE
vC1 = CODE
vCOST = COST
IF FROM<>"SYDNEY RIVER" AND FROM<>"SYDNEY MINES" AND FROM<>"ANTIGONISH" AND FROM<>"NEW GLASGOW" AND TIMESTAMP ="" THEN
					{XPOST("DATA\INVENT.DB",C1,"ITEMCODE",LE2,"LASTNEWSTOCK","")}


IF TIMESTAMP=""  THEN
	{XPOST("DATA\invent.DB",C1,"ITEMCODE",SRIN,"SR","ADD")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",SROUT,"SR","SUB")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",SMOUT,"SM","SUB")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",SMIN,"SM","ADD")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",ANIN,"AN","ADD")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",ANOUT,"AN","SUB")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",NGIN,"NG","ADD")
	XPOST("DATA\invent.DB",C1,"ITEMCODE",NGOUT,"NG","SUB")
	XPOST("DATA\SR\SOLDSR.DB",C1,"ITEMCODE",vTRANSDATE,"NEW ARRIVAL","")
	XPOST("DATA\SM\SOLDSM.DB",C1,"ITEMCODE",vTRANSDATE,"NEW ARRIVAL","")
	XPOST("DATA\ANT\SOLDANT.DB",C1,"ITEMCODE",vTRANSDATE,"NEW ARRIVAL","")
	XPOST("DATA\NG\SOLDNG.DB",C1,"ITEMCODE",vTRANSDATE,"NEW ARRIVAL","")
//	XPOST("DATA\invent.DB",C1,"ITEMCODE",BOIN,"BKO","ADD")
//	XPOST("DATA\invent.DB",C1,"ITEMCODE",BOOUT,"BKO","SUB")
	

//vActivity = @XResultSetNew("DATA\invent.DB","INVENT!ACTIVITY")
		If vActivity > -1 Then
		{
			XResultSetCreateNewRecord(vActivity)
			XResultSetValue(vActivity, "ITEMCODE0", CODE, "SRTIN0",vSRIN, "SMTIN0",vSMIN , "ANTIN0",vANIN , "NGTIN0",vNGIN , "TOTALIN0", vTOTALIN, "SRTOUT0",vSROUT , "SMTOUT0",vSMOUT , "ANTOUT0",vANOUT , "NGTOUT0",vNGOUT , "TRANSDATE0",vTRANSDATE , "COST",vCOST , "TRANSNUMBER00",vTRANSNUMBER0 , "TOTALOUT0",vTOTALOUT )
			XResultSetClose(vActivity)
		}
		
							TIMESTAMP = @TIME}
		XPOST("DATA\invent.DB","TDATE","ITEMCODE",LE2,"MODEL","")
		XPOST("DATA\invent.DB","TDATE","ITEMCODE",TIMESTAMP,"DESCRIPTION","")

IF @ResultSetCurrentPosition() = @ResultSetTotal() Then {XResultSetClose(vActivity)}