Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r73238 -r73313 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 73238) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 73313) @@ -51,7 +51,7 @@ -DnaCodeIterator:TECH.Iterator,LabelDevice:%String +DnaCodeIterator:TECH.Iterator,LabelDevice:%String,IsVervolgEtiket:%Boolean=0 BL.Etiket.ProboxInhoud Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml =================================================================== diff -u -r71002 -r73313 --- BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml (.../HtmlInhoudProboxEtiketBepaler.cls.xml) (revision 71002) +++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml (.../HtmlInhoudProboxEtiketBepaler.cls.xml) (revision 73313) @@ -3,6 +3,10 @@ TECH.Mockable + +10 + + DOM.PM.ProductAPI 1 @@ -23,6 +27,23 @@ 1 + +TECH.Integer +0 +1 + + + +TECH.Integer +0 +1 + + + +%Boolean +0 + + ProductApi:DOM.PM.ProductAPI="",ConfiguratorService:APPS.VKP.Maatwerk.ConfiguratorService="",OrderApi:DOM.VKP.OrderAPI="",ToeleveringService:DOM.AKP.impl.ToeleveringService="" 1 @@ -40,12 +61,12 @@ -DnaCodeIterator:TECH.Iterator +DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean=0 %String "_..GeefStyles()_"" - Set Resultaat = Resultaat_..GeefTabelData(DnaCodeIterator) + Set Resultaat = Resultaat_..GeefTabelData(DnaCodeIterator, IsVervolgEtiket) Set Resultaat = Resultaat_"" @@ -61,7 +82,7 @@ -DnaCodeIterator:TECH.Iterator +DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean 1 %String -DnaCodeIterator:TECH.Iterator +DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean 1 %String ..#MaxAantalLijnenOpEtiket) { + Set ..VervolgEtiketNodig = $$$True + Set Resultaat = Resultaat_Lijn + } + } } Quit Resultaat @@ -141,20 +175,7 @@ #dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNummer) #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer) - #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 LijnReferentie As %String = ..GeefLijnReferentie(ToeleveringId, Product, OrderId, OrderlijnId) #dim ToonLijnReferentieOpTweedeRegel As %Boolean = ($$$HasLength(LijnReferentie)) If ToonLijnReferentieOpTweedeRegel { @@ -171,15 +192,43 @@ Set Resultaat = Resultaat_""_Aantal_"" Set Resultaat = Resultaat_"" + Set ..AantalStandaardLijnenToegevoegd = ..AantalStandaardLijnenToegevoegd + 1 + If $$$HasLength(LijnReferentie) { Set Resultaat = Resultaat_"" Set Resultaat = Resultaat_""_LijnReferentie_"" Set Resultaat = Resultaat_"" + Set ..AantalLijnReferentieLijnenToegevoegd = ..AantalLijnReferentieLijnenToegevoegd + 1 } Quit Resultaat ]]> + + +ToeleveringId:%String,Product:DOM.PM.Product,OrderId:%String,OrderlijnId:%String +1 +%String + + Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r73243 -r73313 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 73243) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 73313) @@ -1747,8 +1747,14 @@ DnaCodeIterator:TECH.Iterator