Name('Súvaha - Formulár za '+ObdMesic(2)+ObdRok(2))
Designed('')
Author('A-CORY s.r.o.','EMail: acory@acory.sk','http://www.acory.sk')
Descr('Súvaha pre podnikateľov v plnom rozsahu','formulár Úč POD 1-01','z dátumu 3.4.2007')
FileName('FIRO'+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,'8298025835',False);

FontSize(7);
FontFace(Bold);

Text(100.5,14.5,ta_Center|ta_BaseLine,'SÚVAHA');

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

Text(17,10.5,ta_Left|ta_BaseLine,'UVPOD1v07_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,38,5,5);

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


FontSize(3.8)
Text(36,17,ta_Center|ta_BaseLine,'Súvaha Úč POD 1 - 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());

StranaA(2,'7004515318',14);
FontFace(Bold);
i=0
y=37
While(i<4)
  begin
    Inc(i);
    Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;
TOA(4,'B.I.',ta_Left);
TOA(3,'B.',ta_Left);
TA(1,'SPOLU MAJETOK|r. 002 + r. 003|+ r. 032 +r. 062');
TOA(2,'A.',ta_Left);
TA(2,'Pohľadávky|za upísané|vlastné imanie|(353)');
TOA(3,'B.',ta_Left);
TA(3,'Neobežný majetok|r. 004 + r. 013|+ r. 023');
TOA(3,'B.',ta_Left);
TA(4,'Dlhodobý|nehmotný majetok|súčet (r. 005 až|012)');
TOA(13,'B.II.',ta_Left);
FontFace(Normal);
While(i<14)
  begin
    Inc(i);
    Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;
TOA(5,'B.I.1.',ta_Left);
TA(5,'Zriaďovacie náklady|(011) - /071, 091A/');
TOA(6,'2.',ta_Right);
TA(6,'Aktivované náklady|na vývoj|(012) - /072, 091A/');
TOA(7,'3.',ta_Right);
TA(7,'Softvér|(013) - /073, 091A/');
TOA(8,'4.',ta_Right);
TA(8,'Oceniteľné práva|(014) - /074, 091A/');
TOA(9,'5.',ta_Right);
TA(9,'Goodwill|(015) - /075, 091A/');
TOA(10,'6.',ta_Right);
TA(10,'Ostatný dlhodobý|nehmotný majetok|(019, 01X) - /079|07X, 091A/');
TOA(11,'7.',ta_Right);
TA(11,'Obstarávaný|dlhodobý nehmotný|majetok|(041) - 093');
TOA(12,'8.',ta_Right);
TA(12,'Poskytnuté|preddavky|na dlhodobý|nehmotný majetok|(051) - 095A');
TA(13,'Dlhodobý hmotný|majetok|súčet (r. 014 až 022)');
TOA(14,'B.II.1',ta_Left);
TA(14,'Pozemky|(031) - 092A');

HodnotyA();

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

StranaA(3,'1301983313',14);
y=37
While(i<28)
  begin
    Inc(i);
    if(i<>23)
      Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;
TOA(1,'2.',ta_Right);
TA(1,'Stavby|(021) - /081, 092A/');
TOA(2,'3.',ta_Right);
TA(2,'Samostatné|hnuteľné veci a|súbory hnuteľných|vecí|(022) - /082, 092A/');
TOA(3,'4.',ta_Right);
TA(3,'Pestovateľské celky|trvalých porastov|(025) - /085, 092A/');
TOA(4,'5.',ta_Right);
TA(4,'Základné stádo a|ťažné zvieratá|(026) - /086, 092A/');
TOA(5,'6.',ta_Right);
TA(5,'Ostatný dlhodobý|hmotný majetok|(029, 02X, 032) -|/089, 08X, 092A/');
TOA(6,'7.',ta_Right);
TA(6,'Obstarávaný|dlhodobý hmotný|majetok|(042) - 094');
TOA(7,'8.',ta_Right);
TA(7,'Poskytnuté|preddavky na|dlhodobý hmotný|majetok|(052) - 095A');
TOA(8,'9.',ta_Right);
TA(8,'Opravná položka|k nadobudnutému|majetku|(+/- 097) +/- 098');
TOA(10,'B.III.1',ta_Left);
TA(10,'Podielové cenné|papiere a podiely v|dcérskej účtovnej|jednotke|(061) - 096A');
TOA(11,'2.',ta_Right);
TA(11,'Podielové cenné|papiere a podiely|v spoločnosti s|podstatným vplyvom|(062) - 096A');
TOA(12,'3.',ta_Right);
TA(12,'Ostatné dlhodobé|cenné papiere a|podiely|(063, 065) - 096A');
TOA(13,'4.',ta_Right);
TA(13,'Pôžičky účtovnej|jednotke|v konsolidovanom|celku|(066A) - 096A');
TOA(14,'5.',ta_Right);
TA(14,'Ostatný dlhodobý|finančný majetok|(067A, 069, 06XA)|- 096A');

FontFace(Bold);

Text(49.25,37+8*17,ta_Center|ta_BaseLine,'023');
TOA(9,'B.III.',ta_Left);
TA(9,'Dlhodobý finančný|majetok|súčet (r. 024 až|031)');

HodnotyA();

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

StranaA(4,'5458640938',14);
y=37

While(i<31)
  begin
    Inc(i);
    Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;
Inc(i,2);
Inc(y,34)
While(i<40)
  begin
    Inc(i);
    Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;
Inc(i,2);
Inc(y,17)
Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));

