VERSION 5.00
Begin VB.Form frmShowYardMat 
   Caption         =   "Yard Materials"
   ClientHeight    =   4620
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7260
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4620
   ScaleWidth      =   7260
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox lstMaterials 
      Height          =   3765
      Left            =   60
      TabIndex        =   0
      Top             =   420
      Width           =   7095
   End
   Begin VB.Label lblIssue 
      AutoSize        =   -1  'True
      Caption         =   "Date Issued:"
      Height          =   195
      Left            =   6120
      TabIndex        =   7
      Top             =   120
      Width           =   900
   End
   Begin VB.Label lblAQty 
      AutoSize        =   -1  'True
      Caption         =   "Qty Issued:"
      Height          =   195
      Left            =   4680
      TabIndex        =   6
      Top             =   120
      Width           =   795
   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         =   "Yard Materials Total:"
      Height          =   195
      Left            =   60
      TabIndex        =   2
      Top             =   4320
      Width           =   1455
   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            =   1620
      TabIndex        =   1
      Top             =   4260
      Width           =   1755
   End
End
Attribute VB_Name = "frmShowYardMat"
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(3) As Long
Dim dblSUM As Double

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

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

Private Sub Form_Load()

   Call OrderMatLoad
End Sub