1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Barcode Printing using TDL

Discussion in 'Free Source Codes' started by S P S, Dec 4, 2017.

    
Tags:
  1. S P S

    S P S New Member


    Dear All,

    I've a TDL which print in 2 column, can anyone help me to print Barcode using TDL in 4 columns.

    An early reply will appreciated.

    thanks in advance.

    SPS
     
    S P S, Dec 4, 2017
    #1


  2. mpal2311

    mpal2311 Active Member


    please share codes.
     
    mpal2311, Dec 4, 2017
    #2


  3. S P S

    S P S New Member


    Dear mpal2311,

    Below is the code for the same:

    [#Form : Purchase Color]
    Add : Print : NSLabel

    [Report : NSLabel]
    Form : NSLabel
    Object : Voucher

    [Form : NSLabel]
    Part : NSLabel

    [Part : NSLabel]
    Parts : NSPart1, NSPart2
    Vertical : No

    [Part : NSPart2]
    Use : NSPart1

    [Part : NSPart1]
    Line : NSLabel
    Repeat : NSLabel : Inventory Entries
    Scroll : Vertical
    Width : 25% Page

    [Line : NSLabel]
    Field : NSLabel
    Explode : NSNLine
    Explode : NSMLable : $$Number:$BilledQty > = 1

    [Field : NSLine]
    Set as : $$Line
    Invisible : Yes

    [Field : NSLabel]
    Use : Name Field
    Set as : $StockItemName
    Inactive : Yes

    [Part : NSNLine]
    Lines : NSNLine3, NSLName, NSNLine1, NSNLine2

    [Line : NSLName]
    Fields : NSLine, NSLName

    [Field : NSLName]
    Use : Name Field
    Set as : "*" + $PartNo:Stockitem:$StockItemName + "*"
    Inactive : $$IsEven:$$ExplodeLevel
    Style : BarCode

    [Line : NSNLine1]
    Fields : NSLabel
    Local : Field : NSLabel : Set as : $PartNo:StockItem:$StockItemName
    Local : Field : NSLabel : Inactive: $$IsEven:$$ExplodeLevel

    [Line : NSNLine2]
    Fields : NSLabel
    Local : Field : NSLabel : Set as : $Description:StockItem:$StockItemName
    Local : Field : NSLabel : Inactive: $$IsEven:$$ExplodeLevel

    [Line : NSNLine3]
    Fields : Info Field, NSRate
    Local : Field : Info Field : Info : "Rate: "
    Local : Field : Info Field : Inactive: $$IsEven:$$ExplodeLevel

    [Field : NSRate]
    Use : Rate Price Field
    Set as : $Rate
    Align : Left
    Style : Normal
    Inactive : $$IsEven:$$ExplodeLevel

    [Part : NSMLable]
    Line : NSMLable

    [Line : NSMLable]
    Field : NSLabel
    Explode : NSNLine
    Explode : NSMLable : $$Number:$BilledQty > = 1+($$ExplodeLevel + $$Line)


    [Style : BarCode]
    Font : IDAutomationHC39S
    Height : 10
     
    S P S, Dec 4, 2017
    #3


  4. S P S

    S P S New Member


    Dear Experts,

    Please check the above code and guide me

    Thanks in advance
     
    S P S, Dec 4, 2017
    #4


  5. S P S

    S P S New Member


    Dear Admin,

    Please check and guide me

    Thanks in advance
     
    S P S, Dec 5, 2017
    #5


  6. hprahul

    hprahul Member


    Code as below should work as desired by you.

    Code:
    [#Form : Purchase Color]
Add : Print : NSLabel

[Report : NSLabel]
Form : NSLabel
Object : Voucher

[Form : NSLabel]
Part : NSLabel

[Part : NSLabel]
Parts : NSPart1, NSPart2, NSPart1, NSPart2
Vertical : No

[Part : NSPart2]
Use : NSPart1

[Part : NSPart1]
Line : NSLabel
Repeat : NSLabel : Inventory Entries
Scroll : Vertical
Width : 20% Page

[Line : NSLabel]
Field : NSLabel
Explode : NSNLine
Explode : NSMLable : $$Number:$BilledQty > = 1

[Field : NSLine]
Set as : $$Line
Invisible : Yes

[Field : NSLabel]
Use : Name Field
Set as : $StockItemName
Inactive : Yes

[Part : NSNLine]
Lines : NSNLine3, NSLName, NSNLine1, NSNLine2

[Line : NSLName]
Fields : NSLine, NSLName

[Field : NSLName]
Use : Name Field
Set as : "*" + $PartNo:Stockitem:$StockItemName + "*"
Inactive : $$IsEven:$$ExplodeLevel
Style : BarCode

[Line : NSNLine1]
Fields : NSLabel
Local : Field : NSLabel : Set as : $PartNo:StockItem:$StockItemName
Local : Field : NSLabel : Inactive: $$IsEven:$$ExplodeLevel

[Line : NSNLine2]
Fields : NSLabel
Local : Field : NSLabel : Set as : $Description:StockItem:$StockItemName
Local : Field : NSLabel : Inactive: $$IsEven:$$ExplodeLevel

[Line : NSNLine3]
Fields : Info Field, NSRate
Local : Field : Info Field : Info : "Rate: "
Local : Field : Info Field : Inactive: $$IsEven:$$ExplodeLevel

[Field : NSRate]
Use : Rate Price Field
Set as : $Rate
Align : Left
Style : Normal
Inactive : $$IsEven:$$ExplodeLevel

[Part : NSMLable]
Line : NSMLable

[Line : NSMLable]
Field : NSLabel
Explode : NSNLine
Explode : NSMLable : $$Number:$BilledQty > = 1+($$ExplodeLevel + $$Line)


[Style : BarCode]
Font : IDAutomationHC39S
Height : 10
     
    hprahul, Dec 10, 2017
    #6


  7. S P S

    S P S New Member


    Not working, please check again
     
    S P S, Dec 13, 2017
    #7


Share This Page