TOA(1,'6.',ta_Right);
TA(1,'Pôžičky s dobou|splatnosti najviac|jeden rok|(066A, 067A, 06XA)|- 096A/');
TOA(2,'7.',ta_Right);
TA(2,'Obstáravaný|dlhodobý finančný|majetok|(043) - 096A');
TOA(3,'8.',ta_Right);
TA(3,'Poskytnuté|preddavky|na dlhodobý|finančný majetok|(053) - 095A');
TOA(6,'C.I.1.',ta_Left);
TA(6,'Materiál|(112, 119, 11X)|- /191, 19X/');
TOA(7,'2.',ta_Right);
TA(7,'Nedokončená|výroba a polotovary|(121, 122, 12X) -|/192, 193, 19X/');
TOA(8,'3.',ta_Right);
TA(8,'Zákazková výroba|s predpokladanou|dobou ukončenia|dlhšou ako jeden rok|12X - 192A/');
TOA(9,'4.',ta_Right);
TA(9,'Výrobky|(123) - 194');
TOA(10,'5.',ta_Right);
TA(10,'Zvieratá|(124) - 195');
TOA(11,'6.',ta_Right);
TA(11,'Tovar|(132, 13X, 139)| - /196,19X/');
TOA(12,'7.',ta_Right);
TA(12,'Poskytnuté|preddavky|na zásoby|(314A) - 391A');
TOA(14,'C.II.I',ta_Left);
TA(14,'Pohľadávky z|obchodného styku|(311A, 312A, 313A,|314A,315A,31XA)| - 391A');

FontFace(Bold);
TOA(4,'C.',ta_Left);
TA(4,'Obežný majetok|r. 033 + r. 041|+ r. 048 + r. 056');
Text(49.25,37+3*17,ta_Center|ta_BaseLine,'032');
TOA(5,'C.I.',ta_Left);
TA(5,'Zásoby|súčet (r. 034 až|040)');
Text(49.25,37+4*17,ta_Center|ta_BaseLine,'033');
TOA(13,'C.II.',ta_Left);
TA(13,'Dlhodobé|pohľadávky|súčet (r. 042 až|047)');
Text(49.25,37+12*17,ta_Center|ta_BaseLine,'041');

HodnotyA();

