Zimmerbelegungsplan

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Gery

Zimmerbelegungsplan

Beitrag von Gery » Mo, 18.02.2013 12:20

Hallo,
ich habe mir für mein kleines Hotel einen Zimmerbelegungsplan erstellt.
Zur Erklärung meiner beigefügten Datei:
Die Zeitachse geht von links nach rechts.
Ganz oben die schmalen Zeilen sind für die Ferienübersicht der einzelnen Bundesländer (Zeile 1-14).
Dann folgt die Datumsanzeige (Zeile 15-17).
Für jeden Tag stehen zwei Spalten zur Verfügung, da ein Zimmer am gleichen Tag für Abreise und erneute Anreise belegt sein kann.
In Spalte A+B sind die vorhandenen Zimmer aufgelistet. Das Plus-Zeichen markiert die Zimmer, die mit einer zusätzlichem Gästebett versehen werden können.
Die vorhandenen Zimmer habe ich hinter jedem Monat erneut eingefügt (vgl. Spalte BM und BN usw.) damit diese auch noch im z.B. im September sichtbar sind.
Für die Belegungsoperationen habe ich mir 4 Makros mit jeweils einer Schaltfläche in deiner neuen Symbolleiste (Buchungen) erstellt.
Buchungsanfrage:
Mit der Maus markiere ich die Felder vom Mittwoch 08 .01.2014 (Anreise) bis Freitag, 10.01.2013 (Abreise) und gehe auf die Schaltfläche Anfrage.
Die markierten Zellen werden verbunden, Rahmen herum, Hintergrund schwarz, Schrift weiß für den Namen.
Reservierung:
Ich markiere das schwarze Feld von Hern Meiern und klicke auf die Schaltfläche Buchung_neu.
Die Hintergrundfarbe wird rot.
Der Gast hat eine Anzahlung geleistet:
Ich markiere das rote Feld von Herrn Meier und klicke auf die Schaltfläche Anzahlung.
Die Hintergrundfarbe wird gelb.
Der Gast hat eingecheckt:
Ich markiere das gelbe Feld von Herrn Meier und klicke auf die Schaltfläche Check_in.
Die Hintergrundfarbe wird grün.
Der Gast hat ausgecheckt:
Ich markiere das grüne Feld von Herrn Meier und klicke auf die Schaltfläche Check_out.
Die Hintergrundfarbe wird grau.
Um eine Buchung zu löschen markiere ich die entsprechende Zelle un klicke auf Buchung_del.
Die verbundenen Zellen werden aufgetrennt und gelöscht.
Leider werden dadurch auch die vor der Buchung eingegebenen Farben für Sa., So., Feiertage sowie die Rahmenlinien gelöscht. Genau das gleiche passiert wenn ich die Buchungszellen auf ein anderes Zimmer oder auf einen anderen Datum verschiebe oder die ursprüngliche Buchungsdauer verkürze.
Im Kommentar der einzelnen Buchungszellen habe ich die Daten des Gastes erfaßt, die ich allerdings nicht weiterverarbeiten kann (Anzahlungsbeleg für die Kasse drucken, Rechnung schreiben).
Was kann ich besser machen? Oder muß ich das ganze auf einer Datenbank aufbauen? Kann ich eine Datenbank für die momentan in den Komentaren reingeschriebenen Informationen auch noch jetzt erstellen?
So und wenn mir jetzt noch einer sagt, wie ich meine Beispieldatei im ods-Format hier d'ranhängen kann, kann man sich das auch noch anschauen.

Gast

Re: Zimmerbelegungsplan

Beitrag von Gast » Mo, 18.02.2013 12:26

Hallo Gery,
Zur Erklärung meiner beigefügten Datei:
?
eine Datei kannst du hier nur dann anhängen,
wenn du im Forum registriert und angemeldet bist.

juetho
******
Beiträge: 617
Registriert: Di, 20.04.2010 15:46
Wohnort: Berlin

Re: Zimmerbelegungsplan

Beitrag von juetho » Mo, 18.02.2013 12:29

Gery hat geschrieben:So und wenn mir jetzt noch einer sagt, wie ich meine Beispieldatei im ods-Format hier d'ranhängen kann, kann man sich das auch noch anschauen.
1. Lies Allgemeine Hinweise zur Forumsbenutzung. Darauf wird in jedem Unterforum oben hingewiesen; wieso ist es so schwer, das zu lesen und zu beachten? :shock:

2. Melde dich an; dann kannst du auch ein Dokument hochladen. (Das steht auch in den Hinweisen.)

Jürgen
Situation: LibO 3.6 auf Win 7 Home Premium (64-bit) mit MySQL (localhost) über JDBC

