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

Děkuji, některé věci jsem využil a využiji, spíše je to takové nakopnutí co a jak

https://uloz.to/file/7yfH15NRDwjf/testo … e-nova-ods

Schválně zasílám upravený soubor s databází atd... Udaje jsou v databázy doplňovány podle potřeb majitele, i když teď už by tam mělo být téměř vše, max ještě dopočet ceny, ale to už asi nebude třeba řešit dialogem.

Jinak tedy nevím, dialog i kompletní databáze je stavěna nově upně právě v LOO, abych předešel pádům atd, tak je kompletně vše děláno v LOO, z excelu tam není ani řádek, jelikož byly i jiné vzorce.

Mne tento modul tak nějak funguje, ještě asi bude vhodné vyměnit pola se zadáním datumu narození za pole datumové, aby si hlídalo samo zadání správného formátu (datumu).

Jinak připojované datum do vyhledávacího pole je datum narození, protože to jediné ve spojení se jménem slouží jakoé jedinečný identifikátor. V mé tabulce mám definovanou buňku (text @,dd.mm.yyyy), takže při spojení mi to napíše jméno , a datum.

Pro vyhledávací funkce na načítaní dat pro potřeby oprav atd jsem využil MATCH a INDEX, ty by měli fungovat bez problému a jsou v sešitě .

Jinak databáze jako taková by měla ve chvíli kdy dám uložit, seřadit celou tabulku dle abecedy, na to funce setrid, zatím není nastavena, jelikož přibývaly pole.

Současný dialog hlídá i pokud nejsou zadána důležitá data, která se použijí pro vyplňování.

Ohledně smlouvy atd, políčka se budou definovat dle typu dokladu, to by neměl být problém, ale tohle jsou poměrně citlivá data, která nechci posílát přímo, jsou to smlouvy o ubytování, hlášení pro cizineckou, pro uřady, ČSU atd... Ale de facto na všech těchto papírech jsou třeba data která jsou v databázi.

jinak databáze jako taková by měla být v budoucnu uzamčena proti vstupu uživatelů, případně uplně skryta.

Možná nemám makro elegantní a moc komplikované, ale pracuji s tím co se učím v průběhu,

Zkuste se podívat na tento soubor a uvidíte, ale jsou mi divné pády, pracuji s ním a zatím nepadl... teda pokud nemám zrovna nějaký nesmysl v makru s proměnými. Ale jak říkám, komplaet vše je stavěno a psáno nově jen v LOO.

Děkuji za případné nápady nebo upozornění na chyby.

Zdravím ))

Děkuji za ochotu a teď zase malinko já
Po pár hektolitrech kafe asi tak tisíců pokusu a omylu jsem dialog donutil alespoň částečně pracovat....

Povedlo se mi zprovoznit načítání dat z databáze pomocí Vlookup funce v sešitě, ukládání dat, včetně identifikace optbutonu a check boxu, upravil jsem i tabulku databaze aby to bylo malinko srozumitelnější....

Teď mi vyvstal jeden zádrhel, přemýšlím jak zprovoznit případné opravy... de facto by to mohlo jít pomocí vlookup, kde bych měl nějakým způsobem označený i řádek na kterém je záznam a ten pak přes tlačítko opravit přepsal... možná by se dalo vyřešit inteligentnější řešení....

A dále, ale to jen okrajově, po zadání č. pokoje bych rád aby mi to spočítalo automaticky patro... např 1-109 = 1. patro, 201 - 209 = 2 patro a tuto hodnotu to doplnilo samo do dialogu, ale to je kosmetická věc spíše.

Makro jsem také malinko poupravil a trochu kosmeticky očistil, i když jsou tam zbytky kodu, ale ten tam mám ponechaný pro další potřeby.

přikládám i nový soubor, snad z něj bude pochopitelnější zápis do databáze a funkčnost celku, jinak v případě rady a uprav uvítám každou radu...

Já na to časem přijdu, ale ne vždy je to elegantní a občas se hodí popostrčit na správnou cestu...zase nechci aby za mnne veškerou práci musel dělat někdo jiný....aspoň se malinko naučím pracovat se základy

Děkuji

https://uloz.to/file/OiezfSAfXRdR/testo … e-nova-ods

Je to přesně jak popisujete....

Pro mne by byla myslím asi nejlepší varianta 3 , kombinace maker a vzorců... Dialogove okno ovladat přes makro a ostatní pomocí vzorců...

Zkusíl jsem postnout testovaci soubor, je to takové šite horkou jehlo abych pravdu řekl, spiše se snažím proniknout do LOO maker, přes VBA bylo toto možna jednodušší, těžko říci, spíše je to neznalostí mou...

Je zde vytvořené dialogové okno, přes toto bych nejraději ovladal funkce které jsou na tlačítkách popsány...

