Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml
===================================================================
diff -u -r73313 -r73314
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml (.../HtmlInhoudProboxEtiketBepaler.cls.xml) (revision 73313)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml (.../HtmlInhoudProboxEtiketBepaler.cls.xml) (revision 73314)
@@ -87,7 +87,7 @@
%String
"
- Set Resultaat = Resultaat_..GeefTabelHeader()_..GeefTabelInhoud(DnaCodeIterator)
+ Set Resultaat = Resultaat_..GeefTabelHeader()_..GeefTabelInhoud(DnaCodeIterator, IsVervolgEtiket)
Set Resultaat = Resultaat_""
Quit Resultaat
]]>
@@ -146,7 +146,7 @@
While ProductAantalLijstIterator.HasNext() {
#dim ProductAantalKeyPair As TECH.KeyValuePair = ProductAantalLijstIterator.Next()
- Set Lijn = Resultaat_..Geef1Lijn(ProductAantalKeyPair.Key, OrderId, ProductAantalKeyPair.Value, ToeleveringId)
+ Set Lijn = ..Geef1Lijn(ProductAantalKeyPair.Key, OrderId, ProductAantalKeyPair.Value, ToeleveringId)
If $$$Not(IsVervolgEtiket) {
If ((..AantalStandaardLijnenToegevoegd + ..AantalLijnReferentieLijnenToegevoegd) <= ..#MaxAantalLijnenOpEtiket) {
@@ -175,7 +175,20 @@
#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer)
#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
- #dim LijnReferentie As %String = ..GeefLijnReferentie(ToeleveringId, Product, OrderId, OrderlijnId)
+ #dim LijnReferentie As %String = ""
+ Try {
+ // Indien OrderLijnId nog leeg, oude manier gebruiken opdat referenties blijven opgehaald worden via toelevering
+ If (OrderlijnId = "") {
+ Set LijnReferentie = ..ToeleveringService.GeefLijnReferentie(ToeleveringId,Product.GeefID())
+ } Else {
+ #dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+ #dim OrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijn(OrderlijnId)
+ Set LijnReferentie = OrderLijn.GeefProjectReferentie()
+ }
+ } Catch {
+ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ Do ##class(vhLib.Logger).%New("BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler").Warning("Geef1Lijn", "De referentie voor product '"_ProductNummer_"' op order '"_OrderId_"' kon niet bepaald worden. "_Exception)
+ }
#dim ToonLijnReferentieOpTweedeRegel As %Boolean = ($$$HasLength(LijnReferentie))
If ToonLijnReferentieOpTweedeRegel {
@@ -204,31 +217,6 @@
Quit Resultaat
]]>
-
-
-ToeleveringId:%String,Product:DOM.PM.Product,OrderId:%String,OrderlijnId:%String
-1
-%String
-
-