Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml
===================================================================
diff -u -r66428 -r72943
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml (.../RegistratieRepository.cls.xml) (revision 66428)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml (.../RegistratieRepository.cls.xml) (revision 72943)
@@ -11,14 +11,14 @@
ProductNr:%String
TECH.Iterator
-
ProductNr:%String,Toelevering:%String
TECH.Iterator
-
Index: vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml
===================================================================
diff -u -r72666 -r72943
--- vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml (.../Test.cls.xml) (revision 72666)
+++ vhUnitTest/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper/GeefWerkpost/Test.cls.xml (.../Test.cls.xml) (revision 72943)
@@ -13,27 +13,26 @@
P2
-
+
@@ -44,11 +43,9 @@
Set DnaCode.Toelevering = "111111"
Set DnaCode.ProductNummer = "1304468"
- #dim Familie As %String = ""
- Set LadeRegistratie = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..#Werkpost1, Familie)
-
+ #dim LadeRegistratieIterator As TECH.Iterator = ..GeefLadeRegistratieIterator(..#Werkpost1)
Set RegistratieRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New()
- Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNrEnToelevering",DnaCode.ProductNummer, DnaCode.Toelevering).DanReturn(LadeRegistratie)
+ Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNrEnToelevering",DnaCode.ProductNummer, DnaCode.Toelevering).DanReturn(LadeRegistratieIterator)
Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, RegistratieRepositoryMock)
#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
@@ -65,11 +62,9 @@
Set DnaCode.DnaCode = "LAAAAA0"
Set DnaCode.ProductNummer = "1304468"
- #dim Familie As %String = ""
- Set LadeRegistratie = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..#Werkpost1, Familie)
-
+ #dim LadeRegistratieIterator As TECH.Iterator = ..GeefLadeRegistratieIterator(..#Werkpost1)
Set RegistratieRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository).%New()
- Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNr",DnaCode.ProductNummer).DanReturn(LadeRegistratie)
+ Do RegistratieRepositoryMock.VerwachtMethodCall("GeefViaProductNr",DnaCode.ProductNummer).DanReturn(LadeRegistratieIterator)
Set EtiketAfdrukkenHelper = ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New(, RegistratieRepositoryMock)
#dim WerkPost As %String = EtiketAfdrukkenHelper.GeefWerkpost(DnaCode)
@@ -79,6 +74,19 @@
Do RegistratieRepositoryMock.Verifieer()
]]>
+
+
+Werkpost:%String,Familie:%String=""
+1
+TECH.Iterator
+
+
Index: vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r72099 -r72943
--- vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72099)
+++ vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72943)
@@ -9,7 +9,7 @@
right
-DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository=""
+DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository="",Logger:vhLib.Logger=""
%Status
Index: WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r72666 -r72943
--- WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72666)
+++ WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml (.../EtiketAfdrukkenHelper.cls.xml) (revision 72943)
@@ -13,15 +13,21 @@
1
+
+vhLib.Logger
+1
+
+
-DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository=""
+DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",RegistratieRepository:APPS.VKP.Maatwerk.LadeRegistratie.impl.RegistratieRepository="",Logger:vhLib.Logger=""
1
1
%Status
1
@@ -166,21 +172,24 @@
#dim Werkpost As %String = ""
#dim IsTaor As %Boolean = ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode, "H")
#dim DummyBypassGebruiken As %Boolean = ##class(TECH.Config.ConfigMgr).Instance().GetString("DummyLaderegistraties")
-
+
If (DummyBypassGebruiken && IsTaor) {
Quit "TAO"
}
- #dim LadeRegistratie As APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie
+ #dim LadeRegistraties As TECH.Iterator
If $$$HasLength(DnaCode.Toelevering) {
- Set LadeRegistratie = ..RegistratieRepository.GeefViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
+ Set LadeRegistraties = ..RegistratieRepository.GeefViaProductNrEnToelevering(DnaCode.ProductNummer, DnaCode.Toelevering)
} Else {
- Set LadeRegistratie = ..RegistratieRepository.GeefViaProductNr(DnaCode.ProductNummer)
+ Set LadeRegistraties = ..RegistratieRepository.GeefViaProductNr(DnaCode.ProductNummer)
}
- Set Werkpost = LadeRegistratie.Werkpost
+ If (LadeRegistraties.HasNext()) {
+ Set Werkpost = LadeRegistraties.Next().Werkpost
+ }
+
If Werkpost = "" {
- Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Werkpost/Productielijn kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'"))
+ Do ..Logger.Warning("GeefWerkpost", "Werkpost kon niet bepaald worden voor DnaCode '"_DnaCode.DnaCode_"'")
}
Quit Werkpost
@@ -204,7 +213,7 @@
}
}
}
-
+
Quit TeGebruikenPrinter
]]>
Index: vhTest/Fake/APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml
===================================================================
diff -u -r66428 -r72943
--- vhTest/Fake/APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml (.../RegistratieRepository.cls.xml) (revision 66428)
+++ vhTest/Fake/APPS/VKP/Maatwerk/LadeRegistratie/impl/RegistratieRepository.cls.xml (.../RegistratieRepository.cls.xml) (revision 72943)
@@ -16,8 +16,7 @@
Data:TECH.Persistent
-
+
@@ -56,14 +55,12 @@
ID:%String
-
+
Data:TECH.Persistent
-
+