#include "sbasic_include.sbas" 
Var vNewitem as Int
Var vC1 as String
Var vB1 as String
Var vM1 as String
Var vDESC1 as String
Var vD1 as String
Var vLE0 as Date
Var vLE01 as String
Var vINVOICE as String
Var vITEMNUM as String
Var vEHF as Money
Var vINSR as Int
Var vINSM as Int
Var vINAN as Int
Var vINNG as Int
Var vINBO as Int
Var vSRIN as Int
Var vSROUT as Int
Var vSMOUT as Int
Var vANOUT as Int
Var vNGOUT as Int
Var vTOTALOUT as Int
Var vLNET1 as Money
Var vCodeChk as String
Var vClerk as String
Var vCMRATE as Double
Var vLNET as Double
Var vComm as Double
Var vLNAME as String
Var vCOMMENTS as String
Var vActivity as int

SUP2 = @XLU(@FN, INVOICE,"CUSTOMER!INVOICE","CLERK")
LE0 = @XLU(@FN, INVOICE,"CUSTOMER!INVOICE","DATESTAMP")
vLNAME = @XLU(@FN, INVOICE, "CUSTOMER!INVOICE", "LNAME")
vCOMMENTS = SUP2 + ":" + vLNAME
IF LNET > 0 OR LNET < 0 THEN CMRATE = .03
IF D1 = "BED" OR D1 = "MIS" OR D1 = "ACC" THEN CMRATE = .05
IF D1 = "WAR" THEN CMRATE = .1
//If SUP2 = "Jacob" or SUP2 = "Ron"  or SUP2 = "JEANNIE" Then CMRATE = .02
//If SUP2 = "PAM" and D1 <> "WAR" Then CMRATE = .02
vLNET = LNET
vCMRATE = CMRATE
vCOMM = vLNET * vCMRATE
Comm = vComm


vC1 = C1
vB1 = B1
vM1 = M1
vDESC1 = DESC1
vD1 = D1
vLE0 = LE0
vEHF = EHF

IF SPC <> "" AND TIMESTAMP = "" THEN
{
//	Writeln("Inside the If Statement")
	vNewitem = @XResultSetNew("DATA\invent.DB","Invent")
	if (vNewitem > -1)
	{
//		Writeln("Got a ResultSet")
		XResultSetCreateNewRecord(vNewitem)
		XResultSetValue(vNewitem, "BRAND",vB1)
		XResultSetValue(vNewitem, "MODEL", vM1)
		XResultSetValue(vNewitem, "TYPE", vD1)
		XResultSetValue(vNewitem, "DESCRIPTION", vDESC1)
		XResultSetValue(vNewitem, "DATECREATED", vLE0)
		XResultSetValue(vNewitem, "ITEMCODE", vC1)
		XResultSetValue(vNewitem, "COMMENTS", vCOMMENTS)
		XResultSetValue(vNewitem, "EHF", vEHF)
		XResultSetClose(vNewitem)
		
	}
	Else
	{
		Writeln("NEW ITEM WAS NOT ADDED TO INVENT DATABASE")
		
	}
}

vSROUT = SR
vSMOUT = SM
vANOUT = AN
vNGOUT = NG
vLE01 = LE0
vINVOICE = INVOICE
vITEMNUM = ITEMNUM
vTOTALOUT = vSROUT + vSMOUT + vANOUT + vNGOUT
vLNET1 = LNET
IF TIMESTAMP=""  THEN
	{
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SR,"SR0","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SR,"SRSOLD","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SR,"SR","SUB")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SM,"SM","SUB")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SM,"SM0","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",SM,"SMSOLD","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",AN,"AN0","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",AN,"ANTSOLD","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",AN,"AN","SUB")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",NG,"NG0","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",NG,"NGSOLD","ADD")
		XPOST("DATA\invent.DB",C1,"ITEMCODE",NG,"NG","SUB")
		TIMESTAMP = @TIME

		vActivity = @XResultSetNew("DATA\invent.DB","INVENT!ACTIVITY")
		If vActivity > -1 Then
		{
			XResultSetCreateNewRecord(vActivity)
			XResultSetValue(vNewitem, "ITEMCODE0", vC1)
			XResultSetValue(vNewitem, "TRANSDATE0", vLE0 )
			XResultSetValue(vNewitem, "TRANSNUMBER00", vINVOICE)
			XResultSetValue(vNewitem, "TRANSSUBNUMBER0", vITEMNUM)
			XResultSetValue(vNewitem, "SRTOUT0", vSROUT)
			XResultSetValue(vNewitem, "SMTOUT0", vSMOUT)
			XResultSetValue(vNewitem, "ANTOUT0", vANOUT)
			XResultSetValue(vNewitem, "NGTOUT0", vNGOUT)
			XResultSetValue(vNewitem, "TOTALOUT0", vTOTALOUT )
		        XResultSetValue(vNewitem, "SALES", vLNET1)
			XResultSetClose(vActivity)
		}
	}
		XPOST("DATA\invent.DB","SDATE","ITEMCODE",LE0,"MODEL","")
		XPOST("DATA\invent.DB","SDATE","ITEMCODE",TIMESTAMP,"DESCRIPTION","")