Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml =================================================================== diff -u -r62303 -r62867 --- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml (.../Test.cls.xml) (revision 62303) +++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml (.../Test.cls.xml) (revision 62867) @@ -191,6 +191,7 @@ + + + + Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml =================================================================== diff -u -r62824 -r62867 --- WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62824) +++ WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62867) @@ -596,14 +596,16 @@ Set DnaCode = DnaCodeIterator.Next() If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) { - If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) { - Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode) - } Else { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Deze actie is niet mogelijk")) - /*#dim Locatie As DOM.MAG.MagazijnLocatie = ..InventarisService.GeefLocatieVoorDrager(OudePalletCode).GeefCode() - Do ..InventarisService.VerplaatsPallet(OudePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()) - Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1) - Do ..InventarisService.VerplaatsPallet(OudePalletCode,Locatie)*/ + If HernoemPalletRequest.OokEWMSverwerken { + If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) { + Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode) + } Else { + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Deze actie is niet mogelijk")) + /*#dim Locatie As DOM.MAG.MagazijnLocatie = ..InventarisService.GeefLocatieVoorDrager(OudePalletCode).GeefCode() + Do ..InventarisService.VerplaatsPallet(OudePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()) + Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1) + Do ..InventarisService.VerplaatsPallet(OudePalletCode,Locatie)*/ + } } }