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

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

WNSName1=WorkPath+'VYZZ01'+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)


;MinRok=False
;MinRokName=WorkPath+Copy(WNSName(),1,4)+'13'+PredObdRok(2)+'.'+FromChar('.',WnsName)

;if(ExistFile(MinRokName))
;  begin
;    if(FirstInBatch())
;      begin
;        MinRok=Question('Přejete si vyplnit i sloupec pro minulé období?')
;        SetIni('TEMP','MinRok',MinRok)
;      end else
;      begin
;        MinRok=GetBoolean(GetIni('TEMP','MinRok'),True)
;      end
;  end

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,260.5)
LINEA(18,56,18,260.5)
LINEA(107,56,107,260.5)
LINEA(116,56,116,260.5)
LINEA(152,62.5,152,260.5)
LINEA(116,62.5,188,62.5)

LINESA(0,78.5,188,78.5,0,6.5,3)
LINESA(18,98,188,98,0,6.5,3)
LINEA(0,117.5,188,117.5)
LINESA(18,124,188,124,0,6.5,2)
LINESA(0,137,188,137,0,6.5,2)
LINESA(18,150,188,150,0,6.5,4)
LINESA(0,176,188,176,0,6.5,13)

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,'VÝKAZ ZISKŮ A ZTRÁT')
TEXT(90,6,TA_CENTER,'v plném rozsahu')
TEXT(60,13,TA_LEFT,'ke dni ')

FONTSIZE(4)
FONTFACE(NORMAL)
TEXT(49.5,34.5,TA_CENTER,'01')
TEXT(65.25,34.5,TA_CENTER,'803095')
;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(101,34,TA_RIGHT,6.5,2,ObdMesic(2))

FONTSIZE(3)
TEXT(168,3,TA_CENTER,'Výsledovka Úč POD 2 -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(9,58,TA_CENTER,'Označení')
TEXT(9,67,TA_CENTER,'a')
TEXT(62.5,58,TA_CENTER,'T E X T')
TEXT(62.5,67,TA_CENTER,'b')
TEXT(111.5,57,TA_CENTER,'Číslo')
TEXT(111.5,61.5,TA_CENTER,'řádku')
TEXT(111.5,67,TA_CENTER,'c')
TEXT(152,58,TA_CENTER,'Skutečnost v účetním období')
TEXT(134,64,TA_CENTER,'sledovaném')
TEXT(134,67,TA_CENTER,'1');
TEXT(170,64,TA_CENTER,'minulém')
TEXT(170,67,TA_CENTER,'2')

OpenWNS(WNSName1)

SaveWnsPos(1)
TabPos(74.5)
DefTab(3,6.5,2,14,TA_LEFT,20,85,TA_LEFT,111.5,7,TA_CENTER)
TabFromWns(2,0,29,$7)
SaveWnsPos(2)

;LoadWnsPos(1)
;FontSize(4.5)
;FontFace(Bold|Italic)
;TabPos(73.5)
;DefTab(1,6.5,149,31,TA_RIGHT)
;TabFromWns(2,0,29,$8)

;if(MinRok)
;  begin
;    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
;    TabPos(73.5)
;    DefTab(1,6.5,185,31,TA_RIGHT)
;    TabFromWns(2,0,29,$8)
;    SaveWnsPos(12) ;znacka v souboru z minuleho roku
;    OpenWNS(WNSName)  ; otevreni zase toho aktualniho roku
;  end;

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

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

PEN(0,0.3)
BOXA(0,0,188,230.5)

LINEA(18,0,18,230.5)
LINEA(107,0,107,230.5)
LINEA(116,0,116,230.5)
LINEA(152,6,152,230.5)
LINEA(116,6,188,6)

LINESA(0,22.5,188,22.5,0,6.5,2)
LINESA(18,35.5,188,35.5,0,6.5,3)
LINESA(0,55,188,55,0,6.5,13)
LINESA(18,139.5,188,139.5,0,6.5,2)
LINESA(0,152.5,188,152.5,0,6.5,5)
LINESA(18,185,188,185,0,6.5,2)
LINESA(0,198,188,198,0,6.5,5)

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

FONTSIZE(3)
TEXT(9,2,TA_CENTER,'Označení')
TEXT(9,11,TA_CENTER,'a')
TEXT(62.5,2,TA_CENTER,'T E X T')
TEXT(62.5,11,TA_CENTER,'b')
TEXT(111.5,2,TA_CENTER,'Číslo')
TEXT(111.5,4.75,TA_CENTER,'řádku')
TEXT(111.5,11,TA_CENTER,'c')
TEXT(152,2,TA_CENTER,'Skutečnost v účetním období')
TEXT(134,8,TA_CENTER,'sledovaném')
TEXT(134,11,TA_CENTER,'1');
TEXT(170,8,TA_CENTER,'minulém')
TEXT(170,11,TA_CENTER,'2')

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

LoadWNSPos(2)
TabPos(18)
DefTab(3,6.5,2,14,TA_LEFT,20,85,TA_LEFT,111.5,7,TA_CENTER)
TabFromWns(2,0,33,$7)

;LoadWNSPos(2)
;FontSize(4.5)
;FontFace(Bold|Italic)
;TabPos(17)
;DefTab(1,6.5,149,31,TA_RIGHT)
;;DefTab(2,6.5,149,31,TA_RIGHT,185,31,TA_RIGHT)
;TabFromWns(2,0,33,$8)

;if(MinRok)
;  begin
;    OpenWNSIfExist(MinRokName)     ;VZaZ z minuleho roku
;    LoadWNSPos(12);
;    TabPos(17)
;    DefTab(1,6.5,185,31,TA_RIGHT)
;    TabFromWns(2,0,33,$8)
;    OpenWNS(WNSName)  ; otevreni zase toho aktualniho roku
;  end

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

END