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 + + + + + +