Tabulka evidenčních listů důchodového zabezpečení (ELDP_EL)

Tabulka se používá k uložení vět s údaji o evidenčních listech. Tabulku lze používat v makrojazyku pouze pomocí SQL makrofunkcí . 

Související tabulky jsou ELDP_PP a ELDP_PCG.

Stavba věty:

Název položky Typ položky Sloupec
Ident Longint IDENT
Ident do balíku Longint PCG_ID
Ident zaměstnance Longint ZAM_ID
Ident důchodové pojišťovny (bankovní spojení) Longint DUCHPOJ_ID
Rok vyhotovení Longint ROK
Status 0=pouze vyrobeno 1=připraveno k odeslání Longint ST_KODESLANI
Kolikrát byl EL tisknut, když byl v balíku (PCG_ID <> 0) Longint ST_CNTTISK
EL nebyl portálem přijmut = true Longint ST_NEPRIJATO
Typ evidenčního listu String[2] TYP
Datum zpracováno od Date OBD_OD
Datum zpracováno do Date OBD_DO
Datum opravy ze dne Date OPR_ZE_DNE
V pracovním poměru ode dne Date V_PP_OD
Text chyby přenosu String[100] ERR_TXT

Příklad:

dim NumDB  : Word;
dim NumSet : Word;

SqlDBOpen(NumDB, #0, #2, #0);

dim db_EL_IDENT        : Longint;
dim db_EL_PCG_ID       : Longint;
dim db_EL_ZAM_ID       : Longint;
dim db_EL_DUCHPOJ_ID   : Longint;
dim db_EL_ROK          : Longint;
dim db_EL_ST_KODESLANI : Longint;
dim db_EL_ST_CNTTISK   : Longint;
dim db_EL_ST_NEPRIJATO : Longint;
dim db_EL_TYP          : String[2];
dim db_EL_OBD_OD       : Date;
dim db_EL_OBD_DO       : Date;
dim db_EL_OPR_ZE_DNE   : Date;
dim db_EL_V_PP_OD      : Date;
dim db_EL_ERR_TXT      : String[100];

SqlOpen(NumDB, NumSet);

SqlBindPK(NumSet, "IDENT",                      db_EL_IDENT);
SqlBind(NumSet,   "PCG_ID",       SQL_INTEGER,  db_EL_PCG_ID);
SqlBind(NumSet,   "ZAM_ID",       SQL_INTEGER,  db_EL_ZAM_ID);
SqlBind(NumSet,   "DUCHPOJ_ID",   SQL_INTEGER,  db_EL_DUCHPOJ_ID);
SqlBind(NumSet,   "ROK",          SQL_INTEGER,  db_EL_ROK);
SqlBind(NumSet,   "ST_KODESLANI", SQL_INTEGER,  db_EL_ST_KODESLANI);
SqlBind(NumSet,   "ST_CNTTISK",   SQL_INTEGER,  db_EL_ST_CNTTISK);
SqlBind(NumSet,   "ST_NEPRIJATO", SQL_INTEGER,  db_EL_ST_NEPRIJATO);
SqlBind(NumSet,   "TYP",          SQL_CHAR,     db_EL_TYP);
SqlBind(NumSet,   "OBD_OD",       SQL_DATETIME, db_EL_OBD_OD);
SqlBind(NumSet,   "OBD_DO",       SQL_DATETIME, db_EL_OBD_DO);
SqlBind(NumSet,   "OPR_ZE_DNE",   SQL_DATETIME, db_EL_OPR_ZE_DNE);
SqlBind(NumSet,   "V_PP_OD",      SQL_DATETIME, db_EL_V_PP_OD);
SqlBind(NumSet,   "ERR_TXT",      SQL_CHAR,     db_EL_ERR_TXT);

SQLSelect(NumSet, "ELDP_EL", "IDENT=4", "IDENT");

...