_HstValid

(    dbType    : Byte;
     Index     : Word;
 dim Value        ;
 dim Attr      : Word;
 dim DFirst    : Date;
 dim DCreate   : Date;
     ZamIdent  : LongInt[;
 dim ExData    : String[200] ]) : Byte

Vyhledá poslední hodnotu historické položky 'Index' v rámci datumu 'DFirst'. Která hodnota bude skutečně poslední (a tedy platná), lze určovat procedurou HstSetSep. Není-li položka s datumem rovným nebo vyšším datumu 'DFirst' nalezena, vrací funkce POSLEDNÍ nalezenou položku. Hodnotu False(0) vrací pouze v případě, že není nalezena žádná historická položka.

• dbType
  číslo databáze (dbtO, dbtP)
• Index
  index historické položky
• Value
  vrácená hodnota, jejíž typ se řídí typem položky
• Attr
  atribut historické položky
• DFirst
  datum, od kterého změna platí
• DCreate
  datum zadání nové hodnoty
• ZamIdent
  Ident zaměstnance, u kterého se historie zjišťuje
• ExData
  Nepovinná extra data, která jsou 'přilepena' k historické položce. Tato data jsou zobrazena v seznamu historických položek až k oddělovači pipeline '|' a jestliže tento neexistuje, zobrazí se text celý.

Podívejte se na: Historie

Příklad:

Procedura všechny nalezené nejaktuálnější historické hodnoty uloží do proudu 'F'. Typ proměnné 'Val' je libovolného typu podle toho, s jakým typem se zavolá. Datumy 'DateP' a 'DateK' určují interval, ve kterém se vyšetření pohybuje:

procedure Make (dim F     : File;
                dim Val   : Byte;
                    DateP : Date;
                    DateK : Date)
  dim Attr : Word;
  dim D : Date;
  while DateP /= DateK do
    D := DateP;
    _HstValid(Odd, IdxPol, Val, Attr, D, DateC, O[dbIdent])
    SPut(F, DateP[Month], Val)
    DateP := _IncMonth(DateP, 1);
  endwhile
endproc