Index: DOM/common/impl/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r57434 -r58049
--- DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 57434)
+++ DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 58049)
@@ -217,6 +217,12 @@
+
+
+%Boolean
+
+
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r57806 -r58049
--- BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 57806)
+++ BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 58049)
@@ -549,7 +549,9 @@
New Result
Try {
- Do ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New().DrukProboxOverdoosInhoudEtiketAfIndienNodig(bfrRGID, bfrVolgNr)
+ If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefProboxOverdoosInhoudEtiket()) {
+ Do ##class(BL.MB.UGLYPicking.Receptie.EtiketAfdrukker).%New().DrukProboxOverdoosInhoudEtiketAfIndienNodig(bfrRGID, bfrVolgNr)
+ }
} Catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
Do ##class(vhLib.Logger).%New("BL.MB.UGLYPicking.Receptie").Warning("DrukProboxOverdoosInhoudEtiket","Probleem bij buffer '"_bfrRGID_"' en '"_bfrVolgNr_"' met inhoud '"_$g(^UPRCP("B",bfrRGID,bfrVolgNr,""))_"'")
Index: vhDeploy/Deploy20190916xProjectSettingsProboxInhoudEtiket.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190916xProjectSettingsProboxInhoudEtiket.cls.xml (revision 0)
+++ vhDeploy/Deploy20190916xProjectSettingsProboxInhoudEtiket.cls.xml (revision 58049)
@@ -0,0 +1,25 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Projectsettings voor ingebruikname ProboxOverdoosInhoudEtiket
+
+
+
+1
+
+
+
+
+
+