Tally Chapter 140 TDL for Hotel Booking By Rajiv Mishra Computer Class
Few lines of the code is missing here. Pls watch the full video for full code.
;;----------Gate way of Taly menu by Rajiv---
[#Menu:Gate Wayof Tally]
;; you can write the menu without space Gatewayoftally--
Add : Item : RajDarbar Room Reservation : Display : RajDarbar
;;--- you can change the item name--
[Report : RajDarbar]
Variable : SVFromDate, SVToDate
Set : SVfromDate : ##SVDate
Set : SVToDate : ##SVCurrentDate
Form : RajDarbar
[Form : RajDarbar]
Parts : DSP Company Name, DSP Company Address
Use : DSP Template
Height : 100% Screen
;;-- you can increase decrees height width lke 50% screen--
Width : 100% Screen
;BackGround : Dodger Blue;Canary Yellow
;; this color is defined belo. You can even type the color name directly here like Red
Space Top : If $$InPrintMode Then 0.5 Else 0 inches
Part : RajDarbar Tit, RajDarbarInformationpart
Button : PrintButton, ExportButton,F2 ChangePeriod
Bottom ToolBar Button : BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12
[Part : RajDarbar Tit]
Line : RajDarbar Tit Line, BkdDate Field
[Line : RajDarbar Tit Line]
Field : RajDarbar Tit Field
[Field : RajDarbar Tit Field]
Use : Name Field
Set as : "RajDarbar Booking"
Align : Center
Width : 100% screen
Style : Large Bold
;Background : Dodger Blue;Viridian
Print FG : Black
Color : Dodger Blue;Canary Yellow
Widespaced : Yes
[Line : BkdDate Field]
Field : Bkd Details Report
[Field : Bkd Details Report]
Use : Name Field
Set as : "Details for the period " + $$String:##SVFromDate +" to "+ $$String:##SVToDate
Width : 100% screen
Align : Center
Style : Normal Bold Italic
;Background : Dodger Blue;Viridian
Print FG : Black
Color : Dodger Blue;Canary Yellow
[Part:RajDarbarInformationpart]
Line : RajDarbar Details ReportcolumnTitles, RajDarbar Details ReportInfo
Repeat : RajDarbar Details ReportInfo : SKC1collection2
Scroll : Vertical
Common Border : Yes
Bottom Line : RajDarbar Details ReportTotals
Total : total1, Advancee, BalancePay
[Line : RajDarbar Details ReportcolumnTitles]
Border : Column Titles
Use : RajDarbar Details ReportInfo
Local : Field:Default:Color:Black
Local : Field:Default:Type: String
Local : Field:Default:Align: Center
Local : Field : SNo2 : Set as: "SR.No"
Local : Field:SNo2:Background:Green
Local : Field : CName: Set as: "Name"
Local : Field:CName:Background:Yellow
Local : Field : RmNo : Set as: "Room No"
Local : Field:RmNo:Background:Green
Local : Field : Advancee: Set as: "Advance"
Local : Field : Advancee:Background : Green
Local : Field : Bkd Date : Set as: "Chk in Date"
Local : Field:Bkd Date:Background:Green
Local : Field : ODate : Set as: "Chk out Date"
Local : Field:ODate:Background:Yellow
Local : Field : Total1 : Set as: "Total"
Local : Field:Total1:Background:Yellow
Local : Field : BalancePay : Set as: "Balance Due"
Local : Field: BalancePay :Background:Yellow
[Line : RajDarbar Details ReportInfo]
Fields: SNo2, Cname, RmNo, Bkd Date, ODate, Total1, Advancee, BalancePay
Border : Thin Top Bottom
Local : Field : Default : Color : If ##ChkinDate > @@ChkoutPayDate Then "Blue" else "black"
Local : Field : Default : Background : If ##ChkinDate > @@ChkoutDate Then "grey" else "canary Yellow"
[Line: RajDarbar Details ReportTotals]
Use : RajDarbar Details ReportInfo
; Fields : SNo1, CName, Bkd Date,Odate,Advancee,RmNo
Local : Field : SNo2 : Set as: ""
; Local : Field : SNo2 : Delete: Border
Local : Field : Cname : Set as: " "
; Local : Field : Cname : Delete: Border
Local : Field : Bkd Date : Set as: ""
; Local : Field : Bkd Date : Delete: Border
Local : Field : RmNo : Set as: ""
; Local : Field : RmNo : Delete: Border
Local : Field : ODate : Set as: ""
; Local : Field : Odate : Delete: Border
Local : Field : Total1 : Set as: $$Total:Total1
; Local : Field : Total1 : Border : Thin Left Right
Local : Field : Advancee : Set as: $$Total:Advancee
; Local : Field : Advancee : Delete: Border
Local : Field : BalancePay : Set as: $$Total:BalancePay
[Field : SNo2]
;Use : Number Field
Set as : $$Line
Width : 5
Style : Normal
Align : Center
Border : Thin Left
[Field :Cname]
Use : Name Field
Set as : $Name
Width : 25
Style : Normal
Border : Thin Left
Option : Alter on Enter
Alter : Ledger
;Variable: Ledger Name
;Display : Premium Paid Statement
[Field : RmNo ]
Use : Name Field
Set as : $Room
Width : 10
Style : Normal
Align : Centre
;Border : Thin Box
;Space Right:0
[Field :Advancee]
Use : Amount Field
Set as :$Advance
Width : 15
Style : Normal Bold
Border : Thin Left right
Align : Right
;BackGround : Green
;Color : Yellow
[Field :BKd Date]
Use : Short Date Field
Set as : $Chkin
Width : 15
Style : Normal
Border : Thin Left
Align : Center
[Field : Odate]
Use : Short Date Field
Set as : $Chkout
Width : 15
Style : Normal
Border : Thin Left
Align : Center
[Field : Total1]
Use : Amount Field
Set as : $Total
Width : 15
Style : Normal Bold
Border : Thin Left Right
Align : Right
[Field : BalancePay]
Use : Amount Field
Set as : $Total - $Advance
Width : 15
Style : Normal Bold
Border : Thin Left Right
Align : Right
[Collection:RajDarbar]
Type : Vouchers : group
Childof : @@GroupHead
Belongs To : Yes
;Fetch : SNo2, CName, Bkd Date,Odate,Advancee
[Collection:SKC1collection2]
Type : Ledger
Child Of : @@GroupHead
Belongs To : Yes
;[Color: yellow green]
; RGB: 154,205,50
;[Color: Canary Yellow]
; RGB: 255,239,0
;[Color: Dodger Blue]
; RGB: 31,159,205
;[Color: Electric Blue]
; RGB: 125,249,255
;[Color: Viridian]
; RGB: 64,130,109
;[Color:caribbean green]
; RGB:0,204,153
[#Part: MST LED Details]
Add : Line : At End: Name,Chkin,Chkout,Advance,Total,Room
[System : Formula]
GroupHead : "Room Reservation"
[Line : Name]
Field : Long Prompt,Name
Local : Field:Long Prompt : Set as : "Name"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Line : Room ]
Field : Long Prompt,Room
Local : Field:Long Prompt : Set as : "Room No"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Line : Advance]
Field : Long Prompt,Advance
Local : Field:Long Prompt : Set as : "Advance"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Line : Chkin]
Field : Long Prompt,Chkin
Local : Field:Long Prompt : Set as : "Check-in"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Line : Chkout]
Field : Long Prompt,Chkout
Local : Field:Long Prompt : Set as : "Check-out"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Line : Total]
Field : Long Prompt,Total
Local : Field:Long Prompt : Set as : "Total"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : Leaf Green
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold
[Field : Name]
Use : Name Field
Storage : Name
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Left
[Field : Chkin]
Use : Uni Date Field
Storage : Chkin
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Left
[Field : Chkout]
Use :Uni Date Field
Storage : Chkout
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Left
[Field : Advance]
Use : Amount Field
Storage : Advance
Fullwidth : Yes
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
[Field : Room]
Use : Number Field
Storage : Room
Fullwidth : Yes
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
Align : Left
[Field : Total]
Use : Amount Field
Storage : Total
Fullwidth : Yes
Color : Red
Background : Released Pale Yellow
Border : Thin Box
Style : Normal Bold
[System : UDF]
Name : String : 2101
Advance : Amount : 2103
Chkin : Date : 2103
Chkout : Date : 2104
Room : Number : 2105
Total : Amount : 2106
;; Happy Ending ----
टिप्पणियाँ
एक टिप्पणी भेजें