Jde o vyplnění několika textových polí, s tím že jako první je combobox, který by při shodě jména uměl pomocí tlačítka a funkce lookup načíst pro změnu data do dialogového okna, do budoucna bych zvažoval případnou opravu údaju.

jinak by mělo být možno data při nenajití osoby zapsat samostatně, poté uložit , a případně použít tlačítka na vyplnění dokumentu....   

Dialogové okno bych raději už jen z toho důvodu, že by toto měly ovládat dámy pokročilého věku ( doufám že se nedotknu nějaké zde případně registrované) , takže okno s "kolonkama" je nejsnažší varianta.

Pro mne je spíše potíž nadefinovat tlačítka , případně aby dělaly to co mají... možná mám špatně deklarované proměné , nebo jsem špatně zadával suby... v tomhle opravdu plavu a možná by stačilo mírné poštouchnutí

https://uloz.to/file/DkYp8KOHHrhl/testo … tabaze-ods

Každopádně děkuji za postup jak na to

Děkuji za soubor, z Vašeho pohledu možná primitivní , ale vězte že doteď se tady hodiny atd vypisovaly komplet ručně a to byla opravdu pakárna na 4 hodiny práce, takže už i tento soubor je dosti sofistikovaný .

jen jsem tedy objevil první zádrhel, jde spíše o kosmetickou vadu , ale mne trošku mate, na listu vstupy, pokud změním rok a měsíc pro zadání směn, tak rok se sice změní, ale měsíc už ne, takže je to trochu matoucí. Na výstupech se datum mění jak má.
Jinak jsem koukal že je pracováno s cyklusem, ten je předpokládám 2 dny a 2 dny?

Jinak pokud mohu poprosit o přístup ke vzorcům, byl bych za něj rád, alespoň bych něco okoukal případně pro další potřeby, přijde mi že mám některé vzorce moc komplikované, no, spíše je to trochu obava z používání funkcí které moc neznám Jako například v minulé verzi offset.

A velice děkuji za Váš čas a tu spooustu práce

Aha, ja jsem právě přemýšlel co to bude, že to bude odkazovat na index listu.

No nicméně, export fungoval a zase se mu nechce, tak jsem z toho malinko janek, listy jsem nepřesouval tak nevím, možná jsem někde něco umázl , musím se podívat raději....

Jen takový dotázek, kde může být chyba? Nevím jestli mám dobře zapsaný výběr listu, ale de facto by mělo přes msg box dát dotaz na přepsání kopie, původní smazat a vytvořit novou, tu by to mělo skrýt. Vše funguje jen ne to skrytí

Děkuji

sub rychla_kopie
Dim oDoc as Object : Dim oSpdSht as Object : Dim oShtName as String : Dim oDisp as String
Dim oSheet : Dim sVal, sVar, sList as string
doc = thisComponent
listy = doc.sheets
Sheets = ThisComponent.getSheets()
oSheet = Sheets.getByName("Koleje pedagog")
sVar = oSheet.getCellRangeByName("AG2").String
sList = "Koleje pedagog" & " " & sVar
oDoc = ThisComponent            
oSheet = oDoc.getSheets()
oShtName = sList
oDisp = "   Nový list : " & oShtName & Chr$(10)
    If NOT oSheet.hasByName( oShtName ) Then    
        listy.CopyByName("Koleje pedagog",oShtName,listy.count)
    else
        beep
        oDisp = oDisp & "   Stejný název listu už existuje !  " & Chr$(10) &  Chr$(10) &  vbCrLf & "         Přejete si ho přepsat?    "    'V případě chyby - ta by se stát neměla ale pro sichr
        dotaz = msgbox(oDisp, 48+4, "Chyba")
        if dotaz = 6 then
            listy.RemoveByName(oShtName)
            wait 50
            listy.CopyByName("Koleje pedagog",oShtName,listy.count)
            listy = thisComponent.sheets.getByName(oShtName)
            listy.IsVisible = true
            MsgBox("  Vytvořeno  ","OK")
        else
            exit sub
        end if
    end if
end sub

Ohledně makra...
Koukal jsem a mělo by tam být vše...
Vytvoří mi soubory ve writeru , pojmenované, to je ok, ale jsou prazdné.... nahoře definované oblasti by měly být správné, takže teď kde je chybka....
Tento export by byl také ok, ale jak říkám, pro mne by připadal i v úvahu jako takový i vytvoření nového listu, např Leden/2020, s tím že by se uzamkly buňky a pokud by se něco opravovalo a měla by se vytvářet kopie aby ji tedy nepřepsal, ale pojmenoval např leden/2020 opr. De facto by to mohl být nový list v tomto sešitě, který by se dal jednoduše tisknout atd ale nebylo jej možné upravovat.

