VERSION 5.00
Begin VB.Form frmPOInfo 
   Caption         =   "Special PO Information"
   ClientHeight    =   4875
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9855
   LinkTopic       =   "Form1"
   ScaleHeight     =   4875
   ScaleWidth      =   9855
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Left            =   8040
      TabIndex        =   26
      Top             =   3540
      Width           =   1395
   End
   Begin VB.ListBox lstPOMaterial 
      Height          =   2595
      Left            =   60
      TabIndex        =   12
      Top             =   2220
      Width           =   3915
   End
   Begin VB.Label lblProjLot 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   27
      Top             =   0
      Width           =   9675
   End
   Begin VB.Label lblD_MatPrice 
      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          =   375
      Left            =   5280
      TabIndex        =   25
      Top             =   4320
      Width           =   1155
   End
   Begin VB.Label lblD_MType 
      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          =   375
      Left            =   5280
      TabIndex        =   24
      Top             =   3900
      Width           =   1575
   End
   Begin VB.Label lblD_DType 
      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          =   375
      Left            =   5280
      TabIndex        =   23
      Top             =   3480
      Width           =   1575
   End
   Begin VB.Label lblD_Qty 
      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          =   375
      Left            =   5280
      TabIndex        =   22
      Top             =   3060
      Width           =   1155
   End
   Begin VB.Label lblD_Desc 
      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          =   375
      Left            =   5280
      TabIndex        =   21
      Top             =   2640
      Width           =   4515
   End
   Begin VB.Label lblD_InvNo 
      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          =   375
      Left            =   5280
      TabIndex        =   20
      Top             =   2220
      Width           =   1155
   End
   Begin VB.Label lblMatPrice 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Mat. Price:"
      Height          =   195
      Left            =   4410
      TabIndex        =   19
      Top             =   4380
      Width           =   765
   End
   Begin VB.Label lblMType 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Material Type:"
      Height          =   195
      Left            =   4170
      TabIndex        =   18
      Top             =   3960
      Width           =   1005
   End
   Begin VB.Label lblDType 
      Caption         =   "Delivery Type:"
      Height          =   195
      Left            =   4140
      TabIndex        =   17
      Top             =   3540
      Width           =   1035
   End
   Begin VB.Label lblQty 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Quantity:"
      Height          =   195
      Left            =   4545
      TabIndex        =   16
      Top             =   3120
      Width           =   630
   End
   Begin VB.Label lblDesc 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Description:"
      Height          =   195
      Left            =   4335
      TabIndex        =   15
      Top             =   2700
      Width           =   840
   End
   Begin VB.Label lblInvNo 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Inv No:"
      Height          =   195
      Left            =   4650
      TabIndex        =   14
      Top             =   2280
      Width           =   525
   End
   Begin VB.Label lblMaterial 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Material:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   60
      TabIndex        =   13
      Top             =   1980
      Width           =   750
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   0
      X2              =   9840
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Label lblD_Notes 
      BorderStyle     =   1  'Fixed Single
      Height          =   1035
      Left            =   6120
      TabIndex        =   11
      Top             =   780
      Width           =   3735
   End
   Begin VB.Label lblD_PayYds 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   1680
      TabIndex        =   10
      Top             =   1500
      Width           =   1395
   End
   Begin VB.Label lblD_PayDesc 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   1680
      TabIndex        =   9
      Top             =   1140
      Width           =   3735
   End
   Begin VB.Label lblD_InvDesc 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   1680
      TabIndex        =   8
      Top             =   780
      Width           =   3735
   End
   Begin VB.Label lblPayYds 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Pay Yards:"
      Height          =   195
      Left            =   870
      TabIndex        =   7
      Top             =   1560
      Width           =   765
   End
   Begin VB.Label lblNotes 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Notes:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   6120
      TabIndex        =   6
      Top             =   480
      Width           =   570
   End
   Begin VB.Label lblPayDesc 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Pay Description:"
      Height          =   195
      Left            =   480
      TabIndex        =   5
      Top             =   1200
      Width           =   1155
   End
   Begin VB.Label lblInvDesc 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Invoice Description:"
      Height          =   195
      Left            =   225
      TabIndex        =   4
      Top             =   840
      Width           =   1410
   End
   Begin VB.Label lblPOType 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   3600
      TabIndex        =   3
      Top             =   420
      Width           =   2475
   End
   Begin VB.Label lblPODate 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   2220
      TabIndex        =   2
      Top             =   420
      Width           =   1320
   End
   Begin VB.Label lblPONum 
      BorderStyle     =   1  'Fixed Single
      Height          =   315
      Left            =   1260
      TabIndex        =   1
      Top             =   420
      Width           =   915
   End
   Begin VB.Label lblPOInfo 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "PO Information:"
      Height          =   195
      Left            =   60
      TabIndex        =   0
      Top             =   480
      Width           =   1095
   End
