Hotel booking module

Good....keep it up.....

Suggestions:
a. Add # of days... difference between checkin and checkout. (Use my time difference module)
b. Add Room Tariff column. Based on # of days it will multiply by Room Tariff and gives you Total.

Remove total from Ledger Master and add Room Tariff there.

Am sure you can do it........try and have success.

 

Apply your mind.... neccesity is the mother of invention.....

Same way u made this code... it is not that hard... u just need to tweak your already existing code.....just as u added column....add additional column.... and from ledger master remove total amount and instead put room tariff field.

You can do it.....no complicated issues here....so go ahead and try.....

Formulas are also simple....
from this date deduct that date.....
Room Tariff x # of days will give u total amount.........
Total Amount minus Advance = Balance........

 

As you can see from the attached screenshot... it is working fine.... and maybe you might NOT be using the updated TDL.... So read the forum messages carefully and load the updated file.

If you are using the update file.... it is obvious u have made some changes on your own. ...If so, then please solve it yourself...

as what has been updated here...it is working fine....we have no issues.

So check and double check and then use the TDL.... we have no problems with the totals.

 

It is attached in Post # 1 Above.... am using the same file.

 

As you can see from the attached picture...it is working fine....the TOTALS are showing................ it is a current image..........

 

Code:

[#Part: MST LED Details]
Add : Line : At End: Name,Chkin,Chkout,Advance,Total,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 : 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 : 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 : "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 : 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 : Total]
    Use        :  Amount Field
    Storage     : Total
    Fullwidth    : Yes
    Color         : Blue
    Background     : Electric Blue
    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


[#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 : SKC1collection2
    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    : 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 : Hotel 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: Hotel Details ReportTotals]

    Use : Hotel 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:Hotel]
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

;; EOF

 

Wah Bipinbhai.... you have become a 7 star Hotelier.........
Adani, Ambani and Tata ..........

 

Disable all the Background and Font Colors and try again......... Or else.......... activate the colors which has been commented out at the bottom.