Tally Chapter 202 TDL for Voucher History By Rajiv Mishra Computer class

 

Few lines are missing Here.

Pls Watch the lesson video to get full coding

[Field: CMP UsrNameFld]

            Use         : Logical Field

            Type         : Logical:Forced

            Storage     : IsUserPrintOn

            Set always     : Yes

[#Part: VCH Narration]

    Add : Switch    : CrtDtTime    : VCHCrDtTm

   

[!Part: VCHCrDtTm]

    Add : Lines     : CrDtTm, AltDtTm

   

[Line: CrDttm]

    Field:Medium Prompt, CrDtTmFld

    Local:Field:Medium Prompt:Set as:"Created By"

   

   

[Field:CrDtTmFld]

    Option:CrDtTmFld1:$$InCreateMode

    Storage:CrDtTm

    Read Only:Yes

    Skip :Yes

   

[!Field:CrDtTmFld1]

    Use:Name Field

    Set as: $$CmpUserName + " On  " + $$String:$MachineDate + " @ " + $$String:$$MachineTime

    Set Always:Yes

    Read Only:Yes

    Skip :Yes

   

[Line:AltDtTm]

    Field:Medium Prompt, AltDtTmFld

    Local:Field:Medium Prompt:Set as:"Alterred By"

   

[Field:AltDtTmFld]

    Option:AltDttmFld1:@@MJRMode

    Storage:AltDtTm

    Read Only:Yes

    Skip :Yes

   

[!Field:AltDtTmFld1]

    Use:Name Field

    Set as: $$CmpUserName + " On  " + $$String:$MachineDate + " @ " + $$String:$$MachineTime

    Set Always:Yes

    Read Only:Yes

    Skip :Yes

   

[System:Formula]

    MJRMode: $$InAlterMode And   Not $$InCreateMode

   

[#Part: Led Other Details]

    Add : Lines : At End: CrDtTm, AltDtTm

   

[System: UDF]

    CrDttm        : String    : 1327

    AltDtTm     : String    : 1329

[Line: MJRNameLine1]

        Field : Short Prompt, Name Field

        Local : Field : Short Prompt : Info         : "Entered By"

        Local : Field : Short Prompt : Invisible    : $$InPrintMode

        Local : Field : Short Prompt : Inactive     : If @@checkUser OR NOT @@IsCmpUserOn Then Yes Else No

        Local : Field : Name Field      : Set As         : $CrDttm

        Local : Field : Name Field      : Invisible    : $$InPrintMode

        Local : Field : Name Field      : Inactive     : If @@checkUser OR NOT @@IsCmpUserOn Then Yes Else No

        Local : Field : Default         : Style         : Normal Bold Italic

       

[Line:MJRNameLine2]

        Field : Short Prompt, Name Field

        Local : Field : Short Prompt : Info         : "Altered By"

        Local : Field : Short Prompt : Invisible    : $$InPrintMode

        Local : Field : Short Prompt : Inactive     : If @@checkUser OR NOT @@IsCmpUserOn Then Yes Else No

        Local : Field : Name Field      : Set As         : $AltDttm

        Local : Field : Name Field      : Invisible    : $$InPrintMode

        Local : Field : Name Field      : Inactive     : If @@checkUser OR NOT @@IsCmpUserOn Then Yes Else No

        Local : Field : Default         : Style         : Normal Bold Italic

[#Part: PPR Sign]

    Add : Lines : At End : MJRNameLine1, MJRNameLine2

[#Part: PJR Sign]

    Add : Lines : At End : MJRNameLine1, MJRNameLine2

[#Part: PJR Sign]

    Add : Lines : At End : MJRNameLine1, MJRNameLine2

[#Part: PSV Sign]

    Add : Lines : At End : MJRNameLine1, MJRNameLine2

[#Part: EXPINV Jurisdiction]

    Invisible : No

    Add : Lines : At End : MJRNameLine1, MJRNameLine2

[#Form: Normal INV Voucher]

    Local : Part : VCH Narration : Add : Lines : At End : MJRNameLine1, MJRNameLine2

   

[#Line : PRCT ChqRealisation]

    Delete:Space Top

    Add:Space Top:0.3

   

[#Part: PRCT Sign]

    Add:Lines:At End:MJRNameLine1, MJRNameLine2

   

[#Part: PRCT Sign]

    Delete:Space Top

    Add:SpaceTop: 2