;{ DDT - Příloha č. 5 vyhlášky č. 410/2009 Sb. - Schválení účetní závěrky        }
;{ verze z 22.12.2010                                                            }
;{ Autor: WinDUO Team                                                            }

Name('Příloha č.5 ÚZ')
Designed('','Winduo')
Author('Winduo Team','e-mail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Příloha č. 5 vyhlášky č. 410/2009 Sb. - Přehled o peněžních tocích')

;{******************************************************************************************************************}
;{verze}

Verze      :String='1.1.'      ;{Vytvoření sestavy}
Verze      :String='1.2.'      ;{Aktualizace}

;{******************************************************************************************************************}
;{proměnné}

ASchvalT :Array[1..17] of String[200]
ASchvalH :Array[1..17] of String[50]

ASchvalH[1]  = 'PovereneOsoby'
ASchvalT[1]  = 'OSS bez zřizovatele: nejméně 3 osoby pověřené vedoucím OSS'
ASchvalH[2]  = 'ZrizovatelOSS'
ASchvalT[2]  = 'OSS, která má zřizovatele: Zřizovatel OSS (plnící funkci zřizovatele)'
ASchvalH[3]  = 'ZrizovatelSPO'
ASchvalT[3]  = 'Státní příspěvková organizace: Zřizovatel státní příspěvkové organizace (plnící funkci zřizovatele)'
ASchvalH[4]  = 'KolegiumNKU'
ASchvalT[4]  = 'Nejvyšší kontrolní úřad (NKÚ): Kolegium NKÚ'
ASchvalH[5]  = 'DozorciRadaSZIF'
ASchvalT[5]  = 'Státní zemědělský intervenční fond (SZIF): Dozorčí rada SZIF'
ASchvalH[6]  = 'RadaSFZP'
ASchvalT[6]  = 'Státní fond životního prostředí (SFŽP): Rada SFŽP'
ASchvalH[7]  = 'RadaSFK'
ASchvalT[7]  = 'Státní fond kultury České republiky (SFK): Rada SFK'
ASchvalH[8]  = 'VyborSFDI'
ASchvalT[8]  = 'Státní fond dopravní infrastruktury (SFDI): Výbor SFDI'
ASchvalH[9]  = 'DozorciRadaSFRB'
ASchvalT[9]  = 'Státní fond rozvoje bydlení (SFRB): Dozorčí rada SFRB'
ASchvalH[10] = 'ZastupitelstvoObce'
ASchvalT[10] = 'Obec: Zastupitelstvo obce'
ASchvalH[11] = 'RadaObce'
ASchvalT[11] = 'Příspěvková organizace zřízená obcí: Rada obce (zřizovatele)'
ASchvalH[12] = 'OrganDSO'
ASchvalT[12] = 'Dobrovolný svazek obcí: nejméně tříčlenný orgán'
ASchvalH[13] = 'ZastupitelstvoKraje'
ASchvalT[13] = 'Kraj: Zastupitelstvo kraje'
ASchvalH[14] = 'RadaKraje'
ASchvalT[14] = 'Příspěvková organizace zřízená krajem: Rada kraje (zřizovatele)'
ASchvalH[15] = 'ZastupitelstvoHMP'
ASchvalT[15] = 'Hlavní město Praha: Zastupitelstvo hlavního města Prahy'
ASchvalH[16] = 'RadaHMP'
ASchvalT[16] = 'Příspěvková organizace zřízená hlavním městem Prahou: Rada hlavního města Prahy'
ASchvalH[17] = 'VyborRRRS'
ASchvalT[17] = 'Regionální rada regionů soudržnosti: Výbor Regionální rady regionů soudržnosti'

ATypT :Array[1..4] of String[200]
ATypH :Array[1..4] of String[50]

ATypH[1] = 'Schvaleno'
ATypT[1] = 'Schváleno'
ATypH[2] = 'NeschvalenoVecneDuvody'
ATypT[2] = 'Neschváleno z věcných důvodů. Je nutné přiložit zápis o neschválení účetní závěrky podle § 7 odst. 3'
;ATypH[3] = 'NeschvalenoFormalniDuvody'
;ATypT[3] = 'Neschváleno z formálních důvodů. Je nutné přiložit zápis o neschválení účetní závěrky podle § 7 odst. 3'
;ATypH[4] = 'NeschvalenoUplynutiCasu'
;ATypT[4] = 'Neschváleno z důvodu marného uplynutí času'

WnsType(-1)

DeclareRec('Program')

xdatum      :Word
xpjmen      :Integer=12
xjmeno      :Array[1..xpjmen] of String
xorgan      :Integer
xrozhodnuti :Integer
xvyjadreni  :String

INI        :String=DataPath+'PRIL5.INI'
i          :LongInt
ValidCislo :String='0123456789.,-'

;{******************************************************************************************************************}
;{Načtení ini}

xdatum      =ValDate(GetFromIni('DATA', 'datum', INI))
i=0
while(i<xpjmen)
  begin
    inc(i)
    xjmeno[i] =GetFromIni('DATA', 'jmeno'+i, INI)
  end
xorgan      =Val(GetFromIni('DATA', 'organ', INI))
xrozhodnuti =Val(GetFromIni('DATA', 'rozhodnuti', INI))
xvyjadreni  =GetFromIni('DATA', 'vyjadreni', INI)

;{******************************************************************************************************************}
;{Formulář}

cover  :Integer=0
pozice :Integer
start  :Integer=65

DefDialog('Příloha č.5 (v.'+Verze+')',700,455,True)

DlgShade(,'Schválení ÚZ',5,5,690,405,,ta_center)

DlgStatic(-1,'Datum rozhodnutí',15,30,50,,,,$000000)
DlgEditDate(,xdatum,15,50,90)

message('dasdasd');
DlgStatic(-1,'Schvalovatel organizace',15,80,200,,,,$000000)
i=1
DlgCombo(110,xorgan,15,100,670,128,30,cbs_DropDownList,ASchvalT[i])
while(i<2)
  begin
    inc(i)
    AddToCombo(110,ASchvalT[i])
  end

DlgStatic(-1,'Schvalovatel jméno',15,130,200,,,,$000000)
i=1
while(i<xpjmen)
  begin
    DlgEdit(,xjmeno[i],15,i/2*25+150,330)
    DlgEdit(,xjmeno[i+1],355,i/2*25+150,330)
    Inc(i,2)
  end

DlgStatic(-1,'Rozhodnutí',15,305,200,,,,$000000)
DlgCombo(120,xrozhodnuti,15,325,670,128,30,cbs_DropDownList,ATypT)
;i=0
;while(i<2)
;  begin
;    inc(i)
;    AddToCombo(120,ATypT[i])
;  end

DlgStatic(-1,'Vyjádření účetní jednotky',15,355,200,,,,$000000)
DlgEdit(,xvyjadreni,15,375,670)

DlgButton(id_Cancel,'Zpět',560,415)
DlgButton(id_OK,'OK',630,415)

Result:Integer=DlgExecute()

if(Result=ID_Cancel)
  Halt

;{******************************************************************************************************************}
;{Uložení ini}


SetToINI('DATA', 'datum', StrDate(xdatum), INI))
i=0
while(i<xpjmen)
  begin
    inc(i)
    SetToINI('DATA', 'jmeno'+i, xjmeno[i], INI)
  end
SetToINI('DATA', 'organ', xorgan, INI)
SetToINI('DATA', 'rozhodnuti', xrozhodnuti, INI)
SetToINI('DATA', 'vyjadreni', xvyjadreni, INI)

END