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

Tabulka se používá k uložení vět s údaji o balících evidenčních listů. Balíky sdružují množinu evidenčních listů, které byly odeslány, tisknuty atd. Tabulku lze používat v makrojazyku pouze pomocí SQL makrofunkcí . 

Související tabulky jsou ELDP_EL a ELDP_PP.

Stavba věty:

Název položky Typ položky Sloupec
Ident Longint IDENT
Status odeslání balíku:0=ne 1=portál 2= medium 3=tisk Longint ST_ODESLANO
Balík je již elektronicky podepsán = true Longint ST_PODEPSANO
Balík byl bez výhrad přijat portálem = true Longint ST_PRIJATO
Balík nebyl přijat portálem = true Longint ST_NEPRIJATO
Název balíku String[50] NAZEV
Poznámka String[100] POZNAMKA
Ident uživatele, který balík vyrobil Longint UZIV_ID
Datum vyhotovení (datum odeslání do portálu, nebo tisku) Date DAT_VYH
Datum přijetí - podání (portálem, poštou - zadá se ručně) Date DAT_POD

Příklad:

dim NumDB  : Word;
dim NumSet : Word;

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

dim db_PCG_IDENT         : Longint;
dim db_PCG_ST_ODESLANO   : Longint; { 0=ne 1=portál 2=medium 3=tisk }
dim db_PCG_ST_PODEPSANO  : Longint;
dim db_PCG_ST_PRIJATO    : Longint;
dim db_PCG_ST_NEPRIJATO  : Longint;
dim db_PCG_NAZEV         : String[50];
dim db_PCG_POZNAMKA      : String[100];
dim db_PCG_UZIV_ID       : Longint;
dim db_PCG_DAT_VYH       : Date;
dim db_PCG_DAT_POD       : Date;

SqlOpen(NumDB, NumSet);

SqlBindPK(NumSet, "IDENT",                      db_PCG_IDENT);
SqlBind(NumSet,   "ST_ODESLANO",  SQL_INTEGER,  db_PCG_ST_ODESLANO);
SqlBind(NumSet,   "ST_PODEPSANO", SQL_INTEGER,  db_PCG_ST_PODEPSANO);
SqlBind(NumSet,   "ST_PRIJATO",   SQL_INTEGER,  db_PCG_ST_PRIJATO);
SqlBind(NumSet,   "ST_NEPRIJATO", SQL_INTEGER,  db_PCG_ST_NEPRIJATO);
SqlBind(NumSet,   "NAZEV",        SQL_CHAR,     db_PCG_NAZEV);
SqlBind(NumSet,   "POZNAMKA",     SQL_CHAR,     db_PCG_POZNAMKA);
SqlBind(NumSet,   "UZIV_ID",      SQL_INTEGER,  db_PCG_UZIV_ID);
SqlBind(NumSet,   "DAT_VYH",      SQL_DATETIME, db_PCG_DAT_VYH);
SqlBind(NumSet,   "DAT_POD",      SQL_DATETIME, db_PCG_DAT_POD);

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

...