; Popis formulára 'DPH 2003 Priznanie'
; verzia z 12.1.2004; 
Author('Miroslav Kufa','e-mail:acory@acry.sk')
FileName('DPHDDT.WNS')
Name('Priznanie DPH-formulár od r.2004')
Descr('Formulár pre priznanie DPH')
IF(Version()<6)
   Error('Tento súbor nejde spracovať vo Vašej verzii WinDUO'+#13+#13+'Zaistite si vyššiu verziu...',mb_IconStop)
IF(not ExistVariable('Vzor'))
   Error('Tento súbor nemôžete volať priamo.\rVolá sa prostredníctvom súboru DPH.DDT',mb_IconStop);
IF(Vzor<>4)
   Error('Chybné volanie\rGlobálnej premennej Vzor='+Str(Vzor),mb_IconStop);
Designed('')
DeclareRec('Program')

;Definícia premenných
TypPriz:Byte=Val(GetDataIni('DPH','TypPriz'))
Ochranovatel:Byte=Val(GetDataINI('DPH','Ochranovatel'))
Odpocet:Byte=Val(GetDataINI('DPH','Odpocet'))
Eu:Byte=Val(GetDataINI('DPH','Eu'))

;texty a ramiky

Pen(0,0.5)
Box(3,27,190,18)
Box(3,46,190,34)
Box(3,81,190,86)
Box(3,168,190,62)
Box(11,231,173,50)

;rohy
Pen(0,0.7)
Line(3,6,7,0)
Line(3,6,0,7)
Line(192,6,-7,0)
Line(192,6,0,7)
Line(3,285,7,0)
Line(3,285,0,-7)
Line(192,285,-7,0)
Line(192,285,0,-7)
Pen(0,0.2)
Line(83,46,0,34)
Line(141,46,0,34)
Line(83,71,58,0)
Line(3,122,190,0)
Line(3,123,190,0)
Line(3,128,190,0)
Box(102,53,3,3)
Box(102,59,3,3)
Box(102,66,3,3)
Box(95,73,3,3)
;lomitka
Line(57,57,1.5,-3.5)
Line(26,165,1.5,-3.5)
Line(98,165,1.5,-3.5)
;bodky v datume
Pen(0,0.7)
Box(15,216,0.5,0.5)
Box(28,216,0.5,0.5)

PEN(0,0.2)
IF(TypPriz=0)
  begin
   LINE(102,53,3,3)
   LINE(105,53,-3,3)
  end;
IF(TypPriz=1)
  begin
   LINE(102,59,3,3)
   LINE(105,59,-3,3)
  end;
IF(TypPriz=2)
  begin
   LINE(102,66,3,3)
   LINE(105,66,-3,3)
  end;
IF(Ochranovatel=1)
  begin
   LINE(95,73,3,3)
   LINE(98,73,-3,3)
  end;

FontFace(Bold)
FONTSIZE(7)
TEXT(98,10,TA_CENTER|TA_BASELINE,'DAŇOVÉ PRIZNANIE')
TEXT(98,17,TA_CENTER|TA_BASELINE,'DAŇ Z PRIDANEJ HODNOTY')
FONTSIZE(3.5)
TEXT(5,31,TA_LEFT|TA_BASELINE,'Číselné údaje sa zarovnávajú vpravo, ostatné údaje sa píšu zľava. Nevyplnené riadky sa ponechávajú prázdne.')
FontFace(Normal)
Text(98,22,TA_CENTER|TA_BASELINE,'podľa zákona Národnej rady Slovenskej republiky č. 289/1995 Z.z. o dani z pridanej hodnoty')
Text(98,25.5,TA_CENTER|TA_BASELINE,'v znení neskorších predpisov (ďalej len "zákon")')
TEXT(5,35,TA_LEFT|TA_BASELINE,'Údaje vyplňujte paličkovým písmom (podľa tohto vzoru), písacím strojom alebo tlačiarňou čiernou prípadne tmavomodrou farbou.')
FONTSIZE(3.5)
TEXT(5,50,TA_LEFT|TA_BASELINE,'Daňové identifikačné číslo')
TEXT(5,62,TA_LEFT|TA_BASELINE,'Daňový úrad')
TEXT(91,50,TA_LEFT|TA_BASELINE,'Druh priznania')
FontFace(Italic)
TEXT(116,50,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')
FontFace(Normal)
TEXT(107,55,TA_LEFT|TA_BASELINE,'riadne')
TEXT(107,61,TA_LEFT|TA_BASELINE,'opravné')
TEXT(107,69,TA_LEFT|TA_BASELINE,'dodatočné')
TEXT(101,75,TA_LEFT|TA_BASELINE,'ochraňovateľ štátnych')
TEXT(101,78.5,TA_LEFT|TA_BASELINE,'hmotných rezerv')
TEXT(154,50,TA_LEFT|TA_BASELINE,'Zdaňovacie obdobie')
TEXT(144,57.5,TA_LEFT|TA_BASELINE,'Mesiac')
TEXT(157,57.5,TA_LEFT|TA_BASELINE,'Štvrťrok')
TEXT(180,57.5,TA_LEFT|TA_BASELINE,'Rok')
FontFace(Italic)
TEXT(144,71,TA_LEFT|TA_BASELINE,'(01 - 12)     (1 - 4)')
FontFace(Normal)

TEXT(5,84,TA_LEFT|TA_BASELINE,'Obchodné meno platiteľa dane z pridanej hodnoty (ďalej len "platiteľ dane")')
FontFace(Italic)
TEXT(5,87,TA_LEFT|TA_BASELINE,'(uvádza sa v súlade so zápisom v Obchodnom registri, t. j. aj s použitím malých písmen)')
FontFace(Normal)
FontFace(Bold)
TEXT(5,127,TA_LEFT|TA_BASELINE,'Sídlo (právnická osoba), trvalý pobyt (fyzická osoba)')
FontFace(Normal)
TEXT(5,132,TA_LEFT|TA_BASELINE,'Ulica')
TEXT(153,132,TA_LEFT|TA_BASELINE,'Číslo')
TEXT(5,145,TA_LEFT|TA_BASELINE,'PSČ')
TEXT(36,145,TA_LEFT|TA_BASELINE,'Obec')
TEXT(5,158,TA_LEFT|TA_BASELINE,'Číslo telefónu')
TEXT(76,158,TA_LEFT|TA_BASELINE,'Číslo faxu')
TEXT(5,172,TA_LEFT|TA_BASELINE,'Meno a priezvisko osoby, ktorá je oprávnená konať za platiteľa dane')
TEXT(5,209,TA_LEFT|TA_BASELINE,'Dátum')
TEXT(5,224,TA_LEFT|TA_BASELINE,'Daňové priznanie sa podáva do 25. dňa')
TEXT(5,228,TA_LEFT|TA_BASELINE,'po skončení zdaňovacieho obdobia.')
TEXT(101,226,TA_LEFT|TA_BASELINE,'Podpis platiteľa dane alebo osoby oprávnenej konať')
TEXT(101,229,TA_LEFT|TA_BASELINE,'za platiteľa dane a odtlačok pečiatky platiteľa dane')
TEXT(36,279,TA_LEFT|TA_BASELINE,'Miesto pre evidenčné číslo')
TEXT(111,279,TA_LEFT|TA_BASELINE,'Odtlačok prezentačnej pečiatky daňového úradu')

FontFace(Bold)
TEXT(7,198,TA_LEFT|TA_BASELINE,'Vyhlasujem, že uvedené údaje sú')
TEXT(7,202,TA_LEFT|TA_BASELINE,'správne a úplné.')
TEXT(15,236,TA_LEFT|TA_BASELINE,'Záznamy daňového úradu')

FONTFACE(Normal)
FONTSIZE(2.5)
TEXT(182,283.5,TA_RIGHT|TA_BASELINE,'Vytlačené systémom WinDUO')
FontSize(3)
TEXT(12,285,TA_LEFT|TA_BASELINE,'Ministerstvo financií SR / DPH 03-2004')

FONTSIZE(6)
FontFace(Italic)
STEXT(5,42,TA_LEFT|TA_BASELINE,5.1,37,'AÄBČDÉFGHÍJKLMNOPQRŠTÚVXÝŽ 123456789')

;tlač údajov
FONTSIZE(5)
TEXT(5,70,TA_LEFT|TA_BASELINE,GetDataINI('INFO','DanovyUrad'))
STEXT(5,93,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno'))
STEXT(5,102,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno2'))
STEXT(5,139,TA_LEFT|TA_BASELINE,5.1,28,GetDataINI('INFO','Ulica'))
STEXT(154,139,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','UlicaCislo'))
STEXT(5,57,TA_LEFT|TA_BASELINE,5.1,10,GetDataINI('INFO','DIC0'))
STEXT(63,57,TA_LEFT|TA_BASELINE,5.1,3,GetDataINI('INFO','DIC1'))
STEXT(5,152,TA_LEFT|TA_BASELINE,5.1,5,GetDataINI('INFO','PSCDPH'))
STEXT(36,152,TA_LEFT|TA_BASELINE,5.1,31,GetDataINI('INFO','Obec'))
STEXT(5,165,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaTel'))
STEXT(32,165,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Tel'))
STEXT(76,165,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaFax'))
STEXT(104,165,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Fax'))
STEXT(7,179,TA_CENTER|TA_BASELINE,5.1,37,GetDataINI('INFO','MenoZastupcu'))
IF(ValDate(GetDataINI('DPH','DatumPriznania'))<>0)
  begin
    STEXT(6.5,217,TA_Center|TA_BASELINE,5.1,2,DenZData(GetDataINI('DPH','DatumPriznania')))
    STEXT(19.5,217,TA_Center|TA_BASELINE,5.1,2,MesicZData(GetDataINI('DPH','DatumPriznania'),2))
    STEXT(32.5,217,TA_Center|TA_BASELINE,5.1,4,RokZData(GetDataINI('DPH','DatumPriznania')))
  end
SText(145,64,TA_CENTER|TA_BASELINE,5.1,2,OBDMESIC)
SText(164,64,TA_CENTER|TA_BASELINE,5.1,1,OBDKVART)
SText(174,64,TA_CENTER|TA_BASELINE,5.1,4,OBDROK)

;===================2. strana==============================
NextPage
Pen(0,0.7)
Line(6,4,7,0)
Line(6,4,0,7)
Line(197,4,-7,0)
Line(197,4,0,7)
Line(6,285,7,0)
Line(6,285,0,-7)
Line(197,285,-7,0)
Line(197,285,0,-7)

Pen(0,0.5)
Box(53,4,82,9)
Box(6,17,75,9)
Box(6,37,191,33)
Box(6,74,191,156)
Box(6,234,191,16)
Line(6,87,191,0)
Line(6,100,191,0)
Line(6,113,191,0)
Line(6,212,191,0)

Pen(0,0.2)
Line(6,42,191,0)
Line(6,54,191,0)
Line(6,79,191,0)
Line(6,92,191,0)
Line(6,105,191,0)
Line(6,122,191,0)
Line(6,131,191,0)
Line(6,140,191,0)
Line(6,149,191,0)
Line(6,158,191,0)
Line(6,167,191,0)
Line(6,176,191,0)
Line(6,185,191,0)
Line(6,197,191,0)
Line(6,221,191,0)
Line(6,240,191,0)

Line(69,42,0,28)
Line(133,42,0,28)
Line(80,74,0,138)
Line(138,74,0,156)
Line(138,240,0,10)

Line(16,79,0,8)
Line(16,92,0,8)
Line(16,105,0,8)
;lomitka
Line(116,10,1.5,-3.5)


FONTSIZE(3.5)
FontFace(Normal)
Box(70,20,4.5,3.5)
TEXT(70.5,23,TA_LEFT|TA_BASELINE,'01')
Box(9,47,4.5,3.5)
TEXT(9.5,50,TA_LEFT|TA_BASELINE,'02')
Box(9,64,4.5,3.5)
TEXT(9.5,67,TA_LEFT|TA_BASELINE,'03')
Box(73,47,4.5,3.5)
TEXT(73.5,50,TA_LEFT|TA_BASELINE,'04')
Box(73,64,4.5,3.5)
TEXT(73.5,67,TA_LEFT|TA_BASELINE,'05')
Box(137,47,4.5,3.5)
TEXT(137.5,50,TA_LEFT|TA_BASELINE,'06')
Box(137,64,4.5,3.5)
TEXT(137.5,67,TA_LEFT|TA_BASELINE,'07')
Box(17,81,4.5,3.5)
TEXT(17.5,84,TA_LEFT|TA_BASELINE,'08')
Box(139,81,4.5,3.5)
TEXT(139.5,84,TA_LEFT|TA_BASELINE,'09')
Box(17,94,4.5,3.5)
TEXT(17.5,97,TA_LEFT|TA_BASELINE,'10')
Box(81,94,4.5,3.5)
TEXT(81.5,97,TA_LEFT|TA_BASELINE,'11')
Box(17,107,4.5,3.5)
TEXT(17.5,110,TA_LEFT|TA_BASELINE,'12')
Box(81,107,4.5,3.5)
TEXT(81.5,110,TA_LEFT|TA_BASELINE,'13')
Box(81,115,4.5,3.5)
TEXT(81.5,118,TA_LEFT|TA_BASELINE,'14')
Box(139,115,4.5,3.5)
TEXT(139.5,118,TA_LEFT|TA_BASELINE,'15')
Box(81,124,4.5,3.5)
TEXT(81.5,127,TA_LEFT|TA_BASELINE,'16')
Box(81,133,4.5,3.5)
TEXT(81.5,136,TA_LEFT|TA_BASELINE,'17')
Box(81,142,4.5,3.5)
TEXT(81.5,145,TA_LEFT|TA_BASELINE,'18')
Box(139,151,4.5,3.5)
TEXT(139.5,154,TA_LEFT|TA_BASELINE,'19')
Box(81,160,4.5,3.5)
TEXT(81.5,163,TA_LEFT|TA_BASELINE,'20')
Box(139,160,4.5,3.5)
TEXT(139.5,163,TA_LEFT|TA_BASELINE,'21')
Box(81,169,4.5,3.5)
TEXT(81.5,172,TA_LEFT|TA_BASELINE,'22')
Box(139,169,4.5,3.5)
TEXT(139.5,172,TA_LEFT|TA_BASELINE,'23')
Box(81,178,4.5,3.5)
TEXT(81.5,181,TA_LEFT|TA_BASELINE,'24')
Box(139,178,4.5,3.5)
TEXT(139.5,181,TA_LEFT|TA_BASELINE,'25')


Box(81,190,4.5,3.5)
TEXT(81.5,193,TA_LEFT|TA_BASELINE,'26')
Box(139,190,4.5,3.5)
TEXT(139.5,193,TA_LEFT|TA_BASELINE,'27')
Box(81,205,4.5,3.5)
TEXT(81.5,208,TA_LEFT|TA_BASELINE,'28')
Box(139,205,4.5,3.5)
TEXT(139.5,208,TA_LEFT|TA_BASELINE,'29')
Box(139,214,4.5,3.5)
TEXT(139.5,217,TA_LEFT|TA_BASELINE,'30')
Box(139,223,4.5,3.5)
TEXT(139.5,226,TA_LEFT|TA_BASELINE,'31')
Box(139,243,4.5,3.5)
TEXT(139.5,246,TA_LEFT|TA_BASELINE,'32')

FONTSIZE(3.5)
TEXT(7,21,TA_LEFT|TA_BASELINE,'V zdaňovacom období nevznikla daňová')
TEXT(7,25,TA_LEFT|TA_BASELINE,'povinnosť ani nárok na odpočítanie dane')
Box(76,20,3,3)
IF(Odpocet=1)
  begin
   LINE(76,20,3,3)
   LINE(79,20,-3,3)
  end;
TEXT(80,35,TA_LEFT|TA_BASELINE,'Nevyplnené riadky sa ponechávajú prázdne, nepoužívajú sa čiarky, bodky a pomlčky.')
TEXT(15,45,TA_LEFT|TA_BASELINE,'oslobodené od dane (§ 26 zákona)')
TEXT(72,45,TA_LEFT|TA_BASELINE,'vývoz tovaru a služieb (§ 37,38,39 zákona)')
TEXT(72,60,TA_LEFT|TA_BASELINE,'v zahraničí s možnosťou odpočítania dane')
TEXT(135,45,TA_LEFT|TA_BASELINE,'v zahraničí bez možnosti odpočítania dane')
TEXT(13,58,TA_LEFT|TA_BASELINE,'plnenia bez dane')
TEXT(13,62,TA_LEFT|TA_BASELINE,'[§ 14 ods. 2 pism. c) zákona]')
TEXT(135,58,TA_LEFT|TA_BASELINE,'plnenia uskutočnené do členských krajín')
TEXT(135,62,TA_LEFT|TA_BASELINE,'Európskej únie a do asociovaných krajín')
FontFace(Italic)
TEXT(176,68,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')

FontFace(Normal)
TEXT(146,68,TA_LEFT|TA_BASELINE,'áno')
TEXT(162,68,TA_LEFT|TA_BASELINE,'nie')
Box(153,65,3,3)
Box(169,65,3,3)
IF(Eu=1)
  begin
   LINE(153,65,3,3)
   LINE(156,65,-3,3)
  end;
IF(Eu=0)
  begin
   LINE(169,65,3,3)
   LINE(172,65,-3,3)
  end;
TEXT(8,119,TA_LEFT|TA_BASELINE,'Daň na vstupe a daň na výstupe celkom')
TEXT(8,128,TA_LEFT|TA_BASELINE,'Odpočítanie dane')
TEXT(8,137,TA_LEFT|TA_BASELINE,'Odpočítanie dane podľa § 4 ods. 5 až 7 zákona')
TEXT(8,146,TA_LEFT|TA_BASELINE,'Daň vrátená podľa § 38b zákona')
TEXT(8,153,TA_LEFT|TA_BASELINE,'Odvod dane podľa § 20 ods. 8, 12, 14 a')
TEXT(8,156.5,TA_LEFT|TA_BASELINE,'§ 43 zákona')
TEXT(8,162,TA_LEFT|TA_BASELINE,'Úprava odpočítanej dane pri investičnom')
TEXT(8,165.5,TA_LEFT|TA_BASELINE,'majetku poľa § 21a zákona')
TEXT(8,173,TA_LEFT|TA_BASELINE,'Ročné vysporiadanie odpočítanej dane')
TEXT(8,182,TA_LEFT|TA_BASELINE,'Celkom')
TEXT(86,200,TA_LEFT|TA_BASELINE,'Nadmerný odpočet')
TEXT(86,203.5,TA_LEFT|TA_BASELINE,'po úprave podľa § 46a zákona')
TEXT(145,200,TA_LEFT|TA_BASELINE,'Vlastná daňová povinnosť'
TEXT(145,203.5,TA_LEFT|TA_BASELINE,'po úprave podľa § 46a zákona')
TEXT(8,218,TA_LEFT|TA_BASELINE,'Nadmerný odpočet odpočítaný od vlastnej daňovej povinnosti')
TEXT(8,227,TA_LEFT|TA_BASELINE,'Vlastná daňová povinnosť k úhrade (r. 27 - 30) alebo (r. 29 - 30)')
TEXT(8,246,TA_LEFT|TA_BASELINE,'Výsledok dodatočného daňového priznania')
TEXT(160,31,TA_LEFT|TA_BASELINE,'(§ 42 ods. 4 zákona).')
FontFace(Bold)
TEXT(86,31,TA_LEFT|TA_BASELINE,'Údaje sa zaokrúhľujú na celé Sk smerom nahor')
TEXT(8,41,TA_LEFT|TA_BASELINE,'Uskutočnené zdaniteľné plnenia bez dane')
TEXT(43,77.5,TA_CENTER|TA_BASELINE,'Uskutočnené zdaniteľné plnenia v tuzemsku')
TEXT(166,77.5,TA_CENTER|TA_BASELINE,'Daň na výstupe')
TEXT(109,90.5,TA_CENTER|TA_BASELINE,'Daň na vstupe')
TEXT(43,90.5,TA_CENTER|TA_BASELINE,'Prijaté zdaniteľné plnenia v tuzemsku')
TEXT(43,103.5,TA_CENTER|TA_BASELINE,'Dovoz tovaru')
TEXT(109,188,TA_CENTER|TA_BASELINE,'Nadmerný odpočet (r. 30 - 31)')
TEXT(166,188,TA_CENTER|TA_BASELINE,'Vlastná daňová povinnosť (r. 31 - 30)')
TEXT(95.5,238,TA_CENTER|TA_BASELINE,'ÚDAJ DODATOČNÉHO DAŇOVÉHO PRIZNANIA')
TEXT(8,84,TA_LEFT|TA_BASELINE,'19%')
TEXT(8,97,TA_LEFT|TA_BASELINE,'19%')
TEXT(8,110,TA_LEFT|TA_BASELINE,'19%')
FontFace(Normal)
FONTSIZE(2.5)
TEXT(188,285,TA_RIGHT|TA_BASELINE,'Vytlačené systémom WinDUO')
FontSize(3)
TEXT(15,285,TA_LEFT|TA_BASELINE,'Ministerstvo financií SR / DPH 03-2004')

FONTSIZE(4.5)
TEXT(55,10,TA_LEFT|TA_BASELINE,'DIČ')
FONTSIZE(5)
STEXT(113,10,TA_RIGHT|TA_BASELINE,5,10,GetDataINI('INFO','DIC0'))
STEXT(120,10,TA_LEFT|TA_BASELINE,5,3,GetDataINI('INFO','DIC1'))

OPENWNS('HLASDPH.WNS')
TabPos(52)
DefDynSTab(16,1,65,10,5,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$8)
TabPos(52)
DefDynSTab(16,1,129,10,5,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$8)
TabPos(52)
DefDynSTab(16,1,193,10,5,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,1,$8)
TabPos(85)
DefDynSTab(13,3,74,10,5,TA_RIGHT|TA_BASELINE,131,10,5,TA_RIGHT|TA_BASELINE,187,10,5,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,3,$A8)
TabPos(120)
DefDynSTab(9,2,131,10,5,TA_RIGHT|TA_BASELINE,187,10,5,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,8,$A0)
TabPos(195)
DefDynSTab(18,1,136,11,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,1,$20)
TabPos(195)
DefDynSTab(18,1,193,11,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,1,$80)
TabPos(210)
DefDynSTab(9,2,136,11,5.1,TA_RIGHT|TA_BASELINE,193,11,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,3,$A0)

END