; Rozvaha pro banky a pojišťovny pro rok 2007
; verze z 16.4.2007
; Autor: WinDUO Team

; dodelat predminule obdobi, ale je to realne az v 2004, kdy bude prebirat predminule z 2002

Designed('')
Author('Winduo Team','EMail: winduo@winduo.mine.nu','http://www.winduo.com','http://winduo.mine.nu')
Descr('Rozvaha pro pojišťovny a banky')

FileName('FIRO'+ObdMesic(2)+ObdRok(2)+'.WNS')
DeclareRec('Program')

Procedure PrintText(PocetRadku:Word,PrintLine:Word);
  While((EOF(Soubor)=False) and (PocetRadku>0))
    begin
      ReadedLine=ReadLn(Soubor);
      FirstChar=Asc(ReadedLine)
      if(FirstChar=Asc('$'))
        begin
        end else
        begin
          if(FirstChar=Asc('@'))
            begin
              ReadedLine=FromChar('@',ReadedLine);
            end else
          if(FirstChar=Asc('#'))
            begin
              ReadedLine=FromChar(',',FromChar(',',ReadedLine));
            end
          ReadedLine=ReadedLine+#9;
          if(PrintLine=0)
            begin
              if(FirstChar=Asc('@'))
                begin
                  ReadedLine=ReadedLine
                end else
                begin
                  ReadedLine=ReadedLine+Str(LineNum)
                  Inc(LineNum);
                end
            end else
            begin
              ReadedLine=ReadedLine+Str(PrintLine)
            end;
          DynTab(ReadedLine)
          Dec(PocetRadku)
        end;
    end;
end;


ItsBlank:Boolean
FormName:String=GetTabName(3);

if(Length(ObdMesic(2))<>0)
  begin
    Name('Rozvaha - Formulář za '+ObdMesic(2)+ObdRok(2))
  end else
  begin
    Name('Rozvaha - Prázdný formulář')
    ItsBlank=True
    ReadedLine:String
    FirstChar:Byte
    LineNum:Word=0
  end;

;hlavicka
Global NazevSest1:String='Rozvaha'
Global NazevSest2:String='podle pravidel pro pojišťovny a finanční instituce'         ;např. v plném rozsahu
Global Opatr1:String='Podle opatření Ministerstva financí ČR'
Global Opatr2:String='Č.j.:282/73 391/2001'
Global Opatr3:String='ze dne 7.prosince 2001'

;definice 1.strany
Global XZacatek1:Real=0  ; x souradnice zacatku tabulky na 1. straně
Global YTlusta1:Real=72  ; Y-souradnice prvni tluste cary
Global Y1Hlav1:Real=10
Global XKonec1:Real=188  ; x souradnice konce tabulky na 1. straně
PocRad1:Byte=29          ;pocet radku tabulky na 1. strane
YRadkovani1:Real=6       ;posun radku v tabulce na 1.strane
YKonec1:Real=YTlusta1+(pocrad1*YRadkovani1)
X1Svisla1:Real=XZacatek1+10
X2Svisla1:Real=XZacatek1+90
X3Svisla1:Real=XZacatek1+98
X4Svisla1:Real=(X3Svisla1+(XKonec1-X3Svisla1)/4)
X5Svisla1:Real=(X3Svisla1+(2*(XKonec1-X3Svisla1)/4))
X6Svisla1:Real=(X3Svisla1+(3*(XKonec1-X3Svisla1)/4))
X7Svisla1:Real=(X3Svisla1+(4*(XKonec1-X3Svisla1)/4))

Y2Hlav1:Real=9.5

CallDDT('HlavVyk.ddt')

;definice 2.strany
XZacatek2:Real=0      ; x souradnice zacatku tabulky na 2. straně
YTlusta2:Real=30      ; Y-souradnice prvni tluste cary
XKonec2:Real=188      ; x souradnice konce tabulky na 2. straně
PocRad2:Byte=10       ;pocet radku tabulky na 2. strane
YRadkovani2:Real=6    ;posun radku v tabulce na 2.strane
YKonec2:Real=YTlusta2+(pocrad2*YRadkovani2)
X1Svisla2:Real=XZacatek2+10
X2Svisla2:Real=XZacatek2+90
X3Svisla2:Real=XZacatek2+98
X4Svisla2:Real=(X3Svisla2+(XKonec2-X3Svisla2)/4)
X5Svisla2:Real=(X3Svisla2+(2*(XKonec2-X3Svisla2)/4))
X6Svisla2:Real=(X3Svisla2+(3*(XKonec2-X3Svisla2)/4))
X7Svisla2:Real=(X3Svisla2+(4*(XKonec2-X3Svisla2)/4))

