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 d97b7ae..723a1e1 100644 Binary files a/pricelist.frx and b/pricelist.frx differ