; Rozvaha pro podnikatele v plnem rozsahu pro rok 1999
; verze z 20.2.2000 prazdne
Name('Rozvaha podnik. plná - prázdný  formulář')
Designed('WinDUO')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Rozvaha pro podnikatele v plném rozsahu - prázdná','formulář Úč POD 1-01','z data 20.2.2000')

DeclareRec('Program')
FileName('RozPPcl.WNS')
WNSName1:String

WNSName1=WorkPath+'RZVH01'+Rok(2)+'.WNS'
TiskAdr:Boolean
Vypocet:Boolean

Vypocet=Question('K výpočtu tohoto formuláře je nutné, aby byla vypočtena závěrka za leden '+Rok(2)+' v plném rozsahu. Chceš pokračovat ve výpočtu?')

if(Vypocet)
   begin
   end
else
   begin
     FONTSIZE(3.5)
     TEXT(10,10,TA_LEFT,'Výpočet přerušen')
     exit
   end

        TiskAdr=Question('Přejete si vytisknout identifikační údaje? (název: '+Program.Firma+' + IČO a další)')
        SetIni('TEMP','TiskAdr',TiskAdr)


FONTFACE(Normal)
PEN(0,0.7)
BOXA(45,24,135,41)
LINEA(0,72,188,72)

PEN(0,0.4)
LINEA(54,24,54,41)
LINEA(76.5,24,76.5,41)
LINEA(90,24,90,41)
LINEA(103.5,24,103.5,41)
LINEA(45,32,135,32)

PEN(0,0.1)
LINEA(96.75,32.5,96.75,38.5)
LINEA(108,32.5,108,38.5)
LINEA(111.6,32.5,111.6,38.5)
LINEA(115.2,32.5,115.2,38.5)
LINEA(118.8,32.5,118.8,38.5)
LINEA(122.4,32.5,122.4,38.5)
LINEA(126,32.5,126,38.5)
LINEA(129.6,32.5,129.6,38.5)
BOXA(148,0,188,9)

PEN(0,0.3)
BOXA(0,56,188,254.25)
LINEA(13,56,13,254.25)
LINEA(71,56,71,254.25)
LINEA(80.5,56,80.5,254.25)
LINEA(107.5,63,107.5,254.25)
LINEA(134.5,63,134.5,254.25)
LINEA(162,56,162,254.25)
LINEA(80.5,63,162,63)

LINESA(0,78.75,188,78.75,0,6.75,3)
LINESA(13,99,188,99,0,6.75,7)
LINEA(0,146.25,188,146.25)
LINESA(13,153,188,153,0,6.75,9)
LINEA(0,213.75,188,213.75)
LINESA(13,220.5,188,220.5,0,6.75,5)

FONTSIZE(2.5)
TEXT(0,4,TA_LEFT,'Schváleno MF ČR')
TEXT(0,6.5,TA_LEFT,'č.j. 281/71 701/1995')
TEXT(0,11.5,TA_LEFT,'Účetní jednotka doručí')
TEXT(0,14,TA_LEFT,'účetní závěrku současně')
TEXT(0,16.5,TA_LEFT,'s doručením daňového přiznání')
TEXT(0,19,TA_LEFT,'za daň z příjmů')
TEXT(0,24,TA_LEFT,'1 x')
TEXT(5,24,TA_LEFT,'příslušnému finančnímu')
TEXT(5,26.5,TA_LEFT,'úřadu')

FONTSIZE(3.75)
TEXT(49.5,26,TA_CENTER,'Čís.ř.')
TEXT(65.25,26,TA_CENTER,'IKF')
TEXT(83.25,26,TA_CENTER,'Rok')
TEXT(96.75,26,TA_CENTER,'Měsíc')
TEXT(119.25,26,TA_CENTER,'IČO')
TEXT(90,18,TA_CENTER,'(v celých tisících Kč)')

FONTSIZE(4.5)
FONTFACE(BOLD)
TEXT(90,1,TA_CENTER,'ROZVAHA')
TEXT(90,6,TA_CENTER,'v plném rozsahu')
TEXT(60,13,TA_CENTER,'ke dni ')

FONTSIZE(4)
FONTFACE(NORMAL)
TEXT(49.5,34.5,TA_CENTER,'01')
TEXT(65.25,34.5,TA_CENTER,'801095')
;TEXT(83.25,34.5,TA_CENTER,ObdRok)

FONTFACE(BOLD)
if(TiskAdr)
begin
  STEXT(132.5,34,TA_RIGHT,3.6,8,GetDataIni('Info','ICO'))
end
;STEXT(100,34,TA_RIGHT,4.5,2,ObdMesic(2))

FONTSIZE(3)
TEXT(168,3,TA_CENTER,'Rozvaha Úč POD 1 -01')

FONTSIZE(2.75)
FONTFACE(NORMAL)
TEXT(148,14,TA_LEFT,'Název a sídlo účetní jednotky')
TEXT(148,19,TA_LEFT,'...........................................................')
TEXT(148,24,TA_LEFT,'...........................................................')
TEXT(148,29,TA_LEFT,'...........................................................')
TEXT(148,34,TA_LEFT,'...........................................................')
TEXT(148,39,TA_LEFT,'...........................................................')
TEXT(148,44,TA_LEFT,'...........................................................')

