want help for my TDL

Discussion in 'Free Source Codes' started by ONKAR, Aug 21, 2019.

         
  1. ONKAR

    ONKAR Active Member


    Dear @drive sir, @Amit Kamdar sir, @garima sir, and other respected experts, have created a TDL of barcode, but I have to make some changes to it, but I am not doing it, so I want you to help me, I have created a button on the gateway of tally in TDL, as it is. When I click, only the stock item and it's part number ie the barcode number is visible, then I want its print as well. And there is one more TDL I have, when the print of the barcode by clicking the button in the sales voucher, it's showing perfectly print preview then I want that in the Gateway of Tally. see these images 1 and 2 [ showing only, I want also print this in barcodes

    image no. 1

    screen 1.jpg

    image no. 2

    screen 2.jpg
     


  2. ONKAR

    ONKAR Active Member


    But through the second TDL, we go into the sales voucher and select the stock item, then enter its rate and then go to the right side and click on a button Called as [ NS Label ] then the perfect barcode is printed, then all of this I want this in the Gateway of the tally. how ?? see this image of the second tdl

    SECOND TDL IMAGE

    second TDL IMAGE.jpg


    SEE THIS PRINT PREVIEW THROUGH THE SECOND TDL


    BARCODE.jpg
     


  3. garima

    garima Active Member


    Post both TDL
     


  4. ONKAR

    ONKAR Active Member


    @garima ok sir, see this both of codes, and please give me the correct solution

    see the first barcode tdl, [ gateway of tally ]



    [#Menu: Gateway of Tally
    Add:Button:B.PRINT


    [button: B.PRINT]
    Action: alter : My ItemReport
    Key: ALT + B

    [Report: My ItemReport]
    Form: My ItemForm


    [Form: My ItemForm]
    Part: My ItemPart


    [Part: My ItemPart]
    Line: My Line1, Myline2

    [Line: My Line1]
    Fields: Short Prompt, My ItemName
    Local: Field: Short prompt: Set as: "Item Name:- "

    [Line: My Line2]
    Fields: Short Prompt, My ItemPartNo
    Local: Field: Short prompt: Set as: "Part Number:- "


    [Field: My ItemName]
    Use: Name Field

    Table: My ItemList
    Show Table: Always


    [Field: My ItemPartNo]
    Use: Name Field
    Set as: $$Table:MyItemName:$PartNo
    Set Always: Yes


    [System: Variables]
    varItemName: ""
    varItemPartNo: ""


    [Variable: varItemName]
    Type: String


    [Variable: varItemPartNo]
    Type: String



    [Collection: My ItemList]
    Title: "Item List"
    ListName : $$SysName:EndOfList
    Collection : List of Stock Items


    see the second tdl [ in sales voucher ]


    [#Form :SALES Color];; Add Print in sales
    Add : Print : NS Label
    Add : Button :NSLabel
    [Button : NS Label]
    Action :print Report:NS Label
    Key :ctrl+F6


    [Report : NSLabel]
    Form : NSLabel
    Object : Voucher
    Print Set: ReportTitle : $$LocaleString:"PRINT BARCODE"


    [Form : NSLabel]
    Part : NSLAbleTop
    Space Left :5
    Space Top : 1


    [Part : NSLAbleTop]
    Part : NSLAbleTop3,NSLAbleTop4,NSLAbleTop5,NSLAbleTop6,NSLAbleTop7,NSLAbleTop8,NSLAbleTop9,NSLAbleTop10
    Vertical : Yes


    [Part : NSLAbleTop3]
    Parts : NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0


    [Part : NSLAbleTop4]
    Parts :NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop5]
    Parts : NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop6]
    Parts : NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop7]
    Parts : NSPart1, NSPart2 , NSPart3, NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop8]
    Parts : NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop9]
    Parts : NSPart1, NSPart2 , NSPart3 , NSPart4 , NSPart5
    Vertical : No
    space top: 0

    [Part : NSLAbleTop10]
    Parts : NSPart1, NSPart2 , NSPart3, NSPart4 , NSPart5
    Vertical : No
    space top: 0



    [Part : NSPart2]
    Use : NSPart1

    [Part : NSPart3]
    Use : NSPart1

    [Part : NSPart4]
    Use : NSPart1

    [Part : NSPart5]
    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:VCH ActualQty]
    set as: "1"
    skip Forward : yes

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

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

    [Part : NSNLine]
    Lines : NSLName , NSNLine1, NSNLine4 , NSNLine5

    [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 : $Name:StockItem:$StockItemName
    Local : Field : NSLabel : Inactive: $$IsEven:$$ExplodeLevel

    [Line : NSNLine4]
    Fields : Info Field,
    Local : Field : Info Field : Info : "QTY: 1"
    Local : Field : Info Field : Inactive: $$IsEven:$$ExplodeLevel

    [Line : NSNLine5]
    Fields : Info Field,
    Local : Field : Info Field : Info : "Per QTY ( Incl Of All Taxes )"
    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+ ($$ExplodeLevel + $$Line)


    [Style : BarCode]
    Font : IDAutomationHC39M
    Height : 10
     


  5. garima

    garima Active Member


    If you want to open second report from the fist report

    use this code

    [Form: My ItemForm]
    Part: My ItemPart
    On : Form Accept: Yes: Alter: NSLabel
    On : Form Accept: Yes: Form Accept
    Local : Field: MyItemName : Modifies:MyStockItemName

    [System: Variables]
    MyStockItemNAme : ""

    [Variable : MyStockItemName]
    Type : String
    Persistent: No

    In the second use ##MyStockItemName is place of $StockitemName

    Since second report is based on voucher, you will have to make it based on item name only, qty and rate fields would become useless, and also the repeat line attribute at part level in second report
     
    ONKAR likes this.


  6. ONKAR

    ONKAR Active Member


    @garima sir , showing as blank , see this iamge , when i click gateway of tally - B print button , then add stock item name and accept box enter , then showing this blank , see this image sir.

    screenshot.jpg
     


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    You might have forgotten this.........

    In the second use ##MyStockItemName is place of $StockitemName
     


Share This Page