Mikrobiologie-2001.Step-by-step.033
Postup řešení:
A.Přidáme laboratoř R do tabulky Laboratore.
B.Pohled na razítka a tam naklonujeme velké mustrové razítko podle nějakého vhodného vzoru. Například TBC_KLASICKA.
Exportujeme pomocí Alt+E.
C.Definice mustru. Naklonujeme podle TBC_KUL, upravíme název mustru a i razítko. Uložíme a zase Alt+E.
Pomocí Alt+F5 se můžeme podívat, jak mustr vypadá. Pozor - ukazuje stav po Alt+E. Čili pokud chceme úpravy
dělat několikrát, musíme Alt+E udělat vždy před Alt+F5, jinak bude ukazovat předešlou verzi mustru.
D.Přehled mustrů. Zde budeme chtít trochu netradiční chování - ať bude materiál jakýkoli, chceme
vygenerovat mustr vždy stejný. Vložen řádek obsahující:
IDPREHLEDMUSTRU MATERIALVYSETRENI LABORATOR ZARIZENI ODDELENI PRIMARIAT TYPPECE SUBTYPPECE MUSTR KOMENTAR KDOZAPSAL KDYZAPSAL
--------------- ----------------- --------- -------- -------- --------- -------- ---------- ---------------- -------------------------------------------------------------------------------- ---------------- ----------------
00.5 ^MATERIAL R ^ ^ ^ ^ ^ TBC_IDENTIFIKACE Pro nvou laborku R ladouch 20050608104642
Zase uděláme export.
E.Od tohoto okamžiku už R-ko funguje, vygeneruje vždycky stejný mustr pro knihu.
F.Vyřešíme účtování. Zde chceme, aby se za materiál by default neúčtovalo vůbec nic. Totéž u vyšetření.
Věc se nejlépe vyřeší změnou účtovacího algoritmu, protože jinak bychom museli do tabulky PojMatVyjimky
vrazit všechny materiály a navíc ji udržovat synchronně vždy se změnu v tabulce Materialy. Pouze pro
úplnost uvedeme úpravu - tu musí vždycky dělat JLabs:
Skript params/prg/browser/ucet_common.prg obsahuje sekvenci:
UcetMaterial:
if or,@L = P,@L = M,@L = B then _return
a tu upraví někdo oprávněný z JLabs na
UcetMaterial:
if or,@L = P,@L = M,@L = B,@L = R then _return
Smyslem úpravy je to, že vedle laboratoří P,M a B, kde se za materiál neúčtuje už teď, se nebude účtovat i
pro R-ko.
Vyúčtování za vyšetření nemusíme řešit, v R-ku žádná vyšetření ve smyslu bakteriologie do příjmového
protkolu dávat nebudeme, dělá se by default pouze identifikace a ad=hoc se případně do knihy dávají razítka,
která se vyúčtují sama od sebe.
G.Zkontrolujeme skript params/prg/uctovani/vypocet.prg, zda tam nahodou není výjimka pro laboratoř R. R-ko
se dosud nepoužívalo.
Výjimka je ale jenom u T-čka, což je testovací laboratoř. Jinak bychom výjimku museli zrušit s přihlédnutím
k tomu, proč vlastně byla kdysi udělena. Mohlo to být defenzivní opatření, aby se neúčtovaly chybné výkony
z neexistující laboratoře apod.
H.Nabídka razítek. Naklonujeme pomocí Ins v přehledu refů jeden pro R-ko. Nejspíše podle B-čka. Pak Alt+E.
I.Implicitní překládání - translace. Naklonujeme alias.r podle alias.b a poupravíme.
Upravíme vmr.tra tak, aby se TBC_IDENTIFKACE přeložilo do výsledku jako Identifikace.
Podíváme se i do translat.txt a pokud má laboratoř B nějaké výjimky, uděláme je i pro R-ko.
Pozná se to podle návěští B: - pokud budeme chtít výjimky jiné pro R-ko, naklonujeme ty B-čkové,
dáme návěští R: a upravíme. Jinak dáme R: na řádek za B: a je to.
Alt+E.
J.Záhlaví výsledku pro R-ko. V tabulce Ciselniky naklonujeme a poupravíme sys/zahlavir.int podle sys/zahlavib.int.
K.Možnost manuálního doúčtování přes knihu. Z jiné konfigurace importujeme razítko UCET. Pak Alt+E nad
knihovnou razítek. Přidáme buď do nabídek nebo použijeme vlastnost programu, že Alt+U znamená otisknout
razítko UCET, není-li Alt+U obsazeno. Obsazeno ale je a tak použijeme submenu na Alt+J=JINE.
Aktualizováno dne 20010320. Komentář: info@jlabs.cz