Zimmerbelegungsplan

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

Moderator: Moderatoren

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

Re: Zimmerbelegungsplan

Beitrag von juetho »

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 »

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) 1131-mal heruntergeladen
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Zimmerbelegungsplan

Beitrag von F3K Total »

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 »

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
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Zimmerbelegungsplan

Beitrag von Stephan »

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