Index: HADETIK.mac.rou =================================================================== diff -u -r1135 -r2108 --- HADETIK.mac.rou (.../HADETIK.mac.rou) (revision 1135) +++ HADETIK.mac.rou (.../HADETIK.mac.rou) (revision 2108) @@ -251,6 +251,7 @@ . Set C("KLEUR")=$E(C("KORTT"),22,23)_"/"_$E(C("KORTT"),24,25) . For Key="IB","LD","KB","KL","LC","BS","NMBS","CB","WD","VERPAK","DC" Set C(Key)=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,Key)) . Set:C("VERPAK")?1(1"C",1"O",1"A",1"I",1"B") C("LABELTYP")="TBXCOM",C("LABELSIZE")="5x10" ; Commissie etiket 5x10 + . Set:C("VERPAK")?1(1"X",1"Y") C("LABELTYP")="TBXCOM",C("LABELSIZE")="5x10" ; Probox Etiket -> zelfde layout als commissie etiket . Set C("ORDNR")=$G(C("ORDNR"))_$S($L($G(C("ORDNR"))):":"_C("VERPAK"),1:"") . Set:C("BS")="BD"&C("NMBS") C("BS")="ER" . ;Set C("PICT")=##CLASS(BL.Prod.ImageLink).TBXImageCode(PRNr)