OpenDBEdit

(    NumWind : Byte;
     TypDep  : Byte;
     Title   : String[80];
     Label        )

Procedurou OpenDBEdit lze otevřít databázový editor pro oddělení 'TypDep' v okně číslo 'NumWind'. Otevřený editor je totožný s editorem v režimu Zpracování. Při změně některé položky se volá podprogram 'Label'. Jestliže v tomto podprogramu bude voláno makro, nastaví se globální proměnná informující o stylu spuštění _GetIResult (15) makra tak, jako by makro bylo spuštěno z oddělení:

1 = Makro je spuštěno systémem.
2 = Po opravě některé položky v editoru položek.

Ovšem v případě spouštění maker z režimu Vývoj, bude IResult(15) nastaven na:

4 = Makro (makra) je spuštěno z vývojového prostředí.

Řetězec 'Title ' bude zobrazen v záhlaví okna.

Databázový editor obsahuje vnitřní funkce, které je možno povolit procedurou NewStLine použitou před OpenDBEdit. Vnitřní funkce jsou:

   154 Přidej zaměstnance         163 Přepočítej oddělení
   155 Změna OC, JM a ST          164 Položková pomoc
   156 Předchozí zaměstnanec      165 Změna turnusu v kalendáři
   157 Následující zaměstnanec    166 Změna zapadávky v kalendáři
   158 ---                        167 List historie
   159 ---                        168 Další položka /Enter//
   160 Změna krokování
   161 Výběr zaměstnance
   162 Vymazání zaměstnance

• Při předávání řízení uživateli používejte proceduru _ExecuteAll. Při použití procedury _Execute nepůjde vyvolat interní okno z položek, které tuto možnost mají, protože _Execute spouští okno ve vyhrazeném režimu a interní okna nejsou v tomto režimu spouštěna.
• Okno lze zavřít stejně jako ostatní okna procedurou WClose.
• Pro jedno oddělení lze otevřít i několik oken.
• Procedura OpenDBEdit pracuje pouze "nad" mzdovou větou 'M'. Nelze ji tedy používat pro obecné proměnné typu Wage.
• Před použitím procedury je nutno nastavit mzdové prostředí. Nestačí pouze nahrát mzdovou větu 'M' např funkcí _LoadWage a takto nahranou větu chtít editovat! Pro nastavení mzdového prostředí je vhodná například procedura SetActEnv.
• Jestliže se ve status řádce použije příkaz '163 Přepočítej oddělení', bude po stisku klávesy s tímto příkazem spuštěn podprogram 'Label'.
• Procedurou AddItemsHighLight lze za datovou částí položek zobrazovat vybrané ikony podle směrů (masky).

Podívejte se na: Položky

Příklad:

{ Edituj mzdovou větu s číslem 3000
  Nahraj požadovanou mzdovou větu }
  
SetActEnv(_ActMonth, 3000, _SysYear)
{ Nastav novou status řádku }
PushStLine
NewStLine("Norm",   "~ESC~-Návrat", 0,   0,
                    "Ctrl",   "", 0, 0,
                    "Alt",    "", 0, 0,
                    "Shft",   "", 0, 0,
                    "^Shft",  "", 0, 0)
OpenDBEdit(10, dbtM, "TEST", ChangeOdd)
repeat
until _ExecuteAll = cmCancel;
{ Nastav původní status řádku }
PopStLine;
Exit
  
ChangeOdd:
  ...
return