_DiaNonRegStatus

(    RefDate  : Date;
     CreDate  : Date;
 dim F        : File;
 dim Zmena    : Byte) : Integer

Tato funkce zobrazí dialog historických vět mimoevidenčních stavů, které přijdou ve streamu F.

Parametr RefDate obsahuje default datum platnosti nově vkládané historické věty.

Parametr CreDate obsahuje default datum zadání nově vkládané historické věty.

Stream F obsahuje historické věty mimoevidenčních stavů.

Ve streamu F se vrací i výsledek. Je v podobném formátu jako vstup, ale index je zvýšen o 10000. Původní věty ve streamu zůstávají.

Parametr Zmena definuje, zda došlo k nějaké změně (true) či nikoliv (false).

Funkce vrací cmOK nebo cmCancel.

Podívejte se na: Procedury a funkce - Objekty

Příklad:

procedure TestDiaNonRegStatus
    dim F       : File;
    dim Zmena   : Byte;
    dim Idx     : Integer;
    dim RefDate : Date;
    dim CreDate : Date;
    dim GrpID   : Longint;
    dim Pozn    : String;

    SRewrite(F, "", true);
    { MD-PPM }
    SPut(F, 0001, _Date(1,1,2005));
    SPut(F, 1001, _Date(1,1,2005));
    SPut(F, 2001, 4);
    SPut(F, 3001, "xx");
    { MD-RP }
    SPut(F, 0002, _Date(1,1,2006));
    SPut(F, 1002, _Date(1,1,2006));
    SPut(F, 2002, 5);
    SPut(F, 3002, "yy");

    if(_DiaNonRegStatus(_Date(0,0,0), _Date(0,0,0), F, Zmena) = cmOK and Zmena)then
        for Idx := 1 to 999 do
            exitif _SGetTyp(F, 10000 + Idx + 0000) = 0 then endexit
            RefDate := _SGet(F,10000 + Idx + 0000);
            CreDate := _SGet(F,10000 + Idx + 1000);
            GrpID   := _SGet(F,10000 + Idx + 2000);
            Pozn    := _SGet(F,10000 + Idx + 3000);
            Trace("RefDate:", RefDate, " CreDate:", CreDate, " GrpID:", GrpID, " Pozn:", Pozn);
        end
    endif
endproc