OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Dobrý den.

Chtěl bych Vás požádat o radu. Mám databázi, kde mám tabulky jako "seznam firem", "kontakty", "zásilky" aj. a dělám formulář (nad tabulkou zásilek), kde bych rád použil "Kombinované pole" zobrazující prvně hodnoty z tabulky firmy (ID nebo Název firmy) a níže druhé "Kombinované pole" zobrazující kontakty, které této firmě jsou podřízeny -> abych viděl jen lidi spadající pod firmu zadanou v prvním "Kombinovaném poli".
Nevím, zda je možné to řešit jakoby podformulářem, který by byl závislý na hodnotě zadané firmy, ale aby když si následně ten kontakt vyberu jej to uložilo pod tu původní tabulku (např. zásilky).

Budu rád za každou možnou radu a v případě, že by jste něco nevěděli, klidně zodpovím přesněji.

Děkuji předem.

Zdravím Vás.

Rád bych Vás požádal o radu. Mám databázi, kde mám x polí a mezi nimi i pole typu Date [DATE]. Potřeboval bych vytvořit dotaz na tuto tabulku a filtrovat data, která budou splňovat určité podmínky. Např. jestliže zadané datum bude menší než aktuální datum-14dní aby mi je to zobrazilo. Nevím jak mám nastavit do dotazu funkci něco jako =Today aj.

Vytvářet dotazy, kde budu mít přímo datum vypsané mi nepřipadá úplně ideální:

SELECT * FROM "Reklamace_STB" WHERE "datum_prijeti" <= {D '2011-11-18' }

Potřeboval bych, zda by jste mi prosím mohli pomoci, jak upravit dotaz, nebo zda přímo formulář dokáže nějakou funkcí (makrem po spuštění tlačítka) vytřídit a zobrazit data jen dle zadaných kritérií. Také nevím jak do výše napsaného dotazu nějak zakomponovat aby to bralo např. napsané datum + 14dní.

Díky předem za odpověď a radu.

Opět Vás zdravím s pár dotazy, na které jistě velké množství z Vás, co si tento příspěvek přečtou mi budou moct dokázat odpovědět.
.
1) Chtěl bych, když spustím databázi, aby se hned po startu spustil formulář, který v ní mám uložený. Je toto v OO možné či nikoli a člověk si jej musí spustit sám? V MS Access jsem to tak nastavené měl, ale tady to vypadá, jako bych musel mít napsané makro a to rovnou nastavit aby se spouštělo při startu. Můžete mi prosím poradit? Vím jak spustit po startu makro => Nástroje -> Přizpůsobit -> záložka Události -> dole vybrat Databázi (aby to nebylo definováno pro celé OO) -> zvolit "Otevřít dokument" a v pravé části dát Makro a požadované si vybrat.
.
Odpověď na dotaz první: Makro k otevření formuláře po startu (pod OO 3.3 funguje):
.

[u]Sub OpenStartForm[/u]
   oContexto = CreateUnoService("com.sun.star.sdb.DatabaseContext") 
   oFonte = oContexto.getRegisteredObject("Databaze") 
   oForms = oFonte.DatabaseDocument.FormDocuments 
   oAConnection = oFonte.getConnection("","") 

   Dim pProp(1) As New com.sun.star.beans.PropertyValue 
   pProp(0).Name = "ActiveConnection" 
   pProp(0).Value = oAConnection 
   pProp(1).Name = "OpenMode" 
   pProp(1).Value = "open" 

   oForm = oForms.loadComponentFromURL("Hlavni_Menu", "_blank", 0, pProp())
End Sub

.
2) Dále jestli by jste mi mohli ještě napsat nějaké makro, které když přes tlačítko ve formuláři otevřu nějaký formulář, původní (ten s tím tlačítkem) se zavře a bude aktivní okno formulář, který jsem otevřel.
.
3) Dalším dotazem a snad posledním je, když spustím formulář, jestli by bylo možno nastavit nějaké makro aby se hned formulář Maximalizoval. Vždy jej musím maximalizovat ručně. Je toto prosím též možné?
.
Odpověď na dotaz třetí: Makro k maximalizaci je zde (pod OO 3.3 funguje):

[u]Sub Maximalizace[/u] 'Maximalizuje dané/aktivní okno
oController = ThisComponent.getCurrentController()
oFrame = oController.getFrame()
oContainerWindow = oFrame.ContainerWindow
oContainerWindow.isMaximized = True
End Sub

Děkuji předem za odpovědi.

Zdravím Vás.
.
Na všechny dotazy co jsem měl jsou zde i odpovědi. Přeji pěkný den.
.
Chtěl bych požádat, zda by někdo byl tak ochotný a napsal zde makro, které bude dělat jednoduchou funkci a to zobrazí nejvyšší hodnotu ve sloupci dané tabulky, k ní přičte jedničku a to je vše. V MS Accessu to jde udělat přes funkci DMax, ale zde v OO Base nevím jak. Mám sloupeček ID (automatické číslo) z kterého by se mohlo vycházet, projít tento sloupec, najít nejvyšší hodnotu, přičíst jedničku a tu uložit do jiného pole.
Nebo druhá možnost, tento příkaz umím normálně v SQL si napsat (TOP1 kde na konci dám řazení DESC). Teď ale nevím, jak by se v makru mohlo s výslednou hodnotou dotazu pracovat -> např. najde to nejvyšší ID 12 tak aby tuto hodnotu to použilo, přičetlo k ní jedničku a tu poté použilo pro jiné pole.
Tak jsem našel Makro, které mi hodnotu z výsledného SQL najde, ale funguje to jen bez funkce TOP, jakmile ji tam dám, hodí se mi chybová hláška -> viz. obrázek i s makrem. Jakmile "TOP 1" smažu zobrazí se čistě jen hodnota a mohu s ní pracovat. Když mi TOP funguje v SQL v OO, je možnost to nějak nastavit i do makra?
.

