1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Ledger Closing Balance InWords

Discussion in 'Free Source Codes' started by HVPatel, Mar 10, 2014.

    
Page 1 of 2
  1. HVPatel

    HVPatel Active Member


    Code:
    ;; Shree Ganeshay Namah
;; 10-03-2014
;; This TDL Show Ledger Closing Balance IN WORDS both in Display & Print.
;; Sharing to All tdlexperts Members.
 
[#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
 
[#Line: LV FCThree]
    Add : Left Field : ClBalinWord
   
[Field: ClBalinWord]
    Set as: $$InWords:@@VchClg + @@IfAmtthenOnlystring
   
 
[System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"
 
;; End of File
    Regards
     
    HVPatel, Mar 10, 2014
    #1
    hitarth, tmdmuzammil, nasir and 3 others like this.


  2. laxman

    laxman Member


    verry nice sir if party credit limit show in party ledger ..
     
    laxman, Mar 10, 2014
    #2


  3. HVPatel

    HVPatel Active Member


    Code:
    Set as : $CreditLimit:Ledger:##LedgerName
    Try this,
    Regards
     
    HVPatel, Mar 10, 2014
    #3


  4. bollindia

    bollindia Member


    I don't want to show in printing
     
    bollindia, Mar 13, 2014
    #4


  5. laxman

    laxman Member


    working is fine....
     
    laxman, Mar 13, 2014
    #5


  6. Ajeet Jain

    Ajeet Jain Member


    ;;set string function under this line to show in printing

    [#Line: LV FCTwo]
     
    Ajeet Jain, Jan 23, 2017
    #6


  7. Ajeet Jain

    Ajeet Jain Member


    go on that line and add the field and "set as : $$InWords:(Field Name which you want in string)"
     
    Ajeet Jain, Jan 25, 2017
    #7


  8. Rajsrisrimal

    Rajsrisrimal Member


    Sir ,
    In display its showing correct , but in print mode its printing opening balance in words.
    Please check
     
    Rajsrisrimal, Jan 25, 2017
    #8


  9. Ajeet Jain

    Ajeet Jain Member


    Use below code for printing
    [#Line : LV FCTwo]
    Add : Left Fields : After : DSP VchAcctTitle : LV StringField
    Border : Thin Box
    [Field : LV StringField]
    Use : Name Field
    Set as : $$InWords:mad:@BalanceVchDrCrAmt
     
    Ajeet Jain, Jan 26, 2017
    #9


  10. Ajeet Jain

    Ajeet Jain Member


    Upgrade your tally version to latest 5.5 and above
     
    Ajeet Jain, Jan 27, 2017
    #10


  11. Rajsrisrimal

    Rajsrisrimal Member


    sir
    CAN YOU UPLOAD FULL TDL ONCE AGAIN WITH CORRECTION
     
    Rajsrisrimal, Jan 27, 2017
    #11


  12. ABDUL GAFOOR

    ABDUL GAFOOR New Member


    Sir. It showing opening balance in words.
     
    ABDUL GAFOOR, Jan 28, 2017
    #12


  13. Ajeet Jain

    Ajeet Jain Member


    His required was amount in string
     
    Ajeet Jain, Jan 28, 2017
    #13


  14. Sravankumar Reddy

    Sravankumar Reddy New Member


    Could You Please Repost the TDL with all modifications mentioned. Thanks in advance
     
    Sravankumar Reddy, Apr 9, 2017
    #14


  15. scuba

    scuba Member


    IN PRINTING IT SHOWS OP. BAL PLEASE CORRECT TIA
     
    scuba, Oct 2, 2017
    #15


  16. Vashisth

    Vashisth New Member


    /* Here is the Updated Code */

    [#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode


    [#Line: LV FCthree]
    Add : Left Field:ClBalinWord1
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode

    [Field: ClBalinWord]
    Set as:$$InWords:mad:@VchClg + @@IfAmtthenOnlystring
    Color: Blue
    Style: Large Bold



    [Field: ClBalinWord1]
    Set as:$$InWords:mad:@BalanceVchDrCrAmt + " Only "
    Color: Blue
    Style: Large Bold
    Print FG:Red
    Indent:10
    Width:50% Screen
    Lines:0


    [System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"

    [System: Formula]
    Option:Sysforml:If $$SerialNumber <> 723011111 then yes else no
    ;; End of File

    /* it Shows Closing Balance while print */
     
    Vashisth, Jun 19, 2018
    #16


  17. Vashisth

    Vashisth New Member


    /* Here is the Updated Code */

    [#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode


    [#Line: LV FCthree]
    Add : Left Field:ClBalinWord1
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode

    [Field: ClBalinWord]
    Set as:$$InWords:mad:@VchClg + @@IfAmtthenOnlystring
    Color: Blue
    Style: Large Bold



    [Field: ClBalinWord1]
    Set as:$$InWords:mad:@BalanceVchDrCrAmt + " Only "
    Color: Blue
    Style: Large Bold
    Print FG:Red
    Indent:10
    Width:50% Screen
    Lines:0


    [System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"

    [System: Formula]
    Option:Sysforml:If $$SerialNumber <> 723011111 then yes else no
    ;; End of File

    /* it Shows Closing Balance while print */


    /* Here is the Updated Code */

    [#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode


    [#Line: LV FCthree]
    Add : Left Field:ClBalinWord1
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode

    [Field: ClBalinWord]
    Set as:$$InWords:mad:@VchClg + @@IfAmtthenOnlystring
    Color: Blue
    Style: Large Bold



    [Field: ClBalinWord1]
    Set as:$$InWords:mad:@BalanceVchDrCrAmt + " Only "
    Color: Blue
    Style: Large Bold
    Print FG:Red
    Indent:10
    Width:50% Screen
    Lines:0


    [System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"

    [System: Formula]
    Option:Sysforml:If $$SerialNumber <> 723011111 then yes else no
    ;; End of File

    /* it Shows Closing Balance while print */
     
    Vashisth, Jun 19, 2018
    #17
    nasir likes this.


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Very Nice...keep it up....
     
    Amit Kamdar, Jun 19, 2018
    #18


  19. VINOD RANA

    VINOD RANA New Member


    ITS ERROR ON PRINTING SHOW NOT AN AMOUNT OR NUMBER
     
    VINOD RANA, Jun 20, 2018
    #19


  20. VINOD RANA

    VINOD RANA New Member


    ITS ERROR ON PRINTING SHOW NOT AN AMOUNT OR NUMBER
     
    VINOD RANA, Jun 20, 2018
    #20


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Search your TDLfile..... for "mad"....does it contains any word ->"mad" ??? the mad smiley converts to word MAD.....check it....
     
    Amit Kamdar, Jun 20, 2018
    #21


  22. sathiyaraj

    sathiyaraj Member


    great job....
    In display its showing correct , but in print mode its Not working...
     
    sathiyaraj, Jun 20, 2018
    #22


  23. sathiyaraj

    sathiyaraj Member


    if u don't mind send the source code thanks in advance
     
    sathiyaraj, Jun 20, 2018
    #23


  24. Vashisth

    Vashisth New Member


    /* Brother, its working f9..., Plz check, here is code attached for your ref. */

    [#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode


    [#Line: LV FCthree]
    Add : Left Field:ClBalinWord1
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom:($$LineNumber = $$LastLineNumber ) AND $$InPrintMode

    [Field: ClBalinWord]
    Set as:$$InWords:mad:@VchClg + @@IfAmtthenOnlystring
    Color: Blue
    Style: Large Bold



    [Field: ClBalinWord1]
    Set as:$$InWords:mad:@BalanceVchDrCrAmt + " Only "
    Color: Blue
    Style: Large Bold
    Print FG:Red
    Indent:10
    Width:50% Screen
    Lines:0


    [System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"

    [System: Formula]
    Option:Sysforml:If $$SerialNumber <> 723011111 then yes else no
    ;; End of File
     
    Vashisth, Jun 20, 2018
    #24


  25. Umashankar

    Umashankar Member


    Dear Members, Here is the corrected code:



    /* Here is the Updated Code */

    [#Line: DSP VchClAmt]
    Add : Left Field : ClBalinWord
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom $$LineNumber = $$LastLineNumber ) AND $$InPrintMode


    [#Line: LV FCthree]
    Add : Left Field:ClBalinWord1
    Local : Field : Default: Style: normal bold
    Local : Field : Default: Background: lily white
    Local : Field : Default: Color: Blue
    Border: Thin Top Bottom $$LineNumber = $$LastLineNumber ) AND $$InPrintMode

    [Field: ClBalinWord]
    Set as:$$InWords:mad:@VchClg + @@IfAmtthenOnlystring
    Color: Blue
    Style: Large Bold



    [Field: ClBalinWord1]
    Set as:$$InWords:mad:@BalanceVchDrCrAmt + " Only "
    Color: Blue
    Style: Large Bold
    Print FG:Red
    Indent:10
    Width:50% Screen
    Lines:0


    [System: Formulae]
    IfAmtthenOnlystring : If @@VchClg = 0 Then "" Else $$String:" Only"

    [System: Formula]
    Option:Sysforml:If $$SerialNumber <> 723011111 then yes else no
    ;; End of File

    /* it Shows Closing Balance while print */
     
    Umashankar, Jun 20, 2018
    #25


Page 1 of 2

Share This Page