TECH.Mockable 10 DOM.PM.ProductAPI 1 APPS.VKP.Maatwerk.impl.ConfiguratorService 1 DOM.VKP.OrderAPI 1 DOM.AKP.impl.ToeleveringService 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 1 %Status 1 DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean=0 %String "_..GeefStyles()_"" Set Resultaat = Resultaat_..GeefTabelData(DnaCodeIterator, IsVervolgEtiket) Set Resultaat = Resultaat_"" Quit Resultaat ]]> 1 %String table, th, td { font-family: Arial; font-size: 9pt;} }" ]]> DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean 1 %String " Set Resultaat = Resultaat_..GeefTabelHeader()_..GeefTabelInhoud(DnaCodeIterator, IsVervolgEtiket) Set Resultaat = Resultaat_"" Quit Resultaat ]]> 1 %String " Set Resultaat = Resultaat_""_"Code"_"" Set Resultaat = Resultaat_""_"Hoogte"_"" Set Resultaat = Resultaat_""_"Diepte"_"" Set Resultaat = Resultaat_""_"Breedte"_"" Set Resultaat = Resultaat_""_"Wand"_"" Set Resultaat = Resultaat_""_"Kleur"_"" Set Resultaat = Resultaat_""_"Aantal"_"" Set Resultaat = Resultaat_"" Quit Resultaat ]]> DnaCodeIterator:TECH.Iterator,IsVervolgEtiket:%Boolean 1 %String ..#MaxAantalLijnenOpEtiket) { Set ..VervolgEtiketNodig = $$$True Set Resultaat = Resultaat_Lijn } } } Quit Resultaat ]]> ProductNummer:%String,OrderId:%String,ProductInfoLijst:TECH.KeyValue.UniqueList,ToeleveringId:%String %String " #dim Aantal As %String = ProductInfoLijst.FindByKey("AantalOpPallet").Value #dim OrderlijnId As %String = ProductInfoLijst.FindByKey("OrderlijnId").Value #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 ToonLijnReferentieOpTweedeRegel As %Boolean = ($$$HasLength(LijnReferentie)) If ToonLijnReferentieOpTweedeRegel { Set Resultaat = Resultaat_""_Product.GeefDossierNr()_"" } Else { Set Resultaat = Resultaat_""_Product.GeefDossierNr()_"" } Set Resultaat = Resultaat_""_Product.GeefLadeCode()_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.LadeDiepte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.CorpusBreedte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.CorpusWandDikte_"" Set Resultaat = Resultaat_""_IngegevenKenmerken.LadeKleur_"" 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 ]]>