; {######## Strana 5 #######}

StranaA(5,'8493089168',14);

y=37
While(i<55)
  begin
    Inc(i);
    if(i<>48)
      Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;

TOA(1,'2.',ta_Right);
TA(1,'Pohľadávky voči|dcérskej účtovnej|jednotke a materskej|účtovnej jednotke|(351A) - 391A');
TOA(2,'3.',ta_Right);
TA(2,'Ostatné pohľadávky|v rámci|konsolidovaného|celku|(351A) - 391A');
TOA(3,'4.',ta_Right);
TA(3,'Pohľadávky voči|spoločníkom,|členom a združeniu|(354A, 355A, 358A,|35XA) - 391A');
TOA(4,'5.',ta_Right);
TA(4,'Iné pohľadávky|(335A, 33XA, 371A,|373A, 374A, 375A,|376A, 378A) - 391A');
TOA(5,'6.',ta_Right);
TA(5,'Odložená daňová|pohľadávka|(481A)');
TOA(7,'C.III.1.',ta_Left);
TA(7,'Pohľadávky|z obchodného styku|(311A, 312A, 313A,|314A, 315A, 31XA) -|391A');
TOA(8,'2.',ta_Right);
TA(8,'Pohľadávky voči|dcérskej účtovnej|jednotke a materskej|účtovnej jednotke|(351A) - 391A');
TOA(9,'3.',ta_Right);
TA(9,'Ostatné pohľadávky|v rámci|konsolidovaného|celku|(351A) - 391A');
TOA(10,'4.',ta_Right);
TA(10,'Pohľadávky voči|spoločníkom|členom a združeniu|(354A, 355A, 358A,|35XA, 398A) - 391A');
TOA(11,'5.',ta_Right);
TA(11,'Sociálne poistenie|(336) - 391A');
TOA(12,'6.',ta_Right);
TA(12,'Daňové pohľadávky|(341, 342, 343, 345|346, 347) - 391A');
TOA(13,'6.',ta_Right);
TA(13,'Iné pohľadávky|(335A, 33XA, 371A,|373A, 374A, 375A,|376A,378A) - 391A');

FontFace(Bold);
TOA(6,'C.III.',ta_Left);
TA(6,'Krátkodobé|pohľadávky|súčet (r. 049 až|055');
Text(49.25,37+5*17,ta_Center|ta_BaseLine,'048');
TOA(14,'C.IV.',ta_Left);
TA(14,'Finančné účty|súčet (r. 057 až|r. 061');
Text(49.25,37+13*17,ta_Center|ta_BaseLine,'056');

HodnotyA();

; {######## Strana 6 #######}

StranaA(6,'4084953641',8);

y=37
inc(i)
While(i<64)
  begin
    Inc(i);
    if(i<>62)
      Text(49.25,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,17)
  end;

TOA(1,'C.IV.1.',ta_Left);
TA(1,'Peniaze|(211, 213, 21X)');
TOA(2,'2.',ta_Right);
TA(2,'Účty v bankách|(221A, 22X +/- 261)');
TOA(3,'3.',ta_Right);
TA(3,'Účty v bankách|s dobou viazanosti|dlhšou ako jeden rok|22XA');
TOA(4,'4.',ta_Right);
TA(4,'Krátkodobý finančný|majetok|(251, 253, 256, 257,|25X) - /291, 29X/');
TOA(5,'5.',ta_Right);
TA(5,'Obstarávaný|krátkodobý finančný|majetok|(259, 314A) - 291');
TOA(7,'D.1',ta_Left);
TA(7,'Náklady budúcich|období|(381, 382)');
TOA(8,'2.',ta_Right);
TA(8,'Príjmy budúcich|období|(385)');

FontFace(Bold);
TOA(6,'D.',ta_Left);
TA(6,'Časové rozlíšenie|r. 063 a r. 064');
Text(49.25,37+5*17,ta_Center|ta_BaseLine,'062');

HodnotyA();

; {######## Strana 7 #######}

if(not Prazdny)
  LoadWNSLine(1,0);

StranaP(7,'0932329170');

CP(4,68)
TOP(4,'A.I.1.',ta_Left);
TP(4,'Základné imanie (411 alebo +/- 491)');
CP(5,69)
TOP(5,'2.',ta_Right);
TP(5,'Vlastné akcie a vlastné obchodné podiely (/-/252)');
CP(6,70)
TOP(6,'3.',ta_Right);
TP(6,'Zmena základného imania +/- 419');
CP(8,72)
TOP(8,'A.II.1.',ta_Left);
TP(8,'Emisné ážio (412)');
CP(9,73)
TOP(9,'2.',ta_Right);
TP(9,'Ostatné kapitálové fondy (413)');
CP(10,74)
TOP(10,'3.',ta_Right);
TP(10,'Zákonný rezervný fond (Nedeliteľný fond) z kapitálových|vkladov (417,418)');
CP(11,75)
TOP(11,'4.',ta_Right);
TP(11,'Oceňovacie rozdiely z precenenia majetku a záväzkov|(+/- 414)');
CP(12,76)
TOP(12,'5.',ta_Right);
TP(12,'Oceňovacie rozdiely z kapitálových účastín (+/- 415)');
CP(13,77)
TOP(13,'6.',ta_Right);
TP(13,'Oceňovacie rozdiely z precenenia pri zlúčení, splynutí a|rozdelení (+/- 416)');
CP(15,79)
TOP(15,'A.III.1.',ta_Left);
TP(15,'Zákonný rezervný fond (421)');
CP(16,80)
TOP(16,'2.',ta_Right);
TP(16,'Nedeliteľný fond (422)');
CP(17,81)
TOP(17,'3.',ta_Right);
TP(17,'Štatutárne fondy a ostatné fondy (423, 427, 42X)');
CP(19,83)
TOP(19,'A.IV.1.',ta_Left);
TP(19,'Nerozdelený zisk minulých rokov (428)');
CP(20,84)
TOP(20,'3.',ta_Right);
TP(20,'Neuhradená strata minulých rokov (/-/429)');
CP(24,88)
TOP(24,'B.I.1.',ta_Left);
TP(24,'Rezervy zákonné (451A)');
CP(25,89)
TOP(25,'2.',ta_Right);
TP(25,'Ostatné dlhodobé rezervy (459A, 45XA)');
CP(26,90)
TOP(26,'3.',ta_Right);
TP(26,'Krátkodobé rezervy (323, 32X, 451A, 459A, 45XA)');

FontFace(Bold);
CP(1,65)
TP(1,'SPOLU VLASTNÉ IMANIE A ZÁVÄZKY|r. 066 + r. 086 + r. 116');
CP(2,66)
TOP(2,'A.',ta_Left);
TP(2,'Vlastné imanie    r.067 + r.071 + r.078 + r.082 + r.085');
CP(3,67)
TOP(3,'A.I.',ta_Left);
TP(3,'Základné imanie    súčet (r. 068 až r.070)');
CP(7,71)
TOP(7,'A.II.',ta_Left);
TP(7,'Kapitálové fondy    súčet (r. 072 až 077)');
CP(14,78)
TOP(14,'A.III.',ta_Left);
TP(14,'Fondy zo zisku    súčet (r. 079 až 081)');
CP(18,82)
TOP(18,'A.IV.',ta_Left);
TP(18,'Výsledok hospodárenia minulých rokov  r. 083 + r. 084');
CP(21,85)
TOP(21,'A.V.',ta_Left);
TP(21,'Výsledok hospodárenia za účtovné obdobie  /+-/|r. 001 - (r. 067 + r. 071 + r. 078 + r. 082 + r. 086 + r. 116)');
CP(22,86)
TOP(22,'B.',ta_Left);
TP(22,'Záväzky   r. 87 + r. 91 + r. 102 + r. 112');
CP(23,87)
TOP(23,'B.I.',ta_Left);
TP(23,'Rezervy   súčet (r. 088 až r. 090)');
CP(27,91)
TOP(27,'B.II.',ta_Left);
TP(27,'Dlhodobé záväzky  súčet (r. 092 až r. 101)');

HodnotyP;

; {######## Strana 8 #######}

StranaP(8,'4710408385');

y=35.5
i=91
While(i<118)
  begin
    Inc(i);
    if((i<>102)and(i<>112)and(i<>116))
      Text(95.5,y,ta_Center|ta_BaseLine,NulL(Str(i),3));
    Inc(y,8.5)
  end;

TOP(1,'B.II.1.',ta_Left);
TP(1,'Dlhodobé záväzky z obchodného styku (479A)');
TOP(2,'2.',ta_Right);
TP(2,'Dlhodobé nevyfakturované dodávky (476A)');
TOP(3,'3.',ta_Right);
TP(3,'Dlhodobé záväzky voči dcérskej účtovnej jednotke a|materskej účtovnej jednotke (471A)');
TOP(4,'4.',ta_Right);
TP(4,'Ostatné dlhodobé záväzky v rámci konsolidovaného celku|(471A)');
TOP(5,'5.',ta_Right);
TP(5,'Dlhodobé prijaté preddavky (475A)');
TOP(6,'6.',ta_Right);
TP(6,'Dlhodobé zmenky na úhradu (478A)');
TOP(7,'7.',ta_Right);
TP(7,'Vydané dlhopisy (473A/-/255A)');
TOP(8,'8.',ta_Right);
TP(8,'Závazky zo sociálneho fondu (472)');
TOP(9,'9.',ta_Right);
TP(9,'Ostatné dlhodobé záväzky|(474A, 479A, 47XA, 372A, 373A, 377A)');
TOP(10,'10.',ta_Right);
TP(10,'Odložený daňový záväzok (481A)');
TOP(12,'B.III.1.',ta_Left);
TP(12,'Záväzky z obchodného styku|(321, 322, 324, 325, 32X, 475A, 478A, 479A, 47XA)');
TOP(13,'2.',ta_Right);
TP(13,'Nevyfakturované dodávky (326, 476A)');
TOP(14,'3.',ta_Right);
TP(14,'Záväzky voči dcérskej účtovnej jednotke a materskej|účtovnej jednotke (361A, 471A)');
TOP(15,'4.',ta_Right);
TP(15,'Ostatné záväzky v rámci konsolidovaného celku|(361A, 36XA, 471A, 47XA)');
TOP(16,'5.',ta_Right);
TP(16,'Záväzky voči spoločníkom a združeniu|(364, 365, 366, 367, 368, 398A, 478A, 479A)');
TOP(17,'6.',ta_Right);
TP(17,'Záväzky voči zamestnancom (331, 333, 33X, 479A)');
TOP(18,'7.',ta_Right);
TP(18,'Záväzky zo sociálného poistenia (336, 479A)');
TOP(19,'8.',ta_Right);
TP(19,'Daňové záväzky a dotácie|(341, 342, 343, 345, 346, 347, 34X)');
TOP(20,'9.',ta_Right);
TP(20,'Ostatné záväzky a dotácie|(372A, 373A, 377A, 379A, 474A, 479A, 47X)');
TOP(22,'B.IV.1.',ta_Left);
TP(22,'Bankové úvery dlhodobé|(461A, 46XA)');
TOP(23,'2.',ta_Right);
TP(23,'Bežné bankové úvery (221A, 231, 232, 23X, 461A, 46XA)');
TOP(24,'3.',ta_Right);
TP(24,'Krátkodobé finančné výpomoci|(241, 249,4X, 473A,/-/255A)');
TOP(26,'C.1.',ta_Left);
TP(26,'Výdavky budúcich období (383)');
TOP(27,'2.',ta_Right);
TP(27,'Výnosy budúcich období (384)');

FontFace(Bold);
CP(11,102)
TOP(11,'B.III.',ta_Left);
TP(11,'Krátkodobé záväzky    súčet (r.103 až r.111)');
CP(21,112)
TOP(21,'B.IV.',ta_Left);
TP(21,'Bankové úvery a výpomoci   súčet (r.113 až r.115)');
CP(25,116)
TOP(25,'C.',ta_Left);
TP(25,'Časové rozlíšenie   súčet (r.117 a r.118)');

HodnotyP;

;{******* 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,'UVPOD1v07_'+Strana);
  Text(100,279.5,ta_Center|ta_BaseLine,'Vytlačené systémom WinDUO');
  FontFace(Bold)

  Box(17,13,38,5);

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

  Box(68,10,60,9);

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

  SetFormFont();

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

  FontFace(Normal)
  FontSize(3.8)
  Text(36,17,ta_Center|ta_BaseLine,'Súvaha Úč POD 1 - 01');
  FontSize(3)
  Text(18,279.5,ta_Left|ta_BaseLine,'MF SR č. 25812/1/2006');
  FontFace(Bold)
  Text(182,279.5,ta_Right|ta_BaseLine,'Strana '+Strana)

  Pen(0,0.7,0)
end;

Procedure StranaA(Strana:Word,Kod:String[10],Radku:Word)
  LastRadku=Radku

  Hlavicka(Strana,Kod);

  Vyska:Word=12+Radku*17;

  Box(9,20,183,Vyska);

  Pen(0,0.1,0)
  LineS(9,32,183,0,0,17,Radku);
  LineS(18,20,0,Vyska,27.5,0,2);
  LineS(53,20,0,Vyska,93,0,2);
  Line(99.5,24,0,Vyska-4);
  LineS(53,40.5,46.5,0,0,17,Radku);
  Line(53,24,93,0);
  Line(59,28,40.5,0);
  Line(59,24,0,8);
  Line(146,28,46,0);

  Text(99.5,23,ta_Center|ta_BaseLine,'Bežné účtovné obdobie');
  Text(56,29,ta_Center|ta_BaseLine,'1');
  Text(13.5,29,ta_Center|ta_BaseLine,'a');
  Text(31.75,29,ta_Center|ta_BaseLine,'b');
  Text(31.75,24,ta_Center|ta_BaseLine,'STRANA AKTÍV');
  Text(49.25,29,ta_Center|ta_BaseLine,'c');
  Text(169,23,ta_Center|ta_BaseLine,'Bezprostredne predchádzajúce');
  Text(169,26,ta_Center|ta_BaseLine,'účtovné obdobie');
  Text(122.75,28,ta_Center|ta_BaseLine,'Netto');
  Text(122.75,31,ta_Center|ta_BaseLine,'2');
  Text(163,31,ta_Left|ta_BaseLine,'Netto');
  Text(174,31,ta_Left|ta_BaseLine,'3');
  Text(69,31,ta_Left|ta_BaseLine,'Korekcia ');
  FontFace(Normal);
  Text(0,0,ta_Relative|ta_Left|ta_BaseLine,' - časť 2');
  FontFace(Bold)
  Text(70.5,27,ta_Left|ta_BaseLine,'Brutto ');
  FontFace(Normal);
  Text(0,0,ta_Relative|ta_Left|ta_BaseLine,' - časť 1');
  FontFace(Bold)
  FontSize(2);
  Text(13.5,23,ta_Center|ta_BaseLine,'Ozna-');
  Text(13.5,25.5,ta_Center|ta_BaseLine,'čenie');
  Text(49.25,23,ta_Center|ta_BaseLine,'Číslo');
  Text(49.25,25.5,ta_Center|ta_BaseLine,'riadku');

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

  Y=42

  While(Radku>0)
    begin
      UdajC(55,Y-8.5);
      UdajC(55,Y);
      UdajC(101.5,Y);
      UdajC(148,Y);
      Inc(Y,17)
      Dec(Radku)
    end;
end;

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

  Radku:Word=27
  LastRadku=Radku

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

  Box(9,20,183,Vyska);

  Pen(0,0.1,0)
  LineS(9,30,183,0,0,8.5,Radku);
  LineS(18,20,0,Vyska,74,0,2);
  LineS(99,20,0,Vyska,46.5,0,2);

  Text(13.5,29,ta_Center|ta_BaseLine,'a');
  Text(55,29,ta_Center|ta_BaseLine,'b');
  Text(55,24,ta_Center|ta_BaseLine,'STRANA PASÍV');
  Text(95.5,29,ta_Center|ta_BaseLine,'c');
  Text(122.25,24,ta_Center|ta_BaseLine,'Bežné účtovné obdobie');
  Text(122.25,29,ta_Center|ta_BaseLine,'4');
  Text(168.5,23,ta_Center|ta_BaseLine,'Bezprostredne predchádzajúce');
  Text(168.5,26,ta_Center|ta_BaseLine,'účtovné obdobie');
  Text(168.5,29,ta_Center|ta_BaseLine,'5');

  FontFace(Bold)
  FontSize(2);

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

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

  Y=31.5

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

end;

Procedure TA(Radek:Byte,Polozka:String)
  TTPocet=CountChar('|',Polozka);
  TTY=(Radek-1)*17+37;
  TTStr=Polozka
  if(TTPocet>=4)
    Dec(TTY,2);
  ClearFontIndex();
  While(Length(TTStr)<>0)
    begin
      GetFontIndex(25,ToChar('|',TTStr));
      TTStr=FromChar('|',TTStr);
    end;
  FontIndex()
  While(Length(Polozka)<>0)
    begin
      Text(19.5,TTY,ta_Left|ta_BaseLine,ToChar('|',Polozka));
      Polozka=FromChar('|',Polozka);
      Inc(TTY,3);
    end;
  ClearFontIndex();
end

Procedure TP(Radek:Byte,Polozka:String)
  TTPocet=CountChar('|',Polozka);
  TTY=(Radek-1)*8.5+35.5;
  TTStr=Polozka
  if(TTPocet>0)
    Dec(TTY,2);
  ClearFontIndex();
  While(Length(TTStr)<>0)
    begin
      GetFontIndex(72,ToChar('|',TTStr));
      TTStr=FromChar('|',TTStr);
    end;
  FontIndex()
  While(Length(Polozka)<>0)
    begin
      Text(19.5,TTY,ta_Left|ta_BaseLine,ToChar('|',Polozka));
      Polozka=FromChar('|',Polozka);
      Inc(TTY,3);
    end;
  ClearFontIndex();
end


Procedure TOA(Radek:Byte,Polozka:String,Flags:Word)
  TTY=(Radek-1)*17+37;
  if(Flags&ta_Right=ta_Right)
    begin
      Text(16,TTY,ta_Right|ta_BaseLine,Polozka);
    end else
    begin
      Text(10,TTY,ta_Left|ta_BaseLine,Polozka);
    end;
end

Procedure TOP(Radek:Byte,Polozka:String,Flags:Word)
  TTY=(Radek-1)*8.5+35.5;
  if(Flags&ta_Right=ta_Right)
    begin
      Text(16,TTY,ta_Right|ta_BaseLine,Polozka);
    end else
    begin
      Text(10,TTY,ta_Left|ta_BaseLine,Polozka);
    end;
end

Procedure CP(Radek:Byte,Cislo:Word)
  Text(95.5,(Radek-1)*8.5+35.5,ta_Center|ta_BaseLine,NulL(Str(Cislo),3));
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 HodnotyA;
  if(not Prazdny)
    begin
      j=0;
      y=38
      While(j<LastRadku)
        begin
          Inc(j);
          SetFormFont();
          LoadWNSLine(1,0);
          SText(57,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(8),9));
          Inc(y,8.5)
          SText(57,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(9),9));
          SText(103.5,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(10),9));
          SText(150,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(11),9));
          Inc(y,8.5)
        end;
    end;
end;

Procedure HodnotyP;
  if(not Prazdny)
    begin
      j=0;
      y=36
      SetFormFont();
      While(j<LastRadku)
        begin
          Inc(j);
          LoadWNSLine(1,0);
          SText(103,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(6),9));
          SText(149.5,y,ta_Center|ta_BaseLine,4.8,9,FillStrL(GetFromWNSLine(7),9));
          Inc(y,8.5)
        end;
    end;
end;

END