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
Sir , In display its showing correct , but in print mode its printing opening balance in words. Please check
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@BalanceVchDrCrAmt
/* 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@VchClg + @@IfAmtthenOnlystring Color: Blue Style: Large Bold [Field: ClBalinWord1] Set as:$$InWords@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@VchClg + @@IfAmtthenOnlystring Color: Blue Style: Large Bold [Field: ClBalinWord1] Set as:$$InWords@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@VchClg + @@IfAmtthenOnlystring Color: Blue Style: Large Bold [Field: ClBalinWord1] Set as:$$InWords@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 */
Search your TDLfile..... for "mad"....does it contains any word ->"mad" ??? the mad smiley converts to word MAD.....check it....
/* 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@VchClg + @@IfAmtthenOnlystring Color: Blue Style: Large Bold [Field: ClBalinWord1] Set as:$$InWords@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
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@VchClg + @@IfAmtthenOnlystring Color: Blue Style: Large Bold [Field: ClBalinWord1] Set as:$$InWords@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 */