VERSION 5.00
Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
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 LpLib.fpList lstMaterials 
      Height          =   3570
      Left            =   60
      TabIndex        =   7
      Top             =   435
      Width           =   7095
      _Version        =   196608
      _ExtentX        =   12515
      _ExtentY        =   6297
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Enabled         =   -1  'True
      MousePointer    =   0
      Object.TabStop         =   0   'False
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Columns         =   6
      Sorted          =   0
      LineWidth       =   1
      SelDrawFocusRect=   -1  'True
      ColumnSeparatorChar=   9
      ColumnSearch    =   -1
      ColumnWidthScale=   2
      RowHeight       =   -1
      MultiSelect     =   0
      WrapList        =   0   'False
      WrapWidth       =   0
      SelMax          =   -1
      AutoSearch      =   1
      SearchMethod    =   0
      VirtualMode     =   0   'False
      VRowCount       =   0
      DataSync        =   3
      ThreeDInsideStyle=   1
      ThreeDInsideHighlightColor=   -2147483633
      ThreeDInsideShadowColor=   -2147483627
      ThreeDInsideWidth=   1
      ThreeDOutsideStyle=   1
      ThreeDOutsideHighlightColor=   -2147483628
      ThreeDOutsideShadowColor=   -2147483632
      ThreeDOutsideWidth=   1
      ThreeDFrameWidth=   0
      BorderStyle     =   0
      BorderColor     =   -2147483642
      BorderWidth     =   1
      ThreeDOnFocusInvert=   0   'False
      ThreeDFrameColor=   -2147483633
      Appearance      =   2
      BorderDropShadow=   0
      BorderDropShadowColor=   -2147483632
      BorderDropShadowWidth=   3
      ScrollHScale    =   2
      ScrollHInc      =   0
      ColsFrozen      =   0
      ScrollBarV      =   1
      NoIntegralHeight=   0   'False
      HighestPrecedence=   0
      AllowColResize  =   0
      AllowColDragDrop=   0
      ReadOnly        =   0   'False
      VScrollSpecial  =   0   'False
      VScrollSpecialType=   0
      EnableKeyEvents =   -1  'True
      EnableTopChangeEvent=   -1  'True
      DataAutoHeadings=   -1  'True
      DataAutoSizeCols=   2
      SearchIgnoreCase=   -1  'True
      ScrollBarH      =   1
      VirtualPageSize =   0
      VirtualPagesAhead=   0
      ExtendCol       =   0
      ColumnLevels    =   1
      ListGrayAreaColor=   -2147483637
      GroupHeaderHeight=   -1
      GroupHeaderShow =   0   'False
      AllowGrpResize  =   0
      AllowGrpDragDrop=   0
      MergeAdjustView =   0   'False
      ColumnHeaderShow=   0   'False
      ColumnHeaderHeight=   -1
      GrpsFrozen      =   0
      BorderGrayAreaColor=   -2147483637
      ExtendRow       =   0
      DataField       =   ""
      OLEDragMode     =   0
      OLEDropMode     =   0
      EnableClickEvent=   -1  'True
      Redraw          =   -1  'True
      ResizeRowToFont =   0   'False
      TextTipMultiLine=   0
      ColDesigner     =   "frmShowYardMat.frx":0000
   End
   Begin VB.Label lblIssue 
      AutoSize        =   -1  'True
      Caption         =   "Date Issued:"
      Height          =   195
      Left            =   6120
      TabIndex        =   6
      Top             =   120
      Width           =   900
   End
   Begin VB.Label lblAQty 
      AutoSize        =   -1  'True
      Caption         =   "Qty Issued:"
      Height          =   195
      Left            =   4680
      TabIndex        =   5
      Top             =   120
      Width           =   795
   End
   Begin VB.Label lblOQty 
      AutoSize        =   -1  'True
      Caption         =   "Qty Ordered:"
      Height          =   195
      Left            =   3360
      TabIndex        =   4
      Top             =   120
      Width           =   900
   End
   Begin VB.Label lblDesc 
      AutoSize        =   -1  'True
      Caption         =   "Description:"
      Height          =   195
      Left            =   960
      TabIndex        =   3
      Top             =   120
      Width           =   840
   End
   Begin VB.Label lblInv 
      AutoSize        =   -1  'True
      Caption         =   "Inv #:"
      Height          =   195
      Left            =   120
      TabIndex        =   2
      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        =   1
      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        =   0
      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 = Field2Str2(oRS!Yard_id) & vbTab & 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