DiaLogSystem

(   DateFrom    : Date; 
    DateTo      : Date; 
    TypeMask    : Longint;
    EnableMask  : Longint [;
    ManId       : Longint = 0;
    SubType     : Longint = 0;
    RelDBType   : Integer = 0;
    RelOrigId   : Longint = 0;
    ItemName    : String = "";
    EnableRelDB : Longint = LOGENRELDB_MASK_ALL;
    GroupType   : Integer = LOGGRPTYPE_EMPTY;
    GroupUid    : String = "" ] )

Tato procedura zobrazí dialog systému sledování změn. Parametry funkce definují filtr zobrazení změn.

DateFrom Datum zadání OD. Zadáte-li prázdný datum doplní se dnes - 20 dní.
DateTo Datum zadání DO. Zadáte-li prázdný datum doplní se dnes.
TypeMask

Které typy událostí budou zobrazeny

LOGTYPE_MASK_POL_OPM Položky OPM, historické i nehistorické
LOGTYPE_MASK_CHANGE_REL Změna věty pomocné tabulky (relace)
LOGTYPE_MASK_LOGIN Přihlášení - odhlášení uživatele (zaměstnance)
LOGTYPE_MASK_SYSTEM Systémová hlášení
LOGTYPE_MASK_PAM5_MACRO Makra Pam5
EnableMask

Které údaje filtru bude uživatel moci v dialogu upravovat.

LOGENABLE_MASK_DATE Lze měnit sledované období.
LOGENABLE_MASK_TYPE Lze měnit typy akcí.
LOGENABLE_MASK_APPL Lze měnit typ aplikace.
LOGENABLE_MASK_WAGE_PERIOD Lze měnit mzdové období.
LOGENABLE_MASK_ITEM_NAME Lze měnit název položky.
LOGENABLE_MASK_USER_NAME Lze měnit jméno uživatele.
LOGENABLE_MASK_MAN_NAME Lze měnit jméno zaměstnance.
LOGENABLE_MASK_REL_DB_TYPE Lze měnit povolené relace
LOGENABLE_MASK_GUID_GROUP Lze měnit Guid skupin
ManId Ident zaměstnance. Zadáte-li hodnotu 0, budou zobrazeni všichni zaměstnanci.
SubType Číslo významu události. Zadáte-li hodnotu 0, bude zobrazeno vše.
RelDBType Typ relační tabulky (dbtStr, dbtDet, ...).
RelOrigId Ident výchozí věty v relační tabulce.
ItemName Jméno položky ve tvaru 'O0100'.
EnableRelDB

Seznam povolených pomocných databází (relací) ve formě bitové masky:

LOGENRELDB_MASK_ALL Všechny pomocné databáze (relace)
LOGENRELDB_MASK_GRP Množiny
LOGENRELDB_MASK_ADR Adresy
LOGENRELDB_MASK_TUR Turnusy
LOGENRELDB_MASK_SME Směny
LOGENRELDB_MASK_STR Střediska
LOGENRELDB_MASK_SRZ Srážky
LOGENRELDB_MASK_DET Děti
LOGENRELDB_MASK_COM Common (Praxe,OpenCard, ...)
LOGENRELDB_MASK_CSZ Číselník
LOGENRELDB_MASK_CISUR Číselník úrovňový
LOGENRELDB_MASK_MSG Poznámky
LOGENRELDB_MASK_BNK Bankovní spojení
GroupType

Typ skupiny informací. Záznamy v LOG systému lze shlukovat pomocí Guidů. Tyto se nastavují  procedurou LogUidOpPush.

LOGGRPTYPE_ALL Všechny záznamy
LOGGRPTYPE_EMPTY Pouze záznamy bez Guid
LOGGRPTYPE_GUID Pouze záznamy s Guid, který je určen parametrem GroupUid.
GroupUid

