Tally Chapter 99 TDL for personal MSG, Reminder Msg, Notes by Rajiv Mishra Computer Class

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

टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class