New Field for storing Feeding date

Add a new field in voucher for storing feeding date which is invisible and in Day book user can filter the data for feeding date which is assign with a Button which is active only to Owner

;;---------------- UDFs----------------------------------

[System : UDF]
UDF_RBPLFeedDate : Date: 8000

;;---------------- Voucher Level Changes ----------------

[#Field: VCH Date]
Add : Fields: Before: Plain VCH Date : _FeedDate_Fld

[Field :_FeedDate_Fld]
Use : Uni Date Field
Set as : $$MachineDate
Storage : UDF_RBPLFeedDate
width : @@VCHDateWidth
Type : Date : Forced
SetAlways : Yes
Invisible : Yes ;;$$CmpUserLevel Not = "Owner"

;;---------------- Report Level Changes ----------------

[#Line: DSP VchDetail]
Add : Fields: Before: DSP VchDate : Dsp_FeedDate_Fld

[Field: Dsp_FeedDate_Fld]

Use : Short Date Field
Set as : $UDF_RBPLFeedDate
Style : Normal
Align : Right
Invisible : $$CmpUserLevel Not = "Owner"

;;---------------- Filteration level Changes ----------------
[#Form: Day Book]
Add : Button : MyDateFltBtn

[Button : MyDateFltBtn]
Action : Execute : MyDateFltRep
Title : $$LocaleString:"Feed Date"
Key : Alt + F3
InActive : $$CmpUserLevel Not = "Owner"

[Report : MyDateFltRep]
Form : MyDateFltFrm
Title : $$LocaleString:"Feed Date Period"

[Form : MyDateFltFrm]
Part : MyDateFltPrt

[Part : MyDateFltPrt]
Line : MyDateFltLn1, MyDateFltLn2

[Line : MyDateFltLn1]
Field : Short Prompt, DtEntered1
Local : Field : Short PRompt : Info : "From Date :"

[Field : DtEntered1]
Use : Short Date Field
Variable : MyDateTypeVari1
Modifies : MyDateTypeVari1
Set Always : No

[Line : MyDateFltLn2]
Field : Short Prompt, DtEntered2
Local : Field : Short PRompt : Info : "To Date :"

[Field : DtEntered2]
Use : Short Date Field
Variable : MyDateTypeVari2
Modifies : MyDateTypeVari2
Set Always : No

[Variable : MyDateTypeVari1]
Type : Date
Persistent : No

[Variable : MyDateTypeVari2]
Type : Date
Persistent : No


[#Collection : Vouchers of Company]

Add : Filter : FeedDateFilter

[System : Formula]

FeedDateFilter : If $$IsEmpty:##MyDateTypeVari1 Then +
$UDF_RBPLFeedDate >= ##MyDateTypeVari1 +
Else +
$UDF_RBPLFeedDate >= ##MyDateTypeVari1 AND $UDF_RBPLFeedDate <= ##MyDateTypeVari2

[System : Variable]

MyDateTypeVari1 : $$Date
MyDateTypeVari2 : $$Date

TDL for adding address column in columnar report:


[#Line: DSP ColVchDetail]
Add : Fields: Before: DBC VchNo : DBC Address1, DBC Address2, DBC Address3, DBC Address4, DBC Address5

[Field: DBC Address1]

Use : Name Field
Set as : $$FullList:Address:$_Address1:Ledger:@@FilterPartyName
Style : Normal
Align : Left
Scroll : Yes
Border : Thin Left
Invisible : NOT ##COLREGWithAddress

[Field: DBC Address2]

Use : Name Field
Set as : $$FullList:Address:$_Address2:Ledger:@@FilterPartyName
Style : Normal
Align : Left
Scroll : Yes
Border : Thin Left
Invisible : NOT ##COLREGWithAddress

[Field: DBC Address3]

Use : Name Field
Set as : $$FullList:Address:$_Address3:Ledger:@@FilterPartyName
Style : Normal
Align : Left
Scroll : Yes
Border : Thin Left
Invisible : NOT ##COLREGWithAddress

[Field: DBC Address4]

Use : Name Field
Set as : $$FullList:Address:$_Address4:Ledger:@@FilterPartyName
Style : Normal
Align : Left
Scroll : Yes
Border : Thin Left
Invisible : NOT ##COLREGWithAddress

[Field: DBC Address5]

Use : Name Field
Set as : $$FullList:Address:$_Address5:Ledger:@@FilterPartyName
Style : Normal
Align : Left
Scroll : Yes
Border : Thin Left
Invisible : NOT ##COLREGWithAddress

;;--------- Title-----------

[#Line: DSP ColVchTitle]
Local : Field : DBC Address1 : Set as : $$LocaleString:"Address1"
Local : Field : DBC Address2 : Set as : $$LocaleString:"Address2"
Local : Field : DBC Address3 : Set as : $$LocaleString:"Address3"
Local : Field : DBC Address4 : Set as : $$LocaleString:"Address4"
Local : Field : DBC Address5 : Set as : $$LocaleString:"Address5"

;;--------- Switch----------

[#Part: CMP COLBasics]
Add : Lines : At Beginning : COLREGWithAddress

[Line: COLREGWithAddress]

Fields : Medium Prompt, COLREGWithAddress
Local : Field : Medium Prompt : Info : $$LocaleString:"Show Party Address ?"

[Field: COLREGWithAddress]

Use : Logical Field
Modifies: COLREGWithAddress

[System: Variables]

COLREGWithAddress : No

[Variable: COLREGWithAddress]

Type : Logical
Persistent : Yes