End
Attribute VB_Name = "frmPOInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim mboolSHOW As Boolean
Dim moRSPO As Recordset, moRSPOMAT As Recordset

Private Function FormFindPO() As Boolean
Dim strSQL As String
   On Error GoTo Error_EH
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPOrder "
   strSQL = strSQL & "WHERE ponum = " & gintPONUM

   Set moRSPO = New Recordset

   moRSPO.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSPO.EOF Then
      FormFindPO = False
   Else
      FormFindPO = True
      
   End If
   Exit Function
   
Error_EH:
   gstrMODULE = "Form POInfo - Module FindPO"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Function
End Function

Private Function FormFindPOMat() As Boolean
Dim strSQL As String
   On Error GoTo Error_EH
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblPOrdMat "
   strSQL = strSQL & "WHERE ponum = " & gintPONUM & " and Inv_No = " & lstPOMaterial.ItemData(lstPOMaterial.ListIndex)

   Set moRSPOMAT = New Recordset

   moRSPOMAT.Open strSQL, goConn, _
             adOpenKeyset, adLockPessimistic
   
   If moRSPOMAT.EOF Then
      FormFindPOMat = False
   Else
      FormFindPOMat = True
   End If
   Exit Function
   
Error_EH:
   gstrMODULE = "Form POInfo - Module FormFindPOMat"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Function
End Function

Private Sub FormShowPO()
   On Error GoTo Error_EH
   
   mboolSHOW = True
   
   With moRSPO
      lblPONum = Field2Long(!ponum)
      lblD_InvDesc = Field2Str(!towhom)
      lblD_PayDesc = Field2Str(!Desc)
      lblD_Notes = Field2Str(!notes)
      lblPODate = Field2Str(!Date)
      lblD_PayYds = Field2Str2(!yards)
      gstrPO = Field2Str(!potype)
   End With
   
   Select Case gstrPO
   Case "L"
      lblInvDesc = "Invoice Description:"
      lblD_InvDesc.Visible = True
      lblInvDesc.Visible = True
      lblPayDesc = "Pay Description:"
      lblD_PayDesc.Visible = True
      lblPayDesc.Visible = True
      lblPayYds = "Pay Yards:"
      lblD_PayYds.Visible = True
      lblPayYds.Visible = True
      lblPOType = "Lot Material"
      
   Case "Y"
      lblInvDesc.Visible = False
      lblD_InvDesc.Visible = False
      lblPayDesc = "Supplier:"
      lblD_PayDesc.Visible = True
      lblPayYds.Visible = False
      lblD_PayYds.Visible = False
      lblPOType = "Yard Stock"
      
   Case "V"
      lblInvDesc = "Mileage:"
      lblD_InvDesc.Visible = True
      lblPayDesc = "Supplier:"
      lblD_PayDesc.Visible = True
      lblPayYds.Visible = False
      lblD_PayYds.Visible = False
      lblPOType = "Vehicle/Equip."
   
   Case "M"
      lblInvDesc = "Person Requesting:"
      lblD_InvDesc.Visible = True
      lblPayDesc = "Supplier:"
      lblD_PayDesc.Visible = True
      lblPayYds.Visible = False
      lblD_PayYds.Visible = False
      lblPOType = "Misc. Items"
   
   End Select
   
   mboolSHOW = False
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module FormShowPO"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FormShowPOMat()
   On Error GoTo Error_EH
   
   mboolSHOW = True
   
   With moRSPOMAT
      lblD_InvNo = Field2Long(!Inv_No)
      lblD_Desc = Field2Str(!Desc)
      lblD_Qty = Field2Str(!qty)
      
      If !d_flag = "S" Then
         lblD_DType = "Supplier"
      Else
         lblD_DType = "Yard"
      End If

      If !m_type = "L" Then
         lblD_MType = "Lath"
      ElseIf !m_type = "B" Then
         lblD_MType = "Brown"
      ElseIf !m_type = "S" Then
         lblD_MType = "Scratch"
      ElseIf !m_type = "T" Then
         lblD_MType = "Texture"
      ElseIf !m_type = "C" Then
         lblD_MType = "CMU"
      ElseIf !m_type = "P" Then
         lblD_MType = "PreOrder"
      End If
      
   End With
   mboolSHOW = False
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module FormShowPOMat"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub POMatLoad()
Dim oRS As Recordset
Dim strSQL As String, intINVNO As Integer
Dim strLine As String
   On Error GoTo Error_EH

   strSQL = "SELECT PONum, Inv_no, Desc, Qty, D_Flag, M_Type FROM tblPOrdMat WHERE PONum = " & gintPONUM & " ORDER BY Inv_No"
   
   Set oRS = New Recordset
   
   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
   
   lstPOMaterial.Clear
   
   
   Do Until oRS.EOF
      With lstPOMaterial
         
         strLine = oRS("D_Flag") & "  " & oRS("M_Type") & "  " & oRS("Qty") & vbTab & oRS("Inv_No") & vbTab & oRS("desc")
         .AddItem strLine
         .ItemData(.NewIndex) = Field2Long(oRS("inv_no"))
         
      End With
      
      oRS.MoveNext
   Loop
   oRS.Close
   
   If lstPOMaterial.ListCount Then
      lstPOMaterial.ListIndex = 0
   Else
      lblD_InvNo = ""
      lblD_Desc = ""
      lblD_Qty = ""
      lblD_DType = ""
      lblD_MType = ""
      lblD_MatPrice = ""
   End If
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module POMatLoad"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub cmdExit_Click()
   
   Unload Me
End Sub

Private Sub Form_Load()
   On Error GoTo Error_EH

   If FormFindPO() Then
      Call FormShowPO
      Call POMatLoad
      If lstPOMaterial.ListIndex <> -1 Then
         If FormFindPOMat() Then
            Call FormShowPOMat
         Else
            lstPOMaterial.Clear
            lblD_InvNo = ""
            lblD_Desc = ""
            lblD_Qty = ""
            lblD_DType = ""
            lblD_MType = ""
            lblD_MatPrice = ""
         End If
      End If
   Else
      MsgBox "No PO Information Was Found -- Call Darv", vbOKOnly, "No PO Info"
      Unload Me
   End If
   
   Call FindProjLot
   
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module Form_Load"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub lstPOMaterial_Click()
   On Error GoTo Error_EH
   
   If lstPOMaterial.ListIndex <> -1 Then
      If FormFindPOMat() Then
         Call FormShowPOMat
      Else
         lstPOMaterial.Clear
            lblD_InvNo = ""
            lblD_Desc = ""
            lblD_Qty = ""
            lblD_DType = ""
            lblD_MType = ""
            lblD_MatPrice = ""
      End If
   End If

   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module lstPOMaterial_Click"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub

Private Sub FindProjLot()
Dim strSQL As String
Dim oRS As Recordset

   On Error GoTo Error_EH
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblProject "
   strSQL = strSQL & "WHERE Proj_id = " & Field2Long(moRSPO!proj_id)
'   strSQL = strSQL & "WHERE Proj_id = " & Field2Integer(moRSPO!proj_id)

   Set oRS = New Recordset

   oRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
   
   If oRS.EOF Then
   Else
      lblProjLot = Trim$(Field2Str(oRS!proj_code)) & "  " & Trim$(Field2Str(oRS!proj_desc))
   End If
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblLotInfo "
   strSQL = strSQL & "WHERE Lot_id = " & Field2Long(moRSPO!Lot_id)
'   strSQL = strSQL & "WHERE Lot_id = " & Field2Integer(moRSPO!Lot_id)

   Set oRS = New Recordset
   oRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
   
   If oRS.EOF Then
   
   Else
      lblProjLot = lblProjLot & "  --  " & Trim$(Field2Str(oRS!lot_no))
   End If
   
   strSQL = "SELECT * "
   strSQL = strSQL & "FROM tblOrders "
   strSQL = strSQL & "WHERE ponum = " & gintPONUM

   Set oRS = New Recordset

   oRS.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
   
   If oRS.EOF Then
      lblProjLot = lblProjLot & "  --  NO PO PRINTED"
   Else
      lblProjLot = lblProjLot & "  --  " & Trim$(Field2Str(oRS!po_num))
   End If
   Exit Sub
   
Error_EH:
   gstrMODULE = "Form POInfo - Module FindPO"
   Call ErrorHandler2
   gstrMODULE = ""
   Exit Sub
End Sub