imogdi
Beiträge: 2
Registriert: Mo, 18.02.2013 09:47

Re: Zimmerbelegungsplan

Beitrag von imogdi » Mo, 18.02.2013 12:40

Jetzt habe ich meinen Belegungsplan beigefügt.
Ich bin wohl registriert, hatte mich aber versehentlich nicht angemldet.
Belegungsplan zum Testen 02.ods
(28.14 KiB) 694-mal heruntergeladen

F3K Total
********
Beiträge: 3136
Registriert: Mo, 28.02.2011 17:49

Re: Zimmerbelegungsplan

Beitrag von F3K Total » Mo, 18.02.2013 18:15

Hallo Gery,
Gery hat geschrieben:Die vorhandenen Zimmer habe ich hinter jedem Monat erneut eingefügt (vgl. Spalte BM und BN usw.) damit diese auch noch im z.B. im September sichtbar sind.
Das kannst Du einfacher haben, klicke in Zelle C1 -> Menü Fenster/Fixieren
Dann bleiben die ersten beiden Spalten stehen wenn Du nach rechts scrollst.

Da du keine Makros mitgeliefert hast, kann dir in den anderen Fällen schwer geholfen werden.

Gruß R

imogdi
Beiträge: 2
Registriert: Mo, 18.02.2013 09:47

Re: Zimmerbelegungsplan

Beitrag von imogdi » Mo, 18.02.2013 19:28

Fenster fixieren kannte ich noch nicht - super.
Wie kann ich Dir die Makros schicken. Ich bin nicht so bewandert.
Reicht Dir die Kopie aus Makros bearbeiten?

Code: Alles auswählen

REM  *****  BASIC  *****

Sub Main

End Sub


sub Buchung_del
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "A"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$DN$20"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())


end sub


sub Anzahlung
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BackgroundColor"
args1(0).Value = 16776960

dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args1())


end sub

sub Check_in
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BackgroundColor"
args1(0).Value = 65280

dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args1())


end sub

sub Check_out
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BackgroundColor"
args1(0).Value = 11776947

dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args1())


end sub

sub Kommentar
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NoteVisible"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:NoteVisible", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DrawText", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())


end sub


sub Anfrage
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(7) as new com.sun.star.beans.PropertyValue
args2(0).Name = "BorderOuter.LeftBorder"
args2(0).Value = Array(0,0,88,0)
args2(1).Name = "BorderOuter.LeftDistance"
args2(1).Value = 0
args2(2).Name = "BorderOuter.RightBorder"
args2(2).Value = Array(0,0,88,0)
args2(3).Name = "BorderOuter.RightDistance"
args2(3).Value = 0
args2(4).Name = "BorderOuter.TopBorder"
args2(4).Value = Array(0,0,88,0)
args2(5).Name = "BorderOuter.TopDistance"
args2(5).Value = 0
args2(6).Name = "BorderOuter.BottomBorder"
args2(6).Value = Array(0,0,88,0)
args2(7).Name = "BorderOuter.BottomDistance"
args2(7).Value = 0

dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "BackgroundColor"
args3(0).Value = 0

dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Color"
args4(0).Value = 16777215

dispatcher.executeDispatch(document, ".uno:Color", "", 0, args4())


end sub

sub Buchung_neu
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BackgroundColor"
args1(0).Value = 16711680

dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Color"
args2(0).Value = 0

dispatcher.executeDispatch(document, ".uno:Color", "", 0, args2())


end sub

Makro-Code in [‌code]…[‌/code]-Tags eingeschlossen und Thema nach »OOo Basic und Java« verschoben—lorbass, Mod

schlauby

Re: Zimmerbelegungsplan

Beitrag von schlauby » Do, 20.07.2017 11:33

hallo,
ich interessiere mich für den Belegungsplan, kann ihn aber, obwohl angemeldet, nicht herunterladen.
Können Sie mir den auch per mail zuschicken.
Danke

Stephan
********
Beiträge: 10056
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Zimmerbelegungsplan

Beitrag von Stephan » Do, 20.07.2017 14:52

schlauby hat geschrieben:
Do, 20.07.2017 11:33
hallo,
ich interessiere mich für den Belegungsplan, kann ihn aber, obwohl angemeldet, nicht herunterladen.
Können Sie mir den auch per mail zuschicken.
Danke
wir (Forumsbetreiber) haben den Plan auch nicht, weil der offensichtlich verloren gegangen ist. Ich werde aber den damaligen Schreiber anmailen und bitten ihn nochmals hochzuladen.

Warte ein wenig (es ist Urlaubszeit) und schaue dann nochmals hier im Thread vorbei.


Gruß
Stephan

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 15 Gäste