Popis přidání do programu způsobu, který automaticky nastavuje datum zákazu úprav.
Tato metoda jednou provždy řeší problém kontroly data zákazu úprav.
Pravděpodobně všichni znají, co je to datum zákazu úprav. Zají, jak se nastavuje a kde. Otázkou je pouze to, že někteří lidé musí neustále sledovat a nastavovat.
Pro většinu uživatelů by měl program automaticky
každý den zakazovat změny zpětně.
Hlavním problémem ve verzi 8 je, že datum zákazu musí být nastaveno před začátkem práce uživatelů,
jinak po nastavení nebude aplikováno, dokud se uživatelé znovu nepřihlásí do programu.
To znamená, že někdo musí ráno jako první vstoupit a okamžitě nastavit zákaz.
Představte si, co by to bylo?
Tedy řešení (pozor, akce musí provádět specialista)
Obecný modul - Plná práva - Procedura
Procedura NastavitParametrHraniceZakazuZmenyDat() Export
Na začátek procedury kód:
//Manie1C
Pokus
ShodaHranicZakazu = ParametrySeance.HraniceZakazuZmenyDat.Ziskat();
HraniceObdobi = ShodaHranicZakazu["ObecneDatumZakazuUprav"];
Vcera = PocatekDne(PocatekDne(AktualniDatum())-1);
PozVcera = PocatekDne(PocatekDne(Vcera)-1);
Pokud HraniceObdobi < PozVcera Pak
Reg = RegistryInformaci.HraniceZakazuZmenyDat;
Sada = Reg.VytvoritSaduZaznamu();
AktualniData = Reg.Vybrat();
Zatimco AktualniData.Dalsi() Cyklus
Pokud JeHodnotaVyplnena(AktualniData.Organizace) Pak
Pokracovat;
KonecPokud;
Zaznam = Sada.Pridat();
Zaznam.Organizace = AktualniData.Organizace;
Zaznam.Uzivatel = AktualniData.Uzivatel;
Zaznam.HraniceZakazuZmen = PozVcera;
KonecCyklu;
Sada.Zapsat();
KonecPokud;
Vyjimka
Vytiskni(OpisChyby());
KonecPokus;
Vše. Po přidání tohoto kódu, každý den při vstupu prvního uživatele program automaticky nastaví datum zákazu úprav pro všechny následující uživatele. (v mém příkladu se datum automaticky nastaví pro všechny uživatele na pozavčerášek).