UNIQUE BARCODE CONTAINING INVOICE INFORMATION

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.

 

If any advice please reply

 

Auto Entry By Scanning it.

 

Thank you great sharing !

 

WILL IT WORK IN 9.1.1

 

Never Tested.

 

KINDLY HELP ME TO SHOW UN TALLY 9.1.1 PLZZZZ

 

jay bahi help about this plzzzzz

 

Please Buy licensed version

 

SATTAM BAHI I HAVE MODIFY THIS CODE WHICH IS I CAN USE IN 9.1.1 I AM SENDING U SCREEN SHOOTS
THANKS

 

ca

cann we add voucher amount in this bar code plzzzzzz

 

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

 

can we ad as $Voucheramt or any other i tried this nut not showing

 

that's very much possible in tally but for making it required team of expertise

 

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.

 

Sir, please give me the solution.

 

outstanding , though not as useful but creates value for your invoice print. thanks sir

 

I suppose it will work.

 

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

 

SANJEEV S SIR,
following error on loading your modified tdl
please help

 

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