Je pravda že je pro vás možná zmatečné že skáču sem tam, ale jak jsem psal, makro v LO je pro mne malinko jiný lvl, takže jsem v tomto směru odkázaný na Vaší pomoc pouze, protože něco málo bych možná stvořil ale spíše si hraju vedle a testuji.

proto si hraji se vzorci....

Jinak definice směn mám tak nějak, i je využívám v minulé verzi zatím
R - ranní 12
N - noční 12
SR - svátek ranní 12
SN - svátek noční 12
VR - víkend ranní 12
VN - víkend noční 12
ne - nemoc
do - dovolená

Ostatní parametry zatím nevyužíváme

Spíše mne zaujaly Vaše vzorce a na řekl jsem si, že si s nimy zkusím pohrát.... Už jen z toho důvodu že calc je chytrý a mi jsme jen lidé a tím pádem omylní. Takže pokud by uměl calc ohlídat i zápis směn, proč toho nevyužít. Mám tím na myslí třeba zápis směny ve svátek, kdy místo SN napíšu jen N...... calc by si toto ohlídal sám a hodiny doplnil tak jak mají být.... Jinak vzorec se zdá že jsem již vyřešil...

Možná dlouhé povídání, ale to spíše na vysvětlení mé situace

jinak děkuji za pomoc a trpělivost

Ha , potvora mi nadává makro, akorát tedy teď nevím, zdali kvůli prazdným hodnotám nebo něco jiného. Vytvoří mi to kopie ve writeru,ale bez dat....

Výpis směn atd podepisují jednotlivě na tištěných stránkách , které zůstavají založené u nás. toto je de facto soubour pro mzdovku aby měla z čeho vycházet a následně dostavají výplatní pásky proti podpisu, takže s tímto problém není.
Směny jako takové zapisuji já, tím pádem ostatní zaměstnanci do tohoto souboru nemají přístup, pouze před odesláním zkontrolují záznami na 1 listě zda souhlasí s tištěnou předlohou a případné nedostatky oznámí, ty upravím. Kopie přehledů za jednotlivé měsíce chci spíše z praktického důvodu, proto abych v připadě potřeby nemusel exportovat znova starý měsíc, takto bych ho měl uložený. A kopie listu by měla být uzamčena, tak aby do ní nemohla zasahovat právě ani mzdovka, ta by se s případnýmy dotazy obracela na mne či vedoucí, právě kvůli nesrovnalostem atd. Případně mne právě napadl export do pdf, což by možná mohlo být snadnější.
Jinak princip je takový, napíši rozpis směn, zaměstnanci jej případně poupraví dle potřeby, toto přepíši do listu 1, před odesláním souboru s daty pro mzdovku překontrolujeme zda vše souhlasí / výměna směn, volno atd/ , poté načtu data do listu 2, a tento odesílám na mzdovku, ale právě s tím, že by byl bud zamčený nebo vyexportovaný do pdf....

Jinak dotazy v pořádku, ono se těžko radí a pomáhá bez potřebných informací a znalostí daného problému.

jinak děkuji za ochotu

Děkuji ještě jednou se zpoždením, byl jsem malinko zavalen jinou prací
Funkce OFFset je velice zajímavá, možná pro můj účel i lepší, spíše mám potíž jak aktivovat vzorce v tabulce
A ještě mám jeden dotaz či spíše prosbu... Vytvořil jsem tlačítko, které mi po zadání údajů atd vytvoří kopii listu se jménem měsíc/rok.. toto mi funguje, ale v případě že list již existuje potřeboval bych aby mi ho znovu nevytvářel, tady někde plavu. Sice mam definované msg okno se zprávou že chyba, list existuje ale stejně mi jej přepíše, takže jsem malinko bezradny použil jsem makro jednoho z vás zde a malinko jej upravil alespoň co jsem si troufl. klidně zase pošlu nějaký mustr na kouknutí.

Děkuji za radu

Super, děkuji moc za pomoc.
Alespoň mám cca nějaký mustr jak na co.. . Abych se přiznal makra v LO jsou pro mne trošičku stále záhadou,
přece jen VBA používá jiné příkazy .

jinak ohledně vzorců, jak jste vzpomínal, něco na co si dát pozor případně upravit?

jinak děkuji ještě jednou za pomoc.

De facto z listu 1 by se měli kopírovat hodnoty v buňkách podle tabulky měsíců jen z odemčených buňek, do listu 2 do dtále stejné pozice A4:F10.... toto by se mělo dít po zvolení měsíce na listu 2.

Asi by bylo ideální před kopírováním staré hodnoty vymazat?

Akorát právě nevím, jak přiřadit prvku to, že má spustit makro a kopírovat hodnoty dle měsíce, případně zda k tomu využít spojenou buňku ze které by si to načetlo měsíc a makro by se volalo ve funci if a else if

Děkuji za radu