#
#
#   Komentář:
#       1.Pomocí .include je načítána společná část generátoru spíše než aby byla excuována jako podskript.
#       2.Jedná se o úplnou analogii C-čkového #include
#
    f.create          c:\tmp\hlaseni_cr.raw
    f.write           .FONT +1,+B
    f.write           ==============================================================================================
    f.write           !Odesílatel: České radiokomunikace a.s.   fax: $(Fax_Tady)
    f.write           !Adresát:    Český rozhlas - OTR          fax: $(Fax_CR)
    f.write
    f.write
    f.write           !Hlášení o provozu vysílačů Českého rozhlasu za den $(DatumCz)
    f.write           
    f.write           .FONT -B
    set               Pocet,0
    set               !Podminka,(DatPor='$(DatPor)') and ((Uziv like 'CRO%') or (Uziv like 'RFE%')) and (Hlaseni='A')
    set               !Podminka2,(Datum='$(DatPor)') and ((Uziv like 'CRO%') or (Uziv like 'RFE%')) and (DoHlaseni='A')
    load.sql          !select count(*) as Pocet from poruchydisp where $(Podminka)
    call.sub          Poruchy
    call.sub          OBloky
    f.write
    f.write           !                                              Podpis: $(Podpis)
    f.write           .FONT -1
    f.close
    indent            c:\tmp\hlaseni_cr.raw,c:\tmp\hlaseni_cr.txt,2
    call.args         hlaseni/kopirovani.prg,Fn=hlaseni_cr.txt
    call.args         hlaseni/kopirovani_plus.prg,Fn=hlaseni_cr.txt
    return

.include hlaseni/common.prg