sync: auto-sync from GURU-5070 at 2026-06-14 05:33:01
Author: Mike Swanson Machine: GURU-5070 Timestamp: 2026-06-14 05:33:01
This commit is contained in:
@@ -0,0 +1,676 @@
|
||||
VERSION 5.00
|
||||
Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
|
||||
Begin VB.Form frmWOList
|
||||
Caption = "PO/WO List"
|
||||
ClientHeight = 4350
|
||||
ClientLeft = 60
|
||||
ClientTop = 345
|
||||
ClientWidth = 7230
|
||||
KeyPreview = -1 'True
|
||||
LinkTopic = "Form1"
|
||||
ScaleHeight = 4350
|
||||
ScaleWidth = 7230
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin LpLib.fpList lstRepairs
|
||||
Height = 1320
|
||||
Left = 30
|
||||
TabIndex = 5
|
||||
Top = 1875
|
||||
Width = 7140
|
||||
_Version = 196608
|
||||
_ExtentX = 12594
|
||||
_ExtentY = 2328
|
||||
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 = 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= -1 'True
|
||||
ColumnHeaderHeight= 285
|
||||
GrpsFrozen = 0
|
||||
BorderGrayAreaColor= -2147483637
|
||||
ExtendRow = 0
|
||||
DataField = ""
|
||||
OLEDragMode = 0
|
||||
OLEDropMode = 0
|
||||
EnableClickEvent= -1 'True
|
||||
Redraw = -1 'True
|
||||
ResizeRowToFont = 0 'False
|
||||
TextTipMultiLine= 0
|
||||
ColDesigner = "frmWOList.frx":0000
|
||||
End
|
||||
Begin VB.CheckBox chkQUIT
|
||||
Caption = "QUIT"
|
||||
Height = 240
|
||||
Left = 4770
|
||||
TabIndex = 4
|
||||
Top = 4065
|
||||
Visible = 0 'False
|
||||
Width = 945
|
||||
End
|
||||
Begin VB.CommandButton cmdADD
|
||||
Caption = "ADD"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 405
|
||||
Left = 2085
|
||||
TabIndex = 3
|
||||
Top = 3915
|
||||
Width = 900
|
||||
End
|
||||
Begin LpLib.fpList lstProj
|
||||
Height = 1320
|
||||
Left = 30
|
||||
TabIndex = 1
|
||||
Top = 300
|
||||
Width = 7125
|
||||
_Version = 196608
|
||||
_ExtentX = 12568
|
||||
_ExtentY = 2328
|
||||
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 = 4
|
||||
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= 285
|
||||
GrpsFrozen = 0
|
||||
BorderGrayAreaColor= -2147483637
|
||||
ExtendRow = 0
|
||||
DataField = ""
|
||||
OLEDragMode = 0
|
||||
OLEDropMode = 0
|
||||
EnableClickEvent= -1 'True
|
||||
Redraw = -1 'True
|
||||
ResizeRowToFont = 0 'False
|
||||
TextTipMultiLine= 0
|
||||
ColDesigner = "frmWOList.frx":03FD
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Caption = "&Exit"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 405
|
||||
Left = 1050
|
||||
TabIndex = 0
|
||||
TabStop = 0 'False
|
||||
Top = 3915
|
||||
Width = 900
|
||||
End
|
||||
Begin VB.Label lblRepairs
|
||||
AutoSize = -1 'True
|
||||
Caption = "Repair List"
|
||||
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 = 30
|
||||
TabIndex = 7
|
||||
Top = 1665
|
||||
Width = 930
|
||||
End
|
||||
Begin VB.Label lblPOWO
|
||||
AutoSize = -1 'True
|
||||
Caption = "PO/WO Invoice List"
|
||||
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 = 75
|
||||
TabIndex = 6
|
||||
Top = 30
|
||||
Width = 1725
|
||||
End
|
||||
Begin VB.Label lblInst
|
||||
Caption = "High Light The PO/WO You Want And Then Double Click To Select It. Click the ADD button to Add a new PO/WO."
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H00FF0000&
|
||||
Height = 555
|
||||
Left = 15
|
||||
TabIndex = 2
|
||||
Top = 3315
|
||||
Width = 6225
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmWOList"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim moRSREP As Recordset
|
||||
|
||||
Dim mboolAdding As Boolean, mboolPROJ As Boolean
|
||||
|
||||
Private Sub cmdAdd_Click()
|
||||
Load frmPOWOLot
|
||||
frmPOWOLot.chkADD = vbChecked
|
||||
frmPOWOLot.Show 1
|
||||
Call ProjLoad
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdSearch_Click()
|
||||
Call ContainLoad
|
||||
mboolPROJ = True
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Activate()
|
||||
Dim intResponse As Integer, intYN As Integer, intYYN As Integer
|
||||
Dim strSQL As String
|
||||
|
||||
On Error GoTo Error_EH
|
||||
If chkQUIT = vbChecked Then
|
||||
Unload Me
|
||||
End If
|
||||
|
||||
If lstProj.ListCount = 0 Then
|
||||
If lstRepairs.ListCount > 0 Then
|
||||
intYYN = MsgBox("No PO/WO For This Lot But There Are Repairs. Do You Want Use A Repair?", vbYesNo, "Use Repair?")
|
||||
If intYYN Then
|
||||
Exit Sub
|
||||
Else
|
||||
intYN = MsgBox("No PO/WO For This Lot. Do You Want To Add One?", vbYesNo, "Add A PO/WO?")
|
||||
If intYN = vbYes Then
|
||||
Call cmdAdd_Click
|
||||
Else
|
||||
Unload Me
|
||||
End If
|
||||
End If
|
||||
' intYN = MsgBox("No PO/WO For This Lot. Do You Want To Add One?", vbYesNo, "Add A PO/WO?")
|
||||
' If intYN = vbYes Then
|
||||
' Call cmdAdd_Click
|
||||
' Else
|
||||
' Unload Me
|
||||
' End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "formProjList - Module Form_Activate"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
Dim ShiftDown, AltDown, CtrlDown
|
||||
|
||||
If Shift = 4 Then
|
||||
Exit Sub
|
||||
End If
|
||||
ShiftDown = (Shift And vbShiftMask) > 0
|
||||
AltDown = (Shift And vbAltMask) > 0
|
||||
CtrlDown = (Shift And vbCtrlMask) > 0
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_KeyPress(KeyAscii As Integer)
|
||||
If KeyAscii = 13 Then
|
||||
SendKeys "{TAB}"
|
||||
KeyAscii = 0
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
Call RepairLoad
|
||||
Call ProjLoad
|
||||
If lstProj.ListIndex <> -1 Then
|
||||
|
||||
mboolPROJ = False
|
||||
End If
|
||||
Exit Sub
|
||||
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "formProjList - Module Form_Load"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub ProjLoad()
|
||||
Dim oRS As Recordset, intYN As Integer
|
||||
Dim strSQL As String
|
||||
Dim strLine As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT * FROM tblPOWO WHERE LOT_ID = " & gintLOTID ' & "'"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstProj.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstProj
|
||||
strLine = Field2Str(oRS!repair_id) & vbTab & Field2Str(oRS!builder_PO) & vbTab & Field2Str(oRS!invoice_no) & vbTab & Field2Str(oRS!Desc)
|
||||
.AddItem strLine
|
||||
End With
|
||||
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
|
||||
If lstProj.ListCount Then
|
||||
lstProj.ListIndex = 0
|
||||
mboolPROJ = False
|
||||
Else
|
||||
lstProj.ListIndex = -1
|
||||
' Call FormClear
|
||||
End If
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "FormProjList - Module ProjLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Function FormFindCrew() As Boolean
|
||||
Dim strSQL As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT * FROM tblorders WHERE order_Id = " & lstProj.ItemData(lstProj.ListIndex)
|
||||
Set moRSREP = New Recordset
|
||||
moRSREP.Open strSQL, goConn, adOpenKeyset, adLockPessimistic
|
||||
|
||||
If moRSREP.EOF Then
|
||||
FormFindCrew = False
|
||||
Else
|
||||
FormFindCrew = True
|
||||
End If
|
||||
Exit Function
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "formProjList - Module FormFindCrew"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Function
|
||||
End Function
|
||||
|
||||
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
||||
Dim intResponse As Integer, strMSG As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
If moRSREP.State = adStateOpen Then
|
||||
moRSREP.Close
|
||||
End If
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
If Err = 3219 Then
|
||||
Resume Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub lstProj_DblClick()
|
||||
|
||||
lstProj.col = 0
|
||||
gintREPAIRID = Field2Str2(lstProj.ColText)
|
||||
frmPOWOLot.Show 1
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub ContainLoad()
|
||||
' Dim oRS As Recordset, oRSP As Recordset
|
||||
' Dim strSQL As String, strSELECT As String, strContain As String
|
||||
' Dim strSQLP As String, intYN As Integer, strADDRESS As String, strLine As String
|
||||
' Dim strProj_Desc As String, strProj_Cont As String, strProj_Code As String
|
||||
|
||||
|
||||
' lstProj.Clear
|
||||
' strContain = Trim$(txtContains.Text)
|
||||
|
||||
' strSQL = "SELECT Proj_ID, Proj_Code, Proj_Desc, Proj_Cont FROM tblPROJECT WHERE Create > #01/01/2014#"
|
||||
|
||||
' Set oRS = New Recordset
|
||||
' oRS.Open strSQL, goConn, _
|
||||
' adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
' Do Until oRS.EOF
|
||||
|
||||
' If Len(oRS!Proj_Desc) = 0 Then '1
|
||||
' intYN = 0
|
||||
' Else
|
||||
' strADDRESS = Field2Str(oRS!Proj_Desc)
|
||||
' intYN = InStr(1, UCase(Trim(strADDRESS)), UCase(Trim(txtContains))) ', vbTextCompare)
|
||||
' End If
|
||||
|
||||
' If intYN > 0 Then
|
||||
|
||||
' strLine = Field2Str2(oRS!Proj_ID) & vbTab & RTrim(Field2Str(oRS!Proj_Code)) & vbTab & RTrim(Field2Str(oRS!Proj_Desc)) & vbTab & RTrim(Field2Str(oRS!Proj_Cont)) ' & " -- " & oRS!Desc
|
||||
' lstProj.AddItem strLine
|
||||
' End If
|
||||
|
||||
' oRS.MoveNext
|
||||
'' mboolSHOW = True
|
||||
' Loop
|
||||
' oRS.Close
|
||||
' If lstProj.ListCount = 0 Then
|
||||
' MsgBox "No Project Information Found"
|
||||
'' Call cmdNewSearch_Click
|
||||
' Else
|
||||
' lstProj.ListIndex = 0
|
||||
' End If
|
||||
'' End If '1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub RepairLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String, strTYPE As String
|
||||
'Dim lngRET As Long, aTabs(2) As Long
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
|
||||
strSQL = "SELECT Repair_id, Proj_lot, Scheduled, Builder_PO, punch, yrend1, yrend2, wo, repair, backcharge from tblrepair WHERE lot_id = " & gintLOTID & " ORDER BY scheduled"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstRepairs.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstRepairs
|
||||
If oRS!punch Then
|
||||
strTYPE = "PUNCH "
|
||||
ElseIf oRS!yrend1 Then
|
||||
strTYPE = "1 YEAR END"
|
||||
ElseIf oRS!yrend2 Then
|
||||
strTYPE = "2 YEAR END"
|
||||
ElseIf oRS!wo Then
|
||||
strTYPE = "PO WORK "
|
||||
ElseIf oRS!repair Then
|
||||
strTYPE = "WARRANTY"
|
||||
ElseIf oRS!backcharge Then
|
||||
strTYPE = "BACKCHARGE"
|
||||
Else
|
||||
strTYPE = "UNKNOWN"
|
||||
End If
|
||||
' strLine = ""
|
||||
strLine = Field2Str2(oRS!repair_id) & vbTab & Field2Str(oRS!scheduled) & vbTab ' & Field2Str(oRS!completed) & vbTab
|
||||
' strLine = Field2Str(oRS!scheduled) & " " & Field2Str(oRS!completed) & " "
|
||||
strLine = strLine & strTYPE & vbTab & Field2Str(oRS!builder_PO) & vbTab & Field2Str(oRS!proj_lot)
|
||||
' strLine = strLine & strTYPE & " " & Field2Str(oRS!proj_lot)
|
||||
.AddItem strLine
|
||||
' .ItemData(.NewIndex) = oRS!repair_ID
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form WOList - Module RepairLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub CopyRepair()
|
||||
Dim oRSR As Recordset, oRSPO As Recordset
|
||||
Dim strSQL As String, strSQLL As String
|
||||
Dim lngREP_ID As Long
|
||||
|
||||
' On Error GoTo Error_EH:
|
||||
|
||||
lstRepairs.col = 0
|
||||
lngREP_ID = Field2Str2(lstRepairs.ColText)
|
||||
strSQL = "SELECT * FROM tblREPAIR WHERE Repair_ID = " & lngREP_ID
|
||||
' strSQL = "SELECT Repair_ID, SCHEDULED, Builder_Contact, Builder_Phone, Builder_PO, PO_Amt, Owner_Address, "
|
||||
' strSQL = strSQL & "Owner_Name, VWP_Super, BC_WHO, Desc, Notes, Backcharge, WO, Repair FROM tblREPAIR WHERE Repair_ID = " & lngREP_ID
|
||||
|
||||
Set oRSR = New Recordset
|
||||
oRSR.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
|
||||
|
||||
If Not oRSR.EOF Then
|
||||
strSQLL = "SELECT * FROM tblPOWO"
|
||||
Set oRSPO = New Recordset
|
||||
oRSPO.Open strSQLL, goConn, adOpenDynamic, adLockOptimistic
|
||||
|
||||
If Not oRSPO.EOF Then
|
||||
oRSPO.AddNew
|
||||
oRSPO!scheduled = oRSR!scheduled
|
||||
oRSPO!builder_contact = Field2Str(oRSR!builder_contact)
|
||||
oRSPO!builder_phone = Field2Str(oRSR!builder_phone)
|
||||
oRSPO!builder_PO = Field2Str(oRSR!builder_PO)
|
||||
oRSPO!PO_Amt = Field2Str2(oRSR!PO_Amt)
|
||||
oRSPO!Owner_address = Field2Str(oRSR!Owner_address)
|
||||
oRSPO!Owner_Name = Field2Str(oRSR!Owner_Name)
|
||||
oRSPO!VWP_Super = Field2Str(oRSR!VWP_Super)
|
||||
oRSPO!bc_who = Field2Str(oRSR!bc_who)
|
||||
oRSPO!Desc = "REPAIR - " & Left(Field2Str(oRSR!Desc), 108)
|
||||
oRSPO!notes = Field2Str(oRSR!notes)
|
||||
oRSPO!backcharge = oRSR!backcharge
|
||||
oRSPO!repair = oRSR!repair
|
||||
oRSPO!wo = oRSR!wo
|
||||
oRSPO!Orig_ID = oRSR!repair_id
|
||||
oRSPO!Lot_ID = oRSR!Lot_ID
|
||||
oRSPO!PROJ_ID = oRSR!PROJ_ID
|
||||
oRSPO!proj_lot = oRSR!proj_lot
|
||||
oRSPO.Update
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Call GetPOID
|
||||
' lstProj.col = 0
|
||||
' gintREPAIRID = Field2Str2(lstProj.ColText)
|
||||
frmPOWOLot.Show 1
|
||||
Unload Me
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GetPOID()
|
||||
Dim oRSMAX As Recordset
|
||||
Dim strSQL As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT Max(REPAIR_ID) as MAXLotid from tblPOWO"
|
||||
Set oRSMAX = New Recordset
|
||||
oRSMAX.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
gintREPAIRID = oRSMAX!maxLotid
|
||||
oRSMAX.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotInfo - Module GetLotID"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub lstRepairs_DblClick()
|
||||
Call CopyRepair
|
||||
End Sub
|
||||
Reference in New Issue
Block a user