HIDE TDL PATH

Discussion in 'General Discussions' started by auruem, May 17, 2020.

         
  1. auruem

    auruem New Member


    HI SIR HOW TO LOAD TALLY TDL FILE INTERNALLY
    OR IN A HIDDEN MODE....

    AS IT WILL NOT SHOW THE PATH,
    WHERE IT IS LOADED
    WHEN WE PRESS KEY ALT + CTRL + T
    ON GATE WAY OF TALLY
     


  2. Avipul93

    Avipul93 New Member


    [#Button: LocalTDLConfig] ; deactivate f4 manage local tdl for non owners
    Inactive:not $$isowner



    [#Field: PNFNm]
    invisible:yes
     


  3. Avipul93

    Avipul93 New Member


    for load tdls at company load use this
    [System: UDF]
    mydbgrade : Aggregate: 21256
    vgrade1 : String : 21257 ;: Yes
    Atype : String : 28
    sugcredlmt : Amount : 21235
    LEDGRADE : string : 21236
    Gradeactive : Logical : 21001
    skipvchno : Logical : 21002
    activeled1 : Logical: 21003
    deacconfig : Logical: 21004
    halfpginv : Logical: 21005
    showledcon : Logical: 21006
    posmarg:Logical:21007
    deltermandbank:Logical:21008
    deactdlbtn:Logical:21009
    ledcontdis:Logical:21010
    poseditd:Logical:21011
    autogodown:Logical:21012
    st1 : String : 21000
    VCS_HALFPAGEPRINT : Logical : 1500



    [System:Events]
    cmpstart21 : Load Company : TRUE : Call : loadtdl2


    [#Form : CMP Select Action Form]
    On : Form Accept : True:Call : loadtdl2

    [Function:loadtdl2]

    Variable: datpath1:String
    01:Set:datpath1:"\\192.169.0.2\shared folder\TALLY TDLS\final"
    01a : If: $Gradeactive:Company:##SVCurrentCompany equal "yes"
    01b : Load TDL:##datpath1+"\performancereport.TXT"
    01c : Else
    01d : Unload TDL:##datpath1+"\performancereport.TXT"
    01e:End If
    02a : If: $skipvchno:Company:##SVCurrentCompany equal "yes"
    02b : Load TDL:$$String:##datpath1+"\skipvchno.TXT"
    02c : Else
    02d : Unload TDL:$$String:##datpath1+"\skipvchno.TXT"
    02e:End If
    03a : If: $activeled1:Company:##SVCurrentCompany equal "yes"
    04b : Load TDL:$$String:##datpath1+"\activeled.TXT"
    04c : Else
    04d : Unload TDL:$$String:##datpath1+"\activeled.TXT"
    04e:End If
    05a : If: $deacconfig:Company:##SVCurrentCompany equal "yes"
    05b : Load TDL:$$String:##datpath1+"\deacconfigbtn.TXT"
    05c : Else
    05d : Unload TDL:$$String:##datpath1+"\deacconfigbtn.TXT"
    05e:End If
    06a : If: $showledcon:Company:##SVCurrentCompany equal "yes"
    06b : Load TDL:$$String:##datpath1+"\showledcontact.TXT"
    06c : Else
    06d : Unload TDL:$$String:##datpath1+"\showledcontact.TXT"
    06e:End If
    07a : If: $halfpginv:Company:##SVCurrentCompany equal "yes"
    07b : Load TDL:$$String:##datpath1+"\halfpg.TXT"
    07c : Else
    07d : Unload TDL:$$String:##datpath1+"\halfpg.TXT"
    07e:End If
    08a : If: $deltermandbank:Company:##SVCurrentCompany equal "yes"
    08b : Load TDL:$$String:##datpath1+"\termandbankindelnote.TXT"
    08c : Else
    08d : Unload TDL:$$String:##datpath1+"\termandbankindelnote.TXT"
    08e:End If
    09a : If: $posmarg:Company:##SVCurrentCompany equal "yes"
    09b : Load TDL:$$String:##datpath1+"\posmargin.TXT"
    09c : Else
    09d : Unload TDL:$$String:##datpath1+"\posmargin.TXT"
    09e:End If
    10a : If: $deactdlbtn:Company:##SVCurrentCompany equal "yes"
    10b : Load TDL:$$String:##datpath1+"\deaclocaltdlbtn.TXT"
    10c : Else
    10d : Unload TDL:$$String:##datpath1+"\deaclocaltdlbtn.TXT"
    10e:End If
    11a : If: $ledcontdis:Company:##SVCurrentCompany equal "yes"
    11b : Load TDL:$$String:##datpath1+"\showdispart.TXT"
    11c : Else
    11d : Unload TDL:$$String:##datpath1+"\showdispart.TXT"
    11e:End If
    12a : If: $poseditd:Company:##SVCurrentCompany equal "yes"
    12b : Load TDL:$$String:##datpath1+"\posvcheditd.TXT"
    12c : Else
    12d : Unload TDL:$$String:##datpath1+"\posvcheditd.TXT"
    12e:End If
    13a : If: $autogodown:Company:##SVCurrentCompany equal "yes"
    13b : Load TDL:$$String:##datpath1+"\autogodown.TXT"
    13c : Else
    13d : Unload TDL:$$String:##datpath1+"\autogodown.TXT"
    13e:End If


    [#Part: CMP TallyShopFeatures Left]
    Line : re1,re2,re3,re4,re5,re6,re7,re8

    [Line: re1]
    Field : Long Prompt, Logical Field,f1a,f1b
    Local : Field : Long Prompt : Set as : "Enable Performance report: "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : Gradeactive
    Local : Field : f1a : Set as : "Tdl Button : "
    Local : Field : f1a :Use:long prompt
    Local : Field : f1b: Use:logical field
    Local : Field : f1b: Set as :"NO"
    Local : Field : f1b : Storage : deactdlbtn

    [Field:f1a]
    Use:long prompt
    [Field:f1b]
    Use:logical field
    [Line: re2]
    Field : Long Prompt, Logical Field,f1a,f1b
    Local : Field : Long Prompt : Set as : "Skip Vch number : "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : skipvchno
    Local : Field : f1a : Set as : "Show Led Dis Contact:"
    Local : Field : f1a :Use:long prompt
    Local : Field : f1b: Use:logical field
    Local : Field : f1b: Set as :"NO"
    Local : Field : f1b : Storage : ledcontdis

    [Line: re3]
    Field : Long Prompt, Logical Field,f1a,f1b
    Local : Field : Long Prompt : Set as : "Active/Inactive Function : "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : activeled1;poseditd
    Local : Field : f1a : Set as : "POS Vch Edit:"
    Local : Field : f1a :Use:long prompt
    Local : Field : f1b: Use:logical field
    Local : Field : f1b: Set as :"NO"
    Local : Field : f1b : Storage : poseditd

    [Line: re4]
    Field : Long Prompt, Logical Field,f1a,f1b
    Local : Field : Long Prompt : Set as : "Deactive Config Btn : "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : deacconfig
    Local : Field : f1a : Set as : "Auto Godown Select:"
    Local : Field : f1a :Use:long prompt
    Local : Field : f1b: Use:logical field
    Local : Field : f1b: Set as :"NO"
    Local : Field : f1b : Storage : autogodown

    [Line: re5]
    Field : Long Prompt, Logical Field
    Local : Field : Long Prompt : Set as : "Enable halfpg inv"
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : halfpginv

    [Line: re6]
    Field : Long Prompt, Logical Field
    Local : Field : Long Prompt : Set as : "Enable Led Contact : "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : showledcon
    [Line: re7]
    Field : Long Prompt, Logical Field
    Local : Field : Long Prompt : Set as : "Terms and Bank in DelNote : "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : deltermandbank
    [Line: re8]
    Field : Long Prompt, Logical Field
    Local : Field : Long Prompt : Set as : "Active Margin: "
    Local : Field : Logical Field: Set as :"NO"
    Local : Field : Logical Field : Storage : posmarg
     


  4. Avipul93

    Avipul93 New Member


    LET ME KNOW IF YOU NEED ANYTHING.
     


  5. Hardik_9623

    Hardik_9623 New Member


    Sir/Madam please help me with the command to print this GSTIN in invoice.. I need Print command...


    [#Part: LED Contact]
    Add: Line: After: LED Contact: GSTIN

    [Line: GSTIN]
    Field: Short Prompt,GSTIN
    Local: Field: Short Prompt: Set as: "GSTIN: "

    [Field: GSTIN]
    Use: Name Field
    Storage : gstinx
    set always: Yes
    Width: 2 Inch
    Max: 1000

    [system : udf]
    gstinx:string : 500

    ;Display in voucher ..............................

    [#Part: VCHTitle2Left]
    Add:Line:After:VCH Ref:GSTIN.
    [Line: GSTIN.]
    Add: Field: GSTIN.
    Invisible: Not (@@Ispurchase Or @@IsSales)

    [Field: GSTIN.]
    Fields : Simple Prompt, Name Field
    Local : Field : Simple Prompt: Set as : "GSTIN.: "
    Local : Field : name Field : Set as : $gstinx:Ledger:$LedgerName
    Local : Field : Default : Skip : Yes
    Width : @@100%
     


  6. Avipul93

    Avipul93 New Member


    i am not getting what you want , i mean tally prints gstin in sales and purchase , you can enable it using supplementary details and print the same why making new code?
     


  7. Hardik_9623

    Hardik_9623 New Member


    I am using an old version of Tally and i have manually added the GSTIN option in ledger master creation, same i want to print on invoice in buyer section.
     

    Attached Files:



  8. auruem

    auruem New Member


    thanks sir

    its working and useful for the encrypted tdls

    i like to hide the list of tdls when some press ALT + CTRL+ T

    as most of the tdls are in txt forms in the list its easy to see the path

    thanks for the reply
     


  9. auruem

    auruem New Member


    I FOUND THIS CODE SOMEWHERE ON NET IT SHOWS THE TODAY'S TOTAL SALES AND TODAY'S TOTAL PURCHASE

    BUT THE VALUE IS WITHOUT GST

    CAN SOMEONE SUGGENT ME THE WITH GST CODE

    Code:
    [#Line: EI PartyLimit]
    Add : Field : After : EI CurrentBalance : TotSales
    
    [Field : TotSales]
    Invisible : NOT ##CurBalanceFlag or NOT @@IsSales
    Field : Simple Prompt, Amount Field
    Local : Field : Simple Prompt : Info : $$LocaleString:"Today'sTotal Sale:"
    Local : Field : Simple Prompt : Width : 14
    Local : Field : Amount Field : Set as : @@TrsTotSales
    Local : Field : Amount Field : Format : "Symbol,DrCr"
    Local : Field : Amount Field : Set always : Yes
    Local : Field : Amount Field : Color : Blue
    
    [System : Formula]
    TrsTotSales : $$FromValue:$Date:$$ToValue:$Date:$CreditTotals:Group:$$GroupSales
    ;;TrsTotSales : $$ToValue:$Date:$CreditTotals:Group:$$GroupSales
    
    ;;..........www.Learnwells.com.........;;
    
    [#Line: EI PartyLimit]
    Add : Field : After : EI CurrentBalance : TotPurch
    
    [Field : TotPurch]
    Invisible : NOT ##CurBalanceFlag or NOT @@IsPurchase
    Field : Simple Prompt, Amount Field
    Local : Field : Simple Prompt : Info : $$LocaleString:"Today's Total Purchase:"
    Local : Field : Simple Prompt : Width : 14
    Local : Field : Amount Field : Set as : @@TrsTotPurch
    Local : Field : Amount Field : Format : "Symbol,DrCr"
    Local : Field : Amount Field : Set always : Yes
    Local : Field : Amount Field : Color : Blue
    
    ;;..........www.Learnwells.com.........;;
    [System : Formula]
    TrsTotPurch : $$FromValue:$Date:$$ToValue:$Date:$DebitTotals:Group:$$GroupPurchase
    ;;TrsTotPurch : $$ToValue:$Date:$DebitTotals:Group:$$GroupPurchase
     


  10. auruem

    auruem New Member





    [#Part : EXPINV SaleSalesTax]
    Add : Lines : AT END : BUYERGSTN
    Line : BUYERGSTN

    [Line : BUYERGSTN]
    Field : Short Prompt ,Name Field
    Local : Field : Short Prompt: Set As : "Party GST No:"
    Local : Field : Name Field : Set As : $GSTNX:Ledger:$PartyLedgerName

    Local : Field : Name Field : Full width : Yes
    Local : Field : Name Field : Style : Normal
     


Share This Page