Name('Výkaz ZaS - Formulár za '+ObdMesic(2)+ObdRok(2))
Designed('')
Author('A-CORY s.r.o.','EMail: acory@acory.sk','http://www.acory.sk')
Descr('Výkaz ziskov a strat pre podnikateľov v plnom rozsahu','formulár Úč POD 1-01','z dátumu 3.4.2007')
FileName('FIVZ'+ObdMesic(2)+ObdRok(2)+'.WNS')

TypPriz:Byte=Val(GetDataIni('Info','TypPriz'))
DeclareRec('Program')

ShadeColor:LongInt=$00B0B0B0;

if(not ExistVariable('Prazdny'))
  begin
    Prazdny:Boolean=(Length(WNSName())=0);
  end;

y:Real;
i:Word;
j:Word;
TTY:Real;
TTPocet:Word;
TTStr:String;
UX:Real;
UY:Real;
UI:Integer;
LastRadku:Word;

; {######## Strana 1 #######}

Pen(0,0.7,0)

Line(9,10,7,0)
Line(9,10,0,7)
Line(192,10,-7,0)
Line(192,10,0,7)
Line(9,278,7,0)
Line(9,278,0,-7)
Line(192,278,-7,0)
Line(192,278,0,-7)

BarCode(bc_Code2of5i,147,9,40,7.7,'2898331532',False);

FontSize(7);
FontFace(Bold);

Text(100.5,14.5,ta_Center|ta_BaseLine,'VÝKAZ');
Text(100.5,20.5,ta_Center|ta_BaseLine,'ZISKOV A STRÁT');

Pen(0,0.3,0)
FontFace(Normal)
FontSize(2.5)

Text(17,10.5,ta_Left|ta_BaseLine,'UVPOD2v07_1');
Text(100,279.5,ta_Center|ta_BaseLine,'Vytlačené systémom WinDUO');
FontFace(Bold)
Text(182,279.5,ta_Right|ta_BaseLine,'Strana 1')

Box(17,13,56,5);

FontFace(Normal)
FontSize(3)
Text(18,279.5,ta_Left|ta_BaseLine,'MF SR č. 25812/2/2006');


FontSize(3.8)
Text(45,17,ta_Center|ta_BaseLine,'Výkaz ziskov a strát Úč POD 2 - 01');

Box(63,21.5,75.5,10);

Text(65,27.5,ta_Left|ta_BaseLine,'k');
Text(135.5,27.5,ta_Right|ta_BaseLine,'(v tisícoch Sk)');

Box(9,32.5,183,16.5);
Box(9,50,183,39);
Box(9,90,183,89);
Box(9,180,183,32);
Box(18,228,165,48);

FontSize(3.4);

XText(11,40,180,ta_Left|ta_BaseLine,'Údaje se vypĺňajú paličkovým písmom (podľa tohto vzoru), písacím strojom alebo tlačiarňou, a to čiernou alobo tmavomodrou farbou.');
Text(11.5,54,ta_Left|ta_BaseLine,'Daňové identifikačné číslo');
Text(64.5,54,ta_Left|ta_BaseLine,'Účtovná závierka');
Text(94.5,54,ta_Left|ta_BaseLine,'Účtovná závierka');
Text(159.5,54,ta_Left|ta_BaseLine,'Mesiac');
Text(172,54,ta_Left|ta_BaseLine,'Rok');
Text(11.5,66.5,ta_Left|ta_BaseLine,'IČO');
Text(75,63.5,ta_Left|ta_BaseLine,'riadna');
Text(75,70.5,ta_Left|ta_BaseLine,'mimoriadna');
Text(75,77.5,ta_Left|ta_BaseLine,'priebežná');
Text(104,63.5,ta_Left|ta_BaseLine,'zostavená');
Text(104,70.5,ta_Left|ta_BaseLine,'schválená');
Text(122.5,63.5,ta_Left|ta_BaseLine,'Za obdobie');
Text(122.5,77,ta_Left|ta_BaseLine,'Bezprostredne');
Text(122.5,80.5,ta_Left|ta_BaseLine,'predcházajúce');
Text(122.5,84,ta_Left|ta_BaseLine,'obdobie');
Text(154.5,59.5,ta_Left|ta_BaseLine,'od');
Text(154.5,68,ta_Left|ta_BaseLine,'do');
Text(154.5,77,ta_Left|ta_BaseLine,'od');
Text(154.5,85.5,ta_Left|ta_BaseLine,'do');
Text(11.5,93,ta_Left|ta_BaseLine,'Obchodné meno (názov) účtovnej jednotky');
Text(11.5,114,ta_Left|ta_BaseLine,'Právna forma účtovnej jednotky');
Text(11.5,133,ta_Left|ta_BaseLine,'Ulica');
Text(153,133,ta_Left|ta_BaseLine,'Číslo');
Text(11.5,145.5,ta_Left|ta_BaseLine,'PSČ');
Text(40.5,145.5,ta_Left|ta_BaseLine,'Obec');
Text(11.5,157.5,ta_Left|ta_BaseLine,'Telefón');
Text(79.5,157.5,ta_Left|ta_BaseLine,'Fax');
Text(11.5,169,ta_Left|ta_BaseLine,'E-mail');
Text(11.5,184,ta_Left|ta_BaseLine,'Zostavený dňa:');
Text(11.5,201,ta_Left|ta_BaseLine,'Schválený dňa:');
Text(58.5,184,ta_Left|ta_BaseLine,'Podpisový záznam člena');
Text(58.5,187.5,ta_Left|ta_BaseLine,'štatutárneho orgánu účtovnej');
Text(58.5,191,ta_Left|ta_BaseLine,'jednotky alebo fyzickej osoby,');
Text(58.5,194.5,ta_Left|ta_BaseLine,'ktorá je účtovnou jednotkou:');
Text(104,184,ta_Left|ta_BaseLine,'Podpisový záznam osoby');
Text(104,187.5,ta_Left|ta_BaseLine,'zodpovednej za zostavenie');
Text(104,191,ta_Left|ta_BaseLine,'účtovnej závierky:');
Text(149,184,ta_Left|ta_BaseLine,'Podpisový záznam osoby');
Text(149,187.5,ta_Left|ta_BaseLine,'zodpovednej za vedenie');
Text(149,191,ta_Left|ta_BaseLine,'účtovníctva:');
Text(59,274,ta_Center|ta_BaseLine,'Miesto pre evidenčné číslo');
Text(142,274,ta_Center|ta_BaseLine,'Odtlačok prezentačnej pečiatky daňového úradu');

FontFace(Bold);

XText(11,36,180,ta_Left|ta_BaseLine,'Číselné údaje sa zarovnávajú vpravo, ostatné údaje sa píšu zľava. Nevyplnené riadky sa ponechávajú prázdne.');
Text(11.5,127.5,ta_Left|ta_BaseLine,'Sídlo účtovnej jednotky');

FontFace(Italic)

Text(117,78,ta_Right|ta_BaseLine,'(vyznačí sa x)')

FontSize(4)

Text(20,232.5,ta_Left|ta_BaseLine,'Záznamy daňového úradu');

Pen(0,0.1,0);

Line(62.5,50,0,39);
Line(120,50,0,39);
Line(120,71,72,0);
Line(9,124,183,0);
Line(9,129,183,0);
Line(9,196,47.5,0);
Line(56.5,180,0,32);
Line(101.5,180,0,32);
Line(147,180,0,32);

Pen(0,0.01,ShadeColor);

Box(69,61,3,3);
Box(69,68,3,3);
Box(69,75,3,3);

Box(98,61,3,3);
Box(98,68,3,3);

if(not Prazdny)
  begin
    SText(70.5,63.5+Val(GetDataIni('Info','TypPriz'))*7,ta_Center|ta_BaseLine,4.8,1,'x');
    if(ValDate(GetDataINI('Info','DatumZostavenia'))<>0)
      SText(99.5,63.5,ta_Center|ta_BaseLine,4.8,1,'x');
    if(ValDate(GetDataINI('Info','DatumSchvalenia'))<>0)
      SText(99.5,70.5,ta_Center|ta_BaseLine,4.8,1,'x');
  end;

FontFace(Italic);

SetFormFont()

Udaj(12,41.5,37);
SText(14,46,ta_Center|ta_BaseLine,4.8,26,'ÁÄBČDÉFGHÍJKLMNOPQRŠTÚVXÝŽ0123456789');
SText(143.6,46,ta_Center|ta_BaseLine,4.8,10,'0123456789');

Udaj(159.5,55.5,2);
Udaj(172,55.5,4);
SText(174,60,ta_Center|ta_BaseLine,4.8,3,'200');
Udaj(159.5,64,2);
Udaj(172,64,4);
SText(174,68.5,ta_Center|ta_BaseLine,4.8,3,'200');
Udaj(159.5,72.5,2);
Udaj(172,72.5,4);
SText(174,77,ta_Center|ta_BaseLine,4.8,3,'200');
Udaj(159.5,81,2);
Udaj(172,81,4);
SText(174,85.5,ta_Center|ta_BaseLine,4.8,3,'200');

if(not Prazdny)
  begin
    SText(161.5,60,ta_Center|ta_BaseLine,4.8,2,FillStrL(Str(1+Program.FiscalOffset),2));
    SText(188.4,60,ta_Center|ta_BaseLine,4.8,1,ObdRok(1));
    SText(161.5,68.5,ta_Center|ta_BaseLine,4.8,2,FillStrL(Str(Month(ValDate(ObdMaxDay(0))),2)));
    SText(188.4,68.5,ta_Center|ta_BaseLine,4.8,1,Str(Year(ValDate(ObdMaxDay(0)))%10));
  end;

SText(14,163.5,ta_Center|ta_BaseLine,4.8,5,'0   /');
SText(81,163.5,ta_Center|ta_BaseLine,4.8,5,'0   /');

Udaj(12,56,10);
Udaj(12,68,8);
Udaj(12,95,37);
Udaj(12,104,37);
Udaj(12,116,37);
Udaj(12,135,28);
Udaj(151.2,135,8);
Udaj(12,147,5);
Udaj(40.8,147,31);
Udaj(12,159,4);
Udaj(36,159,8);
Udaj(79.2,159,4);
Udaj(103.2,159,8);
Udaj(12,171,37);

if(Prazdny)
  begin
    UdajD(70,23.5,0);
    UdajD(12,186,0)
    UdajD(12,203,0)
  end else
  begin
    UdajD(70,23.5,ObdMaxDay(0));
    SText(14,60.5,ta_Center|ta_BaseLine,4.8,10,Program.DIC);
    SText(14,72.5,ta_Center|ta_BaseLine,4.8,10,FillStrL(Str(Program.ICO),8));
    SText(14,99.5,ta_Center|ta_BaseLine,4.8,37,UpCase(GetDataINI('INFO','ObchodneMeno'))))
    SText(14,108.5,ta_Center|ta_BaseLine,4.8,37,UpCase(GetDataINI('INFO','ObchodneMeno2')))
    SText(14,120.5,ta_Center|ta_BaseLine,4.8,37,UpCase(GetDataINI('INFO','PravnaForma')))
    SText(14,139.5,ta_Center|ta_BaseLine,4.8,28,UpCase(GetDataINI('INFO','Ulica')))
    SText(153.2,139.5,ta_Center|ta_BaseLine,4.8,8,UpCase(GetDataINI('INFO','UlicaCislo')))
    SText(14,151.5,ta_Center|ta_BaseLine,4.8,5,UpCase(GetDataINI('INFO','PSCDPH')))
    SText(42.8,151.5,ta_Center|ta_BaseLine,4.8,31,UpCase(GetDataINI('INFO','Obec')))
    TTStr=UpCase(GetDataINI('INFO','VolackaTel'));
    if(CompareStr(Copy(TTStr,1,1),'0'))
      TTStr=Copy(TTStr,2,255);
    SText(18.8,163.5,ta_Center|ta_BaseLine,4.8,3,TTStr)
    SText(38,163.5,ta_Center|ta_BaseLine,4.8,8,UpCase(GetDataINI('INFO','Tel'))
    TTStr=UpCase(GetDataINI('INFO','VolackaFax'));
    if(CompareStr(Copy(TTStr,1,1),'0'))
      TTStr=Copy(TTStr,2,255);
    SText(86,163.5,ta_Center|ta_BaseLine,4.8,3,TTStr)
    SText(105.2,163.5,ta_Center|ta_BaseLine,4.8,8,UpCase(GetDataINI('INFO','Fax'))
    SText(14,175.5,ta_Center|ta_BaseLine,4.8,37,UpCase(GetDataINI('INFO','eMail'))))
    UdajD(12,186,StrDate(ValDate(GetDataINI('Info','DatumZostavenia'))))
    UdajD(12,203,StrDate(ValDate(GetDataINI('Info','DatumSchvalenia'))))
  end;

; {######## Strana 2 #######}

if(not Prazdny)
  OpenWNS(WNSName());

Strana(2,'7371457426',27);

T(1,1,'I.',ta_Left,'Tržby z predaja tovaru (604)');
T(2,2,'A.',ta_Left,'Náklady vynaložené na obstaranie predaného tovaru|(504, 505A)');
T(5,5,'II.1.',ta_Right,'Tržby z predaja vlastných výrobkov a služieb (601, 602)');
T(6,6,'2.',ta_Right,'Zmeny stavu vnútroorganizačných zásob|(+/- účtová skupina 61)');
T(7,7,'3.',ta_Right,'Aktivácia (účtová skupina 62)');
T(9,9,'B.1.',ta_Left,'Spotreba materiálu, energie a ostatných|neskladovateľných dodávok (501, 502, 503, 505A)');
T(10,10,'2.',ta_Right,'Služby (účtová skupina 51)');
T(12,12,'C.',ta_Left,'Osobné náklady   súčet (r. 13 až 16)');
T(13,13,'C.1.',ta_Left,'Mzdové náklady (521, 522)');
T(14,14,'2.',ta_Left,'Odmeny členom orgánov spoločnosti a družstva (523)');
T(15,15,'3.',ta_Left,'Náklady na sociálne poistenie (524, 525, 526)');
T(16,16,'4.',ta_Left,'Sociálne náklady (527, 528)');
T(17,17,'D.',ta_Left,'Dane a poplatky (účtová skupina 53)');
T(18,18,'E.',ta_Left,'Odpisy a opravné položky k dlhodobému nehmotnému|majetku a dlhodobému hmotnému majetku (551, 553)');
T(19,19,'III.',ta_Center,'Tržby z predaja dlhodobého majetku a materiálu (641, 642)');
T(20,20,'F.',ta_Left,'Zostatková cena predaného dlhodobého majetku a|predaného materiálu (541, 542)');
T(21,21,'IV.',ta_Center,'Ostatné výnosy z hospodárskej činnosti|(644, 645, 646, 648, 655, 657)');
T(22,22,'G.',ta_Left,'Ostatné náklady na hospodársku činnosť|(543, 544, 545, 546, 547, 548, 549, 555, 557)');
T(23,23,'V.',ta_Center,'Prevod výnosov z hospodárskej činnosti (-)(697)');
T(24,24,'H.',ta_Left,'Prevod nákladov na hospodárku činnosť (-)(597)');
T(26,26,'VI.',ta_Center,'Tržby z predaja cenných papierov a podielov (661)');
T(27,27,'I.',ta_Left,'Predané cenné papiere a podiely (561)');

FontFace(Bold);

T(3,3,'+',ta_Left,'Obchodná marža   r. 01 - r. 02');
T(4,4,'II.',ta_Center,'Výroba   r. 05 + r. 06 + r. 07');
T(8,8,'B.',ta_Left,'Výrobná spotreba   r. 09 + r. 10');
T(11,11,'+',ta_Left,'Pridaná hodnota   r. 03 + r. 04 - r. 08');
T(25,25,'*',ta_Left,'Výsledok hospodárenia z hospodárskej činnosti|r. 11 - r. 12 - r. 17 - r. 18 + r. 19 - r. 20 + r. 21 - r. 22|+ (-r. 23) - (- r. 24)');

Hodnoty();

; {######## Strana 3 #######}

Strana(3,'2924950119',27);

T(1,28,'VII.',ta_Center,'Výnosy z dlhodobého finančného majetku|r. 29 + r. 30 + r. 31');
T(2,29,'VII.1.',ta_Right,'Výnosy z cenných papierov a podielov v dcérskej účtovnej|jednotke a v spoločnosti s podstatným vplyvom (665A)');
T(3,30,'2.',ta_Right,'Výnosy z ostatných dlhodobých cenných papierov a|podielov (665A)');
T(4,31,'3.',ta_Right,'Výnosy z ostatného dlhodobého finančného majetku (665A)');
T(5,32,'VIII.',ta_Center,'Výnosy z krátkodobého finančného majetku (666)');
T(6,33,'J.',ta_Left,'Náklady na krátkodobý finančný majetok (566)');
T(7,34,'IX.',ta_Center,'Výnosy z precenenia cenných papierov a výnosy z|derivatových operácií (664, 667)');
T(8,35,'K.',ta_Left,'Náklady na precenenie cenných papierov a náklady na|derivatové operácie (564,567)');
T(9,36,'L.',ta_Left,'Tvorba a zúčtovanie opravných položiek k finančnému|majetku +/- 565');
T(10,37,'X.',ta_Center,'Výnosové úroky (662)');
T(11,38,'M.',ta_Left,'Nákladové úroky (562)');
T(12,39,'XI.',ta_Center,'Kurzové zisky (663)');
T(13,40,'N.',ta_Left,'Kurzové straty (563)');
T(14,41,'XII.',ta_Center,'Ostatné výnosy z finančnej činnosti (668)');
T(15,42,'O.',ta_Left,'Ostatné náklady na finančnú činnosť (568, 569)');
T(16,43,'XIII.',ta_Center,'Prevod finančných výnosov (-)(698)');
T(17,44,'P.',ta_Left,'Prevod finančných nákladov (-)(598)');
T(19,46,'R.',ta_Left,'Daň z príjmov z bežnej činnosti   r. 47 + r. 48');
T(20,47,'R.1.',ta_Left,'- splatná (591, 595)');
T(21,48,'2.',ta_Right,'- odložená (+/- 592)');
T(23,50,'XIV.',ta_Center,'Mimoriadne výnosy (účtová skupina 68)');
T(24,51,'S.',ta_Left,'Mimoriadne náklady (účtová skupina 58)');
T(25,52,'T.',ta_Left,'Daň z prijmov z mimoriadnej činnosti   r. 53 + r. 54');
T(26,53,'T.1.',ta_Left,'- splatná (593)');
T(27,54,'2.',ta_Right,'- odložená (+/- 594)');

FontFace(Bold);

T(18,45,'*',ta_Left,'Výsledok hospodárenia z finančnej činnosti|r. 26 - r. 27 + r. 28 + r. 32 - r. 33 + r. 34 - r. 35 - r. 36 + r. 37 - r. 38|+ r. 39 - r. 40 + r. 41 - r. 42 + (- r. 43) - (- r. 44)');
T(22,49,'**',ta_Left,'Výsledok hospodárenia z bežnej činnosti|r. 25 + r. 45 - r. 46');

Hodnoty();


; {######## Strana 4 #######}

Strana(4,'5907863345',3);

T(2,56,'U.',ta_Left,'Prevod podielov na výsledku hospodárenia spoločníkom|(+/- 596)');

FontFace(Bold);

T(1,55,'*',ta_Left,'Výsledok hospodárenia z mimoriadnej činnosti|r. 50 - r. 51 - r. 52');
T(3,57,'***',ta_Left,'Výsledok hospodárenia za účtovné obdobie|(+/-)[r. 49 + r. 55 - r. 56]');

Hodnoty();

;{******* KONEC *******}

Procedure Hlavicka(Strana:Word,Kod:String[10]);
  NextPage;

  Pen(0,0.7,0)
  Line(9,10,7,0)
  Line(9,10,0,7)
  Line(192,10,-7,0)
  Line(192,10,0,7)
  Line(9,278,7,0)
  Line(9,278,0,-7)
  Line(192,278,-7,0)
  Line(192,278,0,-7)

  BarCode(bc_Code2of5i,147,9,40,7.7,Kod,False);

  Pen(0,0.3,0)
  FontFace(Normal)
  FontSize(2.5)

  Text(17,10.5,ta_Left|ta_BaseLine,'UVPOD2v07_'+Strana);
  Text(100,279.5,ta_Center|ta_BaseLine,'Vytlačené systémom WinDUO');
  FontFace(Bold)

  Box(17,13,56,5,5);

  FontSize(3.3);
  Text(83,15.5,ta_Left|ta_BaseLine,'DIČ');

  Box(81,10,60,9);

  Pen(0,0.01,ShadeColor);
  Udaj(91,11.5,10);

  SetFormFont();

  if(not Prazdny)
    begin
      SText(93,16,ta_Center|ta_BaseLine,4.8,10,Program.DIC);
    end;

  FontFace(Normal)
  FontSize(3.8)
  Text(45,17,ta_Center|ta_BaseLine,'Výkaz ziskov a strát Úč POD 2 - 01');
  FontSize(3)
  Text(18,279.5,ta_Left|ta_BaseLine,'MF SR č. 25812/2/2006');
  FontFace(Bold)
  Text(182,279.5,ta_Right|ta_BaseLine,'Strana '+Strana)

  Pen(0,0.3,0)
end;

Procedure Strana(Strana:Word,Kod:String[10],Radku:Word)
  Hlavicka(Strana,Kod);

  LastRadku=Radku

  Vyska:Word=Real(15.5+(Radku)*8.5);

  Box(9,20,183,Vyska);

  Pen(0,0.1,0)
  LineS(9,35,183,0,0,8.5,Radku);
  LineS(18,20,0,Vyska,74,0,2);
  Line(99,20,0,Vyska);
  Line(145.5,25,0,Vyska-5);
  Line(99,25,93,0);

  Text(13.5,34,ta_Center|ta_BaseLine,'a');
  Text(55,34,ta_Center|ta_BaseLine,'b');
  Text(55,28,ta_Center|ta_BaseLine,'Text');
  Text(95.5,34,ta_Center|ta_BaseLine,'c');
  Text(145.5,23.5,ta_Center|ta_BaseLine,'Skutočnosť');
  Text(122.25,29,ta_Center|ta_BaseLine,'bežné účtovné obdobie');
  Text(122.25,34,ta_Center|ta_BaseLine,'1');
  Text(168.5,28,ta_Center|ta_BaseLine,'bezprostredne predchádzajúce');
  Text(168.5,31,ta_Center|ta_BaseLine,'účtovné obdobie');
  Text(168.5,34,ta_Center|ta_BaseLine,'2');

  FontFace(Bold)
  FontSize(2);

  Text(13.5,27,ta_Center|ta_BaseLine,'Ozna-');
  Text(13.5,29.5,ta_Center|ta_BaseLine,'čenie');
  Text(95.5,27,ta_Center|ta_BaseLine,'Číslo');
  Text(95.5,29.5,ta_Center|ta_BaseLine,'riadku');

  FontSize(3);
  FontFace(Normal)
  Pen(0,0.01,ShadeColor)

  Y=36.5

  While(Radku>0)
    begin
      UdajC(101,Y);
      UdajC(147.5,Y);
      Inc(Y,8.5)
      Dec(Radku)
    end;

end;

Procedure T(Radek:Byte,Cislo:Word,Polozka:String,Flags:Word,Popis:String)
  TTY=(Radek-1)*8.5+40.5;
  if(Flags&ta_Center=ta_Right)
    begin
      Text(16,TTY,ta_Right|ta_BaseLine,Polozka);
    end else
  if(Flags&ta_Center=ta_Left)
    begin
      Text(10,TTY,ta_Left|ta_BaseLine,Polozka);
    end else
    begin
      Text(13,TTY,ta_Center|ta_BaseLine,Polozka);
    end;
  Text(95.5,(Radek-1)*8.5+40.5,ta_Center|ta_BaseLine,NulL(Str(Cislo),2));
  TTPocet=CountChar('|',Popis);
  TTY=(Radek-1)*8.5+40.5;
  TTStr=Popis
  if(TTPocet=1)
    Dec(TTY,2);
  else
  if(TTPocet>1)
    Dec(TTY,2.8);
  ClearFontIndex();
  While(Length(TTStr)<>0)
    begin
      GetFontIndex(72,ToChar('|',TTStr));
      TTStr=FromChar('|',TTStr);
    end;
  FontIndex()
  While(Length(Popis)<>0)
    begin
      Text(19.5,TTY,ta_Left|ta_BaseLine,ToChar('|',Popis));
      Popis=FromChar('|',Popis);
      if(TTPocet>1)
        Inc(TTY,2.5);
      else
        Inc(TTY,3);
    end;
  ClearFontIndex();
end

Procedure UdajC(X:Real,Y:Real)
  Udaj(X,Y,3);
  Inc(X,14.4);
  Udaj(X,Y,3);
  Inc(X,14.4);
  Udaj(X,Y,3);
end;

Procedure UdajD(X:Real,Y:Real,Datum:String)
  Udaj(X,Y,2);
  Udaj(X+12,Y,2);
  Udaj(X+24,Y,4);
  Text(X+10.5,Y+4.5,ta_Center|ta_BaseLine,'.');
  Text(X+22.5,Y+4.5,ta_Center|ta_BaseLine,'.');
  SText(X+26,Y+4.5,ta_Center|ta_BaseLine,4.8,3,'200');
  Datum=StrDate(ValDate(Datum))
  SText(X+2,Y+4.5,ta_Center|ta_BaseLine,4.8,2,FillStrL(ToChar('.',Datum),2));
  Datum=FromChar('.',Datum);
  SText(X+14,Y+4.5,ta_Center|ta_BaseLine,4.8,2,FillStrL(ToChar('.',Datum),2));
  Datum=Copy(FromChar('.',Datum),4,1);
  SText(X+40.4,Y+4.5,ta_Center|ta_BaseLine,4.8,1,Datum);
end;

Procedure Udaj(X:Real,Y:Real,Pocet:Byte)
  UX=Pocet*4.8-0.8
  UY=Y+6
  Line(X,Y+6,0,-6);
  Line(X,Y,UX,0);
  UX=X+UX
  Line(UX,Y,0,6);
  Line(UX,UY,-4,0);
  Dec(UX,4)

  UI=Pocet-1;
  While(UI>0)
    begin
      Line(UX,UY,0,-4.5);
      Line(UX,UY-4.5,-0.8,0);
      Dec(UX,0.8);
      Line(UX,UY-4.5,0,4.5);
      Line(UX,UY,-4,0);
      Dec(UX,4);
      Dec(UI);
    end;
end;

Procedure SetFormFont;
  FontSize(5);
  FontFace(Bold|Italic)
  FontWidthScale(0.77);
end;

Procedure Hodnoty;
  if(not Prazdny)
    begin
      j=0;
      y=41
      SetFormFont();
      While(j<LastRadku)
        begin
          Inc(j);
          LoadWNSLine(2,0);
          SText(103,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(5),9));
          Inc(y,8.5)
        end;
    end;
end;

END