Y1Hlav2:Real=Y1Hlav1
Y2Hlav2:Real=Y2Hlav1


;definice 4.strany
XZacatek4:Real=0      ; x souradnice zacatku tabulky na 4. straně
YTlusta4:Real=20      ; Y-souradnice prvni tluste cary
XKonec4:Real=188      ; x souradnice konce tabulky na 4. straně
PocRad4:Byte=45       ;pocet radku tabulky na 4. strane
YRadkovani4:Real=5,5  ;posun radku v tabulce na 4.strane
YKonec4:Real=YTlusta4+(pocrad4*YRadkovani4)
X1Svisla4:Real=XZacatek4+10
X2Svisla4:Real=XZacatek4+90
X3Svisla4:Real=XZacatek4+98
X4Svisla4:Real=(X3Svisla4+(XKonec4-X3Svisla4)/4)
X5Svisla4:Real=(X3Svisla4+(2*(XKonec4-X3Svisla4)/4))
X6Svisla4:Real=(X3Svisla4+(3*(XKonec4-X3Svisla4)/4))
X7Svisla4:Real=(X3Svisla4+(4*(XKonec4-X3Svisla4)/4))

Y1Hlav4:Real=Y1Hlav1
Y2Hlav4:Real=Y2Hlav1

;definice 5.strany
XZacatek5:Real=0      ; x souradnice zacatku tabulky na 5. straně
YTlusta5:Real=30      ; Y-souradnice prvni tluste cary
XKonec5:Real=188      ; x souradnice konce tabulky na 5. straně
PocRad5:Byte=6        ;pocet radku tabulky na 5. strane
YRadkovani5:Real=5,5  ;posun radku v tabulce na 5.strane
YKonec5:Real=YTlusta5+(pocrad5*YRadkovani5)
X1Svisla5:Real=XZacatek5+10
X2Svisla5:Real=XZacatek5+90
X3Svisla5:Real=XZacatek5+98
X4Svisla5:Real=(X3Svisla5+(XKonec5-X3Svisla5)/4)
X5Svisla5:Real=(X3Svisla5+(2*(XKonec5-X3Svisla5)/4))
X6Svisla5:Real=(X3Svisla5+(3*(XKonec5-X3Svisla5)/4))
X7Svisla5:Real=(X3Svisla5+(4*(XKonec5-X3Svisla5)/4))

Y1Hlav5:Real=Y1Hlav1
Y2Hlav5:Real=Y2Hlav1

;paticka
Global X1Pata:Real=XZacatek5
Global Y1Pata:Real=YKonec5+5
Global X2Pata:Real=XKonec5
Global Y2Pata:Real=YKonec5+45



;======================================= str. 1

;definice tabulky hodnot 1.strany
FONTFACE(Normal);
PEN(0,0.3)
LINEA(XZacatek1,YTlusta1,XKonec1,YTlusta1);

PEN(0,0.3)
BOXA(XZacatek1,YTlusta1-Y1Hlav1,XKonec1,YKonec1) ; obdelnik na 1. straně
LINEA(X1Svisla1,YTlusta1-Y1Hlav1,X1Svisla1,YKonec1) ; 1. svisla
LINEA(X2Svisla1,YTlusta1-Y1Hlav1,X2Svisla1,YKonec1) ; 2. svisla
LINEA(X3Svisla1,YTlusta1-Y1Hlav1,X3Svisla1,YKonec1) ; 3. svisla
LINEA(X4Svisla1,YTlusta1-Y2Hlav1,X4Svisla1,YKonec1) ; 4. svisla
LINEA(X5Svisla1,YTlusta1-Y2Hlav1,X5Svisla1,YKonec1) ; 5. svisla
LINEA(X6Svisla1,YTlusta1-Y1Hlav1,X6Svisla1,YKonec1) ; 6. svisla



