NEED BARCODE TDL FOR GROCERY STORES

Discussion in 'Free Source Codes' started by ONKAR, Jun 18, 2018.

         
  1. ONKAR

    ONKAR Active Member


    Dear All Expert, I want a barcode system for a grocery store. In my barcode, my company name, item name, its price, and Per Quantity, give me some solution in this regard. I have added a picture below, so let me give a solution like this! Thank You In Advance, Please All Expert I need That TDL File. barcode.jpg
     
    Dhrupal Gorasiya likes this.


  2. ONKAR

    ONKAR Active Member


    @pradip dhs , why contact you, if you have a source code, then please share with here, please
     


  3. Jenny

    Jenny Active Member


    Code:
    /*
    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.
       
    
    ;; Adding Label Printing Report to the already existing Report
    
    [#Form: Sales Color]
    
        Add     : Print : TSPL FFE LabelPrint
    
    ;;Label Printing Report
    
    [Report: TSPL FFE LabelPrint]
    
        Form         : TSPL FFE LabelPrint
        Object         : Voucher
    
    [Form: TSPL FFE LabelPrint]
    
        Part         : TSPL FFE LabelPrint
    
    [Part: TSPL FFE LabelPrint]
    
        Line         : TSPL FFE LabelPrint
        Repeat         : TSPL FFE LabelPrint : Inventory Entries
        Scroll         : Vertical
    
        [Line: TSPL FFE LabelPrint]
    
            Field             : TSPL FFE StkItemLabel1
            Explode         : TSPL FFE MoreLabels : $$Number:$BilledQty > 1
            Space Bottom    : 1
    
    [Part: TSPL FFE MoreLabels]   
    
        Line : TSPL FFE MoreLabels
    
        [Line: TSPL FFE MoreLabels]
    
            Field              : TSPL FFE StkItemLabel1 
            Explode         : TSPL FFE MoreLabels : $$Number:$BilledQty >($$ExplodeLevel+$$Line)
            Space bottom    : 1
    
            [Field: TSPL FFE StkItemLabel1]
               
                Use                    : Name Field
                Set as                 : "(" + @TSPLFEEBarcodeLF + ")"
                TSPLFEEBarcodeLF     : $$TSPLFFEBarcodeString:@TSPLFEEStkName
                TSPLFEEStkName        : If $$IsEmpty:($TSPLFEEStkAlias:StockItem:$StockItemName) then $StockItemName  +
                                      else ($TSPLFEEStkAlias:StockItem:$StockItemName)
                Style                : TSPL FFE BarCode
    
    [Style: TSPL FFE BarCode]
    
        Font        : IDAutomationHC39S 
        Height      : 10
    
    [#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
    
    
    
    AND Download the font (IDAutomationHC39S) in this location "c/fonts"
     
    nasir likes this.


  4. ONKAR

    ONKAR Active Member


    Hii, @Jenny mam, can you please send here some screen shots, because this tdl is not working properly, please guide me, when I print it shows only item name, where is barcode ??
     
    nasir likes this.


  5. shekh2101

    shekh2101 New Member



    i want POS wise security control
     


  6. Sambanthan

    Sambanthan New Member


    if your Printer is PRN File based Printer need to use PRN Code in TDL.
     


Share This Page