; 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)

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'))
Platitel:Byte=Val(GetDataINI('DPH','Platitel'))
Osoba:Byte=Val(GetDataINI('DPH','Osoba'))
Ina:Byte=Val(GetDataINI('DPH','Ina'))
Zdanitelna:Byte=Val(GetDataINI('DPH','Zdanitelna'))
;texty a ramiky

Pen(0,0.5)
Box(3,24,190,18)
Box(3,43,190,51)
Box(3,95,190,80)
Box(3,176,190,47)
Box(11,224,173,48)

;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,43,0,26)
Line(141,43,0,26)
Line(3,69,190,0)
Line(3,190,190,0)
Box(102,50,3,3)
Box(102,56,3,3)
Box(102,63,3,3)
Box(27,71,3,3)
Box(27,77,3,3)
Box(27,83,3,3)
Box(27,89,3,3)
;lomitka
Line(26,165,1.5,-3.5)
Line(98,165,1.5,-3.5)
;bodky v datume
Pen(0,0.7)
Box(15,214,0.5,0.5)
Box(28,214,0.5,0.5)

PEN(0,0.2)
IF(TypPriz=0)
  begin
   LINE(102,50,3,3)
   LINE(105,50,-3,3)
  end;
IF(TypPriz=1)
  begin
   LINE(102,56,3,3)
   LINE(105,56,-3,3)
  end;
IF(TypPriz=2)
  begin
   LINE(102,63,3,3)
   LINE(105,63,-3,3)
  end;
IF(Platitel=1)
  begin
   LINE(27,71,3,3)
   LINE(30,71,-3,3)
  end;
IF(Osoba=1)
  begin
   LINE(27,77,3,3)
   LINE(30,77,-3,3)
  end;
IF(Ina=1)
  begin
   LINE(27,83,3,3)
   LINE(30,83,-3,3)
  end;