LINESA(XZacatek1,YTlusta1+YRadkovani1,XKonec1,YTlusta1+YRadkovani1,0,YRadkovani1,PocRad1-1)


FONTSIZE(5)
FontFace(Bold)
TEXT(XZacatek1,YTlusta1-Y1Hlav1-6,TA_LEFT,'AKTIVA')
FONTSIZE(3)
FontFace(Normal)
TEXT(XZacatek1+(X1Svisla1-XZacatek1)/2,YTlusta1-Y1Hlav1+2.5,TA_CENTER,'Označ.')
TEXT(XZacatek1+(X1Svisla1-XZacatek1)/2,YTlusta1-5,TA_CENTER,'a')
TEXT((X1Svisla1+(X2Svisla1-X1Svisla1)/2),YTlusta1-Y1Hlav1+2.5,TA_CENTER,'T E X T')
TEXT((X1Svisla1+(X2Svisla1-X1Svisla1)/2),YTlusta1-5,TA_CENTER,'b')
TEXT((X2Svisla1+(X3Svisla1-X2Svisla1)/2),YTlusta1-Y1Hlav1+2.5,TA_CENTER,'Číslo')
TEXT((X2Svisla1+(X3Svisla1-X2Svisla1)/2),YTlusta1-Y1Hlav1+2.5+2.5,TA_CENTER,'řádku')
TEXT((X2Svisla1+(X3Svisla1-X2Svisla1)/2),YTlusta1-5,TA_CENTER,'c')
TEXT((X3Svisla1+(X6Svisla1-X3Svisla1)/2),YTlusta1-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X3Svisla1+(X4Svisla1-X3Svisla1)/2),YTlusta1-Y2Hlav1+1.5,TA_CENTER,'Minulé úč.období')
TEXT((X3Svisla1+(X4Svisla1-X3Svisla1)/2),YTlusta1-5,TA_CENTER,'1');
TEXT((X4Svisla1+(X5Svisla1-X4Svisla1)/2),YTlusta1-Y2Hlav1+1.5,TA_CENTER,'Hrubá výše')
TEXT((X4Svisla1+(X5Svisla1-X4Svisla1)/2),YTlusta1-5,TA_CENTER,'2');

TEXT((X5Svisla1+(X6Svisla1-X5Svisla1)/2),YTlusta1-Y2Hlav1+1.5,TA_CENTER,'Úprava')
TEXT((X5Svisla1+(X6Svisla1-X5Svisla1)/2),YTlusta1-5,TA_CENTER,'3');

TEXT((X6Svisla1+(XKonec1-X6Svisla1)/2),YTlusta1-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X6Svisla1+(XKonec1-X6Svisla1)/2),YTlusta1-Y2Hlav1+1.5,TA_CENTER,'Čistá výše')
TEXT((X6Svisla1+(XKonec1-X6Svisla1)/2),YTlusta1-5,TA_CENTER,'4');


if(ItsBlank)
  begin
    Soubor:TextFile;
    Open(Soubor,FormName);
  end else
  begin
    OpenWNS(WNSName)
  end;

TabPos(YTlusta1+2.5)
DefTab(3,YRadkovani1,XZacatek1+2,X1Svisla1-2,TA_LEFT,X1Svisla1+2,X2Svisla1-X1Svisla1-4,TA_BOTH,(X2Svisla1+(X3Svisla1-X2Svisla1)/2),X3Svisla1-X2Svisla1-2,TA_CENTER)
FontWidthScale(0.8)   ;zuzeni dlouhych textů, aby vyšly na řádek
if(ItsBlank)
  begin
    PrintText(PocRad1);
  end else
  begin
    SaveWnsPos(1)
    TabFromWns(1,8,PocRad1,$7)
    SaveWnsPos(2)

    LoadWnsPos(1)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(YTlusta1+2)
    DefTab(4,YRadkovani1,X4Svisla1-2,X4Svisla1-X3Svisla1,TA_RIGHT,X5Svisla1-2,X5Svisla1-X4Svisla1,TA_RIGHT,X6Svisla1-2,X6Svisla1-X5Svisla1,TA_RIGHT,X7Svisla1-2,X7Svisla1-X6Svisla1,TA_RIGHT)
    TabFromWns(1,8,PocRad1,$78)
  end;

