;{dodělat načítání dat od Milana}

; Popis formuláře 'Přiznání k dani z přidané hodnoty - vzor č.12'
; verze: z 7.6.2004
; Autor: Milan Slíva + Zdeněk Čapek

Name('Přiznání DPH - formulář č.12')
Designed('')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://wwww.winduo.cz')
Descr('Formulář pro přiznání DPH')
IF(Version()<6)
   Error('Tento soubor nelze zpracovat ve Vaší verzi WinDUO'+#13+#13+'Zajistěte si vyšší verzi...',mb_IconStop)

Vzor:Integer
Vzor=12


INIzDPPO:String=DataPath+'DPPO.INI'

FileName('DPHpriz.WNS')
DeclareRec('Program')
;DlgFollowMouse(True)
ValidDIC:String='0123456789CZcz'
ValidCisla:String='0123456789'

;definice dialogu
AktualCover:Integer=0
FinancniUrad:String[32]=GetDataINI('INFO','FinancniUrad')
DatumPriznani:Word=ValDate(GetDataINI('DPH','DatumPriznani'))
;Adresa:String[37]=GetDataINI('INFO','UplnaAdresa')
Prijmeni:String[25]=GetDataINI('INFO','PrijmeniZastupce')
Jmeno:String[11]=GetDataINI('INFO','JmenoZastupce')
ObchodniJmeno:String[37]=GetDataINI('INFO','ObchodniJmeno')
ObchodniJmeno2:String[25]=GetDataINI('INFO','ObchodniJmeno2')
DodatekJmena:String[11]=GetDataINI('INFO','DodatekJmena')

Postaveni:String[37]=GetDataINI('INFO','PostaveniZastupce')
FOPrijmeni:String[21]=GetDataINI('INFO','FOPrijmeni')
FOJmeno:String[11]=GetDataINI('INFO','FOJmeno')
FOTitul:String[4]=GetDataINI('INFO','FOTitul')

HlCinnost1:String[37]=GetDataINI('INFO','HlCinnost1')
HlCinnost2:String[37]=GetDataINI('INFO','HlCinnost2')
TypPriz:Byte=Val(GetDataIni('DPH','TypPriz'))
TypPlatce:Byte=Val(GetDataIni('DPH','TypPlatce'))
;EU:Byte=Val(GetDataIni('DPH','EU'))
Sestavil:String[25]=GetDataINI('INFO','Sestavil')
TelefonDPH:String[20]=GetDataINI('INFO','TelefonDPH')

Obec:String[29]=GetFromIni('TITULNI','Obec',INIzDPPO)
PSCDan:String=GetFromIni('TITULNI','PSC',INIzDPPO)
PSCDan=NTrim(PSCDan)
;if(Length(PSCDan)=0)
;  PSCDan=ValidateStrNeg(PSC,' ')
UliceDan:String[35]=GetFromIni('TITULNI','UliceDan',INIzDPPO)
Okres:String[24]=GetFromIni('TITULNI','Okres',INIzDPPO)
Stat:String[15]=GetFromIni('TITULNI','Stat',INIzDPPO)
Telefon:String[12]=GetFromIni('TITULNI','Telefon',INIzDPPO)
Fax:String[12]=GetFromIni('TITULNI','Fax',INIzDPPO)
DICZastupce:String[12]=GetFromIni('TITULNI','DICZastupce',INIzDPPO)


DefDialog('Údaje pro přiznání k DPH',492,372)
DlgShade(-1,'',4,4,482,298)
DlgButton(id_OK,'OK',334,306);
DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
DlgButton(id_Cancel,'Zpět',404,306);
DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')
DlgCover(1710,4,8,8,474,290,False,AktualCover)

;{####### Cover 1 #######}

SetCover(1,'&Společné údaje')
DlgStatic(-1,'&Finančnímu úřadu v,ve,pro',10,18,180)
DlgEdit(101,FinancniUrad,190,14,136,,32)
DlgOnLineHelp(101,'Údaje pro formulář... str. 1')

DlgStatic(-1,'&Typ přiznání',12,44,90)
DlgCombo(103,TypPriz,102,40,100,128,9,CBS_DropDownList,'řádné','opravné')
DlgOnLineHelp(103,'Údaje pro formulář... str. 1'+#13+'(dodatečné DP program WinDUO neumí)')

DlgStatic(-1,'od',210,44,20)
DlgCombo(114,TypPlatce,234,40,226,128,9,CBS_DropDownList,'Plátce daně','Identifikované osoby k dani','Neplátce daně','Daňového zástupce')

DlgStatic(-1,'&Datum',332,18,44,,,ES_LEFT)
DlgEditDate(102,DatumPriznani,380,14,80)
DlgOnLineHelp(102,'Údaje pro formulář... str. 4')

;DlgStatic(-1,'Plnění uskutečněná do zemí &EU',12,112,214)
;DlgCombo(104,EU,228,108,100,96,9,CBS_DropDownList,'Ne','Ano')
;DlgOnLineHelp(104,'Údaje pro formulář... str. 1')

DlgStatic(-1,'&Sídlo (právnické osoby) nebo trvalé bydliště fyzické osoby',10,74,400)
DlgStatic(-1,'&Obec:',10,98,37)
DlgEdit(105,Obec,50,96,190,,18)
DlgOnLineHelp(105,'Údaje pro formulář... str. 1')

DlgStatic(-1,'Psč:',243,98,28)
DlgEdit(106,PSCDan,273,96,50,,5,,ValidCisla)
DlgOnLineHelp(106,'Údaje pro formulář... str. 1')

DlgStatic(-1,'Tlf:',326,98,21)
DlgEdit(107,Telefon,348,96,114,,12)
DlgOnLineHelp(107,'Údaje pro formulář... str. 1')

DlgStatic(-1,'&Ulice:',10,126,37)
DlgEdit(108,UliceDan,50,124,273,,27)
DlgOnLineHelp(108,'Údaje pro formulář... str. 1')

DlgStatic(-1,'Fax:',326,126,28)
DlgEdit(109,Fax,358,124,104,,9)
DlgOnLineHelp(109,'Údaje pro formulář... str. 1')

DlgStatic(-1,'&Okres:',10,154,41)
DlgEdit(110,Okres,50,152,225,,24)
DlgOnLineHelp(110,'Údaje pro formulář... str. 1')

DlgStatic(-1,'&Stát:',280,154,29)
DlgEdit(111,Stat,313,152,149,,12)
DlgOnLineHelp(111,'Údaje pro formulář... str. 1')


DlgStatic(-1,'Hlavní ekonomická činnost',10,188,190)
DlgEdit(112,HlCinnost1,10,210,455,,37)
DlgOnLineHelp(112,'Hlavní ekonomická činnost (1. řádek) - údaje pro formulář... str. 1')
DlgEdit(113,HlCinnost2,10,234,455,,37)
DlgOnLineHelp(113,'Hlavní ekonomická činnost (2. řádek) - údaje pro formulář... str. 1')



DlgDivider(6,70,458);
DlgDivider(6,181,458);

;{####### Cover 2 #######}

SetCover(2,'&Právnická osoba')
DlgStatic(-1,'&Obchodní jméno',12,14,110)
DlgEdit(201,ObchodniJmeno,120,10,338,,37)
DlgOnLineHelp(201,'Údaje pro formulář... str. 1')
DlgEdit(202,ObchodniJmeno2,12,38,240,,25)
DlgOnLineHelp(202,'Údaje pro formulář... str. 1')
;DlgStatic(-1,'&Dodatek obchodního jména',12,70,184)
DlgEdit(203,DodatekJmena,265,38,193,,11)
DlgOnLineHelp(203,'Údaje pro formulář... str. 1')
DlgStatic(-1,'Postavení osoby opravněné k podpisu za daňový subjekt',12,114,440)
DlgEdit(204,Postaveni,12,136,446,,37)
DlgOnLineHelp(204,'Údaje pro formulář... str. 4')

DlgDivider(10,100,450);

;{####### Cover 3 #######}

SetCover(3,'&Fyzická osoba')
DlgStatic(-1,'&Příjmení',12,14,64)
DlgEdit(301,FOPrijmeni,80,10,258,,21)
DlgOnLineHelp(301,'Údaje pro formulář... str. 1')
DlgStatic(-1,'&Jméno',12,42,64)
DlgEdit(302,FOJmeno,80,38,258,,11)
DlgOnLineHelp(302,'Údaje pro formulář... str. 1')
DlgStatic(-1,'&Titul',12,70,64)
DlgEdit(303,FOTitul,80,66,80,,4)
DlgOnLineHelp(303,'Údaje pro formulář... str. 1')


;{####### Cover 4 #######}

SetCover(4,'&Ostatní spol.')

DlgStatic(-1,'Osoba oprávněná k podpisu za daňový subjekt',10,4,322)
DlgStatic(-1,'&Příjmení',12,30,60)
DlgEdit(401,Prijmeni,78,26,178,,25)
DlgOnLineHelp(401,'Údaje pro formulář... str. 4')

DlgStatic(-1,'&Jméno',266,30,46)
DlgEdit(402,Jmeno,322,26,138,,11)
DlgOnLineHelp(402,'Údaje pro formulář... str. 4')


DlgStatic(-1,'&Sestavil',10,92,64)
DlgEdit(403,Sestavil,78,88,178,,25)
DlgOnLineHelp(403,'Přiznání sestavil - údaje pro formulář... str. 4')
DlgStatic(-1,'&Telefon',266,92,53)
DlgEdit(404,TelefonDPH,322,88,138,,20)
DlgOnLineHelp(404,'Telefón - údaje pro formulář... str. 4')

DlgStatic(-1,'&DIČ daňového zástupce',10,120,156)
DlgEdit(405,DICZastupce,172,118,110,,12,,ValidDIC)

DlgOnLineHelp(405,'Daňové identifikační číslo daňového zástupce - údaje pro formulář... str. 1')


Result:Integer=DlgExecute()

if(Result<>id_OK)
  Halt

SetDataINI('INFO','FinancniUrad',FinancniUrad)
SetDataINI('DPH','DatumPriznani',StrDate(DatumPriznani))
;SetDataINI('INFO','UplnaAdresa',Adresa)
SetDataINI('INFO','PrijmeniZastupce',Prijmeni)
SetDataINI('INFO','JmenoZastupce',Jmeno)
SetDataINI('INFO','ObchodniJmeno',ObchodniJmeno)
SetDataINI('INFO','ObchodniJmeno2',ObchodniJmeno2)
SetDataINI('INFO','DodatekJmena',DodatekJmena)
SetDataINI('INFO','PostaveniZastupce',Postaveni)
SetDataINI('INFO','FOPrijmeni',FOPrijmeni)
SetDataINI('INFO','FOJmeno',FOJmeno)
SetDataINI('INFO','FOTitul',FOTitul)
SetDataINI('INFO','HlCinnost1',HlCinnost1)
SetDataINI('INFO','HlCinnost2',HlCinnost2)
SetDataINI('INFO','Sestavil',Sestavil)
SetDataINI('INFO','TelefonDPH',TelefonDPH)

SetToIni('TITULNI','Obec',Obec,INIzDPPO)
SetToIni('TITULNI','PSC',PSCDan,INIzDPPO)
SetToIni('TITULNI','UliceDan',UliceDan,INIzDPPO)
SetToIni('TITULNI','Okres',Okres,INIzDPPO)
SetToIni('TITULNI','Stat',Stat,INIzDPPO)
SetToIni('TITULNI','Telefon',telefon,INIzDPPO)
SetToIni('TITULNI','Fax',fax,INIzDPPO)
SetToIni('TITULNI','DICZastupce',DICZastupce,INIzDPPO)

SetDataIni('DPH','TypPriz',TypPriz)
SetDataIni('DPH','TypPlatce',TypPlatce)
;SetDataIni('DPH','EU',EU)

OPENWNS('HLASDPH.WNS')
x:LongInt=CountWNSLines(3,0)
;TypPriz:Integer=VAL(GetDataIni('DPH','TypPriz'))
;EU:Integer=VAL(GetDataIni('DPH','EU'))

;{####### Tisk 1. strany ######}

PEN(0,0.2)
ROUNDBOXA(0,12,80,18,3.3,3.3)
ROUNDBOXA(0,23,60,29,3.3,3.3)
LINESA(5,27.5,5,28.8,5,0,11)
ROUNDBOXA(105,14,185,49,3.3,3.3)
ROUNDBOXA(0,33,23,39,3.3,3.3)
ROUNDBOXA(29,33,51,39,3.3,3.3)
ROUNDBOXA(57,33,80,39,3.3,3.3)
LINEA(15,33,15,38.8)
LINEA(44,33,44,38.8)
LINEA(72,33,72,38.8)
ROUNDBOXA(43,43,80,49,3.3,3.3)
;ROUNDBOXA(0,53,64,59,3.3,3.3)

ROUNDBOXA(75,74,95,80,3.3,3.3)
ROUNDBOXA(113,74,133,80,3.3,3.3)
ROUNDBOXA(143,74,163,80,3.3,3.3)

ROUNDBOXA(0,90,85,96,3.3,3.3)
ROUNDBOXA(100,90,185,96,3.3,3.3)
ROUNDBOXA(0,100,85,106,3.3,3.3)
ROUNDBOXA(100,100,185,106,3.3,3.3)
LINEA(5,90,5,96)
LINEA(70,90,70,96)
LINEA(105,90,105,96)
LINEA(170,90,170,96)

LINEA(5,100,5,106)
LINEA(70,100,70,106)
LINEA(105,100,105,106)
LINEA(170,100,170,106)


ROUNDBOXA(125,114,185,120,3.3,3.3)
LINESA(130,118.5,130,119.8,5,0,11)


ROUNDBOXA(0,119+7,185,125+7,3.3,3.3)
LINESA(5,123.5+7,5,124.8+7,5,0,36)

ROUNDBOXA(0,127+7,125,133+7,3.3,3.3)
LINESA(5,131.5+7,5,132.8+7,5,0,24)
ROUNDBOXA(130,127+7,185,133+7,3.3,3.3)
LINESA(135,131.5+7,135,132.8+7,5,0,10)

ROUNDBOXA(0,143+7,105,149+7,3.3,3.3)
LINESA(5,147.5+7,5,148.8+7,5,0,20)
ROUNDBOXA(110,143+7,160,149+7,3.3,3.3)
LINESA(115,147.5+7,115,148.8+7,4.545,0,10)
ROUNDBOXA(165,143+7,185,149+7,3.3,3.3)
LINESA(170,147.5+7,170,148.8+7,5,0,3)

ROUNDBOXA(0,167,90,173,3.3,3.3)
LINESA(5,171.5,5,172.8,5,0,17)
ROUNDBOXA(95,167,120,173,3.3,3.3)
LINESA(100,171.5,100,172.8,5,0,4)
ROUNDBOXA(125,167,185,173,3.3,3.3)
LINESA(130,171.5,130,172.8,5,0,11)

ROUNDBOXA(0,177,135,183,3.3,3.3)
LINESA(5,181.5,5,182.8,5,0,26)
ROUNDBOXA(140,177,185,183,3.3,3.3)
LINESA(145,181.5,145,182.8,5,0,8)

ROUNDBOXA(0,188,120,194,3.3,3.3)
LINESA(5,192.5,5,193.8,5,0,23)
ROUNDBOXA(125,188,185,194,3.3,3.3)
LINESA(130,192.5,130,193.8,5,0,11)

ROUNDBOXA(0,260,185,266,3.3,3.3)
LINESA(5,264.5,5,265.8,5,0,36)
ROUNDBOXA(0,267.5,185,274,3.3,3.3)
LINESA(5,272.5,5,273.8,5,0,36)

PEN(0,0.5)
LINEA(0,245,185,245)


FONTSIZE(5)
FONTFACE(BOLD)
TEXT(0,5,TA_LEFT|TA_BASELINE,'A. ODDÍL')

FONTSIZE(3.5)
TEXT(92.5,4,TA_CENTER|TA_BASELINE,'Než začnete vyplňovat tiskopis, přečtěte si, prosím, pokyny.')
;TEXT(32,57,TA_CENTER|TA_BASELINE,'z moci úřední')
FONTSIZE(9)
TEXT(92.5,65,TA_CENTER|TA_BASELINE,'P Ř I Z N Á N Í')
FONTSIZE(6)
TEXT(92.5,70,TA_CENTER|TA_BASELINE,'k dani z přidané hodnoty')
FONTSIZE(4.5)
TEXT(72,78,TA_RIGHT|TA_BASELINE,'za zdaňovací období:  měsíc')
TEXT(111,78,TA_RIGHT|TA_BASELINE,'čtvrtletí')
TEXT(141,78,TA_RIGHT|TA_BASELINE,'rok')

FONTSIZE(3.2)
TEXT(0,121,TA_BASELINE,'Právnická osoba:')
TEXT(0,145,TA_BASELINE,'Fyzická osoba:')
TEXT(0,162,TA_BASELINE,'Sídlo právnické osoby nebo trvalé bydliště fyzické osoby:')
TEXT(0,249,TA_BASELINE,'Další údaje:')

FONTFACE(NORMAL)
TEXT(0,10.5,TA_LEFT|TA_BASELINE,'Finančnímu úřadu v, ve, pro')
TEXT(0,21.5,TA_BASELINE,'Daňové identifikační číslo')
TEXT(7.5,37,TA_CENTER|TA_BASELINE,'řádné')
TEXT(36.5,37,TA_CENTER|TA_BASELINE,'opravné')
TEXT(64.5,37,TA_CENTER|TA_BASELINE,'dodatečné')
TEXT(0,45.5,TA_LEFT|TA_BASELINE,'Důvody pro podání dodatečného')
TEXT(0,48.5,TA_LEFT|TA_BASELINE,'daňového přiznání zjištěny dne')

TEXT(2.5,94,TA_Center|TA_BASELINE,'1')
TEXT(7,94,TA_Left|TA_BASELINE,'Plátce daně § 94')
TEXT(102.5,94,TA_Center|TA_BASELINE,'2')
TEXT(107,94,TA_Left|TA_BASELINE,'Identifikovaná osoba k dani § 96')

TEXT(2.5,104,TA_Center|TA_BASELINE,'3')
TEXT(7,104,TA_Left|TA_BASELINE,'Neplátce daně § 19/5, 6, § 108')
TEXT(102.5,104,TA_Center|TA_BASELINE,'4')
TEXT(107,104,TA_Left|TA_BASELINE,'Daňový zástupce § 109')

TEXT(125,112,TA_Left|TA_BASELINE,'Daňové identifikační číslo daňového zástupce')


TEXT(0,124.5,TA_BASELINE,'Obchodní jméno')
TEXT(0,149,TA_BASELINE,'Příjmení')
TEXT(110,149,TA_BASELINE,'Jméno')
TEXT(165,149,TA_BASELINE,'Titul')
TEXT(0,165.5,TA_BASELINE,'a) obec')
TEXT(95,165.5,TA_BASELINE,'b) PSČ')
TEXT(125,165.5,TA_BASELINE,'c) telefon')

TEXT(0,176,TA_BASELINE,'d) ulice a č. orientační (nebo část obce a č. popisné)')
TEXT(140,176,TA_BASELINE,'e) fax')

TEXT(0,187,TA_BASELINE,'f) okres')
TEXT(125,187,TA_BASELINE,'g) stát')


TEXT(0,258,TA_BASELINE,'Hlavní ekonomická činnost')

FONTSIZE(2.5)
TEXT(145,47,TA_CENTER|TA_BASELINE,'otisk prezentačního razítka finančního úřadu')
TEXT(0,277,TA_BASELINE,'25 5401  MFin 5401 - vzor č. '+Str(Vzor))
TEXT(185,277,TA_RIGHT|TA_BASELINE,'Vytištěno systémem WinDUO')
TEXT(92.5,279,TA_CENTER|TA_BASELINE,'1')

;{======= hodnoty 1. strany ==============}

;{doplnit plátce/neplátce...}
PEN(0,0.3)
IF(TypPriz=0)
  begin
   LINEA(17,34.5,21,37.5)
   LINEA(17,37.5,21,34.5)
  end;
IF(TypPriz=1)
  begin
   LINEA(45,34.5,49,37.5)
   LINEA(45,37.5,49,34.5)
  end;

if(TypPlatce=1)
  begin
    LINEA(175,91,179,95);
    LINEA(175,95,179,91);
  end else
if(TypPlatce=2)
  begin
    LINEA(75,101,79,105);
    LINEA(75,105,79,101);
  end else
if(TypPlatce=3)
  begin
    LINEA(175,101,179,105);
    LINEA(175,105,179,101);
  end else
  begin
    LINEA(75,91,79,95);
    LINEA(75,95,79,91);
  end;

FONTSIZE(3.5)
FONTFACE(BOLD|Italic)
TEXT(2.5,16,TA_LEFT|TA_BASELINE,FinancniUrad)

STEXT(2.5,27,TA_CENTER|TA_BASELINE,5,12,DIC)
;STEXT(22.5,27,TA_CENTER|TA_BASELINE,5,10,FromChar('-',DIC))


if((Length(DICZastupce)>0)and(TypPlatce=3))
    STEXT(127.5,118,TA_CENTER|TA_BASELINE,5,12,UpCase(DICZastupce))
  else
    STEXT(127.5,118,TA_Center|TA_BASELINE,5,2,'CZ')



STEXT(2.5,130.5,TA_CENTER|TA_BASELINE,5,37,ObchodniJmeno)
STEXT(2.5,138.5,TA_CENTER|TA_BASELINE,5,25,ObchodniJmeno2)
STEXT(132.5,138.5,TA_CENTER|TA_BASELINE,5,11,DodatekJmena)

STEXT(2.5,154.5,TA_CENTER|TA_BASELINE,5,21,FOPrijmeni)
STEXT(112.5,154.5,TA_CENTER|TA_BASELINE,4.545,11,FOJmeno)
STEXT(167.5,154.5,TA_CENTER|TA_BASELINE,5,4,FOTitul)

;STEXT(2.5,165.5,TA_CENTER|TA_BASELINE,5,37,Adresa)


STEXT(2.5,171,TA_CENTER|TA_BASELINE,5,18,Obec)
STEXT(97.5,171,TA_CENTER|TA_BASELINE,5,5,PSCDan)
STEXT(127.5,171,TA_CENTER|TA_BASELINE,5,12,Telefon)
STEXT(2.5,182,TA_CENTER|TA_BASELINE,5,27,UliceDan)
STEXT(142.5,182,TA_CENTER|TA_BASELINE,5,9,Fax)
STEXT(2.5,193,TA_CENTER|TA_BASELINE,5,24,Okres)
STEXT(127.5,193,TA_CENTER|TA_BASELINE,5,12,Stat)




STEXT(2.5,264,TA_CENTER|TA_BASELINE,5,37,HlCinnost1)
STEXT(2.5,272,TA_CENTER|TA_BASELINE,5,37,HlCinnost2)

Text(85,78,TA_CENTER|TA_BASELINE,OBDMESIC);
Text(122,78,TA_CENTER|TA_BASELINE,OBDKVART);
Text(153,78,TA_CENTER|TA_BASELINE,OBDROK);


;{======= S T R A N A   2 =======}

NEXTPAGE

PEN(0,0.4)
ROUNDBOXA(0,8,185,273,3.3,3.3)
LINEA(0,123,185,123)
LINEA(0,133,185,133)

PEN(0,0.2)
LINESA(0,13,185,13,,5,23)
LINESA(0,138,185,138,,5,3)
LINESA(0,158,185,158,,5,3)
LINESA(0,178,185,178,,5,6)
LINESA(0,213,185,213,,5,4)
LINEA(0,238,185,238)
LINESA(0,248,185,248,,5,2)
LINEA(0,263,185,263)


LINEA(7,18,7,123)
LINEA(7,133,7,273)
LINEA(90,123,90,248)
LINEA(121,13,121,273)
LINEA(153,8,153,273)
LINEA(164,8,164,13)

FONTSIZE(5)
FONTFACE(BOLD)
TEXT(0,5,TA_LEFT|TA_BASELINE,'B. ODDÍL - daň z přidané hodnoty')
FONTSIZE(3.5)
TEXT(8,12,TA_LEFT|TA_BASELINE,'I. Proškrtněte (X) nevznikla-li daňová povinnost')
TEXT(8,17,TA_LEFT|TA_BASELINE,'II. Povinnost přiznat daň za')
TEXT(8,129,TA_LEFT|TA_BASELINE,'III. Nárok na odpočet daně z plnění za')
FONTSIZE(3)
TEXT(137,17,TA_Center|TA_BASELINE,'Základ daně')
TEXT(169,17,TA_Center|TA_BASELINE,'Daň na výstupu')
XTEXT(8,22,111,TA_Left|TA_BASELINE,'1. uskutečněná zdanitelná plnění s místem plnění v tuzemsku')
XTEXT(8,37,111,TA_Left|TA_BASELINE,'2. pořízení zboží z jiného členského státu (§ 16 a § 17 odst. 6 písm. e); mimo § 19)')
XTEXT(8,52,111,TA_Left|TA_BASELINE,'3. poskytnutí služby osobou registrovanou k dani v jiném členském státě (§ 15 a § 13 odst.8)')
XTEXT(8,67,111,TA_Left|TA_BASELINE,'4. zasílání zboží z jiného členského státu s místem plnění v tuzemsku (§ 18)')
XTEXT(8,82,111,TA_Left|TA_BASELINE,'5. pořízení nového dopravního prostředku')
XTEXT(8,97,111,TA_Left|TA_BASELINE,'6. dovoz zboží (§ 20)')
XTEXT(8,112,111,TA_Left|TA_BASELINE,'7. poskytnutí služby zahraniční osobou povinnou k dani (§ 15 a § 13 odst. 8)')
TEXT(105.5,129,TA_Center|TA_BASELINE,'Základ daně')
TEXT(137,127.5,TA_Center|TA_BASELINE,'Daň na vstupu')
TEXT(137,131,TA_Center|TA_BASELINE,'(plný nárok)')
TEXT(169,127.5,TA_Center|TA_BASELINE,'Daň na vstupu')
TEXT(169,131,TA_Center|TA_BASELINE,'(krácený nárok)')
XTEXT(8,137,80,TA_Left|TA_BASELINE,'1. přijatá zdanitelná plnění s místem plnění v tuzemsku')
XTEXT(8,152,80,TA_Left|TA_BASELINE,'2. pořízení zboží z jiného členského státu')
XTEXT(11,156,80,TA_Left|TA_BASELINE,'(§ 16 a § 17 odst. 6 písm. e); mimo § 19)')
XTEXT(8,172,80,TA_Left|TA_BASELINE,'3. poskytnutí služby osobou registrovanou k dani')
XTEXT(11,176,80,TA_Left|TA_BASELINE,'v jiném členském státě (§ 15 a § 13 odst. 8)')
XTEXT(8,192,80,TA_Left|TA_BASELINE,'4. dovoz zboží (§ 20)')
XTEXT(8,207,80,TA_Left|TA_BASELINE,'5. poskytnutí služby zahraniční osobou povinnou k dani')
XTEXT(11,211,80,TA_Left|TA_BASELINE,'(§ 15 a § 13 odst. 8)')
XTEXT(8,227,80,TA_Left|TA_BASELINE,'6. pořízení nového dopravního prostředku')
XTEXT(8,252,80,TA_Left|TA_BASELINE,'7. při změně režimu')


FONTFACE(Normal)
TEXT(3.5,22,TA_Center|TA_BASELINE,'ř.')
TEXT(3.5,27,TA_Center|TA_BASELINE,'210')
TEXT(8,27,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,32,TA_Center|TA_BASELINE,'215')
TEXT(8,32,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,42,TA_Center|TA_BASELINE,'220')
TEXT(8,42,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,47,TA_Center|TA_BASELINE,'225')
TEXT(8,47,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,57,TA_Center|TA_BASELINE,'230')
TEXT(8,57,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,62,TA_Center|TA_BASELINE,'235')
TEXT(8,62,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,72,TA_Center|TA_BASELINE,'240')
TEXT(8,72,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,77,TA_Center|TA_BASELINE,'245')
TEXT(8,77,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,87,TA_Center|TA_BASELINE,'250')
TEXT(8,87,TA_LEFT|TA_BASELINE,'od osob registrovaných k dani v jiném členském státě (§ 19 odst. 3)')
TEXT(3.5,92,TA_Center|TA_BASELINE,'255')
TEXT(8,92,TA_LEFT|TA_BASELINE,'od osob neregistrovaných k dani v jiném členském státě (§ 19 odst. 4)')
TEXT(3.5,102,TA_Center|TA_BASELINE,'260')
TEXT(8,102,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,107,TA_Center|TA_BASELINE,'265')
TEXT(8,107,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,117,TA_Center|TA_BASELINE,'270')
TEXT(8,117,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,122,TA_Center|TA_BASELINE,'275')
TEXT(8,122,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,142,TA_Center|TA_BASELINE,'310')
TEXT(8,142,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,147,TA_Center|TA_BASELINE,'315')
TEXT(8,147,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,162,TA_Center|TA_BASELINE,'320')
TEXT(8,162,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,167,TA_Center|TA_BASELINE,'325')
TEXT(8,167,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,182,TA_Center|TA_BASELINE,'330')
TEXT(8,182,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,187,TA_Center|TA_BASELINE,'335')
TEXT(8,187,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,197,TA_Center|TA_BASELINE,'340')
TEXT(8,197,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,202,TA_Center|TA_BASELINE,'345')
TEXT(8,202,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,217,TA_Center|TA_BASELINE,'350')
TEXT(8,217,TA_LEFT|TA_BASELINE,'se základní sazbou daně')
TEXT(3.5,222,TA_Center|TA_BASELINE,'355')
TEXT(8,222,TA_LEFT|TA_BASELINE,'se sníženou sazbou daně')
TEXT(3.5,232,TA_Center|TA_BASELINE,'360')
TEXT(8,232,TA_LEFT|TA_BASELINE,'od osob registrovaných k dani v jiném členském státě')
TEXT(8,236,TA_LEFT|TA_BASELINE,'(§ 19 odst. 3)')
TEXT(3.5,242,TA_Center|TA_BASELINE,'365')
TEXT(8,242,TA_LEFT|TA_BASELINE,'od osob neregistrovaných k dani v jiném členském státě')
TEXT(8,246,TA_LEFT|TA_BASELINE,'(§ 19 odst. 4)')
TEXT(3.5,252,TA_Center|TA_BASELINE,'370')
TEXT(3.5,257,TA_Center|TA_BASELINE,'380')
TEXT(8,257,TA_LEFT|TA_BASELINE,'celková suma pro krácení nároku na odpočet daně')
XTEXT(8,261,111,TA_LEFT|TA_BASELINE,'(ř. 310 + 315 + 320 + 325 + 330 + 335 + 340 + 345 + 350 + 355 + 360 + 365 + 370)')
TEXT(3.5,267,TA_Center|TA_BASELINE,'390')
TEXT(8,267,TA_LEFT|TA_BASELINE,'celková suma plného nároku na odpočet daně')
XTEXT(8,271,111,TA_LEFT|TA_BASELINE,'(ř. 310 + 315 + 320 + 325 + 330 + 335 + 340 + 345 + 350 + 355 + 360 + 365 + 370)')

FONTSIZE(2.5)
FONTFACE(Normal)
TEXT(93,281,TA_CENTER|TA_BASELINE,'2')


;{======= hodnoty ============}

FONTSIZE(4)
FONTFACE(BOLD|ITALIC)
TabPos(28)
DefTab(2,5,148,25,TA_RIGHT|TA_BASELINE,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,5)
TabFromWns(3,1,2,$18)
Inc(TabPos,15)
DefTab(3,5,116,25,TA_RIGHT|TA_BASELINE,148,25,TA_RIGHT|TA_BASELINE,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$1C)
Inc(TabPos,10)
TabFromWns(3,1,2,$1C)
Inc(TabPos,10)
TabFromWns(3,1,2,$1C)
Inc(TabPos,5)
TabFromWns(3,1,2,$1C)
Inc(TabPos,10)
TabFromWns(3,1,2,$1C)
Inc(TabPos,10)
TabFromWns(3,1,1,$1C)
Inc(TabPos,5)
TabFromWns(3,1,1,$1C)
DefTab(2,5,148,25,TA_RIGHT|TA_BASELINE,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$18)
Inc(TabPos,5)
TabFromWns(3,1,1,$18)
Inc(TabPos,5)
TabFromWns(3,1,1,$18)

;{======= S T R A N A   3 =======}
Str3:
NEXTPAGE
PEN(0,0.4)
ROUNDBOXA(0,0,185,165,3.3,3.3)
LINEA(0,5,185,5)
LINESA(0,40,185,40,0,5,2)
LINESA(0,65,185,65,0,5,2)
LINESA(0,90,185,90,0,5,4)
LINEA(0,140,153,140)
LINESA(0,145,185,145,0,10,2)

PEN(0,0.2)
LINEA(0,10,153,10)
LINEA(0,20,185,20)
LINESA(0,30,185,30,0,5,2)
LINESA(0,50,185,50,0,5,3)
LINESA(0,75,185,75,0,5,3)
LINEA(0,110,185,110)
LINESA(0,120,185,120,0,5,4)
LINEA(153,140,185,140)
LINEA(0,160,185,160)

LINEA(7,0,7,165)
LINEA(121,65,121,80)
LINEA(121,100,121,105)
LINEA(121,110,121,125)
LINEA(121,130,121,135)
LINEA(153,0,153,165)


FONTFACE(BOLD)
FONTSIZE(3.5)
TEXT(8,4,TA_LEFT|TA_BASELINE,'IV. Uskutečněná plnění osvobozená od daně s nárokem na odpočet daně')
TEXT(8,44,TA_LEFT|TA_BASELINE,'V. Uskutečněná plnění celkem')
TEXT(8,69,TA_LEFT|TA_BASELINE,'Krácení, vypořádání, úprava a vyrovnání odpočtu daně')
TEXT(8,94,TA_LEFT|TA_BASELINE,'VI. Vrácení daně (§ 84)')
TEXT(8,104,TA_LEFT|TA_BASELINE,'VII. Výpočet daňové povinnosti')
TEXT(8,144,TA_LEFT|TA_BASELINE,'VIII. Doplňující údaje:')

FONTSIZE(3)
TEXT(169,4,TA_Center|TA_BASELINE,'Částka za plnění')
TEXT(169,44,TA_Center|TA_BASELINE,'Částka za plnění')
TEXT(137,69,TA_Center|TA_BASELINE,'Koeficient')
TEXT(169,69,TA_Center|TA_BASELINE,'Změna odpočtu daně')
TEXT(169,94,TA_Center|TA_BASELINE,'Daň na výstupu')
TEXT(137,104,TA_Center|TA_BASELINE,'Odpočet daně')
TEXT(169,104,TA_Center|TA_BASELINE,'Daň na výstupu')
TEXT(8,149,TA_Left|TA_BASELINE,'1. Uvedení hodnoty při užití zjednodušeného postupu')
TEXT(10,153,TA_Left|TA_BASELINE,'při dodání zboží uvnitř území Evropského společenství formou třístranného obchodu (§ 17)')
TEXT(169,151.5,TA_Center|TA_BASELINE,'Hodnota')


FONTFACE(Normal)
TEXT(3.5,9,TA_Center|TA_BASELINE,'410')
TEXT(8,9,TA_LEFT|TA_BASELINE,'dodání zboží do jiného členského státu (§ 64 mimo § 64 odst. 2 a § 17 odst. 2)')
TEXT(3.5,16.5,TA_Center|TA_BASELINE,'420')
TEXT(8,14,TA_LEFT|TA_BASELINE,'dodání nového dopravního prostředku do jiného členského státu (§ 64 odst. 2)')
TEXT(8,18,TA_LEFT|TA_BASELINE,'osobě registrované k dani v členském státě')
TEXT(3.5,26.5,TA_Center|TA_BASELINE,'425')
TEXT(8,24,TA_LEFT|TA_BASELINE,'dodání nového dopravního prostředku do jiného členského státu (§ 64 odst. 2)')
TEXT(8,28,TA_LEFT|TA_BASELINE,'osobě neregistrované k dani v členském státě')
TEXT(3.5,34,TA_Center|TA_BASELINE,'430')
TEXT(8,34,TA_LEFT|TA_BASELINE,'vývoz zboží (§ 66)')
TEXT(3.5,39,TA_Center|TA_BASELINE,'440')
TEXT(8,39,TA_LEFT|TA_BASELINE,'ostatní plnění osvobozená od daně s nárokem na odpočet daně')
TEXT(3.5,49,TA_Center|TA_BASELINE,'510')
TEXT(8,49,TA_LEFT|TA_BASELINE,'Celková částka uskutečněných plnění s nárokem na odpočet daně (§ 72 odst. 2 písm. a) až d))')
TEXT(3.5,54,TA_Center|TA_BASELINE,'520')
TEXT(8,54,TA_LEFT|TA_BASELINE,'Uskutečněná plnění, která se nezapočítávají do výpočtu koeficientu (§ 76 odst. 3) z uvedených v ř. 510')
TEXT(3.5,59,TA_Center|TA_BASELINE,'530')
TEXT(8,59,TA_LEFT|TA_BASELINE,'Celková částka uskutečněných plnění osvobozených od daně bez nároku na odpočet daně (§ 51)')
TEXT(3.5,64,TA_Center|TA_BASELINE,'540')
TEXT(8,64,TA_LEFT|TA_BASELINE,'Uskutečněná plnění, která se nezapočítávají do výpočtu koeficientu (§ 76 odst. 3) z uvedených v ř. 530')
TEXT(3.5,74,TA_Center|TA_BASELINE,'550')
TEXT(8,74,TA_LEFT|TA_BASELINE,'Vypočtená poměrná část odpočtu daně (§ 76)')
TEXT(3.5,79,TA_Center|TA_BASELINE,'560')
TEXT(8,79,TA_LEFT|TA_BASELINE,'Vypořádání odpočtu daně (§ 76 odst. 7-10)')
TEXT(3.5,84,TA_Center|TA_BASELINE,'570')
TEXT(8,84,TA_LEFT|TA_BASELINE,'Úprava odpočtu daně (§ 78)')
TEXT(3.5,89,TA_Center|TA_BASELINE,'580')
TEXT(8,89,TA_LEFT|TA_BASELINE,'Vyrovnání odpočtu daně (§ 79)')
TEXT(3.5,99,TA_Center|TA_BASELINE,'600')
TEXT(8,99,TA_LEFT|TA_BASELINE,'Vrácení daně')
TEXT(3.5,109,TA_Center|TA_BASELINE,'710')
TEXT(8,109,TA_LEFT|TA_BASELINE,'Vypořádání daně na výstupu (§ 91)')
TEXT(3.5,116.5,TA_Center|TA_BASELINE,'730')
TEXT(8,114,TA_LEFT|TA_BASELINE,'Daň na výstupu (ř. 210 + 215 + 220 + 225 + 230 + 235 + 240 + 245 + 250 + 255 +')
TEXT(8,118,TA_LEFT|TA_BASELINE,'+ 260 + 265 + 270 + 275 - 600 + 710)')
TEXT(3.5,124,TA_Center|TA_BASELINE,'750')
TEXT(8,124,TA_LEFT|TA_BASELINE,'Odpočet daně (ř. 390 + 550 + 560 + 570 + 580)')
TEXT(3.5,129,TA_Center|TA_BASELINE,'753')
TEXT(8,129,TA_LEFT|TA_BASELINE,'Vlastní daňová povinnost (ř. 730 - 750)')
TEXT(3.5,134,TA_Center|TA_BASELINE,'754')
TEXT(8,134,TA_LEFT|TA_BASELINE,'Nadměrný odpočet (ř. 750 - 730)')
TEXT(3.5,139,TA_Center|TA_BASELINE,'780')
TEXT(8,139,TA_LEFT|TA_BASELINE,'Změna daňové povinnosti při podání dodatečného přiznání (ř. 730 - 750)')
TEXT(3.5,159,TA_Center|TA_BASELINE,'810')
TEXT(8,159,TA_LEFT|TA_BASELINE,'Pořízení zboží prostřední osobou')
TEXT(3.5,164,TA_Center|TA_BASELINE,'815')
TEXT(8,164,TA_LEFT|TA_BASELINE,'Dodání zboží prostřední osobou')

FONTSIZE(2.5)
FONTFACE(Normal)
TEXT(93,281,TA_CENTER|TA_BASELINE,'3')

;{======= hodnoty ============}

FONTSIZE(4)
FONTFACE(BOLD|ITALIC)
TabPos(10)
DefTab(1,5,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$10);
Inc(TabPos,5);
TabFromWns(3,1,1,$10);
Inc(TabPos,5);
TabFromWns(3,1,3,$10);
Inc(TabPos,5);
TabFromWns(3,1,1,$10);
SkipWnsLine(3,1,1);
TabFromWns(3,1,3,$10);
Inc(TabPos,5);
DefTab(2,5,148,25,TA_RIGHT|TA_BASELINE,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$18);
DefTab(1,5,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,2,$10);
Inc(TabPos,5);
TabFromWns(3,1,1,$10);
Inc(TabPos,5);
TabFromWns(3,1,1,$10);
Inc(TabPos,5);
TabFromWns(3,1,1,$10);
DefTab(1,5,148,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$8);
DefTab(1,5,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$10);
DefTab(1,5,148,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$8);
DefTab(1,5,180,25,TA_RIGHT|TA_BASELINE)
TabFromWns(3,1,1,$10);
Inc(TabPos,15);
TabFromWns(3,1,2,$10);

;{======= S T R A N A   4 =======}
Str4:
NEXTPAGE

PEN(0,0.4)
LINEA(0,80,185,80)
LINEA(0,116,185,116)
ROUNDBOXA(130,94,185,109,3.3,3.3)

PEN(0,0.2)
ROUNDBOXA(0,27,125,33,3.3,3.3)
LINESA(5,31.5,5,32.8,5,0,24)
ROUNDBOXA(130,27,185,33,3.3,3.3)
LINESA(135,31.5,135,32.8,5,0,10)
ROUNDBOXA(0,42,185,48,3.3,3.3)
LINESA(5,46.5,5,47.8,5,0,36)
ROUNDBOXA(9,64,49,70,3.3,3.3)
LINESA(14,71.5-3,14,72.8-3,10,0,2)
LINESA(19,71-3,19,72.8-3,10,0,2)
LINESA(34,71.5-3,34,72.8-3,5,0,3)

ROUNDBOXA(72,50,127,70,3.3,3.3)
ROUNDBOXA(140,50,185,70,3.3,3.3)

ROUNDBOXA(33-10,72,127-10,78,3.3,3.3)
ROUNDBOXA(140,72,185,78,3.3,3.3)

ROUNDBOXA(33,86,73,92,3.3,3.3)
LINESA(14+24,71.5+19,14+24,72.8+19,10,0,2)
LINESA(19+24,71+19,19+24,72.8+19,10,0,2)
LINESA(34+24,71.5+19,34+24,72.8+19,5,0,3)

ROUNDBOXA(9+75,67+19,49+75,73+19,3.3,3.3)
LINESA(14+75,71.5+19,14+75,72.8+19,10,0,2)
LINESA(19+75,71+19,19+75,72.8+19,10,0,2)
LINESA(34+75,71.5+19,34+75,72.8+19,5,0,3)


FONTSIZE(5)
FONTFACE(BOLD)
TEXT(0,7.5,TA_LEFT|TA_BASELINE,'C. ODDÍL')
FONTSIZE(3.7)
TEXT(92.5,14,TA_CENTER|TA_BASELINE,'PROHLAŠUJI, ŽE VŠECHNY MNOU UVEDENÉ ÚDAJE V TOMTO PŘIZNÁNÍ JSOU PRAVDIVÉ A ÚPLNÉ.')
FONTSIZE(3.5)
TEXT(0,22.5,TA_LEFT|TA_BASELINE,'Osoba oprávněná k podpisu za daný daňový subjekt:')


FONTSIZE(3)
FONTFACE(Normal)
TEXT(0,26,TA_LEFT|TA_BASELINE,'Příjmení')
TEXT(130,26,TA_LEFT|TA_BASELINE,'Jméno')
TEXT(0,40.5,TA_LEFT|TA_BASELINE,'U právnické osoby: postavení vzhledem k právnické osobě')
TEXT(0,69,TA_LEFT|TA_BASELINE,'Datum')
TEXT(63,65,TA_LEFT|TA_BASELINE,'Otisk')
TEXT(63,69,TA_LEFT|TA_BASELINE,'razítka')
TEXT(130,69,TA_LEFT|TA_BASELINE,'Podpis')

TEXT(0,77,TA_LEFT|TA_BASELINE,'Přiznání sestavil')
TEXT(130,77,TA_LEFT|TA_BASELINE,'Telefon')


TEXT(0,85,TA_LEFT|TA_BASELINE,'Finanční úřad přiznanou daň vyměřil/dodatečně vyměřil podle § 46 odst. 5 zákona ČNR č. 337/1992 Sb., o správě daní a poplatků, ve znění')
TEXT(0,91,TA_LEFT|TA_BASELINE,'pozdějších předpisů, dne')
TEXT(75,91,TA_LEFT|TA_BASELINE,'ke dni')
TEXT(126,91,TA_LEFT|TA_BASELINE,'.')
TEXT(157.5,111.5,TA_CENTER|TA_BASELINE,'Podpis oprávněného pracovníka správce daně')


FONTSIZE(2.5)
FONTFACE(Normal)
TEXT(92.5,283,TA_CENTER|TA_BASELINE,'4')


;{======= hodnoty ============}
FONTSIZE(3.5)
FONTFACE(BOLD|Italic)
STEXT(2.5,32,TA_CENTER|TA_BASELINE,5,25,Prijmeni)
STEXT(132.5,32,TA_CENTER|TA_BASELINE,5,11,Jmeno)
STEXT(2.5,46,TA_CENTER|TA_BASELINE,5,37,Postaveni)

IF(ValDate(GetDataINI('DPH','DatumPriznani'))<>0)
  begin
    STEXT(12,68,TA_Center|TA_BASELINE,4,2,DenZData(GetDataINI('DPH','DatumPriznani')))
    STEXT(22,68,TA_Center|TA_BASELINE,4,2,MesicZData(GetDataINI('DPH','DatumPriznani'),2))
    STEXT(32,68,TA_Center|TA_BASELINE,4.7,4,RokZData(GetDataINI('DPH','DatumPriznani')))
  end
TEXT(25,76.5,TA_LEFT|TA_BASELINE,Sestavil)
TEXT(144,76.5,TA_LEFT|TA_BASELINE,TelefonDPH)


END