update price level UI

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")
+    If pricelevel.chPDF Then
-    nwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filepath & "\" & fname, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
+        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
 
     

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