Guid požadované skupiny záznamů v LOG systému. Aby byl tento parametr brán v úvahu, musí být nastaven parametr GroupType = LOGGRPTYPE_GUID.

 

Nastavení názvů skupinových Guid hodnot

Záznamy v LOG systému lze shlukovat pomocí Guidů. Tyto se nastavují  procedurou LogUidOpPush. Princip je ten, že se nastaví Guid a všechny následné informace jdoucí do LOG systému budou u sebe mít i tento Guid.

Aby mohla obsluha podle těchto Guidů filtrovat informace v dialogu LOG systému, je potřeba tyto Guidy pojmenovat aby bylo možno vybírat podle názvů a nikoliv podle Guidů.

K tomuto účelu slouží INI soubor uložený v databázi. Jeho jméno je 'LOG SKUPINY PODLE GUID' a obsahuje oddíly, jejichž názvem je právě onen Guid. Pod oddlílem je jeden label s názvem 'JMÉNO SKUPINY'.

Příklad na vložení jednoho Guidu:

dim B : Byte;
IOpen(B, "LOG SKUPINY PODLE GUID", true);
IPut(B, "0a030e0d21905da9363b9d", "JMÉNO SKUPINY", "Reorganizace č.85");
IClose(B);

Podívejte se na: Procedury a funkce - Objekty

Příklady:

{ Makro události s typem 125 }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), LOGTYPE_MASK_PAM5_MACRO, LOGENABLE_MASK_DATE, 0, 125);
exit

{ Změny všech položek všech zaměstnanců }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), LOGTYPE_MASK_POL_OPM, LOGENABLE_MASK_DATE);
exit

{ Vývoj věty střediska s ID = 105 }
DiaLogSystem(_Date(1,1,2008), _Date(0,0,0), LOGTYPE_MASK_CHANGE_REL, LOGENABLE_MASK_DATE + LOGENABLE_MASK_TYPE, 0, 0, dbtStr, 105);
exit

{ Přihlášení - odhlášení uživatelů a zaměstnanců }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), LOGTYPE_MASK_LOGIN, LOGENABLE_MASK_DATE + LOGENABLE_MASK_TYPE + LOGENABLE_MASK_ITEM_NAME);
exit

{ Změny všech zaměstnanců }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), 0, LOGENABLE_MASK_DATE + LOGENABLE_MASK_TYPE + LOGENABLE_MASK_ITEM_NAME);
exit

{ Změny zaměstnance s ID = 17 }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), 0, LOGENABLE_MASK_DATE + LOGENABLE_MASK_TYPE + LOGENABLE_MASK_ITEM_NAME, 17);
exit

{ Změny způsobené reorganizací s Guid = '0a030e0d21905da9363b9d' }
DiaLogSystem(_Date(0,0,0), _Date(0,0,0), 0, 
	LOGENABLE_MASK_DATE+LOGENABLE_MASK_TYPE+LOGENABLE_MASK_ITEM_NAME+
	LOGENABLE_MASK_REL_DB_TYPE+LOGENABLE_MASK_GUID_GROUP,       { EnableMask }
	0,                                                          { ManId }
	0,                                                          { SubType }
	0,                                                          { RelDBType }
	0,                                                          { RelOrigId }
	"",                                                         { ItemName }
	LOGENRELDB_MASK_GRP+LOGENRELDB_MASK_ADR+LOGENRELDB_MASK_TUR+LOGENRELDB_MASK_SME+
	LOGENRELDB_MASK_STR+LOGENRELDB_MASK_SRZ+LOGENRELDB_MASK_DET+LOGENRELDB_MASK_COM+
	LOGENRELDB_MASK_BNK+LOGENRELDB_MASK_CISUR+
	LOGENRELDB_MASK_CSZ+LOGENRELDB_MASK_MSG	,                   { EnableRelDB }
	LOGGRPTYPE_GUID,                                            { GroupType }
	"0a030e0d21905da9363b9d"                                    { GroupUid }
);
exit