Tabulka průběhu pojištění pro důchodové zabezpečení (ELDP_PP)

Tabulka se používá k uložení vět s údaji o průběhu pojištění pro důchodové zabezpečení. Tabulku lze používat v makrojazyku pouze pomocí SQL makrofunkcí . 

Související tabulky jsou ELDP_EL a ELDP_PCG.

Stavba věty:

Název položky Typ položky Sloupec
Ident Longint IDENT
Ident evidenčního listu Longint EL_ID
Kód String[3] KOD
Období od Date XOD
Období do Date XDO
Počet dní Longint DNY
Vyloučené doby Longint VYL_D
Vyměřovací základ Longint VYM_Z
Doby odečtu Longint ODECT_D
Info o pojištění: ' '=byl pojištěn, 'x'= nebyl pojištěn String[1] MES1..MES13

Příklad:

dim NumDB  : Word;
dim NumSet : Word;

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

dim db_PP_IDENT         : Longint;
dim db_PP_EL_ID         : Longint;
dim db_PP_KOD           : String[3];
dim db_PP_OD            : Date;
dim db_PP_DO            : Date;
dim db_PP_DNY           : Longint;
dim db_PP_VYL_D         : Longint;
dim db_PP_VYM_Z         : Longint;
dim db_PP_ODECT_D       : Longint;
dim db_PP_MES (cNUMMES) : String[1];

SqlOpen(NumDB, NumSet);

SqlBindPK(NumSet, "IDENT",                 db_PP_IDENT);
SqlBind(NumSet,   "EL_ID",   SQL_INTEGER,  db_PP_EL_ID);
SqlBind(NumSet,   "KOD",     SQL_CHAR,     db_PP_KOD);
SqlBind(NumSet,   "XOD",     SQL_DATETIME, db_PP_OD);
SqlBind(NumSet,   "XDO",     SQL_DATETIME, db_PP_DO);
SqlBind(NumSet,   "DNY",     SQL_INTEGER,  db_PP_DNY);
SqlBind(NumSet,   "VYL_D",   SQL_INTEGER,  db_PP_VYL_D);
SqlBind(NumSet,   "VYM_Z",   SQL_INTEGER,  db_PP_VYM_Z);
SqlBind(NumSet,   "ODECT_D", SQL_INTEGER,  db_PP_ODECT_D);
SqlBind(NumSet,   "MES1",    SQL_CHAR,     db_PP_MES[1]);
SqlBind(NumSet,   "MES2",    SQL_CHAR,     db_PP_MES[2]);
SqlBind(NumSet,   "MES3",    SQL_CHAR,     db_PP_MES[3]);
SqlBind(NumSet,   "MES4",    SQL_CHAR,     db_PP_MES[4]);
SqlBind(NumSet,   "MES5",    SQL_CHAR,     db_PP_MES[5]);
SqlBind(NumSet,   "MES6",    SQL_CHAR,     db_PP_MES[6]);
SqlBind(NumSet,   "MES7",    SQL_CHAR,     db_PP_MES[7]);
SqlBind(NumSet,   "MES8",    SQL_CHAR,     db_PP_MES[8]);
SqlBind(NumSet,   "MES9",    SQL_CHAR,     db_PP_MES[9]);
SqlBind(NumSet,   "MES10",   SQL_CHAR,     db_PP_MES[10]);
SqlBind(NumSet,   "MES11",   SQL_CHAR,     db_PP_MES[11]);
SqlBind(NumSet,   "MES12",   SQL_CHAR,     db_PP_MES[12]);
SqlBind(NumSet,   "MES13",   SQL_CHAR,     db_PP_MES[13]);

SQLSelect(NumSet, "ELDP_PP", "EL_ID=4", "EL_ID");

...