FONTSIZE(3.3)
FontFace(Normal)
TEXT(XKonec1,YKonec1+2,TA_RIGHT,'Vytištěno systémem WinDUO')


;==================================== str. 2
NextPage

FONTFACE(Normal);
PEN(0,0.3)
LINEA(XZacatek2,YTlusta2,XKonec2,YTlusta2);

PEN(0,0.3)
BOXA(XZacatek2,YTlusta2-Y1Hlav2,XKonec2,YKonec2) ; obdelnik na 2. straně
LINEA(X1Svisla2,YTlusta2-Y1Hlav2,X1Svisla2,YKonec2) ; 1. svisla
LINEA(X2Svisla2,YTlusta2-Y1Hlav2,X2Svisla2,YKonec2) ; 2. svisla
LINEA(X3Svisla2,YTlusta2-Y1Hlav2,X3Svisla2,YKonec2) ; 3. svisla
LINEA(X4Svisla2,YTlusta2-Y1Hlav2,X4Svisla2,YKonec2) ; 4. svisla
LINEA(X5Svisla2,YTlusta2-Y1Hlav2,X5Svisla2,YKonec2) ; 5. svisla
LINEA(X6Svisla2,YTlusta2-Y1Hlav2,X6Svisla2,YKonec2) ; 6. svisla


LINESA(XZacatek2,YTlusta2+YRadkovani2,XKonec2,YTlusta2+YRadkovani2,0,YRadkovani2,PocRad2-1)

FONTSIZE(5)
FontFace(Bold)
TEXT(XZacatek2,YTlusta2-Y1Hlav2-6,TA_LEFT,'AKTIVA')
FONTSIZE(2)
FontFace(Normal)
TEXT(XZacatek2+(X1Svisla2-XZacatek2)/2,YTlusta2-Y1Hlav1+2.5,TA_CENTER,'Označ.')
TEXT(XZacatek2+(X1Svisla2-XZacatek2)/2,YTlusta2-5,TA_CENTER,'a')
TEXT((X1Svisla2+(X2Svisla2-X1Svisla2)/2),YTlusta2-Y1Hlav1+2.5,TA_CENTER,'T E X T')
TEXT((X1Svisla2+(X2Svisla2-X1Svisla2)/2),YTlusta2-5,TA_CENTER,'b')
TEXT((X2Svisla2+(X3Svisla2-X2Svisla2)/2),YTlusta2-Y1Hlav1+2.5,TA_CENTER,'Číslo')
TEXT((X2Svisla2+(X3Svisla2-X2Svisla2)/2),YTlusta2-Y1Hlav1+2.5+2.5,TA_CENTER,'řádku')
TEXT((X2Svisla2+(X3Svisla2-X2Svisla2)/2),YTlusta2-5,TA_CENTER,'c')
TEXT((X3Svisla2+(X6Svisla2-X3Svisla2)/2),YTlusta2-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X3Svisla2+(X4Svisla2-X3Svisla2)/2),YTlusta2-Y2Hlav1+1.5,TA_CENTER,'Minulé úč.období')
TEXT((X3Svisla2+(X4Svisla2-X3Svisla2)/2),YTlusta2-5,TA_CENTER,'1');
TEXT((X4Svisla2+(X5Svisla2-X4Svisla2)/2),YTlusta2-Y2Hlav1+1.5,TA_CENTER,'Hrubá výše')
TEXT((X4Svisla2+(X5Svisla2-X4Svisla2)/2),YTlusta2-5,TA_CENTER,'2');

TEXT((X5Svisla2+(X6Svisla2-X5Svisla2)/2),YTlusta2-Y2Hlav1+1.5,TA_CENTER,'Úprava')
TEXT((X5Svisla2+(X6Svisla2-X5Svisla2)/2),YTlusta2-5,TA_CENTER,'3');

