From 69af558e8bdbc39cbb820bac21cc30d517a0748e Mon Sep 17 00:00:00 2001 From: Paul Trowbridge Date: Fri, 20 May 2022 12:38:56 -0400 Subject: [PATCH] clean up and move code to core list file --- PriceLists.bas | 46 +++++++++------------------------------ login.frm | 8 ++++--- login.frx | Bin 3096 -> 3096 bytes pricelevel.frm | 7 +++--- pricelevel.frx | Bin 3608 -> 3608 bytes pricelist.frm | 57 +++++++++++++++++++++++-------------------------- pricelist.frx | Bin 4632 -> 4632 bytes 7 files changed, 46 insertions(+), 72 deletions(-) diff --git a/PriceLists.bas b/PriceLists.bas index 2700017..198bd9f 100644 --- a/PriceLists.bas +++ b/PriceLists.bas @@ -34,6 +34,9 @@ Sub test_full20() unp = unpivot_current_sheet(lists, pcol) + login.Caption = "Postgres Login" + login.tbU = "report" + login.tbP = "report" login.Show If Not login.proceed Then Exit Sub @@ -240,6 +243,11 @@ Sub price_load_plcore() sql = sql & vbCrLf & "INSERT INTO rlarp.plcore" sql = sql & vbCrLf & x.SQLp_build_sql_values(load, True, True, PostgreSQL, False, False, "S", "S", "S", "S", "S", "S", "S", "N", "N", "S", "N", "N") & ";" + login.Caption = "Postgres Login" + login.tbU = LCase(Mid(Application.UserLibraryPath, 10, InStr(10, Application.UserLibraryPath, "\") - 10)) + login.Show + If Not login.proceed Then Exit Sub + If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU, login.tbP, "Port=5030;Database=ubm") Then MsgBox (x.ADOo_errstring) Exit Sub @@ -318,33 +326,6 @@ PRICELIST_SHOW: 'target volume level - 'ulsql = FL.x.SQLp_build_sql_values(pl, True, True, PostgreSQL, False) - 'pl = x.TBLp_Transpose(pl) - 'plv = x.TBLp_StringToVar(pl) - 'ulsql = x.json_from_table(plv, "") - 'ulsql = "DECLARE GLOBAL TEMPORARY TABLE session.plb AS (" & ulsql & ") WITH DATA" -' If login.tbP.Text = "" Then -' login.Show -' If Not login.proceed Then -' Exit Sub -' End If -' End If - 'Call wapi.ClipBoard_SetData(ulsql) - 'Exit Sub - - 'If Not FL.x.ADOp_Exec(0, ulsql, 1, True, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@041") Then - ' MsgBox (FL.x.ADOo_errstring) - ' Exit Sub - 'End If - - 'pl = FL.x.ADOp_SelectS(0, "SELECT p.*, CASE WHEN COALESCE(c.jcpart,'') = '' THEN '1' ELSE '2' END flag FROM Session.plb P LEFT OUTER JOIN lgdat.iprcc c ON c.jcpart = P.Item AND c.JCPLCD = '" & pl_code & "' AND c.JCVOLL = p.vbqty * cast(p.num as float) / cast(p.den as float)", True, 10000, True) - 'If Not FL.x.ADOp_Exec(0, "DROP TABLE SESSION.PLB", 1, True, ISeries, "S7830956", False, login.tbU.Text, login.tbP.Text) Then - ' MsgBox (FL.x.ADOo_errstring) - ' Exit Sub - 'End If - 'Call FL.x.ADOp_CloseCon(0) - - ul(0, 0) = "HDR" ul(1, 0) = pl_action ul(2, 0) = pl_code @@ -758,7 +739,7 @@ Sub build_customer_files() End If Next wb - nwb.SaveAs Filename:=filepath & "\HC Companies Distributor Price List.xlsx" + If filepath <> "" Then nwb.SaveAs Filename:=filepath & "\HC Companies Distributor Price List.xlsx" For Each wb In Workbooks If wb.Name = "HC FullCode List.xlsx" Then @@ -771,7 +752,7 @@ Sub build_customer_files() End If Next wb - fcwb.SaveAs Filename:=filepath & "\HC FullCode List.xlsx" + If filepath <> "" Then fcwb.SaveAs Filename:=filepath & "\HC FullCode List.xlsx" End Sub @@ -968,10 +949,3 @@ Sub print_setup(sheet As Worksheet, last_row As Long) Application.PrintCommunication = True End Sub - -Sub call_print() - - Call print_setup(ActiveSheet, 1201) - -End Sub - diff --git a/login.frm b/login.frm index abd5169..4a501e1 100644 --- a/login.frm +++ b/login.frm @@ -13,13 +13,15 @@ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False + + Public proceed As Boolean -Private Sub cbCANCEL_Click() - tbU.Text = "" - tbP.Text = "" +Private Sub cbCancel_Click() + tbU.text = "" + tbP.text = "" proceed = False Me.Hide End Sub diff --git a/login.frx b/login.frx index d01e723d1091229ab15d7ba0fa9164e20056bab9..8a6fc4c801dc269768cb9db89cca14830ab2aa42 100644 GIT binary patch delta 27 jcmbOsF+*ZQ3k&-OnLU0fIX5Y%G2Rx} delta 70 zcmbOsGec%W3kw^AN1~Zd*5)pj7tD;QlZ!dJ85t)3=ZIjGn=Herwz-Z|gb^q(nM;%T a`7XK1`?-EG=1< '' ORDER BY JAPLCD ASC", True, 1000, False) + pl = tbo.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 tbo.ADOp_CloseCon(1) ReDim plv(1 To UBound(pl, 2)) For i = 1 To UBound(pl, 2) plv(i) = pl(0, i) Next i - plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl)) + plfv = tbo.TBLp_StringToVar(tbo.TBLp_Transpose(pl)) @@ -137,7 +136,7 @@ Private Sub UserForm_Initialize() 'lbHEAD.ColumnCount = lbHist.ColumnCount 'lbHEAD.ColumnWidths = lbHist.ColumnWidths - Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "descr1", "descr2", "descr3") + Call tbo.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "descr1", "descr2", "descr3") @@ -167,29 +166,27 @@ Sub load_lists() cbHDR.list = x cbDTL.list = dtl -' If login.tbP = "" Then -' login.Show -' If Not login.proceed Then Exit Sub -' If Not FL.x.ADOp_OpenCon(0, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@041") Then -' MsgBox (FL.x.ADOo_errstring) -' Exit Sub -' End If -' End If + login.Caption = "CMS Login" + login.tbU = Mid(UCase(Mid(Application.UserLibraryPath, 10, InStr(10, Application.UserLibraryPath, "\") - 10)), 1, 10) + login.tbP = "" + login.Show + If Not login.proceed Then Exit Sub - If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "QQQX53@048") Then - MsgBox (FL.x.ADOo_errstring) + + If Not tbo.ADOp_OpenCon(1, ISeries, "S7830956", False, login.tbU.text, login.tbP.text) Then + MsgBox (tbo.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) - Call FL.x.ADOp_CloseCon(1) + pl = tbo.ADOp_SelectS(1, "SELECT JAPLCD, JAPLDS, JAPLD1, JAPLD2 FROM lgdat.iprca WHERE TRIM(COALESCE(JAPLCD,'')) <> '' ORDER BY JAPLCD ASC", True, 1000, False) + Call tbo.ADOp_CloseCon(1) ReDim plv(1 To UBound(pl, 2)) For i = 1 To UBound(pl, 2) plv(i) = pl(0, i) Next i - plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl)) + plfv = tbo.TBLp_StringToVar(tbo.TBLp_Transpose(pl)) cbLIST.list = plv lbLIST.list = plfv @@ -197,6 +194,6 @@ Sub load_lists() 'lbHEAD.ColumnCount = lbHist.ColumnCount 'lbHEAD.ColumnWidths = lbHist.ColumnWidths - Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "d1", "d2", "d3") + Call tbo.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "d1", "d2", "d3") End Sub diff --git a/pricelist.frx b/pricelist.frx index 7264f0cded1d24a268b92f320d2182e796590694..594136e95559a5b908cd90b95724013229362226 100644 GIT binary patch delta 142 zcmbQCGDBrU3k%zVqFB$AoXuS&nQOKUtf9 uA(JV?f!j*&5c@_H`y$@926z=GrDna|`!0-2MI1!X4*%5pF;Tw!2fIK?#CSMW3dIBPH5