VERSION 5.00
Begin VB.Form frmShowOrderMat 
   Caption         =   "Order Materials"
   ClientHeight    =   4620
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4620
   ScaleWidth      =   5805
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox lstMaterials 
      Height          =   3765
      Left            =   60
      TabIndex        =   0
      Top             =   420
      Width           =   7935
   End
   Begin VB.Label lblAQty 
      AutoSize        =   -1  'True
      Caption         =   "Qty Delivered:"
      Height          =   195
      Left            =   4440
      TabIndex        =   6
      Top             =   120
      Width           =   1005
   End
   Begin VB.Label lblOQty 
      AutoSize        =   -1  'True
      Caption         =   "Qty Ordered:"
      Height          =   195
      Left            =   3360
      TabIndex        =   5
      Top             =   120
      Width           =   900
   End
   Begin VB.Label lblDesc 
      AutoSize        =   -1  'True
      Caption         =   "Description:"
      Height          =   195
      Left            =   960
      TabIndex        =   4
      Top             =   120
      Width           =   840
   End
   Begin VB.Label lblInv 
      AutoSize        =   -1  'True
      Caption         =   "Inv #:"
      Height          =   195
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   420
   End
   Begin VB.Label lblInvTotal 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Invoice Total:"
      Height          =   195
      Left            =   120
      TabIndex        =   2
      Top             =   4320
      Width           =   975
   End
   Begin VB.Label lblTotal 
      Alignment       =   1  'Right Justify
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   1200
      TabIndex        =   1
      Top             =   4260
      Width           =   1755
   End
End
Attribute VB_Name = "frmShowOrderMat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim mdblTOTAL As Double


Private Sub OrderMatLoad()
Dim oRS As Recordset
Dim strSQL As String
Dim strLine As String, lngRET As Long, aTabs(2) As Long
Dim dblSUM As Double

   On Error GoTo Error_EH
   
   aTabs(0) = 40
   aTabs(1) = 180
   aTabs(2) = 230
'   aTabs(3) = 110
'   aTabs(4) = 130
   
   mdblTOTAL = 0
   strSQL = "SELECT * from tblOrdMatrl WHERE Order_id = " & glngORDERID & " Order By Inv_No"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   lngRET = SendMessage(lstMaterials.hwnd, LB_SETTABSTOPS, 3, aTabs(0))
   
   lstMaterials.Clear
   
   Do Until oRS.EOF
      With lstMaterials

         strLine = Field2Str(oRS!inv_no) & vbTab & oRS!Desc & vbTab & oRS!o_qty
         strLine = strLine & vbTab & oRS!a_qty
         .AddItem strLine
         .ItemData(.NewIndex) = oRS!Item_ID
      End With
      dblSUM = (Field2Str2(oRS!a_qty) * Field2Str2(oRS!price))
      mdblTOTAL = mdblTOTAL + dblSUM
      oRS.MoveNext
   Loop
   oRS.Close
   
   lblTotal = Format(mdblTOTAL, "#,#.00")
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form ShowOrderMat - Module OrderMatLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub Form_Load()

   Call OrderMatLoad
End Sub