1 DOM.PM.impl.DataM.DataMProductCreator 62118,53779.413337 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_"." Set $E(KortTekst,7) = DossierNummer Set $E(KortTekst,12) = BodemHalffab.LadeDiepte_"x"_BodemHalffab.LadeBreedte 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 ]]>