; Popis formulára 'DPH 2003 Priznanie'
; verzia z 12.1.2005; 
Author('Miroslav Kufa','e-mail:acory@acry.sk')
FileName('DPHDDT.WNS')
Name('Priznanie DPH-formulár od r.2005')
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'))
Zastupca:Byte=Val(GetDataINI('DPH','Zastupca'))
;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,1)
Box(11,8.5,20,10)
FontFace(Bold)
FONTSIZE(8.5)
TEXT(13.5,16,TA_LEFT|TA_BASELINE,'DPH')
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,51)
Line(141,43,0,24)
Line(83,67,110,0)
Line(3,190,190,0)
Line(3,80,80,0)
Box(102,50,3,3)
Box(102,56,3,3)
Box(102,62,3,3)
Box(85,69.5,3,3)
Box(85,74.5,3,3)
Box(85,79.5,3,3)
Box(85,84.5,3,3)
Box(85,89.5,3,3)
;lomitka
Line(26,172,1.5,-3.5)
Line(98,172,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,62,3,3)
   LINE(105,62,-3,3)
  end;
IF(Platitel=1)
  begin
   LINE(85,69.5,3,3)
   LINE(88,69.5,-3,3)
  end;
IF(Osoba=1)
  begin
   LINE(85,74.5,3,3)
   LINE(88,74.5,-3,3)
  end;
IF(Ina=1)
  begin
   LINE(85,79.5,3,3)
   LINE(88,79.5,-3,3)
  end;
IF(Zdanitelna=1)
  begin
   LINE(85,84.5,3,3)
   LINE(88,84.5,-3,3)
  end;
IF(Zastupca=1)
  begin
   LINE(85,89.5,3,3)
   LINE(88,89.5,-3,3)
  end;
FontFace(Bold)
FONTSIZE(7)

BarCode(bc_Code2of5i,148,6,37.6,7,'5521138645');

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é identifikačné číslo / Rodné číslo')
TEXT(5,73,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(191,92,TA_RIGHT|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,64.5,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,65,TA_LEFT|TA_BASELINE,'(01 - 12)     (1 - 4)')
FontFace(Normal)
TEXT(91,72,TA_LEFT|TA_BASELINE,'Platiteľ dane z pridanej hodnoty (ďalej len daň) podľa § 4, 5 a 6 zákona')
TEXT(91,77,TA_LEFT|TA_BASELINE,'Osoba registrovaná pre daň podľa § 7 zákona')
TEXT(91,82,TA_LEFT|TA_BASELINE,'Iná osoba povinná podať daňové priznanie podľa § 78 ods. 3 a 4 zákona)
TEXT(91,87,TA_LEFT|TA_BASELINE,'Zdaniteľná osoba podľa § 3 ods. 5 zákona uplatňujúca odpočítanie dane')
TEXT(91,92,TA_LEFT|TA_BASELINE,'Daňový zástupca pri dovoze tovaru podľa § 69a zákona')
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')
TEXT(5,84,TA_LEFT|TA_BASELINE,'V zdaňovacom období nevznikla')
TEXT(5,87.5,TA_LEFT|TA_BASELINE,'daňová povinnosť ani nárok')
TEXT(5,91,TA_LEFT|TA_BASELINE,'na odpočítanie dane')
FontFace(Italic)
TEXT(34,91,TA_LEFT|TA_BASELINE,'(vyznačí sa x)')
Box(64,86,3,3)
IF(Odpocet=1)
  begin
   LINE(64,86,3,3)
   LINE(67,86,-3,3)
  end;
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(184,288,TA_RIGHT|TA_BASELINE,'Vytlačené systémom WinDUO')
FontSize(3)
TEXT(12,286,TA_LEFT|TA_BASELINE,'Ministerstvo financií SR / DPH 01 - 2005')
TEXT(184,286,TA_RIGHT|TA_BASELINE,'Strana 1')
TEXT(11,7,TA_LEFT|TA_BASELINE,'DPHv05_1')

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,79,TA_LEFT|TA_BASELINE,GetDataINI('INFO','DanovyUrad'))
STEXT(5,67,TA_LEFT|TA_BASELINE,5.1,10,GetDataINI('INFO','DICSK'))
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

BarCode(bc_Code2of5i,150,4,37.6,7,'1711250692');

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(28,4,63,12)
Box(93,4,53,12)
Box(6,20,190,242)
Box(8,263,115,17)
Box(124,263,72,17)
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,2)
LineSa(12,66.5,132,66.5,0,8.5,2)
LineSa(6,83.5,196,83.5,0,8.5,8)
LineSa(12,151.5,196,151.5,0,8.5,4)
LineSa(6,185.5,196,185.5,0,8.5,9)
Line(8,271.5,115,0)
Line(124,271.5,72,0)
Line(124,267.25,72,0)
;zvisle
Line(12,32.5,0,17)
Line(12,58,0,25.5)
Line(12,143,0,42.5)
Line(69,185.5,0,8.5)
Line(69,20,0,80.5)
Line(132,20,0,242)
Line(69,263,0,17)
;štvorček
LineSa(69,27.5,73.5,27.5,0,8.5,9)
LineSa(73.5,24,73.5,27.5,0,8.5,9)
LineSa(132,87,136.5,87,0,8.5,21)
LineSa(136.5,83.5,136.5,87,0,8.5,21)
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)
LineSa(69,266.5,73.5,266.5,0,8.5,2)
LineSa(73.5,263,73.5,266.5,0,8.5,2)
Line(124,275,4.5,0)
Line(128.5,271.5,0,3.5)
;minus
Line(135,149,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,'11')
TEXT(133,95,TA_LEFT|TA_BASELINE,'12')
TEXT(133,86.5,TA_LEFT|TA_BASELINE,'10')
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(70,266,TA_LEFT|TA_BASELINE,'33')
TEXT(70,274.5,TA_LEFT|TA_BASELINE,'34')
TEXT(125,274.5,TA_LEFT|TA_BASELINE,'35')