FONTSIZE(3)
FontFace(Bold|Italic)

if(TiskAdr)
begin
  TEXT(148,22,TA_LEFT,Program.FIRMA)
  TEXT(148,27,TA_LEFT,Program.ROZSIRENI)
  TEXT(148,32,TA_LEFT,Program.ULICE)
  TEXT(148,37,TA_LEFT,Program.MESTO)
  TEXT(148,42,TA_LEFT,Program.PSC)
end

FONTSIZE(3)
FONTFACE(Normal)

TEXT(6.5,58,TA_CENTER,'označ.')
TEXT(6.5,67.5,TA_CENTER,'a')
TEXT(42,58,TA_CENTER,'A K T I V A')
TEXT(42,67.5,TA_CENTER,'b')
TEXT(75.75,58,TA_CENTER,'řád.')
TEXT(75.75,67.5,TA_CENTER,'c')
TEXT(121,58,TA_CENTER,'Běžné účetní období')
TEXT(93.5,64,TA_CENTER,'Brutto')
TEXT(93.5,67.5,TA_CENTER,'1');
TEXT(121,64,TA_CENTER,'Korekce')
TEXT(121,67.5,TA_CENTER,'2');
TEXT(147.5,64,TA_CENTER,'Netto')
TEXT(147.5,67.5,TA_CENTER,'3');
TEXT(175,58,TA_CENTER,'Minulé úč. období')
TEXT(175,64,TA_CENTER,'Netto')
TEXT(175,67.5,TA_CENTER,'4');

OpenWNS(WNSName1); otevru soubor

SaveWnsPos(1)
TabPos(74)
DefTab(3,6.75,2,10,TA_LEFT,14,56,TA_LEFT,76,5,TA_CENTER)
TabFromWns(1,0,27,$7)
SaveWnsPos(2)

