#
# Razítko UCET - ladouch 20010320
#
#     Slouží k doplnění účtu v situaci, kterou účtovací automat nepodchycuje
#     buď vůbec nebo dočasně. Obsahuje pár kolonek pro obvyklé výkony a nějaké
#     další je možno doplnit z nabídky na F3 - ta se bere z tabulky PojSaz.
#
#     Obrat tvaru V+i resp. X+i znamená, že se za V doplní aktuání hodnota pomocné
#     proměnné i. Zde nás totiž nezajímají konkrétní jména položek, účtovací algoritmus
#     půjde jenom po dvojicích u sebe ležících položek, vždy jednu V a druhou X.
#
#     Pro sloupečky jsou použita symbolická jména a tím se snadno s celým obsahem
#     razítka "šoupe".
#
#     Vyúčtování si počíná tak, jako kdyby se v knize nalezlo razítko, které má v přímém     
#     účtu napsáno to, co se vyplní do kolonek.
#
#     Parametry u příkazu label jsou Text,řádek,sloupec a počet buňěk rastru, které má zabrat.
#     Jelikož je rastr neproporcionální cca 80 x 30 a písmo proporcionální, je potřeba
#     počítat u delších textů cca 2 písmenka na buňku.
#
#     U příkazu item to je: 
#         Jméno uvnitř formuláře
#         Databázové jméno položky nebo globální jméno vůbec
#         Řádek
#         Sloupec
#         Šířka v buňkách
#         Maximální počet znaků
#         Příznak Read Only
#         Defaultní hodnota
#         Následuje ev. seznam testů, jako int apod.
#
#     Příkaz sqlmenu má parametry:
#         Titulek dialogu
#         Klíčová položka z SQL query
#         Seznam položek odebíraných z SQL query oddělený středníky
#         Vlastní SQL query
#


label=Manuální doúčtování do knihy,1,12,22

line=3
col1=4
col2=12
col3=16
i=1

label=Serotypizace,line,col1,6
item=V+i,V+i,line,col2,5,5,Y,82149
item=X+i,X+i,line,col3,2,2,N,,int

++line
++i
label=Citlivost,line,col1,6
item=V+i,V+i,line,col2,5,5,Y,82063
item=X+i,X+i,line,col3,2,2,N,,int


++line
++i
label=Orientační,line,col1,6
item=V+i,V+i,line,col2,5,5,Y,82057
item=X+i,X+i,line,col3,2,2,N,,int

++line
++i
label=Složitá,line,col1,6
item=V+i,V+i,line,col2,5,5,Y,82059
item=X+i,X+i,line,col3,2,2,N,,int


line=3
col1=19
col2=19
col3=24
# label=Další(F5),line,col1,5

++i
item=V+i,V+i,line,col2,5,4,N,,
sqlmenu=,Vyberte výkon,Vykon,Vykon;Nazev,select vykon,nazev from pojsaz where hrazeno='001111' order by 1
item=X+i,X+i,line,col3,2,2,N,,int

++i
++line
item=V+i,V+i,line,col2,5,4,N,,
sqlmenu=,Vyberte výkon,Vykon,Vykon;Nazev,select vykon,nazev from pojsaz where hrazeno='001111' order by 1
item=X+i,X+i,line,col3,2,2,N,,int

++i
++line
item=V+i,V+i,line,col2,5,4,N,,
sqlmenu=,Vyberte výkon,Vykon,Vykon;Nazev,select vykon,nazev from pojsaz where hrazeno='001111' order by 1
item=X+i,X+i,line,col3,2,2,N,,int

++i
++line
item=V+i,V+i,line,col2,5,4,N,,
sqlmenu=,Vyberte výkon,Vykon,Vykon;Nazev,select vykon,nazev from pojsaz where hrazeno='001111' order by 1
item=X+i,X+i,line,col3,2,2,N,,int

exit

Rejstřík kapitoly