IF oSession.UserCode = "ASF" Then
IF CBool(oScript.UIObj) = "True" And oSession.Updating = 0 Then

xCompany = oSession.CompanyCode
IF (xCompany="xxx") or (xCompany="TST") Then


'Declare Variables
'sGroupLineNumber is used for grouping
'sConfLineNum is used for the line number on the confirmation
'sConfItemCode is used to bundle together stock item codes and standard item codes
'every variable starts with an s regardless if it's a string 
sItemCode = ""
sComment = ""
sFeet = 0
sInches = 0
sPrice = 0
sRealLineNumber = ""
sGroupLineNumber = ""
sConfLineNum = ""
sConfItemCode = ""
sUnique = ""
sPrevious = ""
x = 0



	'Start Loop
    Set oLines = oBusObj.AsObject(oBusObj.Lines)
    retVal = oLines.MoveFirst()
   
    Do Until CBool(oLines.EOF)

      'Get all needed Values
	  retVal = oLines.GetValue("ItemCode$",sItemCode)
	  retVal = oLines.GetValue("CommentText$",sComment)
	  retVal = oLines.GetValue("UDF_FEET",sFeet)
	  retVal = oLines.GetValue("UDF_INCHES",sInches)
	  retVal = oLines.GetValue("UnitPrice",sPrice)
	  retVal = oLines.GetValue("LineKey$",sRealLineNumber)
	  
	  'convert line number to integar
	  sRealLineNumber = CDbl(sRealLineNumber)
	  
	  'strip stock charachters from item code 
	  sConfItemCode = sItemCode
	  If (Right(sConfItemCode, 3) = "-10") Or (Right(sConfItemCode, 3) = "-12") Or (Right(sConfItemCode, 2) = "8") Then
      sConfItemCode = Left(sConfItemCode, InStr(sConfItemCode, "-") - 1)
	  End if	
	  
	  
	  MsgBox sRealLineNumber
	  
	  'create unique for group
	  sUnique = sConfItemCode & sComment & sFeet & sInches & sPrice 

	  'IF x >0 Then 
	    'if statement to see if line number is grouped with the previous line
		IF sUnique = sPrevious Then
		
		'create group line number and confirmation line number 
		sGroupLineNumber = sRealLineNumber - 1 & " "
		sConfLineNum = sGroupLineNumber & "& " & sRealLineNumber 
		' write the three new data fields 
		retVal = oLines.SetValue("UDF_CONF_GROUPNO$", sGroupLineNumber)
		retVal = oLines.SetValue("UDF_CONF_LINENO$", sConfLineNum)
		retVal = oLines.SetValue("UDF_CONF_ITEM$", sConfItemCode)
		retVal  = oLines.Write() 'Save detail line
        
	    Else 
		
        sGroupLineNumber = sRealLineNumber & " "
		retVal = oLines.SetValue("UDF_CONF_GROUPNO$", sGroupLineNumber)
		retVal = oLines.SetValue("UDF_CONF_LINENO$", sGroupLineNumber)
		retVal = oLines.SetValue("UDF_CONF_ITEM$", sConfItemCode)
		retVal  = oLines.Write()
		End IF 
        		
	MsgBox "hi"
	    
	 
	x = x + 1  
	sPrevious = sUnique
	retVal3 = oLines.MoveNext()
    Loop

MsgBox "bYE"

End IF
End IF
End IF