कुल पेज दृश्य

शनिवार, 1 जनवरी 2022

Tally Chapter 110 TDL for Custom form to show Temporary Credit Sales Status By Rajiv Mishra Computer Class



 




[Report:TCSS]

Form:TCSS

Object:Company

[Form:TCSS]

Part:TCSS

Height:30% Screen

Width:50% Screen

Background: White

Space Bottom:0

Space Top:0

Space Left:0

Space Right:0

[Part:TCSS]

Part: TCSSPart1,TCSSPart2

Vertical: Yes

[Part: TCSSPart1]

Line:TCSSPart1

Border: Black Double Bottom



[Line:TCSSPart1]

Field:TCSSPart1Fld1

Right Field:TCSSPart1Fld2

[Field:TCSSPart1Fld1]

Use : Name Field

Info : " "

Width : 5% Screen

Border : Red Double Right

Lines : 2


[Field:TCSSPart1Fld2]

Use : Name Field

Info : $$NewLIne+"Temporary Credit Sales Status"

Align : Center

Style : Calibri Large Bold Italic Extra

Color : Black

Full Width : Yes

Lines : 1




[Part:TCSSPart2]

Line:TCSSTitle

Line:TCSS

Repeat:TCSS:TCSSAggr

Break On:$$IsEmpty:$NoteDate

Scroll:Vertical

Common Border: Yes


[Line:TCSSTitle]

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 left

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:TCSS]

Field:TCSS1,TCSS2

Right Field:TCSS3

Border: Thin Bottom

Option:TCSSOpt:$$Line=1



[!Line:TCSSOpt]

Delete:Border

Add:Border:Thin Top Bottom

[Field:TCSS1]

Use : Name Field

Info:""

Width : 5% Screen

Border:Red Double Right


[Field:TCSS2]

Use:Uni Date Field

Storage:NoteDate

Width: 8% Screen

Style : Normal Serif Italic

Color :Blue

;Skip Forward:Not $$IsEmpty:$$Next:#TCSS2

;Skip on:Not $$IsEmpty:#TCSS2

[Field:TCSS3]

Use : Name Field

Storage:TCSS

Full Width: Yes

Skip:$$IsEmpty:$NoteDate

Style : Normal Serif Italic

Color :Blue

; Skip Forward:Not $$IsEmpty:#TCSS3



[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 : 26

Italic : Yes

Bold : Yes


[Border: Grey Thick Right]

Color: Grey

Right : Thick





;;;;;;;;;;;;;;;;;;;;;;;;;Display Report


[Report:TCSSDisplay]

Form:TCSSDisplay

Object:Company

[Form:TCSSDisplay]

Part:TCSSDisplay

Height:50% Screen

Width:50% Screen

Background: WHite

Space Bottom:0

Space Top:0

Space Left:0

Space Right:0

[Part:TCSSDisplay]

Part: TCSSDisplayPart1,TCSSDisplayPart2

Vertical: Yes

[Part: TCSSDisplayPart1]

Line:TCSSDisplayPart1

Border: Red Double Bottom


[Line:TCSSDisplayPart1]

Field:TCSSDisplayPart1Fld1

Right Field:TCSSDisplayPart1Fld2

[Field:TCSSDisplayPart1Fld1]

Use : Name Field

Info : " "

Width : 5% Screen

Border : Red Double Right

Lines : 3


[Field:TCSSDisplayPart1Fld2]

Use : Name Field

Info : $$NewLIne+"TCSS"

Align : Center

Style : Calibri Large Bold Italic Extra

Color : Blue

Full Width : Yes

Lines : 1




[Part:TCSSDisplayPart2]

Line:TCSSDisplayTitle

Line:TCSSDisplay

Repeat:TCSSDisplay:CompanyNoteColl

Scroll:Vertical

Common Border: Yes


[Line:TCSSDisplayTitle]

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:TCSSDisplay]

Field:TCSSDisplay1,TCSSDisplay2

Right Field:TCSSDisplay3

Border: Thin Bottom

Option:TCSSDisplayOpt:$$Line=1



[!Line:TCSSDisplayOpt]

Delete:Border

Add:Border:Thin Top Bottom

[Field:TCSSDisplay1]

Use : Name Field

Info:""

Width : 5% Screen

Border:Red Double Right


[Field:TCSSDisplay2]

Use:Uni Date Field

Set as:$NoteDate

Set Always: Yes

Width: 8% Screen

Style : Normal Serif Italic

Color :Blue

;Skip Forward:Not $$IsEmpty:$$Next:#TCSSDisplay2

;Skip on:Not $$IsEmpty:#TCSSDisplay2

[Field:TCSSDisplay3]

Use : Name Field

Set as:$TCSS

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:TCSSAggr

Fetch:*.*,TCSS,NoteDate





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[#Menu :Gateway of Tally]

Add :Button :Add Note

[Button :Add Note

Title :"TCSS"

Key :Ctrl+A

;Action :Add Note

Action:Alter:TCSS


;;;;;;;;;;;;;;;---------Reports

[#Form:Daybook]

Add:Button:AtEnd:Add Note

;;;;;;;;;;;;;;;---------Reports







;;;;;;;;;;;;;;;;;;----------------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 : "TCSSDisplay"


[System:UDF]

TCSSAggr : Aggregate : 26600

TCSS : String : 26601

NoteDate : Date : 26602

कोई टिप्पणी नहीं:

एक टिप्पणी भेजें

 [#Form: Master Accounting Form] Delete: Bottom Buttons : Master Group, Master Ledger, Master VchType, Blank Button ;, Master Company Operat...