TEXT((X6Svisla2+(XKonec2-X6Svisla2)/2),YTlusta2-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X6Svisla2+(XKonec2-X6Svisla2)/2),YTlusta2-Y2Hlav1+1.5,TA_CENTER,'Čistá výše')
TEXT((X6Svisla2+(XKonec2-X6Svisla2)/2),YTlusta2-5,TA_CENTER,'4');


TabPos(YTlusta2+2)
DefTab(3,YRadkovani2,XZacatek2+2,X1Svisla2-2,TA_LEFT,X1Svisla2+2,X2Svisla2-X1Svisla2-4,TA_BOTH,(X2Svisla2+(X3Svisla2-X2Svisla2)/2),X3Svisla2-X2Svisla2-2,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad2);
  end else
  begin
    LoadWNSPos(2)
    TabFromWns(1,8,PocRad2,$7)
    SaveWnsPos(4); ulozim aktualni pozici ve WNS souboru do bunky 3

    LoadWnsPos(2)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(YTlusta2+1)
    DefTab(4,YRadkovani2,X4Svisla2-2,X4Svisla2-X3Svisla2,TA_RIGHT,X5Svisla2-2,X5Svisla2-X4Svisla2,TA_RIGHT,X6Svisla2-2,X6Svisla2-X5Svisla2,TA_RIGHT,X7Svisla2-2,X7Svisla2-X6Svisla2,TA_RIGHT)
    TabFromWns(1,8,PocRad2,$78)
  end;

FONTSIZE(3.3)
FontFace(Normal)
TEXT(XKonec1,YKonec1+2,TA_RIGHT,'Vytištěno systémem WinDUO')


 



;==================================== str. 4
NextPage

FONTFACE(Normal);
PEN(0,0.3)
LINEA(XZacatek4,YTlusta4,XKonec4,YTlusta4);

PEN(0,0.3)
BOXA(XZacatek4,YTlusta4-Y1Hlav4,XKonec4,YKonec4) ; obdelnik na 3. straně
LINEA(X1Svisla4,YTlusta4-Y1Hlav4,X1Svisla4,YKonec4) ; 1. svisla
LINEA(X2Svisla4,YTlusta4-Y1Hlav4,X2Svisla4,YKonec4) ; 2. svisla
LINEA(X3Svisla4,YTlusta4-Y1Hlav4,X3Svisla4,YKonec4) ; 3. svisla
LINEA(X4Svisla4,YTlusta4-Y1Hlav4,X4Svisla4,YKonec4) ; 4. svisla
LINEA(X5Svisla4,YTlusta4-Y1Hlav4,X5Svisla4,YKonec4) ; 5. svisla
LINEA(X6Svisla4,YTlusta4-Y1Hlav4,X6Svisla4,YKonec4) ; 6. svisla



LINESA(XZacatek4,YTlusta4+YRadkovani4,XKonec4,YTlusta4+YRadkovani4,0,YRadkovani4,PocRad4-1)

FONTSIZE(5)
FontFace(Bold)
TEXT(XZacatek4,YTlusta4-Y1Hlav4-6,TA_LEFT,'PASÍVA')
FONTSIZE(3)
FontFace(Normal)
TEXT(XZacatek4+(X1Svisla4-XZacatek4)/2,YTlusta4-Y1Hlav1+2.5,TA_CENTER,'Označ.')
TEXT(XZacatek4+(X1Svisla4-XZacatek4)/2,YTlusta4-5,TA_CENTER,'a')
TEXT((X1Svisla4+(X2Svisla4-X1Svisla4)/2),YTlusta4-Y1Hlav1+2.5,TA_CENTER,'T E X T')
TEXT((X1Svisla4+(X2Svisla4-X1Svisla4)/2),YTlusta4-5,TA_CENTER,'b')
TEXT((X2Svisla4+(X3Svisla4-X2Svisla4)/2),YTlusta4-Y1Hlav1+2.5,TA_CENTER,'Číslo')
TEXT((X2Svisla4+(X3Svisla4-X2Svisla4)/2),YTlusta4-Y1Hlav1+2.5+2.5,TA_CENTER,'řádku')
TEXT((X2Svisla4+(X3Svisla4-X2Svisla4)/2),YTlusta4-5,TA_CENTER,'c')
TEXT((X3Svisla4+(X6Svisla4-X3Svisla4)/2),YTlusta4-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X3Svisla4+(X4Svisla4-X3Svisla4)/2),YTlusta4-Y2Hlav1+1.5,TA_CENTER,'Minulé úč.období')
TEXT((X3Svisla4+(X4Svisla4-X3Svisla4)/2),YTlusta4-5,TA_CENTER,'1');
TEXT((X4Svisla4+(X5Svisla4-X4Svisla4)/2),YTlusta4-Y2Hlav1+1.5,TA_CENTER,'Hrubá výše')
TEXT((X4Svisla4+(X5Svisla4-X4Svisla4)/2),YTlusta4-5,TA_CENTER,'2');

