From 44555a7f13db21aa06faa99784311716ce6c8711 Mon Sep 17 00:00:00 2001
From: pt <fleetside72@hotmail.com>
Date: Thu, 28 Apr 2022 13:00:02 -0400
Subject: [PATCH] resource price list info

---
 pricelist.frm |  14 +++++++++-----
 pricelist.frx | Bin 4632 -> 4632 bytes
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/pricelist.frm b/pricelist.frm
index 720948f..3459bdf 100644
--- a/pricelist.frm
+++ b/pricelist.frm
@@ -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)
diff --git a/pricelist.frx b/pricelist.frx
index d97b7ae9cf6318d71d713ff82f94fb6f67ee5c7f..723a1e102fa684cc45c6780a58402df06698c4d7 100644
GIT binary patch
delta 160
zcmbQCGDBrU3k&;%-e4!i=o_26S)Ma9hE6W#2xg3*yq~jhvjwLuBeP~t=;RGtYLn-2
zbucmjh1Dnfai=pgFfdHs!5z!Y@JeH{1Wzkt>g0JmcP4M*HJ)6_Yq9w$uPY;C{$y=_
zKcJQ>er-md$;<fF7)>Uh<*x^d_zDCA*$V}-CL0S1ariJ?0h)G&Ve(%A1t{kf(_~-4
F(*RD`F^m8J

delta 158
zcmbQCGDBrU3k!RLMn%iFz1KE(vpi>JWSCsc5ey{va~5v4;Iw4~GS_iwOrFQp!59n_
zRG;j}oz9$?kw19{cPyBe;AsV_na6Wy@;YAg$(6h&o1gN!GBSRetj+Jo=rg&BUmGaB
xj9-n>bn;pLdPb(nz5*cg7YbxeHWn1(U|_hyz`$^dY4TqI1t{kV!(?B<(*T##G4%id