1 DOM.PM.impl.DataM.DataMProductCreator 0 1 %Integer DossierNummer:%String 1 %String Links").Halffab Set Draagkracht = LadeZijkantHalffab.Draagkracht Set Glijder = $S(Draagkracht=20:8,Draagkracht=30:8,Draagkracht=50:9,Draagkracht=65:6,Draagkracht=80:7,1:"I") Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign) ; S,F,B,... Set FrontBevestiging = "" Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"." // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. Set $E(KortTekst,7) = DossierNummer Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken() Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur // Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro // Nog wat info over kostprijs van werkuren enzo // Zie ktxTBX() method in Prod.GAData.Product.tmpKPRCreate.MAC Quit KortTekst ]]> 1 DOM.PM.impl.DataM.DataMProductCreator 0 1 %Integer DossierNummer:%String 1 %String Links").Halffab Set Draagkracht = LadeZijkantHalffab.Draagkracht Set Glijder = $S(Draagkracht=20:8,Draagkracht=30:8,Draagkracht=50:9,Draagkracht=65:6,Draagkracht=80:7,1:"I") Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign) ; S,F,B,... Set FrontBevestiging = "" Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"." // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. Set $E(KortTekst,7) = DossierNummer Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken() Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur // Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro // Nog wat info over kostprijs van werkuren enzo // Zie ktxTBX() method in Prod.GAData.Product.tmpKPRCreate.MAC Quit KortTekst ]]>