1) Copy the supporting .ttf file in "C:\Windows\Fonts" 2) load the text file in your tally. 3) When printing Invoice there will be a barcode at bottom of the Invoice containing Invoice information. Enjoy.
Yes we can even add Itemwise qty,rate and amount but it will make barcode quite lengthy for such application we need to use QR Codes
Hi I have done this in QR Code in Invoice - You can check my Post for more details http://tdlexpert.com/index.php?thre...lly-by-scanning-qr-code-for-tally-erp-9.9966/
Sir, I am using tally erp9 6.6.3 licensed version, the barcode tdl not working in my system, what will be the problem please explain.
i have copied the font file in windows / fonts folder and add the txt file to my tally and restart my system. after restarting also the barcode not printed in invoice.
Nice code sir. Regarding it's use it's upto individual to make it applicable since logic is important. I have just added some more flavour to it. 1. QR Code 2. Removed Blanks so that code can be directly scanned. 3. Date in SDF (Simple Data Format) 4. Removed commas and decimals from amount Hope it will be useful. Enjoy Code: [#Part: EXPINV Jurisdiction] Add:Option:EXPINV Barcode:@@IsSales OR @@IsCreditNote [!Part: EXPINV Barcode] Add : Line : At End : EXPINV Barcode [Line : EXPINV Barcode] Field : EI Barcode [Field : EI Barcode] Use : Name Field Set As : @@InvString Style : Bar Code1 Align : Centre Full Width : Yes ;;;;;--------------- QR for Prime [#Part: EXPINV Terms] Option : My QR : @@IsSales [!Part : My QR] Delete : Lines Delete : Repeat add : Parts : My QRPay [Part : My QR Pay] Line : Empty QR Code : @@InvString : Yes Height : 2 cms Width : 50% Page Space Top : 2 mms Space Left : 15 mms [Style: Bar Code1] Font : IDAutomationHC39S Height : 10 [System : Formula] TokenString : @@ConsigneeName TokenSep : " " InvTotal : $$String:#EXPINVInvTotal:NoComma,Decimals:0 InvString : $$RemoveBlanksFunction+"/"+$VoucherNumber +"/"+ $$String:$Date:SDF +"/"+@@InvTotal [Function: RemoveBlanksFunction] Variable : SMS : String 00 : FOR TOKEN : TokenVar : @@TokenString : @@TokenSep : FALSE 10 : IF : $$IsEmpty:##SMS 20 : SET : SMS : ##TokenVar + "%20" 30 : ELSE 40 : SET : SMS : ##SMS + ##TokenVar + "%20" 50 : End If 60 : END FOR 70 : Return : ##SMS
HOW TO ADD QTY IN QR CODE I HAVE TRIED BUT NOT GETTING SOLUTION #Part: EXPINV Terms] Option : My QR : @@IsSales [!Part : My QR] Delete : Lines Delete : Repeat add : Parts : My QRPay [Part : My QR Pay] Line : Empty QR Code : @@InvString Height : 1 cms Width : 50% Page Space Top : 2 mms Space Left : 5 mms [System : Formula] TokenString : "" TokenSep : " " InvTotal : $$String:#EXPINVInvTotal:NoComma,Decimals:0 InvString:$$RemoveBlanksFunction+""+$VoucherNumber+"$"+"97325599"+"$"+$BasicPurchaseOrderNo+"$"+$Partno:StockItem:$StockItemName+"$"+:BilledQty [Function: RemoveBlanksFunction] Variable : SMS : String 00 : FOR TOKEN : TokenVar : @@TokenString : @@TokenSep : FALSE 10 : IF : $$IsEmpty:##SMS 20 : SET : SMS : ##TokenVar + "" 30 : ELSE 40 : SET : SMS : ##SMS + ##TokenVar + "" 50 : End If 60 : END FOR 70 : Return : ##SMS
;;;;;;;;;;;;;;;;;;;;CODE;;;;;;;;;;;;;;;;;;;;; [#Part: EXPINV Terms] Option : My QR : @@IsSales [!Part : My QR] Delete : Lines Delete : Repeat add : Parts : My QRPay [Part : My QR Pay] Line : Empty QR Code : @@InvString Height : 1 cms Width : 50% Page Space Top : 2 mms Space Left : 5 mms [System : Formula] TokenString : "" TokenSep : " " InvTotal : $$String:#EXPINVInvTotal:NoComma,Decimals:0 InvString:$$RemoveBlanksFunction+""+$VoucherNumber+"$"+"97325599"+"$"+$BasicPurchaseOrderNo+"$"+$Partno:StockItem:$StockItemName+"$"+$BilledQty [Function: RemoveBlanksFunction] Variable : SMS : String 00 : FOR TOKEN : TokenVar : @@TokenString : @@TokenSep : FALSE 10 : IF : $$IsEmpty:##SMS 20 : SET : SMS : ##TokenVar + "" 30 : ELSE 40 : SET : SMS : ##SMS + ##TokenVar + "" 50 : End If 60 : END FOR 70 : Return : ##SMS