TDL CODE
Tally Chapter 99
[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
[#Form:Daybook]
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 :Default]
[#Menu :Default]
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
[#Form:payment 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
[#Form:payroll Color]
Add:Button:At End:Add Note
[#Form:Debit 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
[#Form:purchase 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
[#Form:physical Stock Color ]
Add:Button:At End:Add Note
[#Form:Delivery 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
[#Form:purc Order Color]
Add:Button:At End:Add Note
[#Form:Attendance Color]
Add:Button:At End:Add Note
[#Form:pOS 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
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें