Tally Chapter 200 TDL for User Login Report By Rajiv Mishra Computer Class

 




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   --------------------"

    

टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class