resource price list info
This commit is contained in:
parent
050eb881cb
commit
44555a7f13
@ -13,6 +13,7 @@ Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Public proceed As Boolean
|
||||
Private pl() As String
|
||||
@ -43,7 +44,7 @@ Private Sub bPICK_Click()
|
||||
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
||||
fd.Show
|
||||
|
||||
tbPATH.Text = fd.SelectedItems(1)
|
||||
tbPATH.text = fd.SelectedItems(1)
|
||||
|
||||
|
||||
End Sub
|
||||
@ -111,12 +112,13 @@ Private Sub UserForm_Initialize()
|
||||
' 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)
|
||||
Exit Sub
|
||||
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)
|
||||
ReDim plv(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")
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub UserForm_Terminate()
|
||||
@ -171,12 +174,13 @@ Sub load_lists()
|
||||
' 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)
|
||||
Exit Sub
|
||||
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)
|
||||
ReDim plv(1 To UBound(pl, 2))
|
||||
For i = 1 To UBound(pl, 2)
|
||||
|
BIN
pricelist.frx
BIN
pricelist.frx
Binary file not shown.
Loading…
Reference in New Issue
Block a user