TEXT((X5Svisla4+(X6Svisla4-X5Svisla4)/2),YTlusta4-Y2Hlav1+1.5,TA_CENTER,'Úprava')
TEXT((X5Svisla4+(X6Svisla4-X5Svisla4)/2),YTlusta4-5,TA_CENTER,'3');

TEXT((X6Svisla4+(XKonec4-X6Svisla4)/2),YTlusta4-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X6Svisla4+(XKonec4-X6Svisla4)/2),YTlusta4-Y2Hlav1+1.5,TA_CENTER,'Čistá výše')
TEXT((X6Svisla4+(XKonec4-X6Svisla4)/2),YTlusta4-5,TA_CENTER,'4');


TabPos(YTlusta4+2)
DefTab(3,YRadkovani4,XZacatek4+2,X1Svisla4-2,TA_LEFT,X1Svisla4+2,X2Svisla4-X1Svisla4-4,TA_BOTH,(X2Svisla4+(X3Svisla4-X2Svisla4)/2),X3Svisla4-X2Svisla4-2,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad4);
  end else
  begin
    LoadWNSPos(4)
    TabFromWns(1,8,PocRad4,$7)
    SaveWnsPos(5); ulozim aktualni pozici ve WNS souboru do bunky 4
    LoadWnsPos(4)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(YTlusta4+1)
    DefTab(4,YRadkovani4,X4Svisla4-2,X4Svisla4-X3Svisla4,TA_RIGHT,X5Svisla4-2,X5Svisla4-X4Svisla4,TA_RIGHT,X6Svisla4-2,X6Svisla4-X5Svisla4,TA_RIGHT,X7Svisla4-2,X7Svisla4-X6Svisla4,TA_RIGHT)
    TabFromWns(1,8,PocRad4,$78)
  end;

;==================================== str. 5
NextPage

FONTFACE(Normal);
PEN(0,0.3)
LINEA(XZacatek5,YTlusta5,XKonec5,YTlusta5);

PEN(0,0.3)
BOXA(XZacatek5,YTlusta5-Y1Hlav5,XKonec5,YKonec5) ; obdelnik na 5. straně
LINEA(X1Svisla5,YTlusta5-Y1Hlav5,X1Svisla5,YKonec5) ; 1. svisla
LINEA(X2Svisla5,YTlusta5-Y1Hlav5,X2Svisla5,YKonec5) ; 2. svisla
LINEA(X3Svisla5,YTlusta5-Y1Hlav5,X3Svisla5,YKonec5) ; 3. svisla
LINEA(X4Svisla5,YTlusta5-Y1Hlav5,X4Svisla5,YKonec5) ; 4. svisla
LINEA(X5Svisla5,YTlusta5-Y1Hlav5,X5Svisla5,YKonec5) ; 5. svisla
LINEA(X6Svisla5,YTlusta5-Y1Hlav5,X6Svisla5,YKonec5) ; 6. svisla



LINESA(XZacatek5,YTlusta5+YRadkovani5,XKonec5,YTlusta5+YRadkovani5,0,YRadkovani5,PocRad5-1)

