Index: BL/Etiket/Doos.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Etiket/Doos.cls.xml (.../Doos.cls.xml) (revision 51119) +++ BL/Etiket/Doos.cls.xml (.../Doos.cls.xml) (revision 59093) @@ -115,21 +115,18 @@ set KlantNaam = ..KlantNaam set Gemeente = ..Gemeente } + + Write ..VerwijderNietPrintbareKarakters(..Label("ORGAREF")),$C(9) + Write ..VerwijderNietPrintbareKarakters(..CommRef),$C(9) + Write ..VerwijderNietPrintbareKarakters(KlantNaam),$C(9) + Write ..VerwijderNietPrintbareKarakters(Gemeente),$C(9) + Write ..VerwijderNietPrintbareKarakters(..BonNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..OrderRef),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres1),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres2),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres3),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres4),$C(9) - Set ..CommRef = $Translate(..CommRef,$Char(0)_$Char(10)_$Char(13)) - Set ..OrderRef = $Translate(..OrderRef,$Char(0)_$Char(10)_$Char(13)) - - Write ..Label("ORGAREF"),$C(9) - Write ..CommRef,$C(9) - Write KlantNaam,$C(9) - Write Gemeente,$C(9) - Write ..BonNr,$C(9) - Write ..OrderRef,$C(9) - Write ..LeverAdres1,$C(9) - Write ..LeverAdres2,$C(9) - Write ..LeverAdres3,$C(9) - Write ..LeverAdres4,$C(9) - Write $C(13,10) Quit $$$OK ]]>