;; please help me add expired date to this report. I want if expiring date is due, tdl should not work. [#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