FONTSIZE(5)
FontFace(Bold)
TEXT(XZacatek5,YTlusta5-Y1Hlav5-6,TA_LEFT,'PASÍVA')
FONTSIZE(3)
FontFace(Normal)
TEXT(XZacatek5+(X1Svisla5-XZacatek5)/2,YTlusta5-Y1Hlav1+2.5,TA_CENTER,'Označ.')
TEXT(XZacatek5+(X1Svisla5-XZacatek5)/2,YTlusta5-5,TA_CENTER,'a')
TEXT((X1Svisla5+(X2Svisla5-X1Svisla5)/2),YTlusta5-Y1Hlav1+2.5,TA_CENTER,'T E X T')
TEXT((X1Svisla5+(X2Svisla5-X1Svisla5)/2),YTlusta5-5,TA_CENTER,'b')
TEXT((X2Svisla5+(X3Svisla5-X2Svisla5)/2),YTlusta5-Y1Hlav1+2.5,TA_CENTER,'Číslo')
TEXT((X2Svisla5+(X3Svisla5-X2Svisla5)/2),YTlusta5-Y1Hlav1+2.5+2.5,TA_CENTER,'řádku')
TEXT((X2Svisla5+(X3Svisla5-X2Svisla5)/2),YTlusta5-5,TA_CENTER,'c')
TEXT((X3Svisla5+(X6Svisla5-X3Svisla5)/2),YTlusta5-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X3Svisla5+(X4Svisla5-X3Svisla5)/2),YTlusta5-Y2Hlav1+1.5,TA_CENTER,'Minulé úč.období')
TEXT((X3Svisla5+(X4Svisla5-X3Svisla5)/2),YTlusta5-5,TA_CENTER,'1');
TEXT((X4Svisla5+(X5Svisla5-X4Svisla5)/2),YTlusta5-Y2Hlav1+1.5,TA_CENTER,'Hrubá výše')
TEXT((X4Svisla5+(X5Svisla5-X4Svisla5)/2),YTlusta5-5,TA_CENTER,'2');

TEXT((X5Svisla5+(X6Svisla5-X5Svisla5)/2),YTlusta5-Y2Hlav1+1.5,TA_CENTER,'Úprava')
TEXT((X5Svisla5+(X6Svisla5-X5Svisla5)/2),YTlusta5-5,TA_CENTER,'3');

TEXT((X6Svisla4+(XKonec5-X6Svisla5)/2),YTlusta5-Y1Hlav1+2.5,TA_CENTER,'')
TEXT((X6Svisla4+(XKonec5-X6Svisla5)/2),YTlusta5-Y2Hlav1+1.5,TA_CENTER,'Čistá výše')
TEXT((X6Svisla4+(XKonec5-X6Svisla5)/2),YTlusta5-5,TA_CENTER,'4');

TEXT(5.5,244.5,TA_LEFT,'Odesláno dne:')
TEXT(61.5,244.5,TA_LEFT,'Razítko:')
TEXT(95.5,244.5,TA_LEFT,'Podpis odpovědné')
TEXT(146.5,244.5,TA_LEFT,'Podpis osoby odpovědné')
TEXT(95.5,247.5,TA_LEFT,'osoby:')
TEXT(146.5,247.5,TA_LEFT,'za zaúčtování:')
TEXT(146.5,255.5,TA_LEFT,'Telefon:')

TabPos(YTlusta5+2)
DefTab(3,YRadkovani5,XZacatek5+2,X1Svisla5-2,TA_LEFT,X1Svisla5+2,X2Svisla5-X1Svisla5-4,TA_BOTH,(X2Svisla5+(X3Svisla5-X2Svisla5)/2),X3Svisla5-X2Svisla5-2,TA_CENTER)
if(ItsBlank)
  begin
    PrintText(PocRad5);
  end else
  begin
    LoadWNSPos(5)
    TabFromWns(1,8,PocRad5,$F)
    SaveWnsPos(6); ulozim aktualni pozici ve WNS souboru do bunky 5


    LoadWnsPos(5)
    FontSize(4.5)
    FontFace(Bold|Italic)
    TabPos(YTlusta5+1)
    DefTab(4,YRadkovani5,X4Svisla5-2,X4Svisla5-X3Svisla5,TA_RIGHT,X5Svisla5-2,X5Svisla5-X4Svisla5,TA_RIGHT,X6Svisla5-2,X6Svisla5-X5Svisla5,TA_RIGHT,X7Svisla5-2,X7Svisla5-X6Svisla5,TA_RIGHT)
    TabFromWns(1,8,PocRad5,$78)
  end;

BOXA(0,242,188,264)
Konec:
END