IF(Zdanitelna=1)
  begin
   LINE(27,89,3,3)
   LINE(30,89,-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,29,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 č. ..../1995 Z.z. o dani z pridanej hodnoty (ďalej len zákon)')
TEXT(5,33,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,47,TA_LEFT|TA_BASELINE,'Identifikačné číslo pre daň z pridanej hodnoty')
TEXT(5,60,TA_LEFT|TA_BASELINE,'Daňový úrad')
TEXT(91,47,TA_LEFT|TA_BASELINE,'Druh priznania')
FontFace(Italic)
TEXT(116,47,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')
TEXT(5,73,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')
FontFace(Normal)
TEXT(107,52.5,TA_LEFT|TA_BASELINE,'riadne')
TEXT(107,58.5,TA_LEFT|TA_BASELINE,'opravné')
TEXT(107,66,TA_LEFT|TA_BASELINE,'dodatočné')
TEXT(154,47,TA_LEFT|TA_BASELINE,'Zdaňovacie obdobie')
TEXT(144,54.5,TA_LEFT|TA_BASELINE,'Mesiac')
TEXT(157,54.5,TA_LEFT|TA_BASELINE,'Štvrťrok')
TEXT(180,54.5,TA_LEFT|TA_BASELINE,'Rok')
FontFace(Italic)
TEXT(142,67,TA_LEFT|TA_BASELINE,'(01 - 12)     (1 - 4)')
FontFace(Normal)
TEXT(33,73.5,TA_LEFT|TA_BASELINE,'Platiteľ dane z pridanej hodnoty (ďalej len daň) podľa § 4, 5 a 6 zákona')
TEXT(33,79.5,TA_LEFT|TA_BASELINE,'Osoba registrovaná pre daň podľa § 7 zákona')
TEXT(33,85.5,TA_LEFT|TA_BASELINE,'Iná osoba povinná podať daňové priznanie podľa § 78 ods. 3 a 4 zákona')
TEXT(33,91.5,TA_LEFT|TA_BASELINE,'PZdaniteľná osoba podľa § 3 ods. 5 zákona uplatňujúca odpočítanie dane')
TEXT(5,99,TA_LEFT|TA_BASELINE,'Názov alebo obchodné meno právnickej osoby alebo meno a priezvisko fyzyckej osoby ')
TEXT(5,136,TA_LEFT|TA_BASELINE,'Adresa')
TEXT(5,141,TA_LEFT|TA_BASELINE,'Ulica')
TEXT(153,141,TA_LEFT|TA_BASELINE,'Číslo')
TEXT(5,154,TA_LEFT|TA_BASELINE,'PSČ')
TEXT(36,154,TA_LEFT|TA_BASELINE,'Obec')
TEXT(5,166,TA_LEFT|TA_BASELINE,'Číslo telefónu')
TEXT(76,166,TA_LEFT|TA_BASELINE,'Číslo faxu')
TEXT(5,180,TA_LEFT|TA_BASELINE,'Meno a priezvisko osoby, ktorá je oprávnená konať za osobu podávajúcu daňové priznanie')
TEXT(5,206,TA_LEFT|TA_BASELINE,'Dátum')
TEXT(130,222,TA_LEFT|TA_BASELINE,'Podpis')
TEXT(36,270,TA_LEFT|TA_BASELINE,'Miesto pre evidenčné číslo')
TEXT(111,270,TA_LEFT|TA_BASELINE,'Odtlačok prezentačnej pečiatky daňového úradu')

FontFace(Bold)
TEXT(7,196,TA_LEFT|TA_BASELINE,'Vyhlasujem, že uvedené údaje sú')
TEXT(7,200,TA_LEFT|TA_BASELINE,'správne a úplné.')
TEXT(15,229,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 01-2004')

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

;tlač údajov
FONTSIZE(5)
TEXT(5,67,TA_LEFT|TA_BASELINE,GetDataINI('INFO','DanovyUrad'))
STEXT(5,107,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno'))
STEXT(5,115,TA_LEFT|TA_BASELINE,5.1,37,GetDataINI('INFO','ObchodneMeno2'))
STEXT(5,148,TA_LEFT|TA_BASELINE,5.1,28,GetDataINI('INFO','Ulica'))
STEXT(154,148,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','UlicaCislo'))
STEXT(5,54,TA_LEFT|TA_BASELINE,5.1,2,'SK')
STEXT(16,54,TA_LEFT|TA_BASELINE,5.1,10,GetDataINI('INFO','DICSK'))
STEXT(5,160,TA_LEFT|TA_BASELINE,5.1,5,GetDataINI('INFO','PSCDPH'))
STEXT(36,160,TA_LEFT|TA_BASELINE,5.1,31,GetDataINI('INFO','Obec'))
STEXT(5,172,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaTel'))
STEXT(32,172,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Tel'))
STEXT(76,172,TA_LEFT|TA_BASELINE,5.1,4,GetDataINI('INFO','VolackaFax'))
STEXT(104,172,TA_LEFT|TA_BASELINE,5.1,8,GetDataINI('INFO','Fax'))
STEXT(7,187,TA_CENTER|TA_BASELINE,5.1,37,GetDataINI('INFO','MenoZastupcu'))
IF(ValDate(GetDataINI('DPH','DatumPriznania'))<>0)
  begin
    STEXT(6.5,214,TA_Center|TA_BASELINE,5.1,2,DenZData(GetDataINI('DPH','DatumPriznania')))
    STEXT(19.5,214,TA_Center|TA_BASELINE,5.1,2,MesicZData(GetDataINI('DPH','DatumPriznania'),2))
    STEXT(32.5,214,TA_Center|TA_BASELINE,5.1,4,RokZData(GetDataINI('DPH','DatumPriznania')))
  end
SText(145,61,TA_CENTER|TA_BASELINE,5.1,2,OBDMESIC)
SText(164,61,TA_CENTER|TA_BASELINE,5.1,1,OBDKVART)
SText(174,61,TA_CENTER|TA_BASELINE,5.1,4,OBDROK)

;===================2. strana==============================
NextPage
Pen(0,0.7)
;rohy
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(15,4,57,12)
Box(74,4,63,12)
Box(6,20,190,242)
Box(6,263,190,9)
Line(6,24,190,0)

Pen(0,0.2)
;vodorovne
Line(6,32.5,190,0)
Line(12,41,120,0)
LineSa(6,49.5,132,49.5,0,8.5,3)
LineSa(12,75,132,75,0,8.5,2)
LineSa(6,92,196,92,0,8.5,8)
LineSa(12,160,196,160,0,8.5,3)
LineSa(6,185.5,196,185.5,0,8.5,9)
;zvisle
Line(12,32.5,0,17)
Line(12,66.5,0,25.5)
Line(12,151.5,0,34)
Line(69,185.5,0,8.5)
Line(69,20,0,89)
Line(132,20,0,242)
Line(46,263,0,9)
Line(132,263,0,9)
;štvorček
LineSa(69,27.5,73.5,27.5,0,8.5,10)
LineSa(73.5,24,73.5,27.5,0,8.5,10)
LineSa(132,95.5,136.5,95.5,0,8.5,20)
LineSa(136.5,92,136.5,95.5,0,8.5,20)
Line(132,27.5,4.5,0)
Line(136.5,24,0,3.5)
Line(69,189,4.5,0)
Line(73.5,185.5,0,3.5)
Line(132,266.5,4.5,0)
Line(136.5,263,0,3.5)
;minus
Line(135,157.5,2,0)
Line(135,166,2,0)
Line(135,174.5,2,0)
Line(135,183,2,0)
Line(135,217,2,0)
Line(135,242.5,2,0)
Line(135,251,2,0)
FONTSIZE(3.5)
FontFace(Normal)
TEXT(70,27,TA_LEFT|TA_BASELINE,'01')
TEXT(133,27,TA_LEFT|TA_BASELINE,'02')
TEXT(70,35.5,TA_LEFT|TA_BASELINE,'03')
TEXT(70,44,TA_LEFT|TA_BASELINE,'04')
TEXT(70,52.5,TA_LEFT|TA_BASELINE,'05')
TEXT(70,61,TA_LEFT|TA_BASELINE,'06')
TEXT(70,69.5,TA_LEFT|TA_BASELINE,'07')
TEXT(70,78,TA_LEFT|TA_BASELINE,'08')
TEXT(70,86.5,TA_LEFT|TA_BASELINE,'09')
TEXT(70,95,TA_LEFT|TA_BASELINE,'10')
TEXT(133,95,TA_LEFT|TA_BASELINE,'11')
TEXT(70,103.5,TA_LEFT|TA_BASELINE,'12')
TEXT(133,103.5,TA_LEFT|TA_BASELINE,'13')

TEXT(133,120.5,TA_LEFT|TA_BASELINE,'15')
TEXT(133,129,TA_LEFT|TA_BASELINE,'16')
TEXT(133,137.5,TA_LEFT|TA_BASELINE,'17')
TEXT(133,146,TA_LEFT|TA_BASELINE,'18')
TEXT(133,154.5,TA_LEFT|TA_BASELINE,'19')
TEXT(133,163,TA_LEFT|TA_BASELINE,'20')
TEXT(133,171.5,TA_LEFT|TA_BASELINE,'21')

TEXT(70,188.5,TA_LEFT|TA_BASELINE,'23')
TEXT(133,188.5,TA_LEFT|TA_BASELINE,'24')
TEXT(133,197,TA_LEFT|TA_BASELINE,'25')
TEXT(133,205.5,TA_LEFT|TA_BASELINE,'26')
TEXT(133,214,TA_LEFT|TA_BASELINE,'27')
TEXT(133,222.5,TA_LEFT|TA_BASELINE,'28')

TEXT(133,239.5,TA_LEFT|TA_BASELINE,'30')
TEXT(133,248,TA_LEFT|TA_BASELINE,'31')

TEXT(133,266,TA_LEFT|TA_BASELINE,'33')

TEXT(16,7,TA_LEFT|TA_BASELINE,'V zdaňovacom období nevznikla')
TEXT(16,10.5,TA_LEFT|TA_BASELINE,'daňová povinnosť ani nárok')
TEXT(16,14,TA_LEFT|TA_BASELINE,'na odpočítanie dane')
FontFace(Italic)
TEXT(43,14,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')
Box(66,8,3,3)
IF(Odpocet=1)
  begin
   LINE(66,8,3,3)
   LINE(69,8,-3,3)
  end;
TEXT(105.5,7,TA_CENTER|TA_BASELINE,'Identifikačné číslo pre daň')
FontFace(Bold)
TEXT(100.5,23,TA_CENTER|TA_BASELINE,'Základ dane')
TEXT(163.5,23,TA_CENTER|TA_BASELINE,'Daň')
TEXT(7,114,TA_LEFT|TA_BASELINE,'Daň celkom')
TEXT(13,182,TA_LEFT|TA_BASELINE,'Odpočítanie dane celkom')
TEXT(7,233,TA_LEFT|TA_BASELINE,'VLASTNÁ DAŇOVÁ POVINNOSŤ')
TEXT(7,258.5,TA_LEFT|TA_BASELINE,'VLASTNÁ DAŇOVÁ POVINNOSŤ NA ÚHRADU')
TEXT(133,112,TA_LEFT|TA_BASELINE,'14')
TEXT(133,180,TA_LEFT|TA_BASELINE,'22')
TEXT(133,231,TA_LEFT|TA_BASELINE,'29')
TEXT(133,256.5,TA_LEFT|TA_BASELINE,'32')
FontFace(Normal)
TEXT(7,29,TA_LEFT|TA_BASELINE,'Zdaniteľné obchody')
TEXT(13,35.5,TA_LEFT|TA_BASELINE,'dodanie tovaru a služby')
TEXT(13,39,TA_LEFT|TA_BASELINE,'podľa § 8 a 9 zákona')
TEXT(13,44,TA_LEFT|TA_BASELINE,'nadobudnutie tovaru v tuzemsku')
TEXT(13,47.5,TA_LEFT|TA_BASELINE,'podľa § 11 zákona')
TEXT(7,52.5,TA_LEFT|TA_BASELINE,'Nadobudnutie tovaru prvým')
TEXT(7,56,TA_LEFT|TA_BASELINE,'odberateľom podľa § 45 ods. 2 zákona')
TEXT(7,61,TA_LEFT|TA_BASELINE,'Dodanie tovarov a služieb')
TEXT(7,64.5,TA_LEFT|TA_BASELINE,'s oslobodením od dane')
TEXT(13,69.5,TA_LEFT|TA_BASELINE,'bez možnosti odpočítania dane')
TEXT(13,73,TA_LEFT|TA_BASELINE,'podľa § 28 až 41 zákona')
TEXT(13,78,TA_LEFT|TA_BASELINE,'s možnosťou odpočítania dane')
TEXT(13,81.5,TA_LEFT|TA_BASELINE,'podľa § 43 zákona')
TEXT(13,86.5,TA_LEFT|TA_BASELINE,'s možnosťou odpočítania dane')
TEXT(13,90,TA_LEFT|TA_BASELINE,'podľa § 46 a 47 zákona')
TEXT(7,95,TA_LEFT|TA_BASELINE,'Tovary a služby, pri ktorých príjemca')
TEXT(7,98.5,TA_LEFT|TA_BASELINE,'platí daň podľa § 69 ods. 2 až 4 zákona')
TEXT(7,103.5,TA_LEFT|TA_BASELINE,'Tovary, pri ktorých druhý odberateľ')
TEXT(7,107,TA_LEFT|TA_BASELINE,'platí daň podľa § 69 ods. 7 zákona')
TEXT(7,122.5,TA_LEFT|TA_BASELINE,'Daň z tovarov a služieb kúpených v tuzemsku (§ 49 ods. 2 písm. a) zákona')
TEXT(7,129,TA_LEFT|TA_BASELINE,'Daň zo služieb a tovarov pri ktorých príjemca platí daň')
TEXT(7,132.5,TA_LEFT|TA_BASELINE,'podľa § 69 ods. 2 až 4 zákona (§ 49 ods. 2 písm. b) zákona)')
TEXT(7,139.5,TA_LEFT|TA_BASELINE,'Daň z nadobudnutých tovarov z iného členského štátu (§ 49 ods. 2 písm. c) zákona)')
TEXT(7,148,TA_LEFT|TA_BASELINE,'Daň zaplatená pri dovoze tovaru (§ 49 ods. 2 písm. d) zákona)')
TEXT(13,156.5,TA_LEFT|TA_BASELINE,'Odpočítanie dane podľa § 49 až 51 zákona')
TEXT(13,165,TA_LEFT|TA_BASELINE,'Odpočítanie dane pri dodaní nového dopravného prostriedku podľa § 52 zákona')
TEXT(13,173.5,TA_LEFT|TA_BASELINE,'Odpočítanie dane pri registrácii podľa § 55 zákona')
TEXT(7,188.5,TA_LEFT|TA_BASELINE,'Rozdiel v základe dane a v dani po oprave')
TEXT(7,192,TA_LEFT|TA_BASELINE,'podľa § 25 ods. 1 až 3 zákona (+/-)')
TEXT(7,199,TA_LEFT|TA_BASELINE,'Oprava odpočítanej dane podľa § 53 zákona (+/-)')
TEXT(7,207.5,TA_LEFT|TA_BASELINE,'Úprava dane odpočítanej pri investičnom majetku podľa § 54 zákona (+/-)')
TEXT(7,216,TA_LEFT|TA_BASELINE,'Vrátenie dane cestujúcim pri vývoze tovaru podľa § 60 zákona')
TEXT(7,224.5,TA_LEFT|TA_BASELINE,'Daňová povinnosť pri zrušení registrácie podľa § 81 zákona')
TEXT(7,241.5,TA_LEFT|TA_BASELINE,'Nadmerný odpočet')
TEXT(7,250,TA_LEFT|TA_BASELINE,'Nadmerný odpočet odpočítaný od vlastnej daňovej povinnosti podľa § 79 zákona')
TEXT(7,267,TA_LEFT|TA_BASELINE,'ÚDAJ DODATOČNÉHO')
TEXT(7,270.5,TA_LEFT|TA_BASELINE,'DAŇOVÉHO PRIZNANIA')
TEXT(47,268,TA_LEFT|TA_BASELINE,'Rozdiel oproti podanému daňovému priznaniu (+/-)')

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 01-2004')

FONTSIZE(5)
FontFace(Italic)
STEXT(83,13,TA_RIGHT|TA_BASELINE,5,2,'SK')
STEXT(135,13,TA_RIGHT|TA_BASELINE,5,10,GetDataINI('INFO','DICSK'))

OPENWNS('HLASDPH.WNS')
FONTSIZE(5)
FONTFACE(BOLD|ITALIC)
TabPos(31)
DefTab(2,8.5,125,45,TA_RIGHT|TA_BASELINE,190,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$28);
DefTab(1,8.5,125,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,7,$8);
DefTab(2,8.5,125,45,TA_RIGHT|TA_BASELINE,190,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$28);
DefTab(1,8.5,190,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,9,$20);
DefTab(2,8.5,125,45,TA_RIGHT|TA_BASELINE,190,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$28);
DefTab(1,8.5,190,45,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,8,$20);

END