Free Code : Ledger Creation History

Hi All..
Jay Here.....
Hope You Will Like This.........

Code:

[#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    :JK LED EnteredBy
        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 Creation Report
;;; ===================================================================================================

[#Menu : Gateway of Tally]
    Add    : Item    : After    : ~Display    : Led Creation - History : Display    : Led Create History

[Report:Led Create History]
Form : Led Create Report

[Form : Led Create Report]
Part :  Create Title
Vertical Align : Top
Height : 60% Screen
Width : 40% Screen


[Part: Log formTitle]
Lines :Create formTitle
Space Bottom : 0.5
Scroll : Vertical

[Line: Create formTitle]
Field: Form Sub Title
Local : Field : Form Sub Title : Set as : "Ledger Create 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 : Create Title]
Line : Create Title_A, Create Title_B
Break On : $$IsEmpty:$LGname
Scroll : Vertical
Common Borders : Yes
Border : Thin Bottom
Repeat:Create Title_B: Create Title Coll

[Line : Create Title_A]
Field:LGnametit, Lgcompnametit, Lgdattit
Local : Field : Default : Background : yellow
Local : Field : Default : Color : Blue
Local : Field : Default : Align : Center
Local : Field : Default : Style: Normal Bold Italic
Local : Field : Default : Delete :Storage
Border : column Titles

[Field : LGnametit]
Use : Name Field
Info : "Ledger Name"
Width: 15


[Field : Lgcompnametit]
Use : Name Field
Info : "User Name"
Width : 25



[Field :Lgdattit]
Use : Name Field
Info : "Creaion Date/Time"
Width : 15




[Line : Create Title_B]
Field : LGname, Lgcompname, Lgdat


[Field : LGname]
Set as :$Name
Use : Name Field
Width : 15
Border : Thin Left
;Storage:LGname

[Field : Lgcompname]
Use : Name Field
Set as : $JKLEDEnteredBy 
Width : 25
Border : Thin Left


[Field :Lgdat]
Use : Name Field
Set as : $JKEnteredDateTime 
Width : 15
Border : Thin Left


[Collection: Create Title Coll]
Type:Ledger
Fetch         :JKLEDEnteredBy,JKEnteredDateTime,Name,*.*
Filter:jkledcreate

[System:Formulae]
jkledcreate: Not $$IsEmpty:$JKLEDEnteredBy ;:Ledger:$Ledgername

[System    :UDF]
    JKLEDEnteredBy                : String        :8600
    JKEnteredDateTime            : String        :8650
    

 

Nice concept

 

very nice

 

you can have one aggregate UDF too...

to store the multiple altered history also

 

good concept sir

 

not work