Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u -r60317 -r60318
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml (.../Test.cls.xml) (revision 60317)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml (.../Test.cls.xml) (revision 60318)
@@ -169,7 +169,6 @@
#dim VolgNummer As %String = ""
Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(, ..DnaCode1.PalletCode, ..DnaCode1.InitialenScanner,.VolgNummer)
- Do ##class(Tools.Wlip).%New(127).String(VolgNummer)
Do $$$AssertEquals(VolgNummer,"1")
Do $$$AssertContains($G(^UPRCP("B","~tmp",VolgNummer,1)),"K.ABCD.6\00KABCD6\10k12T01")
]]>
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r60302 -r60318
--- BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 60302)
+++ BL/MB/UGLYPicking/Receptie.cls.xml (.../Receptie.cls.xml) (revision 60318)
@@ -2082,6 +2082,8 @@
} else {
Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
}
+ Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
+ Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(DnaCode)
}
}
;Buffer verwijderen indien geen lijnen aangemaakt (leeg)
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60298 -r60318
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60298)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60318)
@@ -46,6 +46,13 @@
]]>
+
+PalletCode:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus
+TECH.Iterator
+
+
+
PalletCode:%String
TECH.Iterator
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60298 -r60318
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60298)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60318)
@@ -113,17 +113,17 @@
]]>
-
-PalletCode:%String
+
+PalletCode:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus
TECH.Iterator
-
-
-PalletCode:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus
+
+PalletCode:%String
TECH.Iterator
-
Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60298 -r60318
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60298)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml (.../DnaCodeRepository.cls.xml) (revision 60318)
@@ -22,10 +22,10 @@
]]>
-
+
PalletCode:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus
TECH.Iterator
-
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60256 -r60318
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 60256)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 60318)
@@ -293,13 +293,13 @@
Set Response = ##class(WS.Halux.AAP.PalletBijwerkenResponse).%New()
Try {
#dim DnaCodeIterator As TECH.Iterator
- Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+ Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCodeEnNotStatus(PalletBijwerkenRequest.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer())
While DnaCodeIterator.HasNext() {
Set DnaCode = DnaCodeIterator.Next()
Set DnaCode.IsDirecteLevering = PalletBijwerkenRequest.IsDirecteLevering
Do ..DnaCodeRepository.Bewaar(DnaCode)
}
- Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletBijwerkenRequest.Pallet)
+ Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCodeEnNotStatus(PalletBijwerkenRequest.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer())
If DnaCodeIterator.HasNext() {
Set Response.Header.Status = "200"
Do ..DnaCodesKlaarmakenVoorBuffer(DnaCodeIterator, PalletBijwerkenRequest.Status, , PalletBijwerkenRequest.Pallet, PalletBijwerkenRequest.Header.Initialen)
@@ -309,6 +309,7 @@
}
} Catch {
#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+
Set Response.Header.Status = Exception.GeefExceptionCode()
Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
Do ##class(vhLib.Logger).%New().Warning("AAP",Exception.GeefOmschrijving())
@@ -326,26 +327,16 @@
While DnaCodeIterator.HasNext() {
Set DnaCode = DnaCodeIterator.Next()
-
If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold() {
If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
Do ..DnaCodeRepository.Bewaar(DnaCode)
}
}
-
- If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
- Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(Toelevering, Pallet, Initialen,.VolgNr)
-
- If ((DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()) || (DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold())) {
- Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()
- Set DnaCode.Locatie = ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit()
- Do ..DnaCodeRepository.Bewaar(DnaCode)
- }
-
- //Do ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer("~tmp",VolgNr)
- }
-
+ }
+ If Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer() {
+ Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(Toelevering, Pallet, Initialen,.VolgNr)
+ Do ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer("~tmp",VolgNr)
}
]]>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml
===================================================================
diff -u -r60024 -r60318
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml (.../Test.cls.xml) (revision 60024)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletBijwerken/Test.cls.xml (.../Test.cls.xml) (revision 60318)
@@ -19,7 +19,7 @@
#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
- Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaPalletCode",Request.Pallet).DanReturn(DnaCodeIteratorTweeStuks)
+ Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaPalletCodeEnNotStatus",Request.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()).DanReturn(DnaCodeIteratorTweeStuks)
Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).ExactAantalKeer(2)
Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode2).ExactAantalKeer(1)
@@ -39,7 +39,7 @@
Set Request.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).OnHold()
Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
- Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaPalletCode",Request.Pallet).DanReturn(..EmptyIterator())
+ Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaPalletCodeEnNotStatus",Request.Pallet,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()).DanReturn(..EmptyIterator())
Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0)
Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)