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 - -