FontSize(3)
TEXT(59.5,7,TA_CENTER|TA_BASELINE,'Identifikačné číslo pre daň')
TEXT(119.5,7,TA_CENTER|TA_BASELINE,'Daňové identifikačné číslo / Rodné číslo')
FontSize(3.5)
FontFace(Bold)
TEXT(100.5,23,TA_CENTER|TA_BASELINE,'Základ dane')
TEXT(163.5,23,TA_CENTER|TA_BASELINE,'Daň')
TEXT(7,105.5,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,'Dodanie tovarov a služieb')
TEXT(7,56,TA_LEFT|TA_BASELINE,'s oslobodením od dane')
TEXT(13,61,TA_LEFT|TA_BASELINE,'bez možnosti odpočítania dane')
TEXT(13,64.5,TA_LEFT|TA_BASELINE,'podľa § 28 až 41 zákona')
TEXT(13,69.5,TA_LEFT|TA_BASELINE,'s možnosťou odpočítania dane')
TEXT(13,73,TA_LEFT|TA_BASELINE,'podľa § 43 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 § 46 a 47 zákona')
TEXT(7,86.5,TA_LEFT|TA_BASELINE,'Tovary a služby, pri ktorých príjemca')
TEXT(7,90,TA_LEFT|TA_BASELINE,'platí daň podľa § 69 ods. 2 až 4 zákona')
TEXT(7,95,TA_LEFT|TA_BASELINE,'Tovary, pri ktorých druhý odberateľ')
TEXT(7,98.5,TA_LEFT|TA_BASELINE,'platí daň podľa § 69 ods. 7 zákona')
TEXT(7,114,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,120.5,TA_LEFT|TA_BASELINE,'Daň zo služieb a tovarov pri ktorých príjemca platí daň')
TEXT(7,124,TA_LEFT|TA_BASELINE,'podľa § 69 ods. 2 až 4 zákona (§ 49 ods. 2 písm. b) zákona)')
TEXT(7,131,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,139.5,TA_LEFT|TA_BASELINE,'Daň zaplatená pri dovoze tovaru (§ 49 ods. 2 písm. d) zákona)')
TEXT(13,148,TA_LEFT|TA_BASELINE,'Odpočítanie dane podľa § 49 až 51 zákona')
TEXT(13,154.5,TA_LEFT|TA_BASELINE,'Rozdiel medzi odpočítanou daňou v zdaňovacích obdobiach')
TEXT(13,158,TA_LEFT|TA_BASELINE,'a daňou vypočítanou za kalendárny rok podľa § 50 ods. 4 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(125,266.5,TA_LEFT|TA_BASELINE,'ÚDAJ DODATOČNÉHO DAŇOVÉHO PRIZNANIA')
TEXT(125,270.5,TA_LEFT|TA_BASELINE,'Rozdiel oproti podanému daňovému priznaniu (+/-)')
FONTSIZE(3.5)
TEXT(9,267,TA_LEFT|TA_BASELINE,'Nadobudnutie tovaru prvým odberateľom')
TEXT(9,270.5,TA_LEFT|TA_BASELINE,'pri trojstrannom obchode podľa § 45 zákona')
TEXT(9,275.5,TA_LEFT|TA_BASELINE,'Dodanie tovaru prvým odberateľom')
TEXT(9,279,TA_LEFT|TA_BASELINE,'pri trojstrannom obchode podľa § 45 zákona')
FONTSIZE(2.5)
TEXT(189,288,TA_RIGHT|TA_BASELINE,'Vytlačené systémom WinDUO')
FontSize(3)
TEXT(15,286,TA_LEFT|TA_BASELINE,'Ministerstvo financií SR / DPH 01-2005')
TEXT(189,286,TA_RIGHT|TA_BASELINE,'Strana 2')
TEXT(14,5,TA_LEFT|TA_BASELINE,'DPHv05_2')
FONTSIZE(5)
FontFace(Italic)
STEXT(37,13,TA_RIGHT|TA_BASELINE,5,2,'SK')
STEXT(89,13,TA_RIGHT|TA_BASELINE,5,10,GetDataINI('INFO','DICSK'))
STEXT(144,13,TA_RIGHT|TA_BASELINE,5,10,GetDataINI('INFO','DICSK'))

OPENWNS('HLASDPH.WNS')
FONTSIZE(5)
FONTFACE(BOLD|ITALIC)
TabPos(31)
DefSTab(2,8.5,125,12,5,TA_RIGHT|TA_BASELINE,190,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$28);
DefSTab(1,8.5,125,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,6,$8);
DefSTab(2,8.5,125,12,5,TA_RIGHT|TA_BASELINE,190,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$28);
DefSTab(1,8.5,190,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,10,$20);
DefSTab(2,8.5,125,12,5,TA_RIGHT|TA_BASELINE,190,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$28);
DefSTab(1,8.5,190,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,8,$20);
Inc(TabPos)
DefSTab(1,8.5,117,12,5,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$08);

END