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)*/
+ }
}
}