; Paticka vykazu (Rozvaha a VZaZ)
; verze z 6.3.2013
Designed('');
SetStatusText('')


DeclareRec('Program')
;potrebuje, aby byly Globalni (priklad hodnot):
;Global X1Pata:Real=XZacatek4
;Global Y1Pata:Real=YKonec4+10
;Global X2Pata:Real=XKonec4
;Global Y2Pata:Real=YKonec4+30


;načtení parametrů:
INI:String=DataPath+'VYKAZY.INI'
MesDatumText:Word=VAL(GetFromIni('VYKAZY','MesDatumText',INI)) ;číselná hodnota zvolené volby
MesDatumPopis:String[50]=GetFromIni('VYKAZY','MesDatumPopis',INI)  ;text, který je zadán uživatelem
RokDatumText:Word=VAL(GetFromIni('VYKAZY','RokDatumText',INI))
RokDatumPopis:String[50]=GetFromIni('VYKAZY','RokDatumPopis',INI)
MesDatumTyp:Word=VAL(GetFromIni('VYKAZY','MesDatumTyp',INI))   ;typ, zda system.datum nebo rucne zadane
MesDatumVypln:String[50]=GetFromIni('VYKAZY','MesDatumVypln',INI)
RokDatumTyp:Word=VAL(GetFromIni('VYKAZY','RokDatumTyp',INI))
RokDatumVypln:String[50]=GetFromIni('VYKAZY','RokDatumVypln',INI)
MesPodpisText:Word=VAL(GetFromIni('VYKAZY','MesPodpisText',INI))
MesPodpisPopis:String[50]=GetFromIni('VYKAZY','MesPodpisPopis',INI)
MesPodpisTyp:Word=VAL(GetFromIni('VYKAZY','MesPodpisTyp',INI))
MesPodpisVypln:String[50]=GetFromIni('VYKAZY','MesPodpisVypln',INI)
RokPodpisText:Word=VAL(GetFromIni('VYKAZY','RokPodpisText',INI))
RokPodpisPopis:String[50]=GetFromIni('VYKAZY','RokPodpisPopis',INI)
RokPodpisTyp:Word=VAL(GetFromIni('VYKAZY','RokPodpisTyp',INI))
RokPodpisVypln:String[50]=GetFromIni('VYKAZY','RokPodpisVypln',INI)

RokTextRozv1:String[200]=GetFromIni('VYKAZY','RokTextRozv1',INI)
RokTextVZaZ1:String[200]=GetFromIni('VYKAZY','RokTextVZaZ1',INI)

RocniZaverka:Boolean=Boolean(Byte(Val(Copy(Obdobi(),1,2)))>Program.FiscalLength)

PEN(0,0.7);
ROUNDBOXA(X1Pata,Y1Pata,X2Pata,Y2Pata,3.3,3.3)

if(Program.TypFirmy=6)
begin
  FontFace(Normal)
  FONTSIZE(3.5)
;  TEXT(X1Pata+5,Y1Pata+3,TA_LEFT,'Odesláno dne:')
;  TEXT(X1Pata+41,Y1Pata+3,TA_LEFT,'Razítko:')
  TEXT(X1Pata+70,Y1Pata+3,TA_LEFT,'Podpis odpovědné')
  TEXT(X1Pata+111,Y1Pata+3,TA_LEFT,'Podpis osoby odpovědné')
  TEXT(X1Pata+70,Y1Pata+6,TA_LEFT,'osoby:')
  TEXT(X1Pata+111,Y1Pata+6,TA_LEFT,'za sestavení:')
  TEXT(X1Pata+111,Y1Pata+17,TA_LEFT,'Telefon:')
  TEXT(X1Pata+151,Y1Pata+3,TA_LEFT,'Okamžik sestavení:')
  RokDatumText=4
  RokPodpisText=4
  MesDatumText=4
  MesPodpisText=4
