Want to add Alias name in place of ladger name

Discussion in 'Free Source Codes' started by Harsh gonekar, Apr 2, 2024.

    
  1. Harsh gonekar

    Harsh gonekar New Member


    i want to alias name in place of name of lager (it is in hindi)

    Code:
    ;;Program By : DG
    
    ;;Sri Ganeshji ;;Srinathji
    
    [Style: MyStyleGat]
    Font: Courier
    Height: 25
    Bold:Yes
    
    [#Form : Sales Color]
    Add : Print : GatePass
    
    [Report: GatePass]
    Use : Voucher
    PrintSet : Report SubTitle : " "
    PrintSet : SVPrintCopies : 2
    Delete : Print : VCHPrintConfigure
    Delete : Set
    Form : GatePass
    
    [Form : GatePass]
    Parts : GatePassTopPart,GatePassTopPart1,GatePassTopPart2,GatePassBodyPart,GatePassLastPart
    Width : 240 mm
    Height : 240 mm
    Space left : 20 mm
    Space Top : 0 mm
    
    ;;-----------------------------------------------------------------------------------------------------------------------
    [Part : GatePassTopPart]
    Line : GatePassTopPartLine
    Height : 10 mm
    Width : 220 mm
    
    [Line : GatePassTopPartLine]
    Space Top : 0 mm
    Fields : GatePassTopPartLineField
    Right Field: GatePassTopPartLine1F3
    
    [Field : GatePassTopPartLineField]
    Set as : ""
    Style : MyStyleGat
    Full Width : Yes
    Align : Center
    
    [Field : GatePassTopPartLine1F3]
    Set as : @MyIndianTSet
    Style :normal bold
    Align :center
    Width: 25 MM
    MyIndianTSet :if $$SetNo = 1 then "(Original) " else +
    if $$SetNo = 2 then "(Duplicate)" else +
    if $$SetNo = 3 then "(Triplicate) " else +
    "(Extra) "
    ;;=======================================================================================================================
    [Part : GatePassTopPart1]
    Left Part : GatePassTopPartin1.1
    Right Part : GatePassTopPartin1,GatePassTopPartin2
    Height : 40 mm
    Width : 220 mm
    Border : Thin Cover
    
    [Part:GatePassTopPartin1.1]
    Line : OurproductLineChem1
    Width : 35 mm
    Height : 20 mm
    Space Top : 5 mm
    Space Left : 5 mm
    Image : OurproductImageChem1
    
    [Resource: OurproductImageChem1]
    ;Source : "http://tdlexperts.com/venus.jpg"
    ;Resource Type : jpeg
    
    [Line: OurproductLineChem1]
    Field: OurProductChem1
    
    [Field: OurProductChem1]
    Set as: ""
    Space Left : 5 mm
    
    [Part:GatePassTopPartin1]
    Line : OurproductLineChem1.1
    Width : 30 mm
    Height : 19 mm
    Space Top : 5 mm
    Space Left : 5 mm
    Space Right: 5 mm
    Image : OurproductImageChem1.1
    
    [Resource: OurproductImageChem1.1]
    ;Source : "http://tdlexperts.com/venus.jpg"
    ;Resource Type : jpeg
    
    [Line: OurproductLineChem1.1]
    Field: OurProductChem1.1
    
    [Field: OurProductChem1.1]
    Set as: ""
    Space Left : 5 mm
    
    [Part:GatePassTopPartin2]
    Line : GatePassTopPartin2L1,GatePassTopPartin2L2
    Height : 28 mm
    Width : 110 mm
    Border : Thin Left
    
    [Line : GatePassTopPartin2L1]
    Field : GatePassTopPartin2L1F1
    Border : Thin Bottom
    Space Top : 5 mm
    
    [Field : GatePassTopPartin2L1F1]
    Set as : "GATE PASS"
    Style : MyStyleGat
    Align : Center
    Full Width: yes
    
    [Line : GatePassTopPartin2L2]
    Field : GatePassTopPartin2L2F1,GatePassTopPartin2L2F2,GatePassTopPartin2L2F3,GatePassTopPartin2L2F4
    Border : Thin Bottom
    Height : 9 MM
    Space Top: 3 mm
    
    [Field : GatePassTopPartin2L2F1]
    Set as : "Invoice No.:"
    Style : Large Bold
    Width : 40 mm
    Space Left : 5 mm
    
    [Field : GatePassTopPartin2L2F2]
    Set as : $VoucherNumber
    Style : Large
    Width : 30 mm
    
    [Field : GatePassTopPartin2L2F3]
    Set as : "Date. :"
    Style : Large Bold
    Width : 30 mm
    
    [Field : GatePassTopPartin2L2F4]
    Set as : $Date
    Style : Large
    Width : 30 mm
    
    ;;=======================================================================================================================
    
    
    
    
    [Part : GatePassTopPart2]
    Left Part : GatePassTopPart2Innr
    Right Part : GatePassTopPart2Innr1
    Height : 40 mm
    Width : 220 mm
    Border : Thin Left Right
    
    [Part : GatePassTopPart2Innr]
    ;Line : GatePassTopPart2InnrL1,GatePassTopPart2InnrL2,GatePassTopPart2InnrL3,GatePassTopPart2InnrL4,GatePassTopPart2InnrL5
    ;Line : GatePassTopPart2InnrL1
    Height: 40 mm
    Width : 65 mm
    
    
    
        Lines : PYVCH Company, PYVCH Addr        ;;, PYVCH Email
        Repeat : PYVCH Addr : Company Address
        Local : Field : Simple Field : Align : Centre
        Local : Field : Simple Field : FullWidth : Yes
        ;Style :  MyStyleGat
        ;Full Width : yes
        HorizontalAlign : Centre   
        ;Border : BlueBorderXThick
        Space Top : 1
        Space Bottom : 1
    
    [Line: PYVCH Company]
        Fields : Simple Field
        Local : Field : Simple Field : Set as : ##SVCurrentCompany  ;;"Generation's School (Pvt.) Ltd." ;;##SVCurrentCompany
        ;Local : Field : Simple Field : Style : StyleGSName
    
    [Line: PYVCH Addr]
        Fields : Simple Field
        Local : Field : Simple Field : Set as : if $$Line = $$NumItems then "" else $Address        ;;if $$Line = $$NumItems then "" else $Address
        Local : Field : Simple Field : Border : Thin Bottom : $$Line = $$NumItems
        ;Local : Field : Simple Field : Style : StyleAllText
    
    [Line: PYVCH Email]
        Fields : Simple Field
        Local : Field : Simple Field : Set as : "TIN NO."
        Local : Field : Simple Field : Style : StyleAllText
    ;;*** Company Address ********************************************
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ;[Line : GatePassTopPart2InnrL1]
    ;Field : GatePassTopPart2InnrL1F1
    ;Space Top : 5 mm
    ;Local: Field: GatePassTopPart2InnrL1F1 : Set As : $address
    ;Local: Field: GatePassTopPart2InnrL1F1 : Align : Center
    ;Local: Field: GatePassTopPart2InnrL1F1 : FullWidth : Yes
    ;Local: Field: GatePassTopPart2InnrL1F1 : WideSpaced: Yes
    ;Local: Field: GatePassTopPart2InnrL1F1 : Style : Cmp Style
    
    
    
    
    ;[Field : GatePassTopPart2InnrL1F1]
    
    
    
    ;Set as : "My Company LIMITED"
    ;Style : Large Bold
    ;Full Width: yes
    
    ;[Line : GatePassTopPart2InnrL2]
    ;Field : GatePassTopPart2InnrL2F1
    ;Space Top : 2 mm
    
    ;[Field : GatePassTopPart2InnrL2F1]
    ;Set as : "Plot No. 58,"
    ;Style : Normal
    ;Width : 65 mm
    
    ;[Line : GatePassTopPart2InnrL3]
    ;Field : GatePassTopPart2InnrL3F1
    
    ;[Field : GatePassTopPart2InnrL3F1]
    ;Set as : "Industrial Area,"
    ;Style : Normal
    ;Width : 65 mm
    
    ;[Line : GatePassTopPart2InnrL4]
    ;Field : GatePassTopPart2InnrL4F1
    
    ;[Field : GatePassTopPart2InnrL4F1]
    ;Set as : ""
    ;Style : Normal
    ;Width : 65 mm
    
    ;[Line : GatePassTopPart2InnrL5]
    ;Field : GatePassTopPart2InnrL5F1
    
    ;[Field : GatePassTopPart2InnrL5F1]
    ;Set as : ""
    ;Style : Normal
    ;Width : 65 mm
    
    [Part : GatePassTopPart2Innr1]
    Line : GatePassTopPart2Innr1L1,GatePassTopPart2Innr1L2
    Bottom Line: GatePassTopPart2Innr1L3,GatePassTopPart2Innr1L4,GatePassTopPart2Innr1L5,GatePassTopPart2Innr1L6
    Height : 40 mm
    Width : 130 mm
    Border : Thin Left
    Repeat : GatePassTopPart2Innr1L2:Address
    
    [Line : GatePassTopPart2Innr1L1]
    Field : GatePassTopPart2Innr1L1F1,GatePassTopPart2Innr1L1F2
    
    [Field : GatePassTopPart2Innr1L1F1]
    Set as : "To ,"
    Style : Large Bold
    Width : 10 mm
    
    [Field : GatePassTopPart2Innr1L1F2]
    Set as : if $$IsEmpty:#ATAlias then "" else "(" + #ATAlias + ")"
    Style : Large Bold
    Width : 100 mm
    
    [Line : GatePassTopPart2Innr1L2]
    Field : GatePassTopPart2Innr1L2F1
    
    [Field : GatePassTopPart2Innr1L2F1]
    Set as : $Address
    Style : Normal
    Space Left : 10 mm
    Width : Width : 100 mm
    
    [Line : GatePassTopPart2Innr1L3]
    Field : GatePassTopPart2Innr1L3F1,GatePassTopPart2Innr1L3F2
    Border : Thin Top
    
    [Field : GatePassTopPart2Innr1L3F1]
    Use : Short Prompt
    Set as : "Packed by :"
    Style : Large Bold
    Width : 30 mm
    Border : Thin Bottom
    
    
    [Field : GatePassTopPart2Innr1L3F2]
    Set as : $VATTINNumber:Ledger:$PartyLedgerName
    Style : Large
    Width : 100 mm
    Border : Thin Bottom
    [Line : GatePassTopPart2Innr1L4]
    Field : GatePassTopPart2Innr1L4F1,GatePassTopPart2Innr1L4F2
    
    [Field : GatePassTopPart2Innr1L4F1]
    Use : Short Prompt
    Set as : "No. of Bales :"
    Style : Large Bold
    Width : 30 mm
    Border : Thin Bottom
    
    
    [Field : GatePassTopPart2Innr1L4F2]
    Set as : $InterStatestNumber:Ledger:$PartyLedgerName
    Style : Large
    Width : 100 mm
    Border : Thin Bottom
    
    [Line : GatePassTopPart2Innr1L5]
    Field : GatePassTopPart2Innr1L5F1,GatePassTopPart2Innr1L5F2
    
    [Field : GatePassTopPart2Innr1L5F1]
    Use : Short Prompt
    Set as : "Carted By:"
    Style : Large Bold
    Width : 30 mm
    Border : Thin Bottom
    
    [Field : GatePassTopPart2Innr1L5F2]
    Set as : $BasicShipVesselNo
    Style : Large
    Width : 90 mm
    Border : Thin Bottom
    
    [Line : GatePassTopPart2Innr1L6]
    Field : GatePassTopPart2Innr1L6F1,GatePassTopPart2Innr1L6F2
    
    [Field : GatePassTopPart2Innr1L6F1]
    Use : Short Prompt
    Set as : "Transport :"
    Style : Large Bold
    Width : 30 mm
    
    
    [Field : GatePassTopPart2Innr1L6F2]
    Set as : $BasicShippedBy
    Style : Large
    Width : 90 mm
    
    ;;======================================================================================================================
    [Part : GatePassBodyPart]
    Height : 50 mm
    Width : 220 mm
    Border : Thin Cover
    Line : GatePassBodyPartL1,GatePassBodyPartL2
    Bottom Line : GatePassBodyPartL3
    Common Border: Yes
    Repeat : GatePassBodyPartL2:InventoryEntries
    Total : GatePassBodyPartL2F4,GatePassBodyPartL2F4.1,GatePassBodyPartL2F5
    
    [Line : GatePassBodyPartL1]
    Field: GatePassBodyPartL1F1,GatePassBodyPartL1F3
    Right Field: GatePassBodyPartL1F4,GatePassBodyPartL1F4.1,GatePassBodyPartL1F5
    Height : 8 mm
    Space Top: 2 mm
    Border : Thin Bottom
    
    [Field: GatePassBodyPartL1F1]
    Set as : "Sr. No."
    Style : Normal Bold
    Width : 15 mm
    Align : Center
    
    [Field: GatePassBodyPartL1F3]
    Set as : "Item Description"
    Style : Normal Bold
    Width : 110 mm
    Align : Center
    
    [Field: GatePassBodyPartL1F4]
    Set as : "Quantity"
    Style : Normal Bold
    Width : 35 mm
    Align : Center
    
    [Field: GatePassBodyPartL1F4.1]
    Set as : "Qty (Board)"
    Style : Normal Bold
    Width : 25 mm
    Align : Center
    
    [Field: GatePassBodyPartL1F5]
    Set as : "Value in Rs."
    Style : Normal Bold
    Width : 30 mm
    Align : Center
    
    [Line : GatePassBodyPartL2]
    Field: GatePassBodyPartL2F1,GatePassBodyPartL2F3
    Right Field: GatePassBodyPartL2F4,GatePassBodyPartL2F4.1,GatePassBodyPartL2F5
    Height : 6 mm
    
    [Field: GatePassBodyPartL2F1]
    Set as : $$Line
    Style : Normal
    Width : 15 mm
    Align : Center
    Border : Thin Right
    
    [Field: GatePassBodyPartL2F3]
    Set as : $StockItemName
    Style : Normal
    Width : 110 mm
    
    [Field: GatePassBodyPartL2F4]
    Use : Qty Field
    Set as : $BilledQty
    Style : Normal
    Width : 35 mm
    Align : Right
    Border : Thin Left right
    
    [Field: GatePassBodyPartL2F4.1]
    Use : Number Field
    Align : Right
    Width : 25 mm
    Style : Normal
    Set as : $$String:$ActualQty:Symbol,ShortForm,Secondary
    
    [Field: GatePassBodyPartL2F5]
    Set as : ""
    Style : Normal
    Width : 30 mm
    Align : Right
    Border : Thin Left
    
    [Line : GatePassBodyPartL3]
    Field: GatePassBodyPartL3F1,GatePassBodyPartL3F2,GatePassBodyPartL3F3
    Right Field: GatePassBodyPartL3F4,GatePassBodyPartL3F4.1,GatePassBodyPartL3F5
    Height : 8 mm
    Border : Thin Top
    Space Top: 3 mm
    
    [Field: GatePassBodyPartL3F1]
    Set as : ""
    Style : Normal
    Width : 15 mm
    Align : Center
    
    [Field: GatePassBodyPartL3F2]
    Set as : ""
    Style : Normal
    Width : 90 mm
    Align : Center
    
    [Field: GatePassBodyPartL3F3]
    Set as : "TOTAL"
    Style : Normal Bold
    Width : 20 mm
    Align : Right
    Border : Thin Bottom
    
    [Field: GatePassBodyPartL3F4]
    Use : Qty Field
    Set as : $$Total:GatePassBodyPartL2F4
    Style : Large Bold
    Width : 35 mm
    Align : Right
    Border : Thin Bottom
    
    [Field: GatePassBodyPartL3F4.1]
    Use : Number Field
    Set as : $$Total:GatePassBodyPartL2F4.1
    Style : Large Bold
    Width : 25 mm
    Align : Right
    Border : Thin Bottom
    
    [Field: GatePassBodyPartL3F5]
    Use : Amount Field
    Set as : $Amount
    Style : Large Bold
    Width : 30 mm
    Align : Right
    Border : Thin Bottom
    
    ;;======================================================================================================================
    
    [Part : GatePassLastPart]
    Line : GatePassLastPartL1,GatePassLastPartL2
    Height : 17 mm
    Border : Thin Box
    Width : 220 mm
    
    [Line : GatePassLastPartL1]
    Field : GatePassLastPartL1F1,GatePassLastPartL1F2
    Height : 8 mm
    Border : Thin Bottom
    
    [Field : GatePassLastPartL1F1]
    Set as : "Prepared by :"
    Style : Large Bold
    Width : 80 mm
    Border : Thin Right
    
    [Field : GatePassLastPartL1F2]
    Set as : "Authorising Person :"
    Style : Large Bold
    Width : 60 mm
    
    [Line : GatePassLastPartL2]
    Field : GatePassLastPartL2F1,GatePassLastPartL2F2
    Height : 8 mm
    
    [Field : GatePassLastPartL2F1]
    Set as : "Signature :"
    Style : Large Bold
    Width : 80 mm
    Border : Thin Right
    
    [Field : GatePassLastPartL2F2]
    Set as : "Signature :"
    Style : Large Bold
    Width : 60 mm
    
    ;;======================End Of File =========================
     


  2. Harsh gonekar

    Harsh gonekar New Member



  3. parthiban.M

    parthiban.M Member


    $$ReptField:Name:2:StockItem:$StockItemName

    change it to ledger
     


  4. Harsh gonekar

    Harsh gonekar New Member


    thankyou but i am begainer so can you help how i can change
     


  5. parthiban.M

    parthiban.M Member


    $$ReptField:Name:2:ledger:$ledgername
     


  6. Harsh gonekar

    Harsh gonekar New Member


    [Field : GatePassTopPart2Innr1L1F2]
    Set as :$$ReptField:Name:2:ledger:$ledgername
    Style : Large Bold
    Width : 100 mm
    like that sir
     


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Been away for long time -- not sure if Tally new version supports language -- from what I know about Prime 3.0 versions -- not yet supported.
     
    sattam likes this.


  8. sattam

    sattam Active Member


    welcome back Amit ji
     


  9. Vineet Jindal

    Vineet Jindal Member


    Dear Amit Sir
    Can you pls help me in shares (Stock Market)TDL which is almost ready but filter is not working
    So Can you please help me in filter...
    If you want I can send you the source code with data file on your email
     


Share This Page