pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

resource price list info

Browse Source
This commit is contained in:
pt 2022-04-28 13:00:02 -04:00
parent 050eb881cb
commit 44555a7f13
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pricelist.frm
View File

@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False Attribute VB_Exposed = False
Option Explicit
Public proceed As Boolean Public proceed As Boolean
Private pl() As String Private pl() As String
@ -43,7 +44,7 @@ Private Sub bPICK_Click()
Set fd = Application.FileDialog(msoFileDialogFolderPicker) Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show fd.Show
tbPATH.Text = fd.SelectedItems(1) tbPATH.text = fd.SelectedItems(1)
End Sub End Sub
@ -111,12 +112,13 @@ Private Sub UserForm_Initialize()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@048") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1,d2,d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True) pl = FL.x.ADOp_SelectS(1, "SELECT JAPLCD, JAPLDS, JAPLD1, JAPLD2 FROM lgdat.iprca WHERE TRIM(COALESCE(JAPLCD,'')) <> '' ORDER BY JAPLCD ASC", True, 1000, False)
'pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1,d2,d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True)
Call FL.x.ADOp_CloseCon(1) Call FL.x.ADOp_CloseCon(1)
ReDim plv(1 To UBound(pl, 2)) ReDim plv(1 To UBound(pl, 2))
For i = 1 To UBound(pl, 2) For i = 1 To UBound(pl, 2)
@ -136,6 +138,7 @@ Private Sub UserForm_Initialize()
Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "descr1", "descr2", "descr3") Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "descr1", "descr2", "descr3")
End Sub End Sub
Private Sub UserForm_Terminate() Private Sub UserForm_Terminate()
@ -171,12 +174,13 @@ Sub load_lists()
' End If ' End If
' End If ' End If
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@046") Then If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@048") Then
MsgBox (FL.x.ADOo_errstring) MsgBox (FL.x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1, d2, d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True) 'pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1, d2, d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True)
pl = FL.x.ADOp_SelectS(1, "SELECT JAPLCD, JAPLDS, JAPLD1, JAPLD2 FROM lgdat.iprca WHERE TRIM(COALESCE(JAPLCD,'')) <> '' ORDER BY JAPLCD ASC", True, 1000, False)
Call FL.x.ADOp_CloseCon(1) Call FL.x.ADOp_CloseCon(1)
ReDim plv(1 To UBound(pl, 2)) ReDim plv(1 To UBound(pl, 2))
For i = 1 To UBound(pl, 2) For i = 1 To UBound(pl, 2)

BIN
pricelist.frx
View File

Binary file not shown.