; Popis formulára 'DPH 2002 Priznanie'
; verzia z 27.11.2002; 

Author('Miroslav Kufa','e-mail:acory@acry.sk')
FileName('DPHDDT.WNS')
Name('Priznanie DPH-formulár od r.2002')
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<>2)
   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,13)
Box(3,42,190,27)
Box(3,70,190,87)
Box(3,158,190,59)
Box(11,231,173,50)

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,42,0,27)
Line(141,42,0,27)
Line(3,114,190,0)
Line(3,119,190,0)
Box(90,45,3,3)
Box(90,51,3,3)
Box(90,57,3,3)
;lomitka
Line(57,53,1.5,-3.5)
Line(26,154,1.5,-3.5)
Line(98,154,1.5,-3.5)
;bodky v datume
Pen(0,0.7)
Box(19.5,202.3,0.5,0.5)
Box(33.5,202.3,0.5,0.5)

PEN(0,0.2)
IF(TypPriz=0)
  begin
   LINE(90,45,3,3)
   LINE(93,45,-3,3)
  end;
IF(TypPriz=1)
  begin
   LINE(90,51,3,3)
   LINE(93,51,-3,3)
  end;
IF(TypPriz=2)
  begin
   LINE(90,57,3,3)
   LINE(93,57,-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')
FontFace(Normal)
FONTSIZE(4)
Text(98,23,TA_CENTER|TA_BASELINE,'podľa zákona NR SR č. 289/1995 Z.z. o dani z pridanej hodnoty v znení neskorších predpisov (ďalej len "zákon")')
TEXT(5,31,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(6)
STEXT(5,38,TA_LEFT|TA_BASELINE,5.1,37,'AÄBČDÉFGHÍJKLMNOPQRŠTÚVXÝŽ 123456789')
FONTSIZE(4)
TEXT(5,46,TA_LEFT|TA_BASELINE,'Daňové identifikačné číslo')
TEXT(5,59,TA_LEFT|TA_BASELINE,'Daňový úrad')
TEXT(96,48,TA_LEFT|TA_BASELINE,'daňové priznanie')
TEXT(96,54,TA_LEFT|TA_BASELINE,'opravné daňové priznanie')
TEXT(96,60,TA_LEFT|TA_BASELINE,'dodatočné daňové priznanie')
TEXT(96,66,TA_LEFT|TA_BASELINE,'(vyznačte x)')
TEXT(154,52,TA_LEFT|TA_BASELINE,'Zdaňovacie obdobie')
TEXT(144,58,TA_LEFT|TA_BASELINE,'Mesiac')
TEXT(159,58,TA_LEFT|TA_BASELINE,'Štvrťrok')
TEXT(179.5,58,TA_LEFT|TA_BASELINE,'Rok')
TEXT(5,74,TA_LEFT|TA_BASELINE,'Obchodné meno platiteľa dane')
TEXT(5,117.5,TA_LEFT|TA_BASELINE,'Sídlo (právnická osoba), trvalý pobyt (fyzická osoba)')
TEXT(5,123,TA_LEFT|TA_BASELINE,'Ulica')
TEXT(153,123,TA_LEFT|TA_BASELINE,'Číslo')
TEXT(5,136,TA_LEFT|TA_BASELINE,'PSČ')
TEXT(36,136,TA_LEFT|TA_BASELINE,'Obec')
TEXT(5,148,TA_LEFT|TA_BASELINE,'Telefón')
TEXT(76,148,TA_LEFT|TA_BASELINE,'Fax')
TEXT(5,162,TA_LEFT|TA_BASELINE,'Meno a priezvisko osoby, ktorá je oprávnená konať za platiteľa dane')
TEXT(12.5,195,TA_LEFT|TA_BASELINE,'Dátum')
TEXT(5,209,TA_LEFT|TA_BASELINE,'Daňové priznanie sa podáva do 25. dňa')
TEXT(5,213,TA_LEFT|TA_BASELINE,'po skončení zdaňovacieho obdobia.')
TEXT(101,215.5,TA_LEFT|TA_BASELINE,'Podpis oprávnenej osoby, odtlačok pečiatky')
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,179,TA_LEFT|TA_BASELINE,'Vyhlasujem, že uvedené údaje sú')
TEXT(7,183,TA_LEFT|TA_BASELINE,'správne a úplné.')
TEXT(15,236,TA_LEFT|TA_BASELINE,'Vyplní daňový úrad')

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-2002')

;tlač údajov
FONTSIZE(5)
TEXT(5,66,TA_LEFT|TA_BASELINE,GetDataINI('INFO','DanovyUrad'))
STEXT(5,81,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno'))
STEXT(5,91,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno2'))
STEXT(5,129,TA_LEFT|TA_BASELINE,5.1,28,GetDataINI('INFO','Ulica'))
STEXT(154,129,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','UlicaCislo'))
STEXT(5,53,TA_LEFT|TA_BASELINE,5.1,10,GetDataINI('INFO','DIC0'))
STEXT(63,53,TA_LEFT|TA_BASELINE,5.1,3,GetDataINI('INFO','DIC1'))
STEXT(5,142,TA_LEFT|TA_BASELINE,5.1,5,GetDataINI('INFO','PSCDPH'))
STEXT(36,142,TA_LEFT|TA_BASELINE,5.1,31,GetDataINI('INFO','Obec'))
STEXT(5,154,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaTel'))
STEXT(32,154,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Tel'))
STEXT(76,154,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaFax'))
STEXT(104,154,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Fax'))
STEXT(7,170,TA_CENTER|TA_BASELINE,5.1,37,GetDataINI('INFO','MenoZastupcu'))
IF(ValDate(GetDataINI('DPH','DatumPriznania'))<>0)
  begin
    STEXT(11,203,TA_Center|TA_BASELINE,5.1,2,DenZData(GetDataINI('DPH','DatumPriznania')))
    STEXT(24,203,TA_Center|TA_BASELINE,5.1,2,MesicZData(GetDataINI('DPH','DatumPriznania'),2))
    STEXT(37,203,TA_Center|TA_BASELINE,5.1,4,RokZData(GetDataINI('DPH','DatumPriznania')))
  end
SText(145,66,TA_CENTER|TA_BASELINE,5.1,2,OBDMESIC)
SText(164,66,TA_CENTER|TA_BASELINE,5.1,1,OBDKVART)
SText(174,66,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,280,7,0)
Line(6,280,0,-7)
Line(197,280,-7,0)
Line(197,280,0,-7)

Pen(0,0.5)
Box(15,4,81,9)
Box(102,4,43,9)
Box(6,14,191,237)
Box(6,252,94,19)
Box(103,252,94,19)

Pen(0,0.35)
Line(6,105,191,0)
Line(6,130,191,0)
Line(6,155,191,0)

Pen(0,0.2)
Line(80,14,0,237)
Line(138,14,0,237)
Line(6,19,191,0)
Line(6,29,191,0)
Line(6,38.5,191,0)
Line(6,51,74,0)
Line(6,66.5,74,0)
Line(6,79,74,0)
Line(6,91.5,74,0)
Line(16,19,0,19.5)
Line(16,110,0,20)
Line(16,135,0,20)

Line(6,110,191,0)
Line(6,120,191,0)
Line(6,135,191,0)
Line(6,145,191,0)
Line(6,165,191,0)
Line(6,175,191,0)
Line(6,185,191,0)
Line(6,195,191,0)
Line(6,205,191,0)
Line(6,215,191,0)
Line(6,225,191,0)
Line(6,240,191,0)

IF(Odpocet=1)
  begin
   LINE(88,7,4.5,3.5)
   LINE(92.5,7,-4.5,3.5)
  end;

Line(6,261.5,94,0)
Line(103,261.5,94,0)
Line(41,252,0,19)
Line(138,261.5,0,9.5)
FONTSIZE(4)
Box(82,7,4.5,3.5)
TEXT(82.5,10,TA_LEFT|TA_BASELINE,'01')
Box(88,7,4.5,3.5)
Box(17,21,4.5,3.5)
TEXT(17.5,24,TA_LEFT|TA_BASELINE,'02')
Box(17,31,4.5,3.5)
TEXT(17.5,34,TA_LEFT|TA_BASELINE,'03')
Box(17,44,4.5,3.5)
TEXT(17.5,47,TA_LEFT|TA_BASELINE,'04')
Box(17,59,4.5,3.5)
TEXT(17.5,62,TA_LEFT|TA_BASELINE,'05')
Box(17,71.5,4.5,3.5)
TEXT(17.5,74.5,TA_LEFT|TA_BASELINE,'06')
Box(17,84,4.5,3.5)
TEXT(17.5,87,TA_LEFT|TA_BASELINE,'07')
Box(17,97,4.5,3.5)
TEXT(17.5,100,TA_LEFT|TA_BASELINE,'08')
Box(17,112,4.5,3.5)
TEXT(17.5,115,TA_LEFT|TA_BASELINE,'11')
Box(17,122,4.5,3.5)
TEXT(17.5,125,TA_LEFT|TA_BASELINE,'12')
Box(17,137,4.5,3.5)
TEXT(17.5,140,TA_LEFT|TA_BASELINE,'13')
Box(17,147.5,4.5,3.5)
TEXT(17.5,150.5,TA_LEFT|TA_BASELINE,'14')
Box(81,112.5,4.5,3.5)
TEXT(81.5,115.5,TA_LEFT|TA_BASELINE,'15')
Box(81,122.5,4.5,3.5)
TEXT(81.5,125.5,TA_LEFT|TA_BASELINE,'16')
Box(81,138,4.5,3.5)
TEXT(81.5,141,TA_LEFT|TA_BASELINE,'17')
Box(81,148,4.5,3.5)
TEXT(81.5,151,TA_LEFT|TA_BASELINE,'18')
Box(81,158,4.5,3.5)
TEXT(81.5,161,TA_LEFT|TA_BASELINE,'19')
Box(81,168,4.5,3.5)
TEXT(81.5,171,TA_LEFT|TA_BASELINE,'21')
Box(81,178,4.5,3.5)
TEXT(81.5,181,TA_LEFT|TA_BASELINE,'22')
Box(81,188,4.5,3.5)
TEXT(81.5,191,TA_LEFT|TA_BASELINE,'23')
Box(81,208,4.5,3.5)
TEXT(81.5,211,TA_LEFT|TA_BASELINE,'25')
Box(81,218,4.5,3.5)
TEXT(81.5,221,TA_LEFT|TA_BASELINE,'27')
Box(81,234,4.5,3.5)

Box(42,254,4.5,3.5)
TEXT(42.5,257,TA_LEFT|TA_BASELINE,'32')
Box(42,264,4.5,3.5)
TEXT(42.5,267,TA_LEFT|TA_BASELINE,'33')
Box(139,22,4.5,3.5)
TEXT(139.5,25,TA_LEFT|TA_BASELINE,'09')
Box(139,32,4.5,3.5)
TEXT(139.5,35,TA_LEFT|TA_BASELINE,'10')
Box(139,158,4.5,3.5)
TEXT(139.5,161,TA_LEFT|TA_BASELINE,'20')
Box(139,198,4.5,3.5)
TEXT(139.5,201,TA_LEFT|TA_BASELINE,'24')
Box(139,208,4.5,3.5)
TEXT(139.5,211,TA_LEFT|TA_BASELINE,'26')
Box(139,218,4.5,3.5)
TEXT(139.5,221,TA_LEFT|TA_BASELINE,'28')
Box(139,234,4.5,3.5)

Box(139,244,4.5,3.5)
TEXT(139.5,247,TA_LEFT|TA_BASELINE,'31')
Box(139,264,4.5,3.5)
TEXT(139.5,267,TA_LEFT|TA_BASELINE,'34')

FONTSIZE(4)
TEXT(18,8,TA_LEFT|TA_BASELINE,'V zdaňovacom období nevznikla daňová')
TEXT(18,11.5,TA_LEFT|TA_BASELINE,'povinnosť ani nárok na odpočet dane')
FONTSIZE(3.5)
TEXT(23,42,TA_LEFT|TA_BASELINE,'oslobodené od dane (§ 26 zákona)')
TEXT(23,54.5,TA_LEFT|TA_BASELINE,'oslobodené od dane podľa § 26 zákona')
TEXT(23,57.5,TA_LEFT|TA_BASELINE,'nemajúce vplyv na koeficient')
TEXT(23,70,TA_LEFT|TA_BASELINE,'vývoz tovaru a služieb (§ 37,38,39 zákona)')
TEXT(23,82,TA_LEFT|TA_BASELINE,'v zahraničí s nárokom na odpočet dane')
TEXT(23,95,TA_LEFT|TA_BASELINE,'v zahraničí bez nároku na odpočet dane')
FONTSIZE(4)
TEXT(8,162,TA_LEFT|TA_BASELINE,'Daň na vstupe a daň na výstupe celkom')
TEXT(8,172,TA_LEFT|TA_BASELINE,'Odpočet dane')
TEXT(8,182,TA_LEFT|TA_BASELINE,'Odpočet dane podľa § 4 zákona')
TEXT(8,192,TA_LEFT|TA_BASELINE,'Daň vrátená podľa § 38b zákona')
TEXT(8,200.5,TA_LEFT|TA_BASELINE,'Odvod dane podľa § 20 ods. 8, 12, 14 a')
TEXT(8,204,TA_LEFT|TA_BASELINE,'§ 43 zákona')
TEXT(8,212,TA_LEFT|TA_BASELINE,'Ročné vysporiadanie odpočtu dane')
TEXT(8,222,TA_LEFT|TA_BASELINE,'Celkom')
TEXT(8,245,TA_LEFT|TA_BASELINE,'Daň, ktorú je povinná podľa § 46a zákona')
TEXT(8,249,TA_LEFT|TA_BASELINE,'zaplatiť iná osoba')
TEXT(8,258,TA_LEFT|TA_BASELINE,'Vývoz tovaru')
TEXT(8,265,TA_LEFT|TA_BASELINE,'Nadmerný odpočet')
TEXT(8,269,TA_LEFT|TA_BASELINE,'(r. 29 x koef.)')
TEXT(104,265,TA_LEFT|TA_BASELINE,'Výsledok dodatočného')
TEXT(104,269,TA_LEFT|TA_BASELINE,'daňového priznania')
FontFace(Bold)
TEXT(43,17.5,TA_CENTER|TA_BASELINE,'Uskutočnené zdaniteľné plnenia')
TEXT(167,17.5,TA_CENTER|TA_BASELINE,'Daň na výstupe')
TEXT(43,109,TA_CENTER|TA_BASELINE,'Prijaté zdaniteľné plnenia v tuzemsku')
TEXT(109,109,TA_CENTER|TA_BASELINE,'Daň na vstupe')
TEXT(43,134,TA_CENTER|TA_BASELINE,'Dovoz tovaru')
TEXT(7.5,25,TA_LEFT|TA_BASELINE,'10%')
TEXT(7.5,116,TA_LEFT|TA_BASELINE,'10%')
TEXT(7.5,141,TA_LEFT|TA_BASELINE,'10%')
TEXT(7.5,35,TA_LEFT|TA_BASELINE,'23%')
TEXT(7.5,126,TA_LEFT|TA_BASELINE,'23%')
TEXT(7.5,151,TA_LEFT|TA_BASELINE,'23%')
TEXT(148,258,TA_CENTER|TA_BASELINE,'ÚDAJE DODATOČNÉHO DAŇOVÉHO PRIZNANIA')
TEXT(109,231,TA_CENTER|TA_BASELINE,'Nadmerný odpočet (r. 27-28)')
TEXT(167,231,TA_CENTER|TA_BASELINE,'Vlastná daňová povinnosť (r. 28-27)')
TEXT(105,8,TA_LEFT|TA_BASELINE,'Údaje sa zaokrúhľujú na')
TEXT(105,11.5,TA_LEFT|TA_BASELINE,'celé Sk smerom nahor')
TEXT(139.5,237,TA_LEFT|TA_BASELINE,'30')
TEXT(81.5,237,TA_LEFT|TA_BASELINE,'29')
FontFace(Normal)
FONTSIZE(2.5)
TEXT(188,280,TA_RIGHT|TA_BASELINE,'Vytlačené systémom WinDUO')
FontSize(3)
TEXT(15,280,TA_LEFT|TA_BASELINE,'Ministerstvo financií SR / DPH 03-2002')


FONTSIZE(5)
OPENWNS('HLASDPH.WNS')
TabPos(26)
DefDynSTab(10,2,78,11,5.1,TA_RIGHT|TA_BASELINE,194,10,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$88)
TabPos(49)
DefDynSTab(15,1,78,11,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$8)
TabPos(76)
DefDynSTab(13,1,78,11,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,3,$8)
TabPos(118)
DefDynSTab(10,2,78,11,5.1,TA_RIGHT|TA_BASELINE,135,10,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$28)
TabPos(143)
DefDynSTab(10,3,78,11,5.1,TA_RIGHT|TA_BASELINE,135,10,5.1,TA_RIGHT|TA_BASELINE,194,10,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,9,$A8)
TabPos(238)
DefDynSTab(10,1,135,10,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,1,$20)
TabPos(238)
DefDynSTab(10,1,194,10,5.1,TA_RIGHT|TA_BASELINE)
TabFromWns(0,0,2,$80)
TabPos(260)
DefDynSTab(9,1,96,10,5.1,TA_LEFT|TA_BASELINE)
TabFromWns(0,0,2,$80)
END