;LoadWnsPos(1)
;FontSize(4)
;FontFace(Bold|Italic)
;TabPos(73.5)
;DefTab(4,6.75,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
;TabFromWns(1,0,27,$78)

FONTSIZE(3.3)
FontFace(Normal)
;TEXT(188,256,TA_RIGHT,'Vytištěno systémem WinDUO')

;======================================= str. 2
NextPage
PEN(0,0.7)
LINEA(0,20.5,188,20.5)
LINEA(0,243.25,188,243.25)

PEN(0,0.3)
BOXA(0,1.5,188,250)
LINEA(13,1.5,13,250)
LINEA(71,1.5,71,250)
LINEA(80.5,1.5,80.5,250)
LINEA(107.5,9,107.5,250)
LINEA(134.5,9,134.5,250)
LINEA(162,1.5,162,250)
LINEA(80.5,9,162,9)
LINEA(0,27.25,188,27.25)
LINESA(13,34,188,34,0,6.75,6)
LINEA(0,74.5,188,74.5)
LINESA(13,81.25,188,81.25,0,6.75,5)
LINEA(0,115,188,115)
LINESA(13,121.75,188,121.75,0,6.75,8)
LINEA(0,175.75,188,175.75)
LINESA(13,182.5,188,182.5,0,6.75,3)
LINESA(0,202.75,188,202.75,0,6.75,2)
LINESA(13,216.25,188,216.25,0,6.75,3)
LINEA(0,236.5,188,236.5)

FONTSIZE(3)
TEXT(6.5,4.5,TA_CENTER,'označ.')
TEXT(6.5,16,TA_CENTER,'a')
TEXT(42,4.5,TA_CENTER,'A K T I V A')
TEXT(42,16,TA_CENTER,'b')
TEXT(75.75,4.5,TA_CENTER,'řád.')
TEXT(75.75,16,TA_CENTER,'c')
TEXT(121,4.5,TA_CENTER,'Běžné účetní období')
TEXT(93.5,11.5,TA_CENTER,'Brutto')
TEXT(93.5,16,TA_CENTER,'1');
TEXT(121,11.5,TA_CENTER,'Korekce')
TEXT(121,16,TA_CENTER,'2');
TEXT(147.5,11.5,TA_CENTER,'Netto')
TEXT(147.5,16,TA_CENTER,'3');
TEXT(175,4.5,TA_CENTER,'Minulé úč. období')
TEXT(175,11.5,TA_CENTER,'Netto')
TEXT(175,16,TA_CENTER,'4');

LoadWNSPos(2)
TabPos(23)
DefTab(3,6.75,2,10,TA_LEFT,14,56,TA_LEFT,75.75,5,TA_CENTER)
TabFromWns(1,0,34,$7)
SaveWnsPos(3)

;LoadWnsPos(2)
;FontSize(4.5)
;FontFace(Bold|Italic)
;TabPos(22)
;DefTab(4,6.75,105,24,TA_RIGHT,132.5,24,TA_RIGHT,160,24,TA_RIGHT,185,24,TA_RIGHT)
;TabFromWns(1,0,34,$78)


;==================================== str. 3
NextPage

FONTFACE(NORMAL)
PEN(0,0.7)
LINEA(0,10,188,10)

PEN(0,0.3)
BOXA(0,0,188,235)
LINEA(13,0,13,235)
LINEA(103,0,103,235)
LINEA(112,0,112,235)
LINEA(150,0,150,235)
LINESA(0,17.5,188,17.5,0,7.5,2)
LINESA(13,32.5,188,32.5,0,7.5,2)
LINEA(0,47.5,188,47.5)
LINESA(13,55,188,55,0,7.5,4)
LINEA(0,85,188,85)
LINESA(13,92.5,188,92.5,0,7.5,3)
LINEA(0,115,188,115)
LINESA(13,122.5,188,122.5,0,7.5,2)
LINESA(0,137.5,188,137.5,0,7.5,3)
LINESA(13,160,188,160,0,7.5,3)
LINEA(0,182.5,188,182.5)
LINESA(13,190,188,190,0,7.5,6)

FONTSIZE(3)
TEXT(6.5,2,TA_CENTER,'označ.')
TEXT(6.5,6,TA_CENTER,'a')
TEXT(58,2,TA_CENTER,'P A S I V A')
TEXT(58,6,TA_CENTER,'b')
TEXT(107.5,3,TA_CENTER,'řád.')
TEXT(107.5,6,TA_CENTER,'c')
TEXT(131,2,TA_CENTER,'Stav v běžném účet. období')
TEXT(131,6,TA_CENTER,'5')
TEXT(169,2,TA_CENTER,'Stav v minulém účet. období')
TEXT(169,6,TA_CENTER,'6')

LoadWNSPos(3)
TabPos(13)
DefTab(3,7.5,2,10,TA_LEFT,14,87,TA_LEFT,107.5,7,TA_CENTER)
TabFromWns(1,0,30,$7)
SaveWnsPos(4)

;LoadWnsPos(3)
;FontSize(4.5)
;FontFace(Bold|Italic)
;TabPos(12)
;DefTab(2,7.5,148,35,TA_RIGHT,186,35,TA_RIGHT)
;TabFromWns(1,0,30,$18)

;==================================== str. 4
NextPage
PEN(0,0.7)
LINEA(0,10,188,10)
LINEA(0,160,188,160)

PEN(0,0.3)
BOXA(0,0,188,167.5)
LINEA(13,0,13,167.5)
LINEA(103,0,103,167.5)
LINEA(112,0,112,167.5)
LINEA(150,0,150,167.5)
LINESA(13,17.5,188,17.5,0,7.5,9)
LINEA(0,85,188,85)
LINESA(13,92.5,188,92.5,0,7.5,3)
LINESA(0,115,188,115,0,7.5,2)
LINESA(13,130,188,130,0,7.5,3)
LINEA(0,152.5,188,152.5)
LINEA(40,220,40,265);
LINESA(90,220,90,265,50,0,2);

PEN(0,0.4);
BOXA(0,220,188,265)

FONTSIZE(3)
FONTFACE(NORMAL)

TEXT(6.5,2,TA_CENTER,'označ.')
TEXT(6.5,6,TA_CENTER,'a')
TEXT(58,2,TA_CENTER,'P A S I V A')
TEXT(58,6,TA_CENTER,'b')
TEXT(107.5,2,TA_CENTER,'řád.')
TEXT(107.5,6,TA_CENTER,'c')
TEXT(131,2,TA_CENTER,'Stav v běžném účet. období')
TEXT(131,6,TA_CENTER,'5')
TEXT(169,2,TA_CENTER,'Stav v minulém účet. období')
TEXT(169,6,TA_CENTER,'6')

TEXT(3,223,TA_LEFT,'Odesláno dne:');
TEXT(43,223,TA_LEFT,'Podpis statutárního orgánu');
TEXT(43,226,TA_LEFT,'nebo fyzické osoby, která');
TEXT(43,229,TA_LEFT,'je účetní jednotkou');
TEXT(93,223,TA_LEFT,'Osoba odpovědná za účetnictví');
TEXT(93,226,TA_LEFT,'(jméno a podpis)');
TEXT(143,223,TA_LEFT,'Osoba odpovědná za účetní');
TEXT(143,226,TA_LEFT,'závěrku (jméno a podpis)');
TEXT(143,256,TA_LEFT,'tel.:');
TEXT(171,256,TA_LEFT,'linka:');


LoadWNSPos(4)
TabPos(13)
DefTab(3,7.5,2,10,TA_LEFT,14,87,TA_LEFT,107.5,7,TA_CENTER)
TabFromWns(1,0,21,$7)

;LoadWnsPos(4)
;FontSize(4.5)
;FontFace(Bold|Italic)
;TabPos(12)
;DefTab(2,7.5,148,35,TA_RIGHT,186,35,TA_RIGHT)
;TabFromWns(1,0,21,$18)

;FONTSIZE(3.3)
;FontFace(Normal)
;TEXT(188,267,TA_RIGHT,'Vytištěno systémem WinDUO')
END