.
Děkuji za odpověď.
.
--------------------------------------------------------------------------------
PŮVODNÍ DOTAZ NA FÓRU:
Níže popsané jsem již skoro vyřešil a odpověděl v dalším příspěvku.
Myslím si, že je to pro Vás zcela jednoduchá otázka a přesto pro mne dosti složitá. Databázi v Base sem si už docela pěkně vyšperkoval, ale základ neumím. Rád bych jestli by jste někdo byl tak hodný a upravil zkušební tabulku z přílohy ( New DB.zip ) o tabulce s formulářem kde je pár polí. Co bych v této db potřeboval.
.
Když budu ve formuláři vytvářet nový záznam (řádek) aby se mi automaticky doplnila jedna hodnota v daným formátu. Dát automatické číslo jako primární sloupec není problém a bylo by to i ideální vzít hodnotu z tohoto čísla a použít ji u jiného sloupce kde by byl formát např. doc_2011_xxx kde místo xxx bude číslo vždy o třech znacích od 000, 001, 002 až po 999 (podle toho, kolikátý to bude záznam dle automatického čísla v DB).
.
Nevím jak přenést ve formuláři na pozadí hodnotu jednoho prvku (pole id s číslem) do pole druhého (pole document, kde má být předem definovaný text), aby se automaticky zaktualizovalo a drželo si stále daný formát (že to neudělá doc_2011_1, doc_2011_2 aj.).
.
Kdyby jste si nevěděli rady s tím držením formátu tak alespoň vymyslet a dát sem ukázku nějakého formuláře, kde se bude automaticky přenášet ta hodnota z jedné buňky do druhé (nebo klidně vytvořit vlastní počitadlo pro tu buňku jestli je to snazší či přes update sql dotaz).
.
Díky předem za ochotu.

Dobrý den.
.
Mám v Base vytvořenou Databázi, v ní X formulářů, dotazů a sestav a chtěl bych danou sestavu uložit jako samostatný soubor. Ideálně kdyby bylo možno z dané Sestavy určitou hodnotu vytáhnout (to se mi povedlo a mám ji ve schránce), ale s touto hodnotou bych chtěl dále pracovat. Ne ji vložit do daného dokumentu jako text, ale tuto hodnotu ze schránky uložit do nějaké proměnné nebo rovnou do hlavičky souboru (POPIS - TITLE). Níže přikládám dosavadní makro.
.
Předem díky za rychlou pomoc.
.
Zde slíbené makro:

sub Odemceni_Posun_na_dane_misto_Oznaceni_Copy_Save
rem ----------------------------------------------------------------------
' Definice proměných
dim document   as object
dim dispatcher as object
dim args1(1) as new com.sun.star.beans.PropertyValue
dim args2(1) as new com.sun.star.beans.PropertyValue
dim args3(2) as new com.sun.star.beans.PropertyValue
dim args4(9) as new com.sun.star.beans.PropertyValue
rem ----------------------------------------------------------------------
' Nastavení dokumentu
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
' Přepne dokument do formátu Editace (původně jen pro čtení)
dispatcher.executeDispatch(document, ".uno:EditDoc", "", 0, Array())

rem ----------------------------------------------------------------------
' Přesun na určitou pozice (v našem případě před "Číslo RP")
' tři řádky dolů
args1(0).Name = "Count"
args1(0).Value = 3
args1(1).Name = "Select"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
' 26 znaků doprava
args2(0).Name = "Count"
args2(0).Value = 26
args2(1).Name = "Select"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())

rem ----------------------------------------------------------------------
' Označení určité pozice (momentálně "Čísla RP" - 13znaků)
args3(0).Name = "Count"
args3(0).Value = 13
args3(1).Name = "Select"
args3(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())
' Uložení do schránky
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
' Nastavení "Čísla RP" do hlavičky dokumentu (POPIS - TITLE)
args4(0).Name = "Properties.UseUserData"
args4(0).Value = true
args4(1).Name = "Properties.DeleteUserData"
args4(1).Value = false
args4(2).Name = "Properties.Title"
args4(2).Value = "TEST" 'Tady místo TEST bych rád použil hodnotu ze SCHRÁNKY.
args4(3).Name = "Properties.Subject"
args4(3).Value = "Reklamační protokol"
args4(4).Name = "Properties.KeyWords"
args4(4).Value = ""
args4(5).Name = "Properties.Description"
args4(5).Value = ""
args4(6).Name = "Properties.AutoReload"
args4(6).Value = false
args4(7).Name = "Properties.AutoReloadTime"
args4(7).Value = 0
args4(8).Name = "Properties.AutoReloadURL"
args4(8).Value = ""
args4(9).Name = "Properties.AutoReloadFrame"
args4(9).Value = ""

dispatcher.executeDispatch(document, ".uno:SetDocumentProperties", "", 0, args4())
end sub