From 8d339f6361e13200b307d6201ae26e15416005ad Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <paul@hptrow.me>
Date: Thu, 4 Aug 2022 16:47:57 -0400
Subject: [PATCH] update price level UI

---
 PriceLists.bas |  13 +++++++++++--
 pricelevel.frm |   4 ++++
 pricelevel.frx | Bin 4120 -> 4632 bytes
 3 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/PriceLists.bas b/PriceLists.bas
index 69874cc..63037fa 100644
--- a/PriceLists.bas
+++ b/PriceLists.bas
@@ -660,8 +660,14 @@ Sub build_customer_files()
     
     If pricelevel.tbPATH.text <> "" Then nwb.SaveAs Filename:=filepath & "\" & fname
     
-    fname = Replace(fname, "xlsx", "pdf")
-    nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
+    If pricelevel.chPDF Then
+        fname = Replace(fname, "xlsx", "pdf")
+        nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
+    End If
+    
+    If Not pricelevel.chbLEAVEOPEN Then
+        nwb.Close
+    End If
 
     For Each wb In Workbooks
         If wb.Name = "HC FullCode List.xlsx" Then
@@ -676,6 +682,9 @@ Sub build_customer_files()
     
     If Not (fcwb Is Nothing) Then
         If pricelevel.tbPATH.text <> "" Then fcwb.SaveAs Filename:=filepath & "\HC FullCode List.xlsx"
+        If Not pricelevel.chbLEAVEOPEN Then
+            fcwb.Close
+        End If
     End If
 
     
diff --git a/pricelevel.frm b/pricelevel.frm
index 8001ba5..1ff18c6 100644
--- a/pricelevel.frm
+++ b/pricelevel.frm
@@ -38,6 +38,10 @@ Private Sub cbFolder_Click()
 End Sub
 
 
+Private Sub cbNUMERIC_Click()
+
+End Sub
+
 Private Sub cbOK_Click()
     cancel = False
     Me.Hide
diff --git a/pricelevel.frx b/pricelevel.frx
index c0ba7714b1a5ef32e4ea7ea75c0c39be75078079..e963adadb953ae3e91af9767edb94c123111f8d1 100644
GIT binary patch
delta 651
zcmYk3F>DfH6vy9p9C!!EL0eI(w46u`wh{^&LtK#3BMuk2K@G7<4cap$A;ns&2@ZBN
z(LsF+E{>*~Hf$Z#!NoYZvO1W$xY^B!|L;f>zvTbD``-J#|CjGx-|A;W&Z0&%xf_~O
z#F0T>*%zEtJBb%xz76>KPy~qR69BpHay3@rp<31}GL6;sGtFRG8LIp$*qb<o<hoxX
z5{SomCRDK}@ihe<g%Z%;(P(rWF$qmWC!mv13Yvjtp)_PclFi7tyYWaQNX^j|BW_41
z^)k_DL^Q{F?UFHp%uvDhQWSVo`znYldQy})rDwRO$8mn9FN+1<*WUzMYh8XCUQrN!
zhF#r>5j{q4k*kqqqj-3N8Sg|~<BvHmFUW*ylth_tg{RZNwhv21I4*9rJF8ZGtJAS+
z-Bpj@X=!mmlBqDr18n{sG_Tg~d#wka<u27zC4R5Xjt#B&f0(?>@mdc(tKRN-n^xnV
zw=Pk>XsmGG$OgWn^`o()s8igIx_I4Qw5aT5_*e9_mP?jC<3H-0H0PD(S+>or)+L#G
zdyY5EGf#dOU{5*vff+?`s~k`hGBJufYq#sy9jDe<vi+9YdC6vdHV9S@@){KLS-b)D
rUY=;ojXe!;azxTIKK69%>J7W$+E>8_=%B!_&8+ASKA1NJyRq$mO{0oN

delta 372
zcmbQCGDCsQ$BBc1L0}`B7Sm=ErYDRO8(1bwu;hp`+~#Mts=mR<%)r3lzz!sUAZ_wN
z0sF}}SS&dAGeJc1!6Ff?7ED)|Cr@In5|jpt=RxEc7=g6VWLY+Q&42&@{}%@GM1WWn
zh{b?d9Ec@=SQ3b(fEc7kX0svFWJXa277Ydu9swRfpfHOA1H=FS3=Arhbvdkf_<$l2
zAiMh*8zvWXoMsG}Y|kmdm^fL6Q*Ck`Cl8R-%^A(eF!?#>Jdn#LcW}iq<t0yk!4<%{
z254M0P_MycNA74II4?0HfAR|M08{}M9;3-tym6BqSXd^{;8kH}$Y+?mpLYe*Ym>>D
zd;yI4lXvkMGW97>e#@uK0hBu;%fN7VvIM_2laAJ8SAG?aWUx?`?&Ly#HKr2=lO+XI
M7#TL(2}Cgh09giAmjD0&