Hope you would enjoy this code: [Report:AddNote] Form:AddNote Object:Company [Form:AddNote] Part:AddNote Height:100% Screen Width:50% Screen Background: WHite Space Bottom:0 Space Top:0 Space Left:0 Space Right:0 [Part:AddNote] Part: AddNotePart1,AddNotePart2 Vertical: Yes [Part: AddNotePart1] Line:AddNotePart1 Border: Red Double Bottom [Line:AddNotePart1] Field:AddNotePart1Fld1 Right Field:AddNotePart1Fld2 [Field:AddNotePart1Fld1] Use : Name Field Info : " " Width : 5% Screen Border : Red Double Right Lines : 3 [Field:AddNotePart1Fld2] Use : Name Field Info : $$NewLIne+"Add Notes" Align : Center Style : Calibri Large Bold Italic Extra Color : Blue Full Width : Yes Lines : 3 [Part:AddNotePart2] Line:AddNoteTitle Line:AddNote Repeat:AddNote:AddNoteAggr Break On:$$IsEmpty:$NoteDate Scroll:Vertical Common Border: Yes [Line:AddNoteTitle] Field:Short Name Field,SimpleField Right Field:NameField Local:Field:Short Name Field:Info: "" Local:Field:Short Name Field:Width: 5% Screen Local:Field:SimpleField:Info:"Date" Local:Field:SimpleField:Style:Large Bold Italic Local:Field:SimpleField:Border:Grey Thick Right Local:Field:SimpleField:Width: 8% Screen Local:Field:NameField:Info:"Note" Local:Field:NameField:Style:Large Bold Italic Local:Field:NameField:Border: Thin Right Local:Field:NameField:Full Width : Yes Local:Field:NameField:Align: Center Border: Thin Bottom [Line:AddNote] Field:AddNote1,AddNote2 Right Field:AddNote3 Border: Thin Bottom Option:AddNoteOpt:$$Line=1 [!Line:AddNoteOpt] Delete:Border Add:Border:Thin Top Bottom [Field:AddNote1] Use : Name Field Info:"" Width : 5% Screen Border:Red Double Right [Field:AddNote2] Use:Uni Date Field Storage:NoteDate Width: 8% Screen Style : Normal Serif Italic Color :Blue ;Skip Forward:Not $$IsEmpty:$$Next:#AddNote2 ;Skip on:Not $$IsEmpty:#AddNote2 [Field:AddNote3] Use : Name Field Storage:AddNote Full Width: Yes Skip:$$IsEmpty:$NoteDate Style : Normal Serif Italic Color :Blue ; Skip Forward:Not $$IsEmpty:#AddNote3 [Border: Red Double Bottom] Color : Red Bottom : Thin, Double Lined [Border:Red Double Right] Color : Red Right : Thin, Double Lined [Style: Calibri Large Bold Italic Extra] Font : if $$SysInfo:IsWindows then "Calibri" else "Helvetica" Height : 20 Italic : Yes Bold : Yes [Border: Grey Thick Right] Color: Grey Right : Thick ;;;;;;;;;;;;;;;;;;;;;;;;;Display Report [Report:AddNoteDisplay] Form:AddNoteDisplay Object:Company [Form:AddNoteDisplay] Part:AddNoteDisplay Height:100% Screen Width:50% Screen Background: WHite Space Bottom:0 Space Top:0 Space Left:0 Space Right:0 [Part:AddNoteDisplay] Part: AddNoteDisplayPart1,AddNoteDisplayPart2 Vertical: Yes [Part: AddNoteDisplayPart1] Line:AddNoteDisplayPart1 Border: Red Double Bottom [Line:AddNoteDisplayPart1] Field:AddNoteDisplayPart1Fld1 Right Field:AddNoteDisplayPart1Fld2 [Field:AddNoteDisplayPart1Fld1] Use : Name Field Info : " " Width : 5% Screen Border : Red Double Right Lines : 3 [Field:AddNoteDisplayPart1Fld2] Use : Name Field Info : $$NewLIne+"Add Notes" Align : Center Style : Calibri Large Bold Italic Extra Color : Blue Full Width : Yes Lines : 3 [Part:AddNoteDisplayPart2] Line:AddNoteDisplayTitle Line:AddNoteDisplay Repeat:AddNoteDisplay:CompanyNoteColl Scroll:Vertical Common Border: Yes [Line:AddNoteDisplayTitle] Field:Short Name Field,SimpleField Right Field:NameField Local:Field:Short Name Field:Info: "" Local:Field:Short Name Field:Width: 5% Screen Local:Field:SimpleField:Info:"Date" Local:Field:SimpleField:Style:Large Bold Italic Local:Field:SimpleField:Border:Grey Thick Right Local:Field:SimpleField:Width: 8% Screen Local:Field:NameField:Info:"Note" Local:Field:NameField:Style:Large Bold Italic Local:Field:NameField:Border: Thin Right Local:Field:NameField:Full Width : Yes Local:Field:NameField:Align: Center Border: Thin Bottom [Line:AddNoteDisplay] Field:AddNoteDisplay1,AddNoteDisplay2 Right Field:AddNoteDisplay3 Border: Thin Bottom Option:AddNoteDisplayOpt:$$Line=1 [!Line:AddNoteDisplayOpt] Delete:Border Add:Border:Thin Top Bottom [Field:AddNoteDisplay1] Use : Name Field Info:"" Width : 5% Screen Border:Red Double Right [Field:AddNoteDisplay2] Use:Uni Date Field Set as:$NoteDate Set Always: Yes Width: 8% Screen Style : Normal Serif Italic Color :Blue ;Skip Forward:Not $$IsEmpty:$$Next:#AddNoteDisplay2 ;Skip on:Not $$IsEmpty:#AddNoteDisplay2 [Field:AddNoteDisplay3] Use : Name Field Set as:$AddNote Set Always: Yes Full Width: Yes Skip:$$IsEmpty:$NoteDate Style : Normal Serif Italic Color :Blue [Collection:CompanyNote] Type:Company Fetch:.* [Collection:CompanyNoteColl] Source Collection:CompanyNote Walk:AddNoteAggr Fetch:*.*,AddNote,NoteDate ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Menu :Gate way of Tally] Add :Button :Add Note [Button :Add Note] Title :"Add Note" Key :Ctrl+A ;Action :Add Note Action:Alter:AddNote ;;;;;;;;;;;;;;;---------Reports [#Formaybook] Add:Button:AtEnd:Add Note ;;;;;;;;;;;;;;;---------Reports ;;;;;;;;;;;;;;;;;;----------------Menu and Sub Mehnu [#Menu : Accounts Info.] Add :Button :Add Note [#Menu : Groups] Add :Button :Add Note [#Menu : Inventory Info.] Add :Button :Add Note ;;;;;;;;;;;;;;;;;;----------------Menu and Sub Mehnu [System :Form keys] Key :Add Note [System :Menu Keys] Key :Add Note [#Form efault] [#Menu efault] Key :Add Note ;;;;;;;;;;;;;;;--------------------Vouchers [#Form: Stock Journal Voucher ] Add:Button:At End:Add Note [#Form: Physical Stock Voucher ] Add:Button:At End:Add Note [#Form: Attendance Voucher] Add:Button:At End:Add Note [#Form: Normal INV Voucher ] Add:Button:At End:Add Note [#Form: Indent Voucher] Add:Button:At End:Add Note [#Form: JobMaterial Journal Voucher] Add:Button:At End:Add Note [#Form:Contra Color ] Add:Button:At End:Add Note [#Formayment Color ] Add:Button:At End:Add Note [#Form:Receipt Color ] Add:Button:At End:Add Note [#Form:Journal Color ] Add:Button:At End:Add Note [#Formayroll Color] Add:Button:At End:Add Note [#Formebit Note Color] Add:Button:At End:Add Note [#Form:Credit Note Color] Add:Button:At End:Add Note [#Form:Sales Color] Add:Button:At End:Add Note [#Formurchase Color] Add:Button:At End:Add Note [#Form:Memorandum Color ] Add:Button:At End:Add Note [#Form:Reversing Journal Color ] Add:Button:At End:Add Note [#Form:Stock Journal Color ] Add:Button:At End:Add Note [#Formhysical Stock Color ] Add:Button:At End:Add Note [#Formelivery Note Color] Add:Button:At End:Add Note [#Form:Receipt Note Color] Add:Button:At End:Add Note [#Form:Rejection Inward Color ] Add:Button:At End:Add Note [#Form:Rejection Outward Color] Add:Button:At End:Add Note [#Form:Sales Order Color] Add:Button:At End:Add Note [#Formurc Order Color] Add:Button:At End:Add Note [#Form:Attendance Color] Add:Button:At End:Add Note [#FormOS Invoice Color] Add:Button:At End:Add Note [#Form:Indent Color ] Add:Button:At End:Add Note [#Form:JobOrderIn Color] Add:Button:At End:Add Note [#Form:JobOrderOut Color] Add:Button:At End:Add Note ;;;;;;;;;;;;;;;--------------------Vouchers [System: Events] TSPL Smp CmpLoadEvent3 : Load Company : NOT $$IsRemoteCompany : Action : Display : "AddNoteDisplay" [System:UDF] AddNoteAggr : Aggregate : 26600 AddNote : String : 26601 NoteDate : Date : 26602
Excellent ......... But you need to work on the EXIT ........ once the pending item is done, it has to be removed. Make a column field at the end......STATUS....... If status is Yes or Over then by way of function the note will be deleted. OR simply you can filter the same ..... Items with Yes or Over --- not to be included in the display.
Yeah, sure ...didn't came to my mind about this...I will work upon it, thanks for suggestion and guidance for enrichment for this growing bud