Index: WS/Halux/PPS/TBXPersServer.cls.xml =================================================================== diff -u -r64226 -r65752 --- WS/Halux/PPS/TBXPersServer.cls.xml (.../TBXPersServer.cls.xml) (revision 64226) +++ WS/Halux/PPS/TBXPersServer.cls.xml (.../TBXPersServer.cls.xml) (revision 65752) @@ -133,6 +133,13 @@ Do ..GeefImplementatie(SessionKey, Werkpost) Do ..iWerkpost.ZetStatus(QueueID,Redo) + + //Als de global LadeRegistratieDummy bestaat dan wordt bij het persen ook een DUMMY ladecode aangemaakt. + //Gebruikt op 20/09/2021 omdat de OL stickers op waren (niet tijdige levering door algemeen CHIP te kort). + If ##class(TECH.Config.ConfigMgr).Instance().GetString("DummyLaderegistraties") && ($D(^LadeRegistratieDummy)=1) ;geen subnodes alleen hoofdnode + { + Do ##class(WS.Halux.PPS.LadeCodeServer).%New().RegistreerViaQueueID(Werkpost,QueueID,"Dummy:"_$P($H,",")_":"_$Increment(^LadeRegistratieDummy)) + } ]]> Index: vhDeploy/D21022020ConfigItemDummyLaderegistraties.cls.xml =================================================================== diff -u --- vhDeploy/D21022020ConfigItemDummyLaderegistraties.cls.xml (revision 0) +++ vhDeploy/D21022020ConfigItemDummyLaderegistraties.cls.xml (revision 65752) @@ -0,0 +1,24 @@ + + + +vhDeploy.Deploy + + +%String +Zet config item voor het faken van de laderegistraties (als er geen orgaluxstickers zouden zijn). + + + +1 + + + + + + Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml =================================================================== diff -u -r65724 -r65752 --- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 65724) +++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 65752) @@ -164,6 +164,10 @@ Quit ##class(APPS.Halux.common.enu.Werkpost).Pers2() } + If (##class(TECH.Config.ConfigMgr).Instance().GetString("DummyLaderegistraties") && ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode, "H")) { + Quit "TAO" + } + #dim Statement As %String = "SELECT top 1 Werkpost FROM APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie " If $$$HasLength(DnaCode.Toelevering) { Set Statement = Statement _ "where (prnr = ? and toeleveringid = ?) "