#
#   Výpočet ukazatele Q a generování přehledné tabulky pro tiskový výstup
#
    context.use.only  ACelkem,AKumulace
    _call          SetUp
    _call          HlavickaSestavy
    _call          Vypis,Zavod=JC,Nazev=JČ
    _call          Vypis,Zavod=JM,Nazev=JM
    _call          Vypis,Zavod=PH,Nazev=PH
    _call          Vypis,Zavod=SM,Nazev=SM
    _call          Vypis,Zavod=VC,Nazev=VČ
    _call          Vypis,Zavod=ZC,Nazev=ZČ
    f.write        !$(Minusitka)
    _call          Vypis,Zavod=CR,Nazev=ČRa
    f.write        !$(Minusitka)
    f.close
    viewer         c:\tmp\vystup_po_mesicich.txt
    exit

Vypis:
    f.write.more.v.nolf Nazev:5
    startsql       !select ukazatelq,Hodiny,Poruchy,obdobi from ukazatelq where Obdobi>='$(Od)' and Obdobi<='$(Do)' and Skupina='$(SkupinaQ)' and Zavod='$(Zavod)' order by obdobi
    set            HodinyCelkem,0,PoruchyCelkem,0
Loop:
    ?getsql        EndLoop
    addf           HodinyCelkem,Hodiny,HodinyCelkem
    addf           PoruchyCelkem,Poruchy,PoruchyCelkem
    if @AKumulace = 1 then _call VypisKumulace
    unify.number   ukazatelq
    if @ukazatelq = 0 then context.set ukazatelq=0,0000
    f.write.more.v.nolf ukazatelq:-9
    goto           Loop
EndLoop:
    stopsql
    if @ACelkem =  1 then _call VypisCelkem
    f.write
    _return

VypisKumulace:
    mulf           PoruchyCelkem,10000.0,XX
    divf           XX,HodinyCelkem,ukazatelq
    _return

VypisCelkem:
    mulf           PoruchyCelkem,10000.0,XX
    divf           XX,HodinyCelkem,ukazatelq
    unify.number   ukazatelq
    if @ukazatelq = 0 then context.set ukazatelq=0,0000
    f.write.more.v.nolf ukazatelq:-9
    _return


SetUp:
    set            Do,$(Today),Od,200001,SkupinaQ,AMV
    chop           Do,6
    ?wizard        q/vystup_po_mesicich.wiz
    _return

CannotCreate:
    _quit          Nemohu vytvořit výstupní soubor "c:/tmp/vystup_po_mesicich.txt".

HlavickaSestavy:
    ?f.create      c:/tmp/vystup_po_mesicich.txt,CannotCreate
    f.write        =======================================================================
    f.write        !  Ukazatel kvality poskytovaných radiokomunikačních služeb
    f.write        -----------------------------------------------------------------------
    f.write        !    Ukazatel Q:      doba trvání poruch / 10,000 odvysílaných hodin
    f.wr           !    Druh přehledu:   skupina $(SkupinaQ) po měsících
    if @AKumulace = 1 then f.wr ! nárůstem
    f.write
    f.write        !    Období (měsíce): $(Od) - $(Do)
    f.write        !    Generováno:      $(DateTime) / $(User)
    load.sql       !select Txt from SkupinaQ where SkupinaQ='$(SkupinaQ)'
    f.write        !    $(SkupinaQ) - $(Txt)
    f.write        -----------------------------------------------------------------------
    f.wr           !Závod
    startsql       !Select Obdobi from ukazatelq where Zavod='CR' and Obdobi>='$(Od)' and Obdobi<='$(Do)' and Skupina='$(SkupinaQ)' order by Obdobi
    set            Minusitka,-----
LoopHlavickaSestavy:
    ?getsql        EndLoopHlavickaSestavy
    f.wr           !    $(Obdobi)
    set            !Minusitka,$(Minusitka)----------
    goto           LoopHlavickaSestavy
EndLoopHlavickaSestavy:
    stopsql
    if !@ACelkem = 1 then _call HlavickaCelkem
    f.write
    f.write        !$(Minusitka)    
    _return
HlavickaCelkem:
    f.wr           !    Celkem
    set            !Minusitka,$(Minusitka)----------
    _return