Hotel booking module

but how can i entry

 

Please Use following code Credit goes to original coder

[#Part: MST LED Details]
Add : Line : At End: Name,Address,Chkin,Chkout,Advance,Total2,Room

[System : Formula]
GroupHead : "Hotel"

[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 : "Dodger Blue"
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold

[Line : Address]
Field : Long Prompt,Address
Local : Field:Long Prompt : Set as : "Address"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : "Dodger Blue"
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 : "Dodger Blue"
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 : "Dodger Blue"
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 : "Chkin"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : "Dodger Blue"
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 : "Chkout"
Invisible : $Parent! = @@GroupHead
;Invisible : Not ($$IsBelongsTo:$$GroupInvestments)
Local : Field : Long Prompt : Color : white
Local : Field : Long Prompt : Background : "DodgerBlue"
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold


[Line : Total2]
Field : Long Prompt,Total2
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 : "Dodger Blue"
Local : Field : Long Prompt : Border : Thin Box
Local : Field : Long Prompt : Style : Tiny Bold

[Field : Name]
Use : Name Field
Storage : Name
;Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Right

[Field : Address]
Use : Address Field
Storage : Address
;Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Right

[Field : Chkin]
Use : Uni Date Field
Storage : Chkin
Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Right

[Field : Chkout]
Use :Uni Date Field
Storage : Chkout
Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold
Fullwidth : Yes
Align : Right

[Field : Advance]
Use : Amount Field
Storage : Advance
Fullwidth : Yes
Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold

[Field : Room]
Use : Number Field
Storage : Room
Fullwidth : Yes
Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold
Align : Right

[Field : Total2]
Use : Amount Field
Storage : Total2
Fullwidth : Yes
Color : Blue
Background : Electric Blue
Border : Thin Box
Style : Normal Bold



[System : UDF]
Name : String : 2101
Address : Number : 3101
Advance : Amount : 2103
Chkin : Date : 2103
Chkout : Date : 2104
Room : Number : 2105
Total2 : Amount : 2106


[#Menu:Gate Wayof Tally]
Add : Item : Hotel : Display : Hotel


[Report : Hotel]

Variable : SVFromDate, SVToDate
Set : SVfromDate : ##SVDate
Set : SVToDate : ##SVCurrentDate
Form : Hotel

[Form : Hotel]
Parts : DSP Company Name, DSP Company Address
Use : DSP Template
Height : 100% Screen
Width : 100% Screen
;BackGround : Dodger Blue;Canary Yellow
Space Top : If $$InPrintMode Then 0.5 Else 0 inches
Part : Hotel Tit, HotelInformationpart
Button : PrintButton, ExportButton,F2 ChangePeriod
Bottom ToolBar Button : BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12

[Part : Hotel Tit]
Line : Hotel Tit Line, BkdDate Field

[Line : Hotel Tit Line]
Field : Hotel Tit Field

[Field : Hotel Tit Field]
Use : Name Field
Set as : "Hotel 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:HotelInformationpart]
Line : Hotel Details ReportcolumnTitles, Hotel Details ReportInfo
Repeat : Hotel Details ReportInfo : SKC1collection
Scroll : Vertical
Common Border : Yes
Bottom Line : Hotel Details ReportTotals
Total : total1, Advancee, BalancePay

[Line : Hotel Details ReportcolumnTitles]
Border : Column Titles
Use : Hotel Details ReportInfo
Local : Fieldefault:Color:Black
Local : Fieldefault:Type: String
Local : Fieldefault:Align: Center
Local : Field : SNo1 : Set as: "SR.No"
Local : Field:SNo1:Background:Green
Local : Field : CName: Set as: "Name"
Local : Field:CName:Background:Yellow
Local : Field : CAddress : Set as:"Address"
Local : Field : CAddress :Background : Green
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 : Hotel Details ReportInfo]
Fields: SNo1, Cname, CAddress, 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: Hotel Details ReportTotals]

Use : Hotel Details ReportInfo
; Fields : SNo1, CName, Bkd Date,Odate,Advancee,RmNo
Local : Field : SNo1 : Set as: ""
; Local : Field : SNo1 : Delete: Border
Local : Field : Cname : Set as: " "
Local : Field : CAddress : 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 : SNo1]
;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 :CAddress]
Use : Name Field
Set as : $Address
;Set Always:$$Name
Width : 40
Style : Normal
Border : Thin Left
Option : Alter on Enter
;Alter : Ledger
;Variable: Ledger Name

[Field : RmNo ]
Use : Name Field
Set as : $Room
Width : 10
Style : Normal
Align : Centre
Border : Thin left right
;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 : $Total2
Width : 15
Style : Normal Bold
Border : Thin Left Right
Align : Right

[Field : BalancePay]
Use : Amount Field
Set as : $Total2 - $Advance
Width : 15
Style : Normal Bold
Border : Thin Left Right
Align : Right

[Collection:Hotel]
Type : Vouchers : group
Childof : @@GroupHead
Belongs To : Yes
;Fetch : SNo1, CName, Bkd Date,Odate,Advancee

[Collection:SKC1collection]
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

;; EOF

 

its working but how can i input not showing enything

 

no option of room number/ch. in /out/ etc
like that create room/ch. in /out/ etc

 

sir ji plz help

 

Dear@sanjay Manna

Creat Group "hotel" Under Sundry Debtors, then Creat Ledger under hotel then you can see all options.

 

THANK YOU SIR

 

BUT VOUCHER ENTRY NOT ADJUSTED
HOW CAN I PROVIDE THEM BILL

 

BUT VOURCHAR ENTRY NOT ACCEPTED

 

Base on Ledger Master not a Accounting Voucher

 

wonderful report sir
But Date checkout"18-04-2017"- Date Checkin"10-04-2017" equal to "9" not "8"

 

sir, can anyone tell me POS Voucher me Alteration k liye konsa form use hoga, m bus abi sekh raha hu so please help me

 

In hotel business it is 8 chargeable days......... after their checkout time it is next chargeable day.

e.g. if one books a hotel room for 1 day....and checks in on 10th and checks out on 11th... it is 1 day and not 2 day.

So computation by AmitSir and BipinSir is correct.

 

Thank for reply
I have no hotel Business idea so I calculated as we calculate Interest Days for outstanding

Can you Provide me Field Description & Udf Value for No. of Days I am Facing Problem with No. of Days Field for example not proper calculating and incorrect Storage, I hope you solve it thanks

 

Thank your sir,
As per your Guldens I prepare this type of Hotel booking report, if any thing missing Please Suggest me , Suggestions are always welcomes.

 

1)Amount align right 2)balance due paid date column 3)customer ID like Pan No. Driving Liacence No

 

c

hello sir
can you send me sample data file hotel management tdl using. at my mail id trustmeburma@gmail.com