Nastavení se mění na Možnosti
Nastavení a tabulka Systemova_nastaveni nahrazuje objekt Moznosti. V hojné míře tento objekt nahradí i registr. Zápisy do registru se budou používat pro věci spojené s Office a Windows. Veškerá nastavení Varia ukládejte pomocí nových možností.
Možnosti mají dva registry:
- RegistMoznostiData - jen pro konkrétní firmu
- RegistMoznostiProfil - platí pro všechny firmy v profilu
Oba se dále dělí na:
- RegistMoznostiData - nastavení Varia pro všechny uživatele a počítače
- RegistMoznostiDataUzivatel - nastavení pro konkrétního uživatele
- RegistMoznostiDataPocitac - nastavení pro konkrétní počítač (složka a pod.)
resp.
- RegistMoznostiProfil
- RegistMoznostiProfilUzivatel
- RegistMoznostiProfilPocitac
Při ukládání nastavení musíte určit Registr Varia, Modul, Agendu, Knihu a Hodnotu (název hodnoty). Registr a Hodnota jsou povinné. Ostatní závisí na tom, pro jaký objekt je nastavení určeno. Pokud se určí Kniha, musí se určit také Modul a Agenda.
Nastavení se též používalo pro ukládání proměnných za běhu - různé hodnoty, které se neukládaly do databáze a zanikly při ukončení Varia. Nyní se pro ně bude používat objekt Vario.Cache
Stará nastavení se nově budou volat takto:
Původní vlastnost | Modul | Agenda | Kniha | Hodnota | Typ | Const |
vAdrZobrPoleFy = "AdrZobrPoleFy" | Adresář | Při vložení zobrazit pole | str | |||
vSklFIFO = "SklFIFO" | Sklad | FIFO | lng | |||
vSklMetoda = "SklMetoda" | Sklad | Metoda | lng | |||
vSklKonMM = "SklKonMM" | Sklad | Kontrolovat minimální množství | bool | |||
vSklMinRabat = "SklMinRabat" | Sklad | Minimální rabat | dbl | |||
vSklNakCenik = "SklNakCenik" | Sklad | Nákupní ceník | str | |||
vSklProdCenik = "SklProdCenik" | Sklad | Prodejní ceník | str | |||
vSklSlevyAutomaticky = "SklSlevyAutomaticky" | Sklad | Slevy uplatnit automaticky | bool | |||
vUctVedeni = "UctVedeni" | X | |||||
vUctUcto = "UctUcto" | Účetnictví | Účetnictví | lng | |||
vUctPro = "UctPro" | Účetnictví | Účetnictví pro | str | |||
vUctKontrolaDluhu = "UctKontrolaDluhu" | Adresář | Upozornit na dluhy | str | |||
vUctKontrSoucty = "UctKontrSoucty" | Přijaté doklady | Vyžadovat kontrolní součet | bool | |||
vUctDuplVS = "UctDuplVS" | Přijaté doklady | Kontrolovat duplicitní VS | bool | |||
vUctKursRozdily = "UctKursRozdily" | Účetnictví | Kursové rozdíly | lng | |||
vUctPenaleDni = "UctPenaleDni" | Vydané doklady | Penále dní | lng | |||
vUctPenalePotvr = "UctPenalePotvr" | Vydané doklady | Potvrdit vystavení | bool | |||
vUctDPHNahoru = "UctDPHNahoru" | Účetnictví | DPH zaokrouhlovat nahoru | bool | |||
vVydZaokrouhlovatMince = "VyDZaokrouhlovatMince" | Vydané doklady | Zaokrouhlení do DPH | bool | |||
vPoklZakrouhleniDoDPH = "PoklZakrouhleniDoDPH" | Pokladna | Zaokrouhlení do DPH | bool | |||
vZaznamy = "Zaznamy" | Vario | Deník | Zaznamenávat | lng | ||
vDinosaurus = "VarDinosaurus" | X | |||||
vOdvodDPH = "VarOdvodDPH" | Účetnictví | DPH | Datum posledního přiznání | date | ||
vUctOdvodDPH = "UctOdvodDPH" | Účetnictví | DPH | Období plátce | lng | ||
vUctObdobiDPH = "UctObdobiDPH" | Účetnictví | DPH | Období podle | lng | ||
vSlozkaDokumentu = "SlozkaDok" | Vario | Složka dokumentů | str | |||
vPovolenoMenitDoklad = "TmpZauctDoklad" | CACHE | |||||
vPovolenoMenitDPH = "TmpDPHDoklad" | CACHE | |||||
vEvMajNeDoklady = "EvMajNeDoklady" | Evidence majetku | Nevystavovat doklady | bool | |||
vEvMajOdpisOdMesiceZarazeni = "EvMajOdMZ" | Evidence majetku | Odpisovat od měsíce zařazení | lng | |||
vKontrolovatCislaZakazek = "ZKontrolovatCislaZakazek" | Zakázky | Kontrolovat čísla zakázek | bool | |||
vPoplatkyElOdpaduFV = "PoplatkyElOdpaduFV" | Vydané doklady | Poplatky elektroodpadu | bool | |||
vPoplatkyElOdpaduPP = "PoplatkyElOdpaduPP" | Pokladna | Poplatky elektroodpadu | bool | |||
vObjednavkyZasklStrict = "ObjednavkyZasklStrict" | Zakázky | Objednávky | Naskladnit jen konkrétní | bool |
Příklady:
MinRabat = Val(App.Nastaveni(vSklMinRabat))
MinRabat = Vario.Moznosti.DejMoznostDouble(RegistMoznostiData, modSklad, "", "", hmMinimalniRabat)
If App.Nastaveni(vSklFIFO) Then
If Vario.Moznosti.DejMoznostLong(RegistMoznostiData, modSklad, "", "", hmFIFO) Then
CenikVychozi = App.Nastaveni(vSklProdCenik)
CenikVychozi = Vario.Moznosti.DejMoznostString(RegistMoznostiData, modSklad, "", "", hmProdejniCenik)
Související dokument