;; please help. its given attribute 'On' is not valid for 'report' when loading this tdl file [#Report : Ledger] On : Load : Yes : Call : SetOldLedName Variable : OldLedName [System : Variable] OldLedName [Variable : OldLedName] Type : String Persist : No [Function : Set Old Led Name] 10 : If : $$InAlterMode 20 : Set : OldLedName : $Name 30 : End If ;*/ ;;modifying ledger alteration screen to add lines n fields [#Part : LedOtherDetails] Background:yellow Switch : LEDJKAlter : JK LED Alter : $$InAlterMode [!Part : JK LED Alter] Add : Line : At End : JK LED Alter,JKLEDOld Name,JKLedWht alt ;Repeat:JKLED Alter:Ledger ;Scroll:Vertical [Line : JKLED Alter] Field : Medium Prompt,JK LED Alter,JK LED Alter DateTime;, JK Led Old Name Local : Field : Medium Prompt : Setas : "Altered By:" Invisible : Yes [Field : JK LED Alter] Background:white Use : Name Field Setas : $$CMPUserName Storage : JKLEDAlteredBy Skip :Yes [Field : JK LED Alter DateTime] Use : Name Field Width : 15 Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage : JKAlteredDateTime Skip :Yes [Line : JKLEDOld Name] Field : Medium Prompt,JK LED Old Name Local : Field : Medium Prompt : Setas : "Old Name:" ;Invisible : yes [Field : JK LED Old Name] Use : Name Field Storage : JKLEDOldName ;Set by Condition : $$InCreateMode : $$CMPUserName Set As : ##OldLedName;$Name Set Always : Yes ;Skip :Yes Background:Red [Line : JKLedWht alt] Field : Medium Prompt,JKLedWht alt Local : Field : Medium Prompt : Setas : "What Alteration Done:" Invisible : NO [Field : JKLedWht alt] Use : Name Field Storage : JKLedWhtalt Set As :"" Control : AltEmptyerrormsg:$$IsEmpty:$$Value ;;AND $$InAltermode Set Always : Yes [System : Formula] AltEmptyerrormsg:$$LocaleString:"What You Altered not specified" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;create history;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Part :LedOtherDetails] Switch : LEDJKEnter : JK LED Enter : Not $$InAlterMode [!Part :JK LED Enter] Add :Line :At ENd :JK LED Enter [Line :JK LED Enter] Field :Medium Prompt,JK LED Enter,JK LED Enter DateTime Local :Field :Medium Prompt :Setas :"Entered By:" ;Invisible :Yes [Field :JK LED Enter] Use :Name Field Setas :$$CMPUserName Storage :JKLEDEnteredBy Skip :Yes [Field :JK LED Enter DateTime] Use :Name Field width :15 Set as $$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) Storage :JKEnteredDateTime Skip :Yes ;;; =================================================================================================== ;;;Ledger Alteration Report ;;; =================================================================================================== [#Menu:Gate way of tally] Add : Item : After :Voucher creation Alteration Report : Led Creation Alteration- History : Display : Led Alter History [Report:Led Alter History] Form : Led Alter Report [Form : Led Alter Report] Part : Alter Title Vertical Align : Top Height : 100% Screen Width : 100% Screen Background :"Light Orange" [Part: Log formTitle] Lines : Alter formTitle Space Bottom : 0.5 Scroll : Vertical [Line : Alter formTitle] Field : Form Sub Title Local : Field : Form Sub Title : Set as : "Ledger Alter Report" Local : Field : Form Sub Title : Align : Center Local : Field : Form Sub Title : Fullwidth : yes Local : Field : Form Sub Title : Color : Blue Local : Field : Form Sub Title : Border: Thin Bottom Local : Field : Form Sub Title : Style: Normaluser [Part : Alter Title] Line : Alter Title_A, Alter Title_B Break On : $$IsEmpty:$LGname Scroll : Vertical Common Borders : Yes Border : Thin Bottom Repeat : Alter Title_B:JKLEDAltered [Line : Alter Title_A] Field : LGnametit, LedgerNameOldTit, CreatedByUserTit,Usercrtdttmtit, Lgcompnametit, Lgdattit,Ledwhtalttit Local : Field : Default : Background : yellow Local : Field : Default : color : Maroon;;DarkBlue16Bit Local : Field : Default : Align : Left;Centre Local : Field : Default : Style: Normal Bold ;;Italic Local : Field : Default : Delete :Storage Border : column Titles [Field : LGnametit] Use : Name Field Info : "Ledger Name" Width : 25 [Field : LedgerNameOldTit] Use : Name Field Set As : "Led Name(Old)" Width : 25 [Field : CreatedByUserTit] Use : Name Field Info : "Created By" Width : 25 [Field : Usercrtdttmtit] Use : Name Field Info : "Creation Date/Time" Width : 20 [Field : Lgcompnametit] Use : Name Field Info : "Altered By" Width : 25 [Field : Lgdattit] Use : Name Field Info : "Last Alteration Date/Time" ;Width : 25 [Field : Ledwhtalttit] Use : Name Field Info : "What Alteration Done" ;Width : 25 [Line : Alter Title_B] Field : LGname, LedgerNameOld, CreatedByUser,Usercrtdttm, Lgcompname, Lgdat, Ledwhtalt Option : AlterOnEnter : $$IsLedger Local : Field : Default : color : DarkBlue16Bit Local : Field : LedgerNameOld : color :If ($Name=$JKledOldName OR $$IsEmpty:$JKledOldName) Then "Red" Else "DarkBlue16Bit" Local : Field : Ledwhtalt : color :Maroon Local : Field : Default :Style : Small bold [Field : LGname] Set as : $name Use : Name Field Width : 25 Border : Thin Left Alter:Ledger [Field : Lgcompname] Background:white Use : Name Field Set as : $JKLEDAlteredBy Width : 25 Border : Thin Left [Field : CreatedByUser] Use : Name Field Set As : $JKLEDEnteredBy;CreatedBy Width : 25 Border : Thin Left [Field : LedgerNameOld] Use : Name Field Width : 20 Border : Thin Left Set as : If ($Name=$JKledOldName OR $$IsEmpty:$JKledOldName) Then $$String:"Same as Current Name" Else $JKledOldName [Field : Usercrtdttm] Use : Name Field Set as : $JKEnteredDateTime Width : 25 Border : Thin Left [Field : Lgdat] Use : Name Field Set as : $JKAlteredDateTime ;Width : 25 Border : Thin Left [Field : Ledwhtalt] Use : Name Field Set as : $JKLedWhtalt ;Width : 25 Border : Thin Left Right [Collection : JKLEDALTER] TYPE : Ledger Childof : $Name Fetch : JKLEDAlteredBy,CreatedBy,JKAlteredDateTime,JKEnteredDateTime,Name,*.* [Collection : JKLEDAltered] Type : Ledger Fetch : JKLEDAlter,JKLEDAlteredBy,CreatedBy,JKAlteredDateTime,JKEnteredDateTime,Name,*.*;;JKLEDCreatedBy Filter : jkledAlter [System : Formulae] jkledAlter : (Not $$IsEmpty:$JKLEDAlteredby) OR (Not $$IsEmpty:$JKLEDEnteredBy) [System : UDF] JKLEDAlter : Aggregate : 8600 JKLEDAlteredBy : String : 8601 JKAlteredDateTime : String : 8602 JKLedOldName : String : 8603 JKLEDEnteredBy : String :8600 JKEnteredDateTime : String :8650 JKLedWhtalt : String : 8604 [#Form : Ledger] Background:green On : Form Accept : Yes : CALL : JayLedfunc [Function : JayLedfunc] Variable : LedAltName : String Variable : LedAltDate : String Variable : LedCreateName : String 005 : If : $$InAlterMode 010 : Set Target 020 : Set:LedAltName:$$CMPUserName 050 : Set:LedAltDate$$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime) 080 : Insert Collection Object:JKLEDALTER 090 : Set Target: (Ledger). 110 : Set Value:JKLEDAlteredBy:##LedAltName 120 : Set Value:JKAlteredDateTime:$$String##LedAltDate) 160 : Set Target.. 170 : Set Target.. 175 : Accept Object 180 : EndIf
might not probably work. Certain features are introduced in newer version and might not work in older versions.
Hmmmmm But tally 1.1 is able to shows us Entered By Altered on In day book. I went there and they use system formulas instead of function to retrieve users alteration history. Meaning in 1.1 we have to use system formulas to retrieve users alteration history. Wish someone can guide me using system formulas.