DisplayInvoiceLines:
     TRACE ON
     TRACE LABELS ON
     TRACE SOURCE ON
     
	TD.PageNum = 2
	Gosub TD.SetPageDialog
	
	cosCtlId = IDC.LISTVIEW.01
	Gosub COS.ListView.DeleteAllItems
	LET ListItem = 0
	LET SaveItem = 0
	
	LET LCOUNT = 0
	LET OLINE = 0
	
	LET OGROSS = 0
	LET ODISC = 0
	LET OTAX = 0
	LET OFRT = 0
	LET ODEPOSIT = 0
	LET OMSC = 0
	LET OPYMNT = 0
	LET ONET = 0
	LET OFRTIN = 0
	LET OTAXABL = 0
		
	POSITION (11) KEY = ORNBR$
DIL10:
	LET O1KEY$ = KEY(11, EXCP = DIL80)
	IF SUB(O1KEY$,1,9) NE ORNBR$ GOTO DIL90                ! END OF LINES
	IF SUB(O1KEY$,10,6) EQ '@FF@TOTAL' GOTO DIL70          ! TOTALS RECORD     
	INQUIRE (11,1515) KEY = O1KEY$
     LET OEXT = 1.0000 * OQTYSHP * OPRICE * ((100.0000 - ODSCNT) * .0100)
     IF OTXFLAG$ EQ 'Y' LET OTAXABL = OTAXABL + OEXT
     LET OGROSS = OGROSS + OEXT
	LET SaveItem = ListItem
	
	cosCtlText$ = O1KEY$
	LET cosSubItem = 0
	cosStyle = 0
	cosItemID = ListItem
	Gosub COS.ListView.InsertStringItemResult
	cosItemID = cosFuncResult
	
	cosCtlText$ = OLINE$
	cosSubItem = cosSubItem + 1
	Gosub COS.ListView.SetItemText
	
	cosCtlText$ = ONONSTK$
	cosSubItem = cosSubItem + 1
	Gosub COS.ListView.SetItemText
	
	cosCtlText$ = INBR$
	cosSubItem = cosSubItem + 1
	Gosub COS.ListView.SetItemText