Friends - trust you are and keeping safe and healthy . I have modified the barcode TDL for my specific requirements for printing on 4.2 inch * 1 inch labels . I am facing an error that the first line of barcode printed do not utilise the FULL Width example - I printed 8 qty , the first 2 barcode are compressed and rest 6 are full width . Not able to make out what is the error. Would appreciate if any of the forum members can guide on it . sharing code and screen shot Code ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara /* Objective(s) :- - To Print Barcode for the Stock Items Specific TDL Feature(s) used :- - Repeat attribute at Part Level - Explode attribute at Line Level - Creation of new Style using Bar coding Font ‘IDAutomationHC39S’ - User Defined Function to replace "" (Space) with "=" symbol as this font ‘IDAutomationHC39S’ treats "=" as space. Last Updation :- - Altered on 17/06/2010 */ ;; Adding Label Printing Report to the already existing Report [#Form: Purchase Color] Add : Print : TSPL FFE LabelPrint Add : Button : TSPL FFE LabelPrint [Button : TSPL FFE LabelPrint] Action rint Report: TSPL FFE LabelPrint Key :ctrl+F6 ;;Label Printing Report [Report: TSPL FFE LabelPrint] Form : TSPL FFE LabelPrint Object : Voucher [Form: TSPL FFE LabelPrint] Part : TSPL FFE LabelPrint Width : 3.8 inch [Part: TSPL FFE LabelPrint] Parts : TSPL FFE LabelPrint1,TSPL FFE LabelPrint2 Vertical :No [Part: TSPL FFE LabelPrint2] Use: TSPL FFE LabelPrint1 [Part: TSPL FFE LabelPrint1] Line : TSPL FFE LabelPrint Repeat : TSPL FFE LabelPrint : Inventory Entries Scroll : Vertical [Line: TSPL FFE LabelPrint] Field : TSPL FFE StkItemLabel1, TSPL FFE StkItemLabel2 Explode : TSPL FFENLine Explode : TSPL FFE MoreLabels : $$Number:$BilledQty > 1 Space Bottom : .75 [Field : TSPL FFE StkItemLabel2] Use : Name Field Set as : $StockItemName Style : Normal Inactive : Yes [Part : TSPL FFENLine] Lines : TSPL FFENLine3, TSPL FFENLine2 [Line : TSPL FFENLine2] Fields : TSPL FFE StkItemLabel2 Local : Field : TSPL FFE StkItemLabel2: Set as : $TSPLFEEStkAlias:StockItem:$StockItemName Local : Field : TSPL FFE StkItemLabel2: Inactive: $$IsEven:$$ExplodeLevel+1 Field : Vchno Local : Field : Vchno: Set as : $VoucherNumber Height : 4 MM [Field: Vchno] Use : Name Field Style : Italic Align : Right [Line : TSPL FFENLine3] Fields : Info Field, TSPL FFERate Local : Field : Info Field : Info : "Rate: Rs " Local : Field : Info Field : Inactive: $$IsEven:$$ExplodeLevel+1 Height : 4 MM [Field : TSPL FFERate] Use : Short Name Field Set as : $StandardPrice:StockItem:$StockItemName Inactive : $$IsEven:$$ExplodeLevel+1 Style : Normal Bold FullWidth : yes Align : Center [Part: TSPL FFE MoreLabels] Line : TSPL FFE MoreLabels [Line: TSPL FFE MoreLabels] Field : TSPL FFE StkItemLabel1 Explode: TSPL FFENLine Explode : TSPL FFE MoreLabels : $$Number:$BilledQty > ($$ExplodeLevel+$$Line) Space bottom : .75 [Field: TSPL FFE StkItemLabel1] Use : Name Field Set as : "(" + @TSPLFEEBarcodeLF + ")" TSPLFEEBarcodeLF : $$TSPLFFEBarcodeStringTSPLFEEStkName TSPLFEEStkName : If $$IsEmpty$TSPLFEEStkAlias:StockItem:$StockItemName) then $StockItemName + else ($TSPLFEEStkAlias:StockItem:$StockItemName) Style : TSPL FFE BarCode FullWidth: Yes [Style: TSPL FFE BarCode] Font : IDAutomationHC39S Height : 12 [#Object: StockItem] TSPLFEEStkAlias : $$Alias ;; Function to replace space with "=" [Function: TSPL FFE BarcodeString] Parameter : TSPLFFEEBarcodeInput : String Variable : TSPLFFE Temp : String Variable : TSPLFFE Count : Number Variable : TSPLFFEEBarcodeOutput : String 10 : Set : TSPLFFE Temp : "" 20 : FOR TOKEN : TSPL TokenVar : ##TSPLFFEEBarcodeInput : " " 30 : Set : TSPLFFE Temp : ##TSPLFFETemp + $$String:##TSPLTokenVar + "=" 40 : END FOR 50 : SET : TSPLFFE Count : $$StringLength:##TSPLFFETemp 60 : SET : TSPLFFEEBarcodeOutput : $$StringPart:##TSPLFFETemp:0##TSPLFFECount-1) 70 : RETURN : ##TSPLFFEEBarcodeOutput ;; End-of-File
Would appreciate if senior members can guide on this , not able to find where I am going wrong with the code . Thanks a lot