end
begin
  TiskDatum:Boolean=True
  TiskPodpis:Boolean=True
  DatumText:String
  DatumHodnota:String
  PodpisText:String
  PodpisHodnota:String
  TiskTextRozv:Boolean=True
  TiskTextVZaZ:Boolean=True

  if(RocniZaverka); roční
     begin
       ;roční výpočet
       ;uvození data:
       If(RokDatumText=1)
         DatumText='Datum:'
       If(RokDatumText=2)
         DatumText='Okamžik sestavení roční účetní závěrky:'
       If(RokDatumText=3)
         DatumText='Okamžik sestavení účetní závěrky:'
       If(RokDatumText=4)
         begin
           DatumText=''
           TiskDatum=False
         end
       If(RokDatumText=5)
         DatumText=RokDatumPopis

       ;datum:
       If(RokDatumTyp=1)
         DatumHodnota=StrDate(GetDate())
       If(RokDatumTyp=2)
         DatumHodnota=RokDatumVypln

       ;uvození jména:
       If(RokPodpisText=1)
         PodpisText='Podpis:'
       If(RokPodpisText=2)
         PodpisText='Podpis statutárního orgánu účetní jednotky:'
       If(RokPodpisText=3)
         PodpisText='Podpis účetní jednotky:'
       If(RokPodpisText=4)
         begin
           PodpisText=''
           TiskPodpis=False
         end
       If(RokPodpisText=5)
         PodpisText=RokPodpisPopis

       ;jméno:
       If(RokPodpisTyp=1)
         PodpisHodnota=GetUserName()
       If(RokPodpisTyp=2)
         PodpisHodnota=RokPodpisVypln

       TiskTextRozv=True
       TiskTextVZaZ=True

     end else
     begin
       ;měsíční výpočet
       ;uvození data:
       If(MesDatumText=1)
         DatumText='Datum:'
       If(MesDatumText=2)
         DatumText='Okamžik sestavení mezitímní účetní závěrky:'
       If(MesDatumText=3)
         DatumText='Okamžik sestavení účetní závěrky:'
       If(MesDatumText=4)
         begin
           DatumText=''
           TiskDatum=False
         end
       If(MesDatumText=5)
         DatumText=MesDatumPopis

       ;datum:
       If(MesDatumTyp=1)
         DatumHodnota=StrDate(GetDate())
       If(MesDatumTyp=2)
         DatumHodnota=MesDatumVypln

       ;uvození jména:
       If(MesPodpisText=1)
         PodpisText='Podpis:'
       If(MesPodpisText=2)
         PodpisText='Podpis statutárního orgánu účetní jednotky:'
       If(MesPodpisText=3)
         PodpisText='Podpis účetní jednotky:'
       If(MesPodpisText=4)
         begin
           PodpisText=''
           TiskPodpis=False
         end
       If(MesPodpisText=5)
         PodpisText=MesPodpisPopis

       ;jméno:
       If(MesPodpisTyp=1)
         PodpisHodnota=GetUserName()
       If(MesPodpisTyp=2)
         PodpisHodnota=MesPodpisVypln

       TiskTextRozv=False
       TiskTextVZaZ=False

     end


  FONTSIZE(3.5)
  FontFace(Normal)

  if(TiskDatum)
    begin
      TEXT(X1Pata+10,Y1Pata+2.5,TA_Left,DatumText)
      FontFace(Italic)
      TEXT(X1Pata+10,Y1Pata+6,TA_Left,DatumHodnota)
    end

  FontFace(Normal)
  if(TiskPodpis)
    begin
      TEXT(X2Pata-10,Y1Pata+2.5,TA_Right,PodpisText)
      FontFace(Italic)
      TEXT(X2Pata-10,Y1Pata+6,TA_Right,PodpisHodnota)
    end

if(CompareStr(UpCase(Copy(NazevSest1,1,7)),'ROZVAHA'))
  begin
    if(TiskTextRozv)
      begin
        FontFace(Italic)
        XTEXT(X1Pata+10,Y2Pata-6,168,TA_Left,RokTextRozv1)
      end
  end else
  begin
    if(TiskTextVZaZ)
      begin
        FontFace(Italic)
        XTEXT(X1Pata+10,Y2Pata-6,168,TA_Left,RokTextVZaZ1)
      end
  end
end

FontFace(Normal)
FONTSIZE(2.6)
TEXT(X2Pata,Y2Pata+2,TA_RIGHT,'Vytištěno systémem WinDUO')

Exit
End