feat(valleywide): recover VWP Orders VB6 source from D: backup drive

Recovered Darv's VB6 source for the Valley Wide Plastering Orders
application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used).
This is the first time we've had the actual source — prior session only
had a single frmPayroll.frm from the AD server.

Three project variants identified across two snapshots:
- Full-Project/   (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\
- Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\
- Source/         (170 files, 559 MB)   — D:\Office-Estimates\Darv\Source\ wholesale
- SOURCE-HOLD/    (3 files, 1 MB)       — D:\Office-Estimates\Darv\SOURCE HOLD\

Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production
Orders_10A.exe was live as of April 2024 — open question whether newer
source exists on other backup drives Mike will scan next.

Also includes per-category and per-keyword analysis CSVs from a WizTree
file-list export, plus the analyzer script that produced them
(re-runnable for the next drive's CSV).

VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live
VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

clients/valleywide/app-modernization/source-code/Full-Project/VWP_Inv/FormTake/frmMANBILL.frm

@@ -0,0 +1,865 @@
+VERSION 5.00
+Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
+Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
+Begin VB.Form frmMANBILL 
+   Caption         =   "Accounts Receivable"
+   ClientHeight    =   4950
+   ClientLeft      =   60
+   ClientTop       =   345
+   ClientWidth     =   7530
+   KeyPreview      =   -1  'True
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   4950
+   ScaleWidth      =   7530
+   StartUpPosition =   3  'Windows Default
+   Begin LpLib.fpList lstHeader 
+      Height          =   3000
+      Left            =   180
+      TabIndex        =   17
+      Top             =   585
+      Width           =   4470
+      _Version        =   196608
+      _ExtentX        =   7885
+      _ExtentY        =   5292
+      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         =   5
+      Sorted          =   1
+      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=   -1  'True
+      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     =   "frmMANBILL.frx":0000
+   End
+   Begin VB.TextBox txtTax 
+      Height          =   315
+      Left            =   5580
+      TabIndex        =   16
+      Top             =   3000
+      Width           =   495
+   End
+   Begin Crystal.CrystalReport crAR 
+      Left            =   165
+      Top             =   60
+      _ExtentX        =   741
+      _ExtentY        =   741
+      _Version        =   348160
+      WindowControlBox=   -1  'True
+      WindowMaxButton =   -1  'True
+      WindowMinButton =   -1  'True
+      WindowState     =   2
+      PrintFileLinesPerPage=   60
+   End
+   Begin VB.CommandButton cmdPrint 
+      Caption         =   "RePrint Invoice"
+      Enabled         =   0   'False
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   495
+      Left            =   6180
+      TabIndex        =   14
+      Top             =   3675
+      Width           =   1275
+   End
+   Begin VB.ComboBox cboARCode 
+      Height          =   315
+      Left            =   2955
+      Sorted          =   -1  'True
+      Style           =   2  'Dropdown List
+      TabIndex        =   1
+      Top             =   195
+      Width           =   4515
+   End
+   Begin VB.CommandButton cmdExit 
+      Caption         =   "E&xit"
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   495
+      Left            =   6180
+      TabIndex        =   13
+      Top             =   4395
+      Width           =   1275
+   End
+   Begin VB.CommandButton cmdSave 
+      Caption         =   "&Save"
+      Enabled         =   0   'False
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   495
+      Left            =   6180
+      TabIndex        =   12
+      Top             =   2955
+      Width           =   1275
+   End
+   Begin VB.CheckBox chkReady 
+      Alignment       =   1  'Right Justify
+      Caption         =   "Ready to Transfer to CMS:"
+      Height          =   315
+      Left            =   5190
+      TabIndex        =   7
+      Top             =   2415
+      Width           =   2205
+   End
+   Begin VB.TextBox txtItemAmt 
+      Alignment       =   1  'Right Justify
+      Height          =   315
+      Left            =   6240
+      MaxLength       =   10
+      TabIndex        =   6
+      Top             =   1935
+      Width           =   1200
+   End
+   Begin VB.TextBox txtSalesCode 
+      Height          =   315
+      Left            =   6240
+      MaxLength       =   7
+      TabIndex        =   5
+      Top             =   1515
+      Width           =   1200
+   End
+   Begin VB.TextBox txtDueDate 
+      Alignment       =   1  'Right Justify
+      Height          =   315
+      Left            =   6240
+      MaxLength       =   10
+      TabIndex        =   4
+      Top             =   1095
+      Width           =   1200
+   End
+   Begin VB.TextBox txtInvDate 
+      Alignment       =   1  'Right Justify
+      Height          =   315
+      Left            =   6240
+      MaxLength       =   10
+      TabIndex        =   3
+      Top             =   675
+      Width           =   1200
+   End
+   Begin VB.ListBox lstDetail 
+      Height          =   1230
+      Left            =   180
+      TabIndex        =   2
+      Top             =   3660
+      Width           =   5895
+   End
+   Begin VB.Label lblTax 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Tax Code"
+      Height          =   195
+      Left            =   4830
+      TabIndex        =   15
+      Top             =   3090
+      Width           =   690
+   End
+   Begin VB.Label lblSalesCode 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "CMS Sales Code:"
+      Height          =   195
+      Left            =   4920
+      TabIndex        =   11
+      Top             =   1620
+      Width           =   1245
+   End
+   Begin VB.Label lblItemAmt 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Item Amount:"
+      Height          =   195
+      Left            =   5235
+      TabIndex        =   10
+      Top             =   2040
+      Width           =   930
+   End
+   Begin VB.Label lblDueDate 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Payment Due Date:"
+      Height          =   195
+      Left            =   4770
+      TabIndex        =   9
+      Top             =   1200
+      Width           =   1395
+   End
+   Begin VB.Label lblInvDate 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Invoice Date:"
+      Height          =   195
+      Left            =   5190
+      TabIndex        =   8
+      Top             =   780
+      Width           =   960
+   End
+   Begin VB.Label lblARCode 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Builder's MAS90 AR Code:"
+      Height          =   195
+      Left            =   1020
+      TabIndex        =   0
+      Top             =   240
+      Width           =   1890
+   End
+End
+Attribute VB_Name = "frmMANBILL"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Dim moRSDetail As Recordset
+Dim moRSProj As Recordset
+
+Dim mboolSHOW As Boolean, mboolUPDATE As Boolean, mstrType As String
+Dim mstrINVNO As String, mstrPROJLOT As String
+Dim mlngINVID As Long, mintBOOKMARK As Integer, mintBOOK As Integer
+Dim msglItemAmt As Single, msglInvTotal As Single
+
+Private Sub HeaderLoad()
+Dim oRS As Recordset
+Dim strSQL As String
+'Dim strTYPE As String
+Dim strLine As String
+
+   On Error GoTo Error_EH
+'   strTYPE = Trim(Left(cboARCode, 7))
+'   strSQL = "SELECT Invoice_date, Invoice_no, lot_id, trans_id, header, shipped, customer_no, non_tax_amt from tblARInvoice WHERE shipped and header and customer_no = '" & Trim(Left(cboARCode, 7)) & "' and not done"
+'   strSQL = "SELECT Invoice_date, Invoice_no, lot_id, trans_id, header, shipped, customer_no, non_tax_amt FROM tblARInvoice WHERE shipped and header and customer_no = '" & Trim(Left(cboARCode, 7)) & "' and not done"
+   strSQL = "SELECT * FROM tblARInvoice WHERE shipped and header and customer_no = '" & Trim(Left(cboARCode, 7)) & "' and not done"
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+   
+   lstHeader.Clear
+'   strTYPE = oRS.RecordCount
+   Do Until oRS.EOF
+      With lstHeader
+         strLine = ""
+         strLine = Field2Str2(oRS!Lot_id) & vbTab & Field2Str(oRS!invoice_no) & vbTab & Field2Str(oRS!invoice_date) & vbTab
+         strLine = strLine & Format(Field2Str2(oRS!non_tax_amt), "Currency") & vbTab & Format(Field2Str2(oRS!Lot_id), "000000")
+'         strLine = ""
+'         strLine = Field2Str(oRS!invoice_no) & "   " & Field2Str(oRS!invoice_date) & vbTab
+'         strLine = strLine & Format(Field2Str2(oRS!non_tax_amt), "Currency") & "   " & Format(Field2Str2(oRS!Lot_id), "000000")
+         .AddItem strLine
+'         .AddItem strLine
+'         .ItemData(.NewIndex) = oRS!Trans_ID
+'         .ItemData(.NewIndex) = oRS!Lot_ID
+      End With
+      
+      oRS.MoveNext
+   Loop
+   oRS.Close
+   
+   If lstHeader.ListCount Then
+      lstHeader.ListIndex = 0
+   Else
+      gintLOTID = 0
+      lstHeader.ListIndex = -1
+      cmdPrint.Enabled = False
+   End If
+   
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form Repair - Module HeaderLoad"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub DetailLoad()
+Dim oRS As Recordset
+Dim strSQL As String, strLine As String
+
+   On Error GoTo Error_EH
+
+   lstHeader.col = 1
+   mstrINVNO = lstHeader.ColText
+'   strSQL = "SELECT trans_ID, sales_code, lot_id, header, shipped, description, amount from tblARInvoice WHERE shipped and lot_id = " & gintLOTID & " and not done"
+   strSQL = "SELECT trans_ID, sales_code, lot_id, header, shipped, description, amount from tblARInvoice WHERE shipped and Invoice_no = '" & mstrINVNO & "' and not done"
+
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+'   msglInvTotal = 0
+   lstDetail.Clear
+
+   Do Until oRS.EOF
+      strLine = ""
+'      msglInvTotal = msglInvTotal + field2single(oRS!amount)
+      If Len(Format(Field2Str2(oRS!amount), "currency")) > 7 Then
+         strLine = Field2Str(oRS!sales_code) & vbTab & Format(Field2Str2(oRS!amount), "currency") & vbTab & Field2Str(oRS!Description)
+      Else
+         strLine = Field2Str(oRS!sales_code) & vbTab & Format(Field2Str2(oRS!amount), "currency") & vbTab & vbTab & Field2Str(oRS!Description)
+      End If
+      lstDetail.AddItem strLine
+      lstDetail.ItemData(lstDetail.NewIndex) = Field2Long(oRS!Trans_ID)
+      oRS.MoveNext
+   Loop
+   oRS.Close
+   
+   If lstDetail.ListCount Then
+      lstDetail.ListIndex = 0
+   Else
+      lstDetail.ListIndex = -1
+   End If
+
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module DetailLoad"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub cboARCode_Change()
+   lstHeader.Clear
+   lstDetail.Clear
+   Call HeaderLoad
+End Sub
+
+Private Sub cboARCode_Click()
+   lstHeader.Clear
+   lstDetail.Clear
+   Call HeaderLoad
+End Sub
+
+Private Sub chkReady_Click()
+   cmdSave.Enabled = True
+End Sub
+
+Private Sub cmdPrint_Click()
+Dim oRS As Recordset, strSQL As String, strSELECT As String
+
+   On Error GoTo Error_EH
+
+   gintCOPY = 1
+   strSQL = "SELECT trans_id, ProjLot, PO_Num FROM tblARINVOICE WHERE trans_id = " & lstDetail.ItemData(lstDetail.ListIndex)
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+   
+   gstrPONUM = Field2Str(oRS!po_num)
+   mstrPROJLOT = Field2Str(oRS!ProjLot)
+   Call LotChange(mstrPROJLOT, "RePrint AR Invoice")
+   
+   strSELECT = "{tblARInvoice.po_num} = '" & gstrPONUM & "'"
+'   strSELECT = "{tblARInvoice.invoice_no}='" & mstrINV & "'"
+   crAR.ReportFileName = App.Path & "\invoice.rpt"
+   crAR.ReplaceSelectionFormula (strSELECT)
+'   crAR.CopiesToPrinter = gintCOPY
+   crAR.CopiesToPrinter = 1
+   crAR.Destination = crptToWindow
+'   crar.Destination = crptToPrinter
+   crAR.Action = 1
+   
+   Exit Sub
+
+Error_EH:
+   gstrMODULE = "Form LotInfo - Module PrintStoneInv"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+
+End Sub
+
+Private Sub Form_KeyPress(KeyAscii As Integer)
+   If KeyAscii = 13 Then
+      SendKeys "{TAB}"
+      KeyAscii = 0
+   End If
+
+End Sub
+
+Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
+   
+   If Shift = 4 Then
+      Exit Sub
+   End If
+   
+   If Not cmdSave.Enabled Then
+'      Call DataHasChanged
+   End If
+   
+End Sub
+
+Private Sub cmdExit_Click()
+   Unload Me
+End Sub
+
+Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
+Dim intResponse As Integer, strMSG As String
+   On Error GoTo Error_EH
+   
+    If cmdSave.Enabled Then
+    
+        strMSG = "Data Has Been Changed"
+        strMSG = strMSG & Chr(13) & Chr(10)
+        strMSG = strMSG & "Save Changes ?"
+        intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption)
+        Select Case intResponse
+            Case vbYes
+                Call FormSave
+            Case vbNo
+                
+            Case vbCancel
+                Cancel = True
+                Exit Sub
+         End Select
+    End If
+   
+   If moRSProj.State = adStateOpen Then
+      moRSProj.Close
+   End If
+   If moRSDetail.State = adStateOpen Then
+      moRSDetail.Close
+   End If
+   Exit Sub
+   
+Error_EH:
+   If Err.Number = 91 Then
+      Resume Next
+   End If
+   gstrMODULE = "Form Repair - Module Form QueryUnload"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub cmdSave_Click()
+   mintBOOKMARK = lstDetail.ListIndex
+   mintBOOK = lstHeader.ListIndex
+   cmdExit.Enabled = True
+   cmdSave.Enabled = False
+   Call FormSave
+   lstHeader.ListIndex = mintBOOK
+   lstDetail.Enabled = True
+   lstDetail.ListIndex = mintBOOKMARK
+   mintBOOKMARK = 0
+End Sub
+
+Private Sub Form_Load()
+
+   Call ARCodeLoad
+   
+End Sub
+Private Sub ProjLoad()
+Dim strSQL As String
+   On Error GoTo Error_EH
+   
+   strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID
+
+   Set moRSProj = New Recordset
+   moRSProj.Open strSQL, goConn, _
+            adOpenForwardOnly, adLockReadOnly
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module ProjLoad"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+Private Sub ARCodeLoad()
+Dim oRS As Recordset
+Dim strSQL As String, intRows As Integer, strLine As String
+Dim row, col As Long
+   On Error GoTo Error_EH
+   
+   strSQL = "SELECT Bill_Id, Cust_no, Name FROM tblARMaster"
+'   strSQL = "SELECT Bill_Id, Cust_no, Name FROM tblARMaster"
+
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+   
+   Do Until oRS.EOF
+      strLine = Field2Str(oRS!cust_no) & "   - " & Field2Str(oRS!Name)
+      cboARCode.AddItem strLine
+      cboARCode.ItemData(cboARCode.NewIndex) = Field2Long(oRS!Bill_Id)
+      oRS.MoveNext
+   Loop
+   oRS.Close
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module ARCodeLoad"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub FormShow()
+   On Error GoTo Error_EH
+   mboolSHOW = True
+   
+   With moRSDetail
+      txtInvDate = Field2Str(!invoice_date)
+      txtDueDate = Field2Str(!inv_due_date)
+      txtItemAmt = Format(Field2Str2(!amount), "currency")
+      txtSalesCode = Field2Str(!sales_code)
+      txtTax = Field2Str(!taxcode)
+      If txtTax = "AZ" Then
+         txtTax.BackColor = &H80FFFF
+         txtTax.ForeColor = &HFF&
+         txtTax.FontBold = True
+      Else
+         txtTax.BackColor = &H80000005
+         txtTax.ForeColor = &H80000008
+         txtTax.FontBold = False
+      End If
+      chkReady = Field2CheckBox(!ready)
+   End With
+   mboolSHOW = False
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module FormShow"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub FormSave()
+Dim strName As String
+
+   On Error GoTo Error_EH
+   
+   Call FieldsSave
+   
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module FormSave"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Function FormFindDetail() As Boolean
+Dim strSQL As String
+   On Error GoTo Error_EH
+   
+   strSQL = "SELECT * "
+   strSQL = strSQL & "FROM tblARInvoice "
+   strSQL = strSQL & "WHERE trans_id = " & lstDetail.ItemData(lstDetail.ListIndex)
+   Set moRSDetail = New Recordset
+   moRSDetail.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
+   
+   If moRSDetail.EOF Then
+      FormFindDetail = False
+   Else
+      FormFindDetail = True
+      msglInvTotal = moRSDetail!non_tax_amt
+      mstrType = moRSDetail!inv_type
+      gintPROJID = moRSDetail!Proj_ID
+      Call ProjLoad
+   End If
+   Exit Function
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module FormFindDetail"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Function
+End Function
+
+Private Sub lstDetail_Click()
+   If lstDetail.ListIndex <> -1 Then
+      If FormFindDetail() Then
+         Call FormShow
+
+      End If
+   End If
+End Sub
+Private Sub FieldsSave()
+Dim strSQL As String
+Dim oRS As Recordset, sglTOTAL As Single
+
+   On Error GoTo Error_EH
+   
+   With moRSDetail
+      !invoice_date = Str2Field(txtInvDate)
+      !inv_due_date = Str2Field(txtDueDate)
+      !price = Str2Field(txtItemAmt)
+      !amount = Str2Field(txtItemAmt)
+      !sales_code = Str2Field(txtSalesCode)
+      .Update
+   End With
+   
+   strSQL = "SELECT sum(amount) as sgltotal FROM tblARInvoice WHERE inv_type = '" & mstrType & "' and lot_id = " & gintLOTID & " and not done"
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
+   
+   msglInvTotal = Field2Str2(oRS!sglTOTAL)
+   
+   strSQL = "SELECT * FROM tblARInvoice WHERE inv_type = '" & mstrType & "' and lot_id = " & gintLOTID
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
+
+   Do Until oRS.EOF
+      With oRS
+         !invoice_date = Str2Field(txtInvDate)
+         !inv_due_date = Str2Field(txtDueDate)
+         !ready = chkReady
+         !non_tax_amt = msglInvTotal
+         !taxcode = Str2Field(txtTax)
+         If Field2Str2(moRSProj!retention) > 0 Then
+            !retention_amt = Format(((msglInvTotal * Field2Str2(moRSProj!retention) / 100)), "#.00")
+         Else
+            !retention_amt = 0
+         End If
+         .Update
+      End With
+      oRS.MoveNext
+   Loop
+      
+   Call HeaderLoad
+
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module FieldsSave"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub Form_Activate()
+Dim intResponse As Integer
+Dim strSQL As String
+   
+'   If lstHeader.ListCount = 0 Then
+'      intResponse = MsgBox("No Invoices For This Builder - Select A Different Builder.", vbExclamation + vbOKOnly, "Exit Form")
+'      Unload Me
+'   End If
+End Sub
+
+Private Sub FormClear()
+   txtInvDate = ""
+   txtDueDate = ""
+   txtSalesCode = ""
+   txtItemAmt = ""
+   chkReady = vbUnchecked
+End Sub
+
+Private Sub lstDetail_DblClick()
+   cmdSave.Enabled = True
+End Sub
+
+Private Sub lstHeader_Click()
+   On Error GoTo Error_EH
+   If lstHeader.ListIndex <> -1 Then
+      cmdPrint.Enabled = True
+      lstHeader.col = 4
+      gintLOTID = lstHeader.ColText
+'      gintLOTID = lstHeader.ItemData(lstHeader.ListIndex)
+      Call DetailLoad
+      If lstDetail.ListIndex <> -1 Then
+      Else
+         lstDetail.Clear
+         Call FormClear
+      End If
+   Else
+      cmdPrint.Enabled = False
+   End If
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form AR - Module lstHeader_Click"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub lstHeader_DblClick()
+   cmdSave.Enabled = True
+End Sub
+
+Private Sub txtDueDate_GotFocus()
+   Call FieldSelect(txtDueDate)
+End Sub
+
+Private Sub txtDueDate_LostFocus()
+Dim lngPOS As Long
+   
+   lngPOS = InStr(1, txtDueDate, "/", 1)
+   If lngPOS = 0 Then
+      If Len(txtDueDate) > 0 Then
+         txtDueDate = Format(txtDueDate, "00/00/####")
+         If Not IsDate(txtDueDate) Then
+            MsgBox "The Date You Entered is not Valid - ReEnter"
+            txtDueDate.SetFocus
+         End If
+      End If
+   ElseIf IsDate(txtDueDate) Then
+      Exit Sub
+   Else
+      MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
+      txtDueDate.SetFocus
+   End If
+
+End Sub
+
+Private Sub txtInvDate_GotFocus()
+   Call FieldSelect(txtInvDate)
+End Sub
+
+Private Sub txtInvDate_LostFocus()
+Dim lngPOS As Long
+   
+   lngPOS = InStr(1, txtInvDate, "/", 1)
+   If lngPOS = 0 Then
+      If Len(txtInvDate) > 0 Then
+         txtInvDate = Format(txtInvDate, "00/00/####")
+         If Not IsDate(txtInvDate) Then
+            MsgBox "The Date You Entered is not Valid - ReEnter"
+            txtInvDate.SetFocus
+         End If
+      End If
+   ElseIf IsDate(txtInvDate) Then
+      Exit Sub
+   Else
+      MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
+      txtInvDate.SetFocus
+   End If
+
+End Sub
+
+Private Sub txtItemAmt_GotFocus()
+   Call FieldSelect(txtItemAmt)
+   msglItemAmt = Single2Field(txtItemAmt)
+End Sub
+
+Private Sub txtItemAmt_LostFocus()
+   If msglItemAmt < Field2Str2(txtItemAmt) Then
+      msglInvTotal = msglInvTotal + Field2Str2(txtItemAmt)
+      txtItemAmt = Format(txtItemAmt, "#,#.00")
+   ElseIf msglItemAmt > Field2Str2(txtItemAmt) Then
+      msglInvTotal = msglInvTotal - Field2Str2(txtItemAmt)
+      txtItemAmt = Format(txtItemAmt, "#,#.00")
+   ElseIf msglItemAmt = Field2Str(txtItemAmt) Then
+      txtItemAmt = Format(txtItemAmt, "#,#.00")
+   End If
+End Sub
+
+Private Sub txtSalesCode_GotFocus()
+   Call FieldSelect(txtSalesCode)
+End Sub
+
+Private Sub txtSalesCode_LostFocus()
+   txtSalesCode = UCase(txtSalesCode)
+End Sub
+
+Private Sub txtTax_GotFocus()
+   Call FieldSelect(txtTax)
+End Sub
+
+Private Sub txtTax_LostFocus()
+   If Not IsNull(txtTax) Or txtTax = "" Then
+      txtTax = UCase(txtTax)
+   Else
+      MsgBox "You Must Enter A Sales Tax Code", vbOKOnly, "No Tax Code"
+      txtTax.SetFocus
+   End If
+End Sub