Few lines are Missing or Changed
Pls watch the full video to get that Missing part and comment us on YOUTUBE .for the changed line
[#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
[#Part : LedOtherDetails]
Switch : LEDRkAlter : Rk LED Alter : $$InAlterMode
[!Part : Rk LED Alter]
Add : Line : At End : Rk LED Alter,RkLEDOld Name,RkLedWht alt
[Line : RkLED Alter]
Field : Medium Prompt,Rk LED Alter,Rk LED Alter DateTime;, Rk Led Old Name
Local : Field : Medium Prompt : Setas : "Altered By:"
Invisible : Yes
[Field : Rk LED Alter]
Use : Name Field
Setas : $$CMPUserName
Storage : RkLEDAlteredBy
;Skip :Yes
[Field : Rk LED Alter DateTime]
Use : Name Field
Width : 15
Set as : ($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime)
Storage : RkAlteredDateTime
;Skip :Yes
[Line : RkLEDOld Name]
Field : Medium Prompt,Rk LED Old Name
Local : Field : Medium Prompt : Setas : "Old Name:"
Invisible : yes
[Field : Rk LED Old Name]
Use : Name Field
Storage : RkLEDOldName
;Set by Condition : $$InCreateMode : $$CMPUserName
Set As : ##OldLedName;$Name
Set Always : Yes
;Skip :Yes
[Line : RkLedWht alt]
Field : Medium Prompt,RkLedWht alt
Local : Field : Medium Prompt : Setas : "What Alteration Done:"
Invisible : NO
[Field : RkLedWht alt]
Use : Name Field
Storage : RkLedWhtalt
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 : LEDRkEnter : Rk LED Enter : Not $$InAlterMode
[!Part :Rk LED Enter]
Add :Line :At ENd :Rk LED Enter
[Line :Rk LED Enter]
Field :Medium Prompt,Rk LED Enter,Rk LED Enter DateTime
Local :Field :Medium Prompt :Setas :"Entered By:"
Invisible :Yes
[Field :Rk LED Enter]
Use :Name Field
Setas :$$CMPUserName
Storage :Rk LED EnteredBy
Skip :Yes
[Field :Rk LED Enter DateTime]
Use :Name Field
width :15
Set as :($$String:$$MachineDate:UniversalDate + $$LocaleString:" at " + $$MachineTime)
Storage :RkEnteredDateTime
Skip :Yes
;;; ===================================================================================================
;;;Ledger Alteration Report
;;; ===================================================================================================
[#Menu:Rajiv's Report]
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:RkLEDAltered
[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=$RkledOldName OR $$IsEmpty:$RkledOldName) 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]
Use : Name Field
Set as : $RkLEDAlteredBy
Width : 25
Border : Thin Left
[Field : CreatedByUser]
Use : Name Field
Set As : $CreatedBy
Width : 25
Border : Thin Left
[Field : LedgerNameOld]
Use : Name Field
Width : 20
Border : Thin Left
Set as : If ($Name=$RkledOldName OR $$IsEmpty:$RkledOldName) Then $$String:"Same as Current Name" Else $RkledOldName
[Field : Usercrtdttm]
Use : Name Field
Set as : $RkEnteredDateTime
Width : 25
Border : Thin Left
[Field : Lgdat]
Use : Name Field
Set as : $RkAlteredDateTime
;Width : 25
Border : Thin Left
[Field : Ledwhtalt]
Use : Name Field
Set as : $RkLedWhtalt
;Width : 25
Border : Thin Left Right
[Collection : RkLEDALTER]
TYPE : Ledger
Childof : $Name
Fetch : RkLEDAlteredBy,CreatedBy,RkAlteredDateTime,RkEnteredDateTime,Name,*.*
[Collection : RkLEDAltered]
Type : Ledger
Fetch : RkLEDAlter,RkLEDAlteredBy,CreatedBy,RkAlteredDateTime,RkEnteredDateTime,Name,*.*;;RkLEDCreatedBy
Filter : RkledAlter
[System : Formulae]
RkledAlter : (Not $$IsEmpty:$RkLEDAlteredby) OR (Not $$IsEmpty:$RkLEDEnteredBy)
[System : UDF]
RkLEDAlter : Aggregate : 8600
RkLEDAlteredBy : String : 8601
RkAlteredDateTime : String : 8602
RkLedOldName : String : 8603
RkLEDEnteredBy : String :8600
RkEnteredDateTime : String :8650
RkLedWhtalt : String : 8604
[#Form : Ledger]
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:RkLEDALTER
090 : Set Target: (Ledger).
110 : Set Value:RkLEDAlteredBy:##LedAltName
120 : Set Value:RkAlteredDateTime:$$String:(##LedAltDate)
160 : Set Target..
170 : Set Target..
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें