Index: BL/MB/UGLYPicking/sub/pxLocationLabel.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/MB/UGLYPicking/sub/pxLocationLabel.cls.xml (.../pxLocationLabel.cls.xml) (revision 29059) +++ BL/MB/UGLYPicking/sub/pxLocationLabel.cls.xml (.../pxLocationLabel.cls.xml) (revision 59093) @@ -78,7 +78,7 @@ %Status Index: BL/PPS/KAD/sub/pxKADPlanning.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/PPS/KAD/sub/pxKADPlanning.cls.xml (.../pxKADPlanning.cls.xml) (revision 51119) +++ BL/PPS/KAD/sub/pxKADPlanning.cls.xml (.../pxKADPlanning.cls.xml) (revision 59093) @@ -77,9 +77,8 @@ %Status Index: BL/Etiket/ProboxOverdoosInhoud.cls.xml =================================================================== diff -u -r56938 -r59093 --- BL/Etiket/ProboxOverdoosInhoud.cls.xml (.../ProboxOverdoosInhoud.cls.xml) (revision 56938) +++ BL/Etiket/ProboxOverdoosInhoud.cls.xml (.../ProboxOverdoosInhoud.cls.xml) (revision 59093) @@ -40,11 +40,11 @@ #define TAB $char(9) #define CRLF $char(13,10) - write ..Logo,$$$TAB - write ..KlantNaam,$$$TAB - write ..InhoudAlsHTML,$$$TAB - write ..PalletBarcodeTxt,$$$TAB - write ..PalletBarcode,$$$TAB + write ..VerwijderNietPrintbareKarakters(..Logo),$$$TAB + write ..VerwijderNietPrintbareKarakters(..KlantNaam),$$$TAB + write ..VerwijderNietPrintbareKarakters(..InhoudAlsHTML),$$$TAB + write ..VerwijderNietPrintbareKarakters(..PalletBarcodeTxt),$$$TAB + write ..VerwijderNietPrintbareKarakters(..PalletBarcode),$$$TAB write $$$CRLF quit $$$OK Index: BL/Etiket/LadeKlantEtiketVHoss.cls.xml =================================================================== diff -u -r30042 -r59093 --- BL/Etiket/LadeKlantEtiketVHoss.cls.xml (.../LadeKlantEtiketVHoss.cls.xml) (revision 30042) +++ BL/Etiket/LadeKlantEtiketVHoss.cls.xml (.../LadeKlantEtiketVHoss.cls.xml) (revision 59093) @@ -47,13 +47,13 @@ %Status %Status Index: BL/Etiket/MagazijnProductEnLocatie.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/Etiket/MagazijnProductEnLocatie.cls.xml (.../MagazijnProductEnLocatie.cls.xml) (revision 29059) +++ BL/Etiket/MagazijnProductEnLocatie.cls.xml (.../MagazijnProductEnLocatie.cls.xml) (revision 59093) @@ -40,13 +40,13 @@ %Status Index: BL/PPS/TBX/sub/pxLabelKlant.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/PPS/TBX/sub/pxLabelKlant.cls.xml (.../pxLabelKlant.cls.xml) (revision 51119) +++ BL/PPS/TBX/sub/pxLabelKlant.cls.xml (.../pxLabelKlant.cls.xml) (revision 59093) @@ -231,15 +231,12 @@ %Status Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Etiket.cls.xml =================================================================== diff -u -r51119 -r59093 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Etiket.cls.xml (.../Etiket.cls.xml) (revision 51119) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Etiket.cls.xml (.../Etiket.cls.xml) (revision 59093) @@ -129,39 +129,34 @@ 1 Index: BL/Etiket/ProboxOverdoos.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Etiket/ProboxOverdoos.cls.xml (.../ProboxOverdoos.cls.xml) (revision 51119) +++ BL/Etiket/ProboxOverdoos.cls.xml (.../ProboxOverdoos.cls.xml) (revision 59093) @@ -69,24 +69,21 @@ #define TAB $char(9) #define CRLF $char(13,10) - Set ..OrderRef = $Translate(..OrderRef,$Char(0)_$Char(10)_$Char(13)) - Set ..CommissieReferentie = $Translate(..CommissieReferentie,$Char(0)_$Char(10)_$Char(13)) + write ..VerwijderNietPrintbareKarakters(..Logo),$$$TAB + write ..VerwijderNietPrintbareKarakters(..KlantNaam),$$$TAB - write ..Logo,$$$TAB - write ..KlantNaam,$$$TAB + write ..VerwijderNietPrintbareKarakters(..PalletBarcodeTxt),$$$TAB + write ..VerwijderNietPrintbareKarakters(..PalletBarcode),$$$TAB - write ..PalletBarcodeTxt,$$$TAB - write ..PalletBarcode,$$$TAB + write ..VerwijderNietPrintbareKarakters(..OrderRef),$$$TAB + write ..VerwijderNietPrintbareKarakters(..OrderNr),$$$TAB - write ..OrderRef,$$$TAB - write ..OrderNr,$$$TAB + write ..VerwijderNietPrintbareKarakters(..ToeleveringNr),$$$TAB + write ..VerwijderNietPrintbareKarakters(..VerzendWijze),$$$TAB - write ..ToeleveringNr,$$$TAB - write ..VerzendWijze,$$$TAB + write ..VerwijderNietPrintbareKarakters(..ProductieWeek),$$$TAB + write ..VerwijderNietPrintbareKarakters(..CommissieReferentie),$$$TAB - write ..ProductieWeek,$$$TAB - write ..CommissieReferentie,$$$TAB - write $$$CRLF quit $$$OK ]]> Index: BL/PPS/TBX/sub/pxCommissie.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/PPS/TBX/sub/pxCommissie.cls.xml (.../pxCommissie.cls.xml) (revision 51119) +++ BL/PPS/TBX/sub/pxCommissie.cls.xml (.../pxCommissie.cls.xml) (revision 59093) @@ -77,10 +77,8 @@ %Status Index: BL/Etiket/LadeKlantEtiket.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Etiket/LadeKlantEtiket.cls.xml (.../LadeKlantEtiket.cls.xml) (revision 51119) +++ BL/Etiket/LadeKlantEtiket.cls.xml (.../LadeKlantEtiket.cls.xml) (revision 59093) @@ -168,54 +168,43 @@ 1 Index: BL/Flow/Levering/sub/pxProductPallet.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Flow/Levering/sub/pxProductPallet.cls.xml (.../pxProductPallet.cls.xml) (revision 51119) +++ BL/Flow/Levering/sub/pxProductPallet.cls.xml (.../pxProductPallet.cls.xml) (revision 59093) @@ -98,12 +98,9 @@ %Status Index: BL/Etiket/TBXLadeInVHoss2D.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Etiket/TBXLadeInVHoss2D.cls.xml (.../TBXLadeInVHoss2D.cls.xml) (revision 51119) +++ BL/Etiket/TBXLadeInVHoss2D.cls.xml (.../TBXLadeInVHoss2D.cls.xml) (revision 59093) @@ -133,29 +133,28 @@ Set HoutCertificaatImage = HoutCertificaatService.GetImageLink(HoutCertificaatCode) } - Set ..Referentie = $Translate(..Referentie,$Char(0)_$Char(10)_$Char(13)) - Write ..KlantNaam,$C(9) - Write ..OrderID,$C(9) - Write ..ToeleveringNr,$C(9) - Write ..ProductieWeek,$C(9) - Write ..VerzendWijze,$C(9) - Write ..WandDikte,$C(9) - Write ..Diepte,$C(9) - Write ..Breedte,$C(9) - Write ..VHossInfo,$C(9) - Write ..DossierCode,$C(9) - Write ..LogoImg,$C(9) - Write ..ProductImg,$C(9) - Write LadeID,$C(9) - Write ..Referentie,$C(9) - Write ..DossierBarcode,$C(9) - Write HoutCertificaatImage,$C(9) - Write ..SlotNr,$C(9) - Write ..VorigSlotNr,$C(9) - Write ..VolgendSlotNr,$C(9) - Write ..VHossSeqNr,$C(9) - Write ..GeefVHossZijkant(),$C(9) + Write ..VerwijderNietPrintbareKarakters(..KlantNaam),$C(9) + Write ..VerwijderNietPrintbareKarakters(..OrderID),$C(9) + Write ..VerwijderNietPrintbareKarakters(..ToeleveringNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..ProductieWeek),$C(9) + Write ..VerwijderNietPrintbareKarakters(..VerzendWijze),$C(9) + Write ..VerwijderNietPrintbareKarakters(..WandDikte),$C(9) + Write ..VerwijderNietPrintbareKarakters(..Diepte),$C(9) + Write ..VerwijderNietPrintbareKarakters(..Breedte),$C(9) + Write ..VerwijderNietPrintbareKarakters(..VHossInfo),$C(9) + Write ..VerwijderNietPrintbareKarakters(..DossierCode),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LogoImg),$C(9) + Write ..VerwijderNietPrintbareKarakters(..ProductImg),$C(9) + Write ..VerwijderNietPrintbareKarakters(LadeID),$C(9) + Write ..VerwijderNietPrintbareKarakters(Referentie),$C(9) + Write ..VerwijderNietPrintbareKarakters(..DossierBarcode),$C(9) + Write ..VerwijderNietPrintbareKarakters(HoutCertificaatImage),$C(9) + Write ..VerwijderNietPrintbareKarakters(..SlotNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..VorigSlotNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..VolgendSlotNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..VHossSeqNr),$C(9) + Write ..VerwijderNietPrintbareKarakters(..GeefVHossZijkant()),$C(9) Write $C(13,10) Quit $$$OK ]]> Index: APPS/Halux/PPS/impl/ZijkantPlaat/Etiket.cls.xml =================================================================== diff -u -r51119 -r59093 --- APPS/Halux/PPS/impl/ZijkantPlaat/Etiket.cls.xml (.../Etiket.cls.xml) (revision 51119) +++ APPS/Halux/PPS/impl/ZijkantPlaat/Etiket.cls.xml (.../Etiket.cls.xml) (revision 59093) @@ -53,21 +53,16 @@ %Status Index: BL/Sys/pxProductLabel.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/Sys/pxProductLabel.cls.xml (.../pxProductLabel.cls.xml) (revision 29059) +++ BL/Sys/pxProductLabel.cls.xml (.../pxProductLabel.cls.xml) (revision 59093) @@ -19,5 +19,12 @@ Quit HoutCertificaatImage ]]> + + +String:%String +%String + + Index: BL/PPS/TBX/sub/pxLabelV1.cls.xml =================================================================== diff -u -r59046 -r59093 --- BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 59046) +++ BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 59093) @@ -185,33 +185,29 @@ 0)&&..ToonNakomendeTipons { Set ..Opm1 = "Eindig met "_..TiponCountAfter_" TIP-ONs"_$S($L(..Opm1)>0:","_..Opm1,1:"") } ;TBXPROD ;BATCHID`$E($G(C("TOENR")),4,6)`DOSNR`VOLGNR`QTY`KB`$G(C("LD"))-24`BreedteB`KR`RH`RHnet`BreedteR`BOR`KL`ZW`LD`$G(C("IB"))`OPM`PICT`BM`VHOSS + + Write ..VerwijderNietPrintbareKarakters(..BatchID),*9 + Write ..VerwijderNietPrintbareKarakters(..TOENr),*9 + Write ..VerwijderNietPrintbareKarakters(..DOSNr),*9 + Write ..VerwijderNietPrintbareKarakters(..VolgNr),*9 + Write ..VerwijderNietPrintbareKarakters(..Qty),*9 + Write ..VerwijderNietPrintbareKarakters(..KB),*9 + Write ..VerwijderNietPrintbareKarakters(..BodemDiepte),*9 + Write ..VerwijderNietPrintbareKarakters(..BreedteB),*9 + Write ..VerwijderNietPrintbareKarakters(..RugInfo),*9 + Write ..VerwijderNietPrintbareKarakters(..RWHInfo),*9 + Write ..VerwijderNietPrintbareKarakters(..KL),*9 + Write ..VerwijderNietPrintbareKarakters(..ZW),*9 + Write ..VerwijderNietPrintbareKarakters(..LD),*9 + Write ..VerwijderNietPrintbareKarakters(..IB),*9 + Write ..VerwijderNietPrintbareKarakters(..Opm1),*9 + Write ..VerwijderNietPrintbareKarakters(..Picture),*9 + Write ..VerwijderNietPrintbareKarakters(..VHossID),*9 - Set ..Opm1 = $Translate(..Opm1,$Char(0)_$Char(10)_$Char(13)) - Set ..Line = $Translate(..Line,$Char(0)_$Char(10)_$Char(13)) - Set ..ExtraLabelInfo = $Translate(..ExtraLabelInfo,$Char(0)_$Char(10)_$Char(13)) - - Write ..BatchID,*9 - Write ..TOENr,*9 - Write ..DOSNr,*9 - Write ..VolgNr,*9 - Write ..Qty,*9 - Write ..KB,*9 - Write ..BodemDiepte,*9 - Write ..BreedteB,*9 - Write ..RugInfo,*9 - Write ..RWHInfo,*9 - Write ..KL,*9 - Write ..ZW,*9 - Write ..LD,*9 - Write ..IB,*9 - Write ..Opm1,*9 - Write ..Picture,*9 - Write ..VHossID,*9 - Write:(..TiponCountBefore > 0) ..TiponCountBefore Write *9,..Line,*9 - Write ..ExtraLabelInfo,*9 + Write ..VerwijderNietPrintbareKarakters(..ExtraLabelInfo),*9 Write:(..TiponCountAfter > 0) ..TiponCountAfter Index: BL/Derde/Klant/sub/pxLabelMagRek.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Derde/Klant/sub/pxLabelMagRek.cls.xml (.../pxLabelMagRek.cls.xml) (revision 51119) +++ BL/Derde/Klant/sub/pxLabelMagRek.cls.xml (.../pxLabelMagRek.cls.xml) (revision 59093) @@ -70,9 +70,8 @@ %Status Index: BL/Flow/Cons/sub/pxTransportGLSCollie.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Flow/Cons/sub/pxTransportGLSCollie.cls.xml (.../pxTransportGLSCollie.cls.xml) (revision 51119) +++ BL/Flow/Cons/sub/pxTransportGLSCollie.cls.xml (.../pxTransportGLSCollie.cls.xml) (revision 59093) @@ -151,12 +151,10 @@ %Status Index: BL/Flow/Levering/sub/pxKlantPallet.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Flow/Levering/sub/pxKlantPallet.cls.xml (.../pxKlantPallet.cls.xml) (revision 51119) +++ BL/Flow/Levering/sub/pxKlantPallet.cls.xml (.../pxKlantPallet.cls.xml) (revision 59093) @@ -83,9 +83,8 @@ %Status Index: APPS/TRANSP/GLS/Etiket/Etiket.cls.xml =================================================================== diff -u -r40367 -r59093 --- APPS/TRANSP/GLS/Etiket/Etiket.cls.xml (.../Etiket.cls.xml) (revision 40367) +++ APPS/TRANSP/GLS/Etiket/Etiket.cls.xml (.../Etiket.cls.xml) (revision 59093) @@ -56,7 +56,7 @@ #dim Property As %Dictionary.CompiledProperty = Iterator.Next() If ..IsPropertyTeExporteren(Property,Klasse) { - Write $PROPERTY(..Response,Property.Name),$C(9) + Write ..VerwijderNietPrintbareKarakters($PROPERTY(..Response,Property.Name)),$C(9) } } Write $C(13,10) Index: BL/PPS/TBX/sub/pxLabelPallet.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/PPS/TBX/sub/pxLabelPallet.cls.xml (.../pxLabelPallet.cls.xml) (revision 29059) +++ BL/PPS/TBX/sub/pxLabelPallet.cls.xml (.../pxLabelPallet.cls.xml) (revision 59093) @@ -49,7 +49,7 @@ %Status Index: zTryout/PVR/Scrapbook.cls.xml =================================================================== diff -u -r59087 -r59093 --- zTryout/PVR/Scrapbook.cls.xml (.../Scrapbook.cls.xml) (revision 59087) +++ zTryout/PVR/Scrapbook.cls.xml (.../Scrapbook.cls.xml) (revision 59093) @@ -107,7 +107,7 @@ Index: CHUI/Prod/sub/pxProductLabel.cls.xml =================================================================== diff -u -r51119 -r59093 --- CHUI/Prod/sub/pxProductLabel.cls.xml (.../pxProductLabel.cls.xml) (revision 51119) +++ CHUI/Prod/sub/pxProductLabel.cls.xml (.../pxProductLabel.cls.xml) (revision 59093) @@ -119,8 +119,7 @@ %Status Index: APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml =================================================================== diff -u -r40510 -r59093 --- APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml (.../Base.cls.xml) (revision 40510) +++ APPS/TRANSP/GLS/GLSv1/impl/Etiket/Base.cls.xml (.../Base.cls.xml) (revision 59093) @@ -56,7 +56,7 @@ #dim Property As %Dictionary.CompiledProperty = Iterator.Next() If ..IsPropertyTeExporteren(Property,Klasse) { - Write $PROPERTY(..Response,Property.Name),$C(9) + Write ..VerwijderNietPrintbareKarakters($PROPERTY(..Response,Property.Name)),$C(9) } } Write $C(13,10) Index: BL/PPS/TBX/sub/pxLabelProPlus.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/PPS/TBX/sub/pxLabelProPlus.cls.xml (.../pxLabelProPlus.cls.xml) (revision 51119) +++ BL/PPS/TBX/sub/pxLabelProPlus.cls.xml (.../pxLabelProPlus.cls.xml) (revision 59093) @@ -116,27 +116,21 @@ 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 ]]> Index: BL/Sys/pxLabel.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/Sys/pxLabel.cls.xml (.../pxLabel.cls.xml) (revision 29059) +++ BL/Sys/pxLabel.cls.xml (.../pxLabel.cls.xml) (revision 59093) @@ -69,5 +69,12 @@ Quit "logo\"_Picture ]]> + + +String:%String +%String + + Index: BL/Etiket/PalletEtiketZonderProductInfo.cls.xml =================================================================== diff -u -r29059 -r59093 --- BL/Etiket/PalletEtiketZonderProductInfo.cls.xml (.../PalletEtiketZonderProductInfo.cls.xml) (revision 29059) +++ BL/Etiket/PalletEtiketZonderProductInfo.cls.xml (.../PalletEtiketZonderProductInfo.cls.xml) (revision 59093) @@ -24,9 +24,9 @@ %Status Index: BL/Etiket/Product.cls.xml =================================================================== diff -u -r51119 -r59093 --- BL/Etiket/Product.cls.xml (.../Product.cls.xml) (revision 51119) +++ BL/Etiket/Product.cls.xml (.../Product.cls.xml) (revision 59093) @@ -147,28 +147,25 @@ set Gemeente = ..Gemeente } - Set ..CommRef = $Translate(..CommRef,$Char(0)_$Char(10)_$Char(13)) - Set ..OrderRef = $Translate(..OrderRef,$Char(0)_$Char(10)_$Char(13)) + 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(..ImgURL),$C(9) + Write ..VerwijderNietPrintbareKarakters(..KortTekst),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LangTekst1),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LangTekst2),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LangTekst3),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LangTekst4),$C(9) + Write ..VerwijderNietPrintbareKarakters(..MultiDeel),$C(9) + Write ..VerwijderNietPrintbareKarakters(..BarCode),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres1),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres2),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres3),$C(9) + Write ..VerwijderNietPrintbareKarakters(..LeverAdres4),$C(9) - 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 ..ImgURL,$C(9) - Write ..KortTekst,$C(9) - Write ..LangTekst1,$C(9) - Write ..LangTekst2,$C(9) - Write ..LangTekst3,$C(9) - Write ..LangTekst4,$C(9) - Write ..MultiDeel,$C(9) - Write ..BarCode,$C(9) - Write ..LeverAdres1,$C(9) - Write ..LeverAdres2,$C(9) - Write ..LeverAdres3,$C(9) - Write ..LeverAdres4,$C(9) - Write $C(13,10) Quit $$$OK ]]>