Some lines are Missing here.
Please watch the video to get full coding.
[#Menu : Gateway of Tally]
Item : My Reports : Display : Login Report : NOT $$IsEmpty:$$SelectedCmps
[Style: Normaluser]
Use : Normal Bold
Height : 12
Italic : Yes
;;=============================== Login Report ===================================;;
[Report : Login Report]
Form : Login Report
[Form : Login Report]
Part : Log Title,;; Log formDetail
;Horizontal Align: Center
Vertical Align : Top
Height : 60% Screen
Width : 40% Screen
[Part: Log formTitle]
Lines :Log formTitle
Space Bottom : 0.5
Scroll : Vertical
[Line: Log formTitle]
Field: Form Sub Title
Local : Field : Form Sub Title : Set as : "User Login 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 : Log Title]
Line : Log Title_A, Log Title_B
Break On : $$IsEmpty:$LGname
Scroll : Vertical
Common Borders : Yes
Border : Thin Bottom
Repeat:Log Title_B: Log Title Coll
[Line : Log Title_A]
Field:LGnametit, Lgcompnametit,Lgstatustit, Lgdattit, Lgtimtit
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 : "User Name"
;Border : Thin Left
Width: 15
;Skip : Yes
;Storage:LGname
[Field : Lgcompnametit]
Use : Name Field
Info : "Company"
Width : 25
;Border : Thin Left
;Storage:Lgcompname
[Field : Lgstatustit]
Use : Name Field
Info : "Status"
Width : 15
;Border : Thin Left
;Storage:Lgstatus
[Field :Lgdattit]
Use : Uni Date Field
Info : "Login Date"
Width : 15
;Border : Thin Left
[Field :Lgtimtit]
Use:Name Field
Align : Right
Info : "Login Time"
Width : 15
;Border : Thin Left Right
[Line : Log Title_B]
Field : LGname, Lgcompname,Lgstatus, Lgdat, Lgtim
;Right Field :
[Field : LGname]
Use : Name Field
;Set as : $LGname
;Set Always : Yes
Width : 15
Border : Thin Left
;Skip : Yes
Storage:LGname
[Field : Lgcompname]
Use : Name Field
Set as : $Lgcompname;$$OwnerCompany
Width : 25
Border : Thin Left
;Storage:Lgcompname
[Field : Lgstatus]
Use : Name Field
Set as : $Lgstatus
Width : 15
Border : Thin Left
;Storage:Lgstatus
[Field :Lgdat]
Use : Uni Date Field
Set as : $Lgdat
Width : 15
Border : Thin Left
[Field :Lgtim]
Use:Name Field
Align : Right
Set as :$Lgtim
Width : 15
Border : Thin Left Right
[Collection: Log Title Coll]
Type : LgAgg : Company
Childof : ##SVCurrentCompany
Fetch : *, *.*
/*Fetch : UserName , CompanyName, Date, Time
Compute : Owner Company : $$LoopCollObj:$Name*/
[System:UDF]
LgAgg :Aggregate : 2962
LGname :String : 1561
Lgcompname :String : 1562
Lgstatus :String : 1563
Lgdat :Date : 1564
Lgtim :String : 1565
[Function: lGFUNC]
01:Call: logfunction
;02:Call: forlog
[Function: Log Function]
Variable : Usname :String
Variable : comname :String
Variable : lgstat :String
Variable : lgdat :Date
Variable : lgtim :String
Object : Company : ##SvCurrentCompany
010 : Set Target
020 : Set:Usname:##SVUserName
030 : Set:comname:@@cmpmailname
040 : Set:lgstat: $$LocaleString:"Login"
050 : Set:lgdat:$$Date:$$MachineDate
060 : Set:lgtim:$$String:$$MachineTime
080 : Insert Collection Object:LgAgg
090 : Set Target:LgAgg
110 : Set Value:LGname:##usname
120 : Set Value:Lgcompname:##comname
130 : Set Value:Lgstatus:##lgstat
140 : Set Value:Lgdat:##lgdat
150 : Set Value:Lgtim:##lgtim
160 : Set Target..
170 : Set Target..
175 : Accept Alter
[Function: forlog]
00 : SET FILE LOG ON
10 : WALK COLLECTION : Log Title Coll
15 : LOG : "Walk begins here --------------------"
20 : LOG : "Is First Object : " + $$String:$$IsFirstObj
30 : LOG : "Is Last Object : " + $$String:$$IsLastObj
40 : LOG : "First Object : " + $$FirstObj:$LGname
50 : LOG : "Last Object : " + $$LastObj:$LGname
60 : IF : NOT $$IsEmpty:$$PrevObj:$LGname
70 : LOG : "Previous Object : " + $$PrevObj:$LGname
80 : ENDIF
90 : LOG : "Current Object : " + $LGname
100 : IF : NOT $$IsEmpty:$$NextObj:$LGname
110 : LOG : "Next Object : " + $$NextObj:$LGname
120 : ENDIF
125 : LOG : "Walk ends here --------------------"
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें