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.