_diaDatabáze středisek

Tabulka středisek se používá k ukládání údajů o střediscích použitých v programu. V makrojazyku se k větě střediska, která je nahrána v paměti přistupuje pomocí klíčového slova STR.

Stavba věty:

Čís	Název položky	Typ položky	Sloupec	Makro	Idx
1	Ident	Longint	IDENT	dbIdent	*
2	Attr	Word	XATTR	dbAttr
3	Jméno (Plní také ORS)	String[25]	XNAME	strJmeno	*
53	Dlouhé jméno (Plní také ORS)	String[250]	XNAMELONG	strJmenoDl
4	Číslo (Plní také ORS)	String[15]	XNUMBER	strCislo	*
55	eMail	String[64]	XEMAIL	strEMail
5	IČO	String[12]	XICO	strICO
6	DIČ	String[20]	XDIC	strDIC
7	Město	String[30]	XTOWN	strMesto
8	Část obce	String[50]	XPARTTOWN	strCastObce
9	Ulice	String[30]	XSTREET	strUlice
10	Domovní číslo	String[8]	XHOUSENUM	strDomCislo
11	PSČ	String[12]	XPSC	strPSC
12	Specif.adresáta	String[15]	XSPECADR	strSpecifAdr
13	Výplat.podmínka	String[4]	XSALCOND	strVyplPodm
14	Bnk1_Ucet	String[25]	XBNK1ACC	strBanky+0
15	Bnk1_Ident	Longint	XBNK1ID	strBanky+1
16	Bnk2_Ucet	String[25]	XBNK2ACC	strBanky+2
17	Bnk2_Ident	Longint	XBNK2ID	strBanky+3
18	Bnk3_Ucet	String[25]	XBNK3ACC	strBanky+4
19	Bnk3_Ident	Longint	XBNK3ID	strBanky+5
20	Skupina	Word	XGROUP	strSkup
21	Poznámka	Longint	XMSG	strPozn
48	Větu založil přenos z ORS při zveřejnění	Longint	XFROMORS	strZORS
56	Větu založil externí system (např.:SDPam.Job.Import_Centers)	Longint	XFROMEXTSYS	strZExtSys
54	Nevstupovat do docházky	Longint	XDONTENTERATT	strNevstDoch
22..31	Buffer deseti reálných čísel	Real	XR1..XR10	strUsr+0..+10
32	Attr=$00000001	Longint	XISG1	strIsS1
33	Attr=$00000002	Longint	XISG2	strIsS2
34	Attr=$00000004	Longint	XISG3	strIsS3
35	Attr=$00000008	Longint	XISG4	strIsS4
36	Attr=$00000010	Longint	XISG5	strIsS5
37	Attr=$00000020	Longint	XISG6	strIsS6
38	Attr=$00000040	Longint	XISG7	strIsS7
39	Attr=$00000080	Longint	XISG8	strIsS8
40	Attr=$00000100	Longint	XISG9	strIsS9
41	Attr=$00000200	Longint	XISG01	strIsS10
42	Attr=$00000400	Longint	XISG11	strIsS11
43	Attr=$00000800	Longint	XISG12	strIsS12
44	Attr=$00001000	Longint	XISG13	strIsS13
45	Attr=$00002000	Longint	XISG14	strIsS14
46	Attr=$00004000	Longint	XISG15	strIsS15
47	Attr=$00008000	Longint	XISG16	strIsS16
49	Attr=$00010000	Longint	XISG17	strIsS17
50	Attr=$00020000	Longint	XISG18	strIsS18
51	Attr=$00040000	Longint	XISG19	strIsS19
52	Attr=$00080000	Longint	XISG20	strIsS20

Indexy

IDENT
--
XNAME
IDENT
XATTR
XNUMBER
IDENT
XATTR

XATTR

Pole XATTR obsahuje masku pro standardní filtrování tabulky. Zůstalo zachováno z Pam4 kvůli slučitelnosti, ale ve skutečnosti se v Pam5 používají pole XISG1 až XISG12, protože dotazy v SQL jazyce nemusí vždy v podmínce WHERE podporovat logické operátory and a or, které by se musely použít při filtrování pole XATTR.

Význam atributů:

$0001 (strIsS1)
Výplatní střediska
$0002 (strIsS2)
Nákladová střediska
$0004 (strIsS3)
Skupina 3
...
$8000
Věta připravená ke smazání

Příklad 1:

Vyhledejte středisko podle jména:

dim ST : String[25]
if _FindRec(dbtStr, strJmeno, _UpperS(_RightSP(ST,25))) then
    PrintUp("OK");
else
    PrintUp("Error")
endif

Příklad 2:

Vyhledejte středisko podle čísla:

dim ST : String[25]
if _FindRec(dbtStr, strCislo, _UpperS(_RightSP(ST,15))) then
    PrintUp("OK");
else
    PrintUp("Error")
endif

Příklad 3:

Filtrování tabulky pro skupinu 1 a 3. Pro sestavení filtrů se používá fukce _MakeFilter a pro zavedení filtru do systému se použije funkce _SetFilter .

dim Filter : String[25]
Filter := _MakeFilter(dbtStr, strIsS1, filterEqual, 1) +
    " OR " +
    _MakeFilter(dbtStr, strIsS3, filterEqual, 1);
_SetFilter(Filter);
...