Name(%1)
;21.10.2016
Designed('BankMan','PkldnMan','ZavMan#1','PohlMan#1','OstaPlMan','UdlMan','HRP_Man','MajMan','DKPMan')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')  ;informace o autorovi
Descr(%2,%3,%4)  ;popis sestavy, tento text bude v bublince

WNSType(0);
NewWNS('UcDoklad.WNS',%5)

DeclareRec('Program');
;UsageFilter((Program.ZZUct=0),(not Program.DanovaEvidence))
INI:String=DataPath+'NASTAV1.INI'

TextA1:String
TextA2:String
TextA3:String
TextA4:String
TextA5:String
TextA6:String
TextA7:String

if(Program.DanovaEvidence)
  TextA1=%6
else
  TextA1=%7
if(Program.DanovaEvidence)
  TextA2=%8
else
  TextA2=%9
if(Program.DanovaEvidence)
  TextA3=%10
else
  TextA3=%11
if(Program.DanovaEvidence)
  TextA4=%12
else
  TextA4=%13
if(Program.DanovaEvidence)
  TextA5=%14
else
  TextA5=%15
if(Program.DanovaEvidence)
  TextA6=%16
else
  TextA6=%17

ValidCislo:String='0123456789.,-+'
Pozice:LongInt                    ; definuje proměnnou pro status
DokladOd:String
DokladDo:String
DolniOkraj:Real
xLogoStart:Real=2  ; x-souradnice leveho horniho roku LOGO
yLogoStart:Real=2  ; y-souradnice leveho horniho roku LOGO
xLogoVel:Real=20    ; x velikost logo
yLogoVel:Real=20    ; y velikost logo
VetaD:LongInt
ICislo:LongInt
;dodelat: tisk logo se načítá z NASTAV1.INI - nebo to predelat an fajfku primo tady
TiskLogo:Boolean=GetBoolean(GetFromIni('LOGO','LogoUcDoklad',INI))
TiskPoznamka:Boolean=False
TiskDatVyhUcDo1:Boolean=True        ;je-li True, tiskne vyhotovení = datum dokladu
TiskDatVyhUcDo2:Boolean=False       ;je-li True, tiskne vyhotovení = systémové datum
TiskDatVyhUcDo3:Boolean=False       ;je-li True, tiskne vyhotovení = datum vystaveni / jen pohled. a zavazky
TiskDatVyhUcDo:Byte=VAL(GetFromIni('UcDoklad','TiskDatVyhUcDo',INI))
if(TiskDatVyhUcDo=2)
  begin
    TiskDatVyhUcDo1=False
    TiskDatVyhUcDo2=True
    TiskDatVyhUcDo3=False
  end
if(TiskDatVyhUcDo=3)
  begin
    TiskDatVyhUcDo1=False
    TiskDatVyhUcDo2=False
    TiskDatVyhUcDo3=True
  end


i:real=10
Zaznam1J:String
Veta:LongInt
Veta1:LongInt
LocB1:Boolean
LocB2:Boolean
LocB3:Boolean
LocB4:Boolean
LocW:Word=0
LocR:Real=0
LocStr:String
LocYSourad:Real=0
Podil:Real=0
TiskH2:Boolean
TiskCiziMeny:Boolean
TestDatum:Word
TestObd:Word
TiskDatumObd:Boolean
TiskDatumObdH2:Boolean=True   ;zda tiskne datum a obdobi bv hlavicce - majetky NE, ostatni ano
KJS:Byte=Program.KJSize
HSS:Byte=Program.HSSize

AktDoklad:String
PosunY:Real=0       ; pocitadlo y souradnice pro aktualni radek
PocetH2:Word        ;pocet hlavicek H2
PocetPopis:Word     ;pocet popisů
PocetH3:Word        ;pocet radku v H3
PocetPozicH3:Byte
LocPocetPozicH3:Byte
L3:Byte   ;stejny vyznam jako LocPocetPozicH3, ale kratsi nazev
YRozmerDoklad:Real   ;velikost dokladu v mm
FormatPapiru:Byte;
FormatPapiru=Val(GetFromIni('UcDoklad','FormatUcDoklad',INI))
              ;0=A4,
              ;1=A5,
              ;2=A5 naležato,
              ;3=A6,
              ;4=A6 naležato
RozsirFont:Real
YSourad:Real=0
Hreben0:String
Hreben1:String
Hreben2:String
Hreben3:String
LocHreben3:String
Hreben:String
ZacatekBoxu:Real
PocetVytistenych:Word
ByloViceStran:Boolean=False
Poprve:Boolean=True
PoprveZauc:Boolean=True

Def0:String
Def1:String
Def2:String
Def3:String
LocDef3:String
Def:String

TiskRozkont0:String
TiskRozkont1:String
TiskRozkont2:String
TiskRozkont3:String
LocTiskRozkont3:String
TiskRozkont:String

1Doklad:String
1Datum:Word
1Ico:LongInt
1DatumZP:Word
1Obdobi:Word
1DatVyst:Word
1DatSpl:Word

TestSpl:Boolean=False
HledejFirmu:Boolean=False
TiskParovDokl:Boolean=False
ExistPoznamka:Boolean=False
ZuzeniPisma:Boolean=GetBoolean(GetFromIni('UcDoklad','ZuzeniPisma',INI))

MaxPocetDani:Word=65458/2;
Dane:Array[1..MaxPocetDani] of Word
Pocetdani:Word
SearchL:LongInt;
SearchH:LongInt;
SearchI:Word;
PomWord:Word;

DeclareRec('Denik')
DeclareRec('KeyDenik7')
DeclareRec('CiselnikDani');
DeclareRec('KeyCiselnikDani1');
DeclareRec('KeyCiselnikDani2');
VetaDan:LongInt;
Odkud:String[5]=UpCase(Copy(GetBindName(),1,5))
if(CompareStr(Odkud,'POHLM'))
  begin
    Zaznam1J=%18
    AgendaName:String='Pohledavka'
    KlicName:String='KeyPohledavka1'
    TestSpl=True
    ExistPoznamka=True
  end
if(CompareStr(Odkud,'ZAVMA'))
  begin
    Zaznam1J=%19
    AgendaName:String='Zavazek'
    KlicName:String='KeyZavazek1'
    TestSpl=True
    ExistPoznamka=True
  end
if(CompareStr(Odkud,'PKLDN'))
  begin
    Zaznam1J=%20
    AgendaName:String='Pokladna'
    KlicName:String='KeyPokladna3'
    TiskParovDokl=True
  end
if(CompareStr(Odkud,'BANKM'))
  begin
    Zaznam1J=%21
    AgendaName:String='Banka'
    KlicName:String='KeyBanka3'
    HledejFirmu=True
    TiskParovDokl=True
  end
if(CompareStr(Odkud,'OSTAP'))
  begin
    Zaznam1J=%22
    AgendaName:String='OstatniUhrady'
    KlicName:String='KeyOstatniUhrady3'
    HledejFirmu=True
    TiskParovDokl=True
  end
if(CompareStr(Odkud,'UDLMA'))
  begin
    Zaznam1J=%23
    AgendaName:String='UcetniUdalost'
    KlicName:String='KeyUcetniUdalost2'
    HledejFirmu=True
    ExistPoznamka=True
  end
if(CompareStr(Odkud,'HRP_M'))
  begin
    Zaznam1J=%24
    AgendaName:String='SkupinovaOperace'
    KlicName:String='KeySkupinovaOperace4'
    HledejFirmu=True
    ExistPoznamka=True
  end
if(CompareStr(Odkud,'MAJMA'))
  begin
    Zaznam1J=%25
    AgendaName:String='Majetek'
    KlicName:String='KeyMajetek1'
    HledejFirmu=True
    ExistPoznamka=True
    TiskDatumObdH2=False
  end
if(CompareStr(Odkud,'DKPMA'))
  begin
    Zaznam1J=%26
    AgendaName:String='DKP'
    KlicName:String='KeyDKP1'
    HledejFirmu=True
    ExistPoznamka=True
    ;TiskDatumObdH2=False
  end

DeclareRec(AgendaName)
DeclareRec(KlicName)

NullDate:Word

DokladName:String=AgendaName+'.Doklad'
DatumName:String=AgendaName+'.Datum'
IcoName:String=AgendaName+'.Ico'
DatumZPName:String=AgendaName+'.Datum_zp'
ObdobiName:String=AgendaName+'.Obdobi'
PopisName:String=AgendaName+'.Popis'
;banka, OU a UU nemaji FIRMA, musi se tahat z adresare
FirmaName:String=AgendaName+'.Firma'
CastkaName:String=AgendaName+'.Castka'
CastkaMName:String=AgendaName+'.CastkaM'
MenaName:String=AgendaName+'.Mena'
PoznamkaName:String=AgendaName+'.Poznamka'
DatSplName:String=AgendaName+'.DatSpl'
DatVystName:String=AgendaName+'.DatVyst'
CounterName:String=AgendaName+'.Counter'
CisloName:String=AgendaName+'.Cislo'
if(TiskDatumObdH2=False)
  begin
    DatumName='NullDate'
    ObdobiName='NullDate'
    TiskDatVyhUcDo1=False
    TiskDatVyhUcDo2=False
    TiskDatVyhUcDo3=False
  end

if(TiskParovDokl)
  begin
    SAgdName:String=AgendaName+'.SAgd'           ;Cislo navazne agendy
    SDokladName:String=AgendaName+'.SDoklad'   ;Navazny doklad
  end

VetaA:LongInt
DeclareRec('Adresar')
DeclareRec('KeyAdresar1')

if(GetCountBindRec(AgendaName)<>0)
  begin
    GetBindRec(@AgendaName)
    DokladOd=@DokladName
    DokladDo=@DokladName
  end;

;DlgFollowMouse(True)
DefDialog(%27+Zaznam1J,444,342)
DlgShade(-1,%28,4,4,434,268)

DlgStatic(-1,%29,16,34,112)
DlgEdit(101,DokladOd,136,30,100,,10,ES_LEFT|ES_UpperCase)
DlgOnLineHelp(101,%30+#13+%31)

DlgStatic(-1,%32,236,34,30,,,es_Center)
DlgEdit(102,DokladDo,266,30,100,,10,ES_LEFT|ES_UpperCase)
DlgOnLineHelp(102,%33+#13+%34)

if(Program.DanovaEvidence)
    DlgStatic(-1,%35,8,58,426,,,es_Center)
  else
    DlgStatic(-1,%36,8,58,426,,,es_Center)

DlgStatic(-1,%37,8,74,426,,,es_Center)
DlgDivider(10,94,418)

DlgCheckBox(106,ZuzeniPisma,16,98,410,,%100)

if(ExistPoznamka)
  begin
    DlgCheckBox(107,TiskPoznamka,16,118,410,,%38)
    DlgOnLineHelp(107,%39)
  end

IF(Length(Program.Logo)>1)               ; dotaz, zda existuje logo
  begin
    DlgCheckBox(108,TiskLogo,16,138,410,,%40)
    DlgOnLineHelp(108,%41)
  end
if((CompareStr(AgendaName,'Pohledavka'))or(CompareStr(AgendaName,'Zavazek')))
  begin
    DlgStatic(-1,%42,16,156,400)
    DlgStatic(-1,%43,16,174,150)
    DlgRadioButton(109,TiskDatVyhUcDo3,210,172,222,,%44,109,111)
    DlgOnLineHelp(109,%45+#13+%46)
    DlgRadioButton(110,TiskDatVyhUcDo1,210,192,222,,%47,109,111)
    DlgOnLineHelp(110,%48)
    DlgRadioButton(111,TiskDatVyhUcDo2,210,212,222,,%49,109,111)
    if(Program.DanovaEvidence)
        DlgOnLineHelp(111,%50+#13+%51)
      else
        DlgOnLineHelp(111,%52+#13+%53)
  end else
  begin
    if(TiskDatumObdH2)
      begin
        DlgStatic(-1,%54,10,158,200)
        DlgRadioButton(109,TiskDatVyhUcDo1,210,156,222,,%47,109,110)
        DlgOnLineHelp(109,%48)
        DlgRadioButton(110,TiskDatVyhUcDo2,210,178,222,,%49,109,110)
        if(Program.DanovaEvidence)
            DlgOnLineHelp(111,%55)
          else
            DlgOnLineHelp(110,%56)
      end
  end

DlgDivider(10,236,418)

DlgStatic(-1,%57,16,246,100)
DlgCombo(120,FormatPapiru,116,242,181,180,23,CBS_DropDownList,%58,%59,%60,%61,%62)
DlgOnLineHelp(120,%63)

DlgStatic(-1,%64,300,246,90,,,es_Right)
DlgEdit(121,DolniOkraj,400,242,30,,3,,ValidCislo)
DlgOnLineHelp(121,%65)

DlgButton(id_OK,'OK',304,276);
DlgOnLineHelp(id_OK,%66)
DlgButton(id_Cancel,%67,372,276);
DlgOnLineHelp(id_Cancel,%68)
DlgButton(id_Help,%69,8,276);
DlgOnLineHelp(id_Help,%69)
DlgSetHelp(help_Context,112)

if(DlgExecute(True)<>ID_OK)
  Halt

SetToIni('UcDoklad','ZuzeniPisma',ZuzeniPisma,INI)
SetToIni('LOGO','LogoUcDoklad',TiskLogo,INI)
SetToIni('UcDoklad','FormatUcDoklad',FormatPapiru,INI)
if(TiskDatVyhUcDo1)
  TiskDatVyhUcDo=1
if(TiskDatVyhUcDo2)
  TiskDatVyhUcDo=2
if(TiskDatVyhUcDo3)
  TiskDatVyhUcDo=3
SetToIni('UcDoklad','TiskDatVyhUcDo',Str(TiskDatVyhUcDo,1,0),INI)

YRozmerPapir:Real=287 ;velikost papiru v mm - 5mm okraje
XPap:Real=200 ;velikost papiru v mm - 5mm okraje
RozmerFontu1:Real=4
RozmerFontu2:Real=3.5
Rad1:Real  ;radkovani pri velikosti fontu 1
Rad2:Real  ;radkovani pri velikosti fontu 2
DelkaH1:Real=40     ;velikost H1 v mm
DelkaH2:Real        ;velikost H2 v mm
DelkaH3:Real=3.5    ;velikost jednoho řádku H3 v mm
DelkaPopis:Real=5   ;pocet mm pro popis
VolnoZaCarou:Real=10
DelkaKonec:Real=30+VolnoZaCarou   ;pocet mm pro podpisy a legendu DPH
RozdelPapir:Real=0.5
RozsirFont=0
if(FormatPapiru=0)    ;0=A4,
  begin
    XPap=190  ;velikost papiru v mm - 10mm okraje
    YRozmerPapir=287-DolniOkraj  ;velikost papiru v mm - 5mm okraje
    RozmerFontu1=4
    RozmerFontu2=3.5
    RozdelPapir=0.45
    RozsirFont=1.8
    VolnoZaCarou=10
  end
if(FormatPapiru=1)    ;1=A5,
  begin
    XPap=138  ;velikost papiru v mm - 5mm okraje
    YRozmerPapir=200-DolniOkraj  ;velikost papiru v mm - 5mm okraje
    RozmerFontu1=3.5
    RozmerFontu2=3
    RozdelPapir=0.5
    RozsirFont=2
    VolnoZaCarou=5
  end
if(FormatPapiru=2)    ;2=A5 naležato,
  begin
    XPap=190  ;velikost papiru v mm - 10mm okraje
    YRozmerPapir=138-DolniOkraj  ;velikost papiru v mm - 5mm okraje
    RozmerFontu1=4
    RozmerFontu2=3.5
    RozdelPapir=0.45
    RozsirFont=1.8
    VolnoZaCarou=5
  end
if(FormatPapiru=3)    ;3=A6
  begin
    XPap=95   ;velikost papiru v mm - 5mm okraje
    YRozmerPapir=138-DolniOkraj  ;velikost papiru v mm - 5mm okraje
    RozmerFontu1=2.6
    RozmerFontu2=2.4
    RozdelPapir=0.6
    RozsirFont=2.5
    VolnoZaCarou=3
  end
if(FormatPapiru=4)    ;4=A6 naležato,
  begin
    XPap=138  ;velikost papiru v mm - 5mm okraje
    YRozmerPapir=95-DolniOkraj   ;velikost papiru v mm - 5mm okraje
    RozmerFontu1=4
    RozmerFontu2=3.5
    RozdelPapir=0.5
    RozsirFont=2
    VolnoZaCarou=3
  end

if(not ZuzeniPisma)
  RozsirFont=0

Rad1=RozmerFontu1+0.5   ;radkovani fontem1
Rad2=RozmerFontu2+0.5   ;radkovani fontem2
DelkaH1=(Rad1*4)+3          ;velikost H1
if(Length(Rozsireni)>0)
  DelkaH1=DelkaH1+Rad1    ;velikost H1
if((Length(Program.FaktSpecText[1])>0)and(Length(Program.FaktSpecText[2])>0))
  DelkaH1=DelkaH1+5    ;velikost H1
if((Length(Program.FaktSpecText[1])>0)and(Length(Program.FaktSpecText[2])=0))
  DelkaH1=DelkaH1+2.5    ;velikost H1
if((Length(Program.FaktSpecText[1])=0)and(Length(Program.FaktSpecText[2])>0))
  DelkaH1=DelkaH1+2.5    ;velikost H1
DelkaH2=Rad2*3          ;velikost bloku H2 - odhad
DelkaPopis=Rad2+(Rad1*2)      ;pocet mm pro popis
if(TiskPoznamka)
  DelkaPopis=DelkaPopis+Rad2
DelkaH3=Rad2            ;velikost jednoho řádku H3 v mm
DelkaKonec=30+VolnoZaCarou   ;pocet mm pro podpisy a legendu DPH

Def0='DefDynTab(1,XPap-2,Rad2,L3'
Def1=''
Def2=''
Def3=''
PocetPozicH3=5 ;SUAU+SUAU+Castka
if(Program.DanovaEvidence)
  begin
    Hreben1=%70
    Hreben2=%71
    TiskRozkont1='FromChar(''-'',GetCorrName(Denik.Agenda,Denik.MDSU,Denik.MDAU,Denik.DalSU,Denik.DalAU))+#9+'
    TiskRozkont2='+#9+'
    Def1=Def1+',32,TA_Left,1,TA_RIGHT'
    Def2=Def2+',1,TA_RIGHT,1,TA_RIGHT'
  end else
  begin
    Hreben1=%72
    Hreben2=%72
    TiskRozkont1='Null(Denik.MDSU,Program.SUSize,True)+#9+Null(Denik.MDAU,Program.AUSize,True)'
    TiskRozkont2='Null(Denik.DalSU,Program.SUSize,True)+#9+Null(Denik.DalAU,Program.AUSize,True)'
    Def1=Def1+',3,TA_RIGHT,3,TA_RIGHT'
    Def2=Def2+',3,TA_RIGHT,3,TA_RIGHT'
    if(Program.UseHS)
      begin
        PocetPozicH3=PocetPozicH3+2   ;dořešit podle počtu použitých pozic v HS
        Hreben1=Hreben1+'\t HS'
        Hreben2=Hreben2+'\t HS'
        TiskRozkont1=TiskRozkont1+'+#9+Str(Denik.MDHS,,,True)'
        TiskRozkont2=TiskRozkont2+'+#9+Str(Denik.DalHS,,,True)'
        Def1=Def1+',HSS,TA_Right'
        Def2=Def2+',HSS,TA_Right'
      end
    if(Program.UseKJ)
      begin
        PocetPozicH3=PocetPozicH3+2
        Hreben1=Hreben1+'\tKJ'
        Hreben2=Hreben2+'\tKJ'
        TiskRozkont1=TiskRozkont1+'+#9+Str(Denik.MDKJ,,,True)'
        TiskRozkont2=TiskRozkont2+'+#9+Str(Denik.DalKJ,,,True)'
        Def1=Def1+',KJS,TA_Right'
        Def2=Def2+',KJS,TA_Right'
      end
  end

if(Program.RezimDPH<>0)
  begin
    PocetPozicH3=PocetPozicH3+1
    Hreben3=Hreben3+'\tDPH'
    TiskRozkont3=TiskRozkont3+'+#9+Str(Denik.FastDan,4,0,True)'
    Def3=Def3+',4,TA_Right'
  end
if(Program.UsePopis)
  begin
    PocetPozicH3=PocetPozicH3+1
    Hreben3=Hreben3+%73
    TiskRozkont3=TiskRozkont3+'+#9+Denik.Popis'
    Def3=Def3+',35,TA_Left'
    ;Def3=Def3+',25,TA_Left'   ;aby byl hezci tisk
  end

Hreben3=Hreben3+%74+Program.Mena
TiskRozkont3=TiskRozkont3+'+#9+StrFinanc(Denik.Castka,2)'
;Def3=Def3+',16,TA_Right'
Def3=Def3+',12,TA_Right'   ;aby byl hezci tisk


if(Length(Trim(DokladDo))=0)
  DokladDo=DokladOd
if(Length(Trim(DokladDo))=0)
  DokladDo=#255+#255+#255+#255+#255+#255+#255+#255+#255+#255
;Vyhledani prvního dokladu
KlicName1:String=KlicName+'.Length'
KlicName2:String=KlicName+'.Doklad'
NameDoklad:String=AgendaName+'.Doklad'

@KlicName1=Length(Trim(DokladOd))
@KlicName2=DokladOd

InitStatus(UsedKeys(@KlicName)) ; inicializace stavoveho prouzku

LocB1=(SearchKey(@KlicName,Veta))
While((LocB1)and(CompareStr(@KlicName2,DokladDo)<=0))   ;cyklus přes interval
  begin
    ReadRec(@AgendaName,Veta)
    1Doklad=@DokladName
    1Datum=@DatumName
    1Ico=@IcoName
    1DatumZP=@DatumZPName
    1Obdobi=@ObdobiName
    if(TestSpl)
      begin
        1DatSpl=@DatSplName
        1DatVyst=@DatVystName
      end

    ;uschovat číslo vety, číslo dokladu  a klíč
    AktDoklad=@NameDoklad
    Veta1=Veta
    LocB2=True
    TiskH2=False
    PocetH2=0
    PocetPopis=0
    PocetH3=0
    Poprve=True
    While((LocB2=True)and(CompareStr(@KlicName,AktDoklad))) ;cyklus přes shodné číslo dokladu - testování
      begin
        ;testy
        ReadRec(@AgendaName,Veta)
        if(Poprve)
          TiskH2=True
        if(not(CompareStr(1Doklad,@DokladName)))
          TiskH2=True
        if(1Datum<>@DatumName)
          TiskH2=True
        if(1Ico<>@IcoName)
          TiskH2=True
        if(1DatumZP<>@DatumZPName)
          TiskH2=True
        if(1Obdobi<>@ObdobiName)
          TiskH2=True
        if(TestSpl)
          begin
           if(1DatSpl<>@DatSplName)
             TiskH2=True
           if(1DatVyst<>@DatVystName)
             TiskH2=True
          end
        if(TiskH2)
          begin
            Inc(PocetH2)
            Inc(PocetPopis)
          end
        else
          begin
            Inc(PocetPopis)
          end
        PocetH3=PocetH3+@CounterName
        TiskH2=False
        LocB2=NextKey(@KlicName,Veta)
      end
    @KlicName1=Length(Trim(AktDoklad))
    @KlicName2=AktDoklad
    LocB3=FindKeyAndRef(@KlicName,Veta1)
    Veta=Veta1
    ;tady doplnit spravne vypocet podle poctu popisu a poctu rozkontu (asi zbytecne, legenda umi strankovat)
    if(Program.RezimDPH<>0)
        YRozmerDoklad=DelkaH1+(DelkaH2*PocetH2)+(DelkaPopis+PocetPopis)+((DelkaH3*PocetH3)+(Rad1*2))+DelkaKonec+(Rad2*PocetH3)
      else  ;neni platce, nebude legenda
        YRozmerDoklad=DelkaH1+(DelkaH2*PocetH2)+(DelkaPopis+PocetPopis)+((DelkaH3*PocetH3)+(Rad1*2))+DelkaKonec

    if((YRozmerPapir-Ysourad<YRozmerDoklad)and(Ysourad<>0))
      begin
        NextPage
        YSourad=0
      end
    TiskH1
    Poprve=True
    While((LocB3)and(CompareStr(@KlicName,AktDoklad))) ;cyklus přes shodné číslo dokladu - tisk
      begin
        ;tisk
        ReadRec(@AgendaName,Veta)
        if(Poprve)
          TiskH2=True
        if(not(CompareStr(1Doklad,@DokladName)))
          TiskH2=True
        if(1Datum<>@DatumName)
          TiskH2=True
        if(1Ico<>@IcoName)
          TiskH2=True
        if(1DatumZP<>@DatumZPName)
          TiskH2=True
        if(1Obdobi<>@ObdobiName)
          TiskH2=True
        if(TestSpl)
          begin
           if(1DatSpl<>@DatSplName)
             TiskH2=True
           if(1DatVyst<>@DatVystName)
             TiskH2=True
          end
        if(TiskH2)
          TiskH2
        TiskPopis
        TiskH3
        Poprve=False
        TiskH2=False
        LocB3=NextKey(@KlicName,Veta)
      end
    TiskKonec
    LocB1=LocB3
    Inc(Pozice)                  ; zvyseni citace zpracovanych vet
    SetStatus(Pozice)            ; nastaveni stavoveho prouzku

  end


;{------------------------------------------------}

Procedure TiskH1();
  LocR=-1
  IF(TiskLogo)
    begin
      PaintMetaFile(xLogoStart,yLogoStart+YSourad,xLogoVel,yLogoVel,Program.Logo);  ; tisk logo o velikosti 20x20 mm
      LocR=xLogoVel
    end
  RoundBoxA(LocR+1,YSourad,(XPap*RozdelPapir)-0.5,YSourad+DelkaH1-1,3.3,3.3)
  RoundBoxA((XPap*RozdelPapir)+0.5,YSourad,XPap-0.5,YSourad+Rad1+1,3.3,3.3)
  LocYSourad=YSourad+1
  FONTSIZE(RozmerFontu1)
  FONTFACE(NORMAL|BOLD)
  Text(LocR+2,LocYSourad,TA_left,%75+Null(ICO))
  Text(XPap-2,LocYSourad,TA_right,TextA6+@DokladName)

  LocYSourad=LocYSourad+Rad1
  XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,Firma)
  LocYSourad=LocYSourad+Rad1
  if(Length(Rozsireni)>0)
    begin
      XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,Rozsireni)
      LocYSourad=LocYSourad+Rad1
    end
  XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,Ulice)
  LocYSourad=LocYSourad+Rad1
  XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,PSC+' '+Mesto)
  LocYSourad=LocYSourad+Rad1

if((Length(Program.FaktSpecText[1])>0)and(Length(Program.FaktSpecText[2])>0))
  begin
    FONTSIZE(2.4)
    FONTFACE(NORMAL)
    ClearFontIndex()
    GetFontIndex((XPap*RozdelPapir)-LocR+1-1,Program.FaktSpecText[1])
    GetFontIndex((XPap*RozdelPapir)-LocR+1-1,Program.FaktSpecText[2])
    FontIndex()
    Text(LocR+2,LocYSourad,TA_left,Program.FaktSpecText[1])
    LocYSourad=LocYSourad+2.4
    Text(LocR+2,LocYSourad,TA_left,Program.FaktSpecText[2])
    LocYSourad=LocYSourad+2.4
  end

if((Length(Program.FaktSpecText[1])>0)and(Length(Program.FaktSpecText[2])=0))
  begin
    FONTSIZE(2.4)
    FONTFACE(NORMAL)
    XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-LocR+1-1,TA_left,Program.FaktSpecText[1])
    LocYSourad=LocYSourad+2.4
  end

if((Length(Program.FaktSpecText[1])=0)and(Length(Program.FaktSpecText[2])>0))
  begin
    FONTSIZE(2.4)
    FONTFACE(NORMAL)
    XText(LocR+2,LocYSourad,(XPap*RozdelPapir)-LocR+1-1,TA_left,Program.FaktSpecText[2])
    LocYSourad=LocYSourad+2.4
  end

  LocYSourad=YSourad+Rad1+2   ;souradnice pro tisk H2 v pravé části
  YSourad=YSourad+DelkaH1   ;souradnice pro tisk H2 v pravé části
end;

;{------------------------------------------------}

Procedure TiskH2();
  FONTSIZE(RozmerFontu2)
  FONTFACE(NORMAL)
  if(not(Poprve))
    begin
      Linea(0,LocYSourad,XPap,LocYSourad)
      LocYSourad=LocYSourad+1
    end
  if(TiskDatumObdH2)
    XText((XPap*RozdelPapir)+0.5,LocYSourad,(XPap*(1-RozdelPapir))*0.7,TA_left,TextA1)
  if(TiskDatVyhUcDo1)
      Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
  if(TiskDatVyhUcDo2)
      begin
        if((CompareStr(AgendaName,'Pohledavka'))or(CompareStr(AgendaName,'Zavazek')))
          begin
            if(@DatVystName=@DatumName)
              begin
                Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
              end else
              begin
                Text(XPap-0.5,LocYSourad,TA_Right,StrDate(GetDate()))
                LocYSourad=LocYSourad+Rad2
                XText((XPap*RozdelPapir)+0.5,LocYSourad,(XPap*(1-RozdelPapir))*0.7,TA_left,TextA2)
                Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
              end
          end else  ;neni pohledavka a zavazek
          begin
            Text(XPap-0.5,LocYSourad,TA_Right,StrDate(GetDate()))
            LocYSourad=LocYSourad+Rad2
            XText((XPap*RozdelPapir)+0.5,LocYSourad,(XPap*(1-RozdelPapir))*0.7,TA_left,TextA2)
            Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
          end
      end
  if(TiskDatVyhUcDo3)
       begin
         if((CompareStr(AgendaName,'Pohledavka'))or(CompareStr(AgendaName,'Zavazek')))
           begin
             if(@DatVystName=@DatumName)
               begin
                 Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
               end else
               begin
                 Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatVystName))
                 LocYSourad=LocYSourad+Rad2
                 XText((XPap*RozdelPapir)+0.5,LocYSourad,(XPap*(1-RozdelPapir))*0.7,TA_left,TextA2)
                 Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumName))
               end
           end else  ;neni pohledavka a zavazek
           begin
             ;tady nikdy nejde
           end
       end
  LocYSourad=LocYSourad+Rad2
  if(TiskDatumObdH2)
    Text((XPap*RozdelPapir)+0.5,LocYSourad,TA_left,TextA3)
  LocStr=Null(Str(@ObdobiName),4)
  LocStr=Copy(LocStr,1,2)+'/'+Copy(LocStr,3,2)
  if(TiskDatumObdH2)
    Text(XPap-0.5,LocYSourad,TA_Right,LocStr))
  LocYSourad=LocYSourad+Rad2
  if(@DatumZPName<>0)
    begin
      Text((XPap*RozdelPapir)+0.5,LocYSourad,TA_left,%76)
      Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatumZPName))
      LocYSourad=LocYSourad+Rad2
    end
  if(TestSpl)
    begin
      Text((XPap*RozdelPapir)+0.5,LocYSourad,TA_left,%77)
      Text(XPap-0.5,LocYSourad,TA_Right,StrDate(@DatSplName))
      LocYSourad=LocYSourad+Rad2
    end

  if(not(Poprve))
    begin
      LocYSourad=YSourad ;posune souradnici pod čáru
    end
  if(LocYSourad<YSourad)
    LocYSourad=YSourad  ;posune souradnici pod ROUNDBOX s vlastni adresou

  if(@IcoName<>0)
    begin
      LocYSourad=LocYSourad+1
      RoundBoxA(0,LocYSourad,(XPap*RozdelPapir)-0.5,LocYSourad+(Rad2*3)+2,3.3,3.3)
      LocYSourad=LocYSourad+1
      Text(2,LocYSourad,TA_left,%78)
      LocYSourad=LocYSourad+Rad2
      Text(2,LocYSourad,TA_left,%75+Null(@IcoName,8,True))
      LocYSourad=LocYSourad+Rad2
      if(HledejFirmu)
        begin
         ;najít firmu z adresáře
         KeyAdresar1.Length=4
         KeyAdresar1.Ico=SwapL(@IcoName)
         if(FindKey(KeyAdresar1,VetaA))
           begin
             ReadRec(Adresar,VetaA)
             XText(2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,Adresar.Nazev)
             LocYSourad=LocYSourad+Rad2+2
           end
        end else
        begin
          XText(2,LocYSourad,(XPap*RozdelPapir)-2-LocR+2,TA_left,@FirmaName)
          LocYSourad=LocYSourad+Rad2+2
        end
    end else
    begin
    ;  LocYSourad=LocYSourad+DelkaH1
    end

  YSourad=LocYSourad
end;

;{------------------------------------------------}
Procedure TiskPopis();
  FONTSIZE(RozmerFontu2)
  FONTFACE(NORMAL)
  Text(0,LocYSourad,TA_left,TextA4)
  if(TiskParovDokl)
    begin
      if(@SAgdName=2)
        Text(XPap-1,LocYSourad,TA_right,%79+@SDokladName)
      if(@SAgdName=3)
        Text(XPap-1,LocYSourad,TA_right,%80+@SDokladName)
    end
  LocYSourad=LocYSourad+Rad2
  FONTSIZE(RozmerFontu1)
  FONTFACE(NORMAL|BOLD)
  if(Length(@PopisName)=0)
    begin
      i=0
      While(i<XPap)
        begin
          Text(i,LocYSourad+1,TA_left,'.'))
          i=i+1
        end
    end
  else
    begin
      Text(0,LocYSourad,TA_left,@PopisName)
    end
  LocYSourad=LocYSourad+Rad1

  FONTSIZE(RozmerFontu2)
  FONTFACE(NORMAL)
  if(ExistPoznamka)
    begin
      if((TiskPoznamka)and(Length(@PoznamkaName)>0))
        begin
          Text(0,LocYSourad,TA_left,%81+@PoznamkaName)
          LocYSourad=LocYSourad+Rad2
        end
    end

  FONTSIZE(RozmerFontu1)
  FONTFACE(BOLD)
  if(@CastkaMName<>0)
    begin
      if(Program.KurzMode=1)
        begin
          if(@CastkaName<>0)
            begin
              Text(0,LocYSourad,TA_left,%82+StrFinanc(@CastkaName,2)+' '+Program.Mena+'   -   '+StrFinanc(@CastkaMName,2)+' '+NumToCCC(@MenaName));
              FontFace(Normal);
              Text(0,0,TA_Left|TA_Relative,%83+Str(@CastkaMName/@CastkaName,,4))
            end;
        end else
        begin
          Text(0,LocYSourad,TA_left,%82+StrFinanc(@CastkaName,2)+' '+Program.Mena+'   -   '+StrFinanc(@CastkaMName,2)+' '+NumToCCC(@MenaName)+%83+Str(@CastkaName/@CastkaMName,,4))
        end;
    end else
    begin
      Text(0,LocYSourad,TA_left,%82+StrFinanc(@CastkaName,2)+' '+Program.Mena)
    end
  LocYSourad=LocYSourad+Rad1

  FONTSIZE(RozmerFontu1)
  YSourad=LocYSourad
end;

;{------------------------------------------------}

Procedure TiskH3();
  if(@CounterName=0)
    Exit
  Def0='DefDynTab(1,XPap-2,Rad2,L3'
  LocYSourad=YSourad
  FONTSIZE(RozmerFontu2)
  FONTFACE(NORMAL)
  ;test, zda vyjde na stránku
  LocHreben3=Hreben3
  LocTiskRozkont3=TiskRozkont3
  LocPocetPozicH3=PocetPozicH3
  L3=LocPocetPozicH3
  LocDef3=Def3
  ; proletet cely rozkont, jestli nahodou neni v nekterem dokaldu cizi mena
  ; a zda neni ruzne datum ci obdobi
  TiskCiziMeny=False
  TiskDatumObd=False
  if(@CastkaMName<>0)
    begin
      TiskCiziMeny=True
    end

    ;cyklus pres rozkont, zda neni v rozkontu cizi mena nebo ruzne obdobi či datum:
    KeyDenik7.Length=4
    KeyDenik7.Cislo=Swapl(@CisloName)
    ICislo=KeyDenik7.Cislo;
    LocB4=SearchKey(KeyDenik7,VetaD) ;vyhledá první větu se shodným interním číslem
    ReadRec(Denik,VetaD)
    TestDatum=Denik.Datum
    TestObd=Denik.Obdobi
    While((VetaD<>0)and(KeyDenik7.Cislo=ICislo))  ;cyklus přes všechny věty se shodným interním číslem
      begin
        ReadRec(Denik,VetaD)
        if(Denik.CastkaM<>0)
           TiskCiziMeny=True
        if(Denik.Datum<>TestDatum)
           TiskDatumObd=True
        if(Denik.Obdobi<>TestObd)
           TiskDatumObd=True
        LocB4=NextKey(KeyDenik7,VetaD)
      end

  if(TiskCiziMeny)
    begin
      LocPocetPozicH3=LocPocetPozicH3+3
      L3=LocPocetPozicH3
      LocHreben3=LocHreben3+%84
      LocTiskRozkont3=LocTiskRozkont3+'+#9+StrFinanc(Denik.CastkaM,2,,True)+#9+NumToCCC(Denik.Mena)+#9+Str(Podil,8,4,True)'
      LocDef3=LocDef3+',16,TA_Right,4,TA_Right,8,TA_Right'
    end
  Hreben0=''
  if(TiskDatumObd)
    begin
      LocPocetPozicH3=LocPocetPozicH3+2
      L3=LocPocetPozicH3
      Hreben0=%85
      ;TiskRozkont0='StrDate(Denik.Datum)+#9+Null(Str(Denik.Obdobi),4)+#9+'
      TiskRozkont0='StrDate(Denik.Datum)+#9+Copy(Null(Str(Denik.Obdobi),4),1,2)+''/''+Copy(Null(Str(Denik.Obdobi),4),3,2)+#9+'
      Def0=Def0+',12,TA_Right,5,TA_Right'
    end else
    begin
      Hreben0=''
      TiskRozkont0=''
      L3=LocPocetPozicH3
      Def0='DefDynTab(1,XPap-2,Rad2,L3'
    end
  Hreben=Hreben0+Hreben1+'\t'+Hreben2+LocHreben3
  Def=Def0+Def1+Def2+LocDef3+')'
  ;StrCom(Def)
  ByloViceStran=False

  ;tisk vet z rozkontu
  PoprveZauc=True
  KeyDenik7.Length=4
  KeyDenik7.Cislo=Swapl(@CisloName)
  ICislo=KeyDenik7.Cislo;
  LocB4=SearchKey(KeyDenik7,VetaD) ;vyhledá první větu se shodným interním číslem
  While((VetaD<>0)and(KeyDenik7.Cislo=ICislo))  ;cyklus přes všechny věty se shodným interním číslem
    begin
      FontWidthScale(0)
      if(LocYSourad>=YRozmerPapir)
        begin
          Box(0,ZacatekBoxu,XPap,(PocetVytistenych*Rad2)+1)
          NextPage
          LocYSourad=0
          YSourad=0
          TiskH1
          LocYSourad=YSourad
          FONTSIZE(RozmerFontu2)
          FONTFACE(NORMAL)
          if(PoprveZauc)
            begin
              Text(0,LocYSourad,TA_left,TextA5)
              LocYSourad=LocYSourad+Rad2
              ZacatekBoxu=LocYSourad
              LocYSourad=LocYSourad+1
              TabPos=LocYSourad
              PoprveZauc=False
            end
          TabPos=LocYSourad
          StrCom(Def)
          if(ZuzeniPisma)
            FontAttenuate(RozsirFont)
          else
            FontWidthScale(0)
          DynTab(Hreben)
          PocetVytistenych=1
          ZacatekBoxu=LocYSourad
          ByloViceStran=True
        end
      if(PoprveZauc)
        begin
          Text(0,LocYSourad,TA_left,TextA5)
          LocYSourad=LocYSourad+Rad2
          ZacatekBoxu=LocYSourad
          LocYSourad=LocYSourad+1
          TabPos=LocYSourad
          StrCom(Def)
          if(ZuzeniPisma)
            FontAttenuate(RozsirFont)
          else
            FontWidthScale(0)
          DynTab(Hreben)
          PocetVytistenych=1
          LocYSourad=LocYSourad+Rad2
          PoprveZauc=False
        end
      ReadRec(Denik,VetaD)
      Podil=0
      if(Denik.CastkaM<>0)
        Podil=Denik.Castka/Denik.CastkaM
      ZjistiDanovyKod();  aktualizuje policko Denik.FastDan
      if(Denik.FastDan<>0)
        begin
          PridejDan(Denik.FastDan)
        end
      StrCom('TiskRozkont='+TiskRozkont0+TiskRozkont1);
      TiskRozkont=TiskRozkont+#9;
      StrCom('TiskRozkont=TiskRozkont+'+TiskRozkont2);
      StrCom('TiskRozkont=TiskRozkont'+LocTiskRozkont3);
      StrCom(Def);
      if(ZuzeniPisma)
        FontAttenuate(RozsirFont)
      else
        FontWidthScale(0)
      DynTab(TiskRozkont);
      LocYSourad=LocYSourad+Rad2
      Inc(PocetVytistenych)
      LocB4=NextKey(KeyDenik7,VetaD)
    end
  Box(0,ZacatekBoxu,XPap,(PocetVytistenych*Rad2)+1)
  if(ByloViceStran)
      LocYSourad=LocYSourad+Rad2+1
    else
      LocYSourad=LocYSourad+1
  YSourad=LocYSourad
end;

;{------------------------------------------------}

Procedure TiskKonec();
  if(PocetDani>0)
      LocR=YSourad+((PocetDani+1)*Rad2)+DelkaKonec
    else
      LocR=YSourad+DelkaKonec
  if(Program.RezimDPH<>0)
      LocR=YSourad+DelkaKonec
  if(LocR>=YRozmerPapir)
     begin
       NextPage
       YSourad=0
       LocYSourad=0
       TiskH1
       LocYSourad=YSourad
     end
  if((PocetDani>0)and(Program.RezimDPH<>0))
    begin
      LocW=1
      FONTSIZE(RozmerFontu2)
      FONTFACE(NORMAL)
      Text(0,YSourad,TA_left,%86)
      YSourad=YSourad+Rad2
      ;DefDynTab(0,XPap,Rad2,5,4,TA_Right,20,TA_Left,10,TA_Left,5,TA_Right,20,TA_Left)
      ;DefDynTab(0,95,Rad2,5,4,TA_Right,10,TA_Left,50,TA_Right,50,TA_Left)
      DefDynTab(0,XPap,Rad2,5,5,TA_Left,10,TA_Left,20,TA_Left,50,TA_Left)
      FontWidthScale(0)
      While(LocW<=PocetDani)
        begin
          TabPos=YSourad
          PopisDane(Dane[LocW])
          DynTab(LocStr)
          Inc(LocW)
          YSourad=YSourad+Rad2
          if(YSourad>=YRozmerPapir)
             begin
               NextPage
               YSourad=0
               LocYSourad=0
               TiskH1
               LocYSourad=YSourad
               FONTSIZE(RozmerFontu2)
               FontFace(Normal)
               FontWidthScale(0)
             end
        end
      PocetDani=0   ;vynulovani
    end

  YSourad=YSourad+1

  FONTSIZE(RozmerFontu2)
  FontFace(Normal)
  if(Program.DanovaEvidence)
    begin
      Text(0,YSourad,TA_left,%87)
    end else
    begin
      Text(0,YSourad,TA_left,%88)
      Text(XPap,YSourad,TA_right,%89)
      if(Program.TypFirmy=5)
        begin
          YSourad=YSourad+10
          Text(0,YSourad,TA_left,%90)
          Text(XPap,YSourad,TA_right,%91)
          YSourad=YSourad+10
          Text(0,YSourad,TA_left,%92)
          YSourad=YSourad-20
        end
    end
  YSourad=YSourad+DelkaKonec
  Linea(0,YSourad,XPap,YSourad)
  YSourad=YSourad+VolnoZaCarou

end;

;{------------------------------------------------}

Procedure ZjistiDanovyKod();
  KeyCiselnikDani2.Length=2;
  if(Denik.DanT&$F=0)
    begin
      KeyCiselnikDani2.Dant=(Denik.DanT2)|(Denik.Dant*256);
    end else
    begin
      KeyCiselnikDani2.Dant=(Denik.DanT&$F)|(Denik.DanT&$F0*256);
    end;
  if(FindKey(KeyCiselnikDani2,VetaDan))
    begin
      ReadRec(CiselnikDani,VetaDan)
      Denik.FastDan=CiselnikDani.Cislo;
    end else
    begin
      Denik.FastDan=0;
    end;
end;

;{------------------------------------------------}

Procedure PridejDan(Dan:Word);
  SearchL=0
  SearchH=PocetDani-1
  While(SearchL<=SearchH)
    begin
      SearchI=Shr(SearchL + SearchH)+1;
      if(Dan<Dane[SearchI])
        SearchH=SearchI-2
      else
      if(Dan>Dane[SearchI])
        SearchL=SearchI
      else
        begin
          Exit;
        end;
    end;
  if(PocetDani>=MaxPocetDani)
    Halt(93);

  PomWord=PocetDani;
  Inc(PocetDani);
  While((PomWord>=SearchL+1) and (PomWord>0))
    begin
      Dane[PomWord+1]=Dane[PomWord];
      Dec(PomWord);
    end;
  Dane[SearchL+1]=Dan;
end;

;{------------------------------------------------}

Procedure PopisDane(Dan:Word);

  LocStr=Str(Dan)+#9;
  KeyCiselnikDani1.Length=2;
  KeyCiselnikDani1.Cislo=Swap(Dan)
  if(FindKey(KeyCiselnikDani1,VetaDan))
    begin
      ReadRec(CiselnikDani,VetaDan);
      ;LocStr=LocStr+CiselnikDani.Nazev+#9;
      if(CiselnikDani.DanT&$C0=$C0)
        LocStr=LocStr+%94+#9
      else
      if(CiselnikDani.DanT&$C0=$80)
        LocStr=LocStr+%95+#9
      else
      if(CiselnikDani.DanT&$C0=$00)
        begin
          LocStr=LocStr+%96+#9;
          Exit;
        end else
        begin
          LocStr=LocStr+%97+#9
          Exit;
        end;
      if(CiselnikDani.DanT&$30=$30)
        begin
          LocStr=LocStr+%101
        end else
      if(CiselnikDani.DanT&$30=$20)
        begin
          LocStr=LocStr+%98
          ;LocStr=LocStr+Str(SazbaDPH(True,@DatumZPName))+' %\t'
        end else
        begin
         if(CiselnikDani.DanT&$30=$10)
            LocStr=LocStr+%99
           else
            LocStr=LocStr+'0 %\t'
        end
      if(CiselnikDani.DanT&$F=0)
        CiselnikDani.DanT=Shr(CiselnikDani.DanT,8)
;     LocStr=LocStr+GetString(CiselnikDani.DanT+2016); platilo  před 1.5.2004
      LocStr=LocStr+GetString(CiselnikDani.DanT+4700);
    end;
end;

<lang=cs
  1='Doklady dle čísla'
  2='Doklady podle čísla dokladu'
  3='Změna třídění - Ne'
  4='Filtr - Ne'
  5='Doklady podle čísla ...'
  6='Okamžik vyhotovení dokladu:'
  7='Okamžik vyhotovení úč.dokladu:'
  8='Okamžik uskutečnění daň.případu:'
  9='Okamžik uskutečnění úč.případu:'
 10='Období:'
 11='Účetní období:'
 12='Popis:'
 13='Popis - obsah účetního případu:'
 14='Začlenění do daňové evidence:'
 15='Zaúčtování:'
 16='Doklad daňové evidence číslo '
 17='Účetní doklad číslo '
 18='pohledávka'
 19='závazek'
 20='pokladna'
 21='bankovní operace'
 22='ostatní úhrady'
 23='účetní událost'
 24='skupinová operace na skladě'
 25='dlouhodobý majetek'
 26='ostatní majetek'
 27='Tisk dokladů podle čísla dokladu - '
 28=' Volba údajů '
 29='&Číslo dokladu od '
 30='Počáteční číslo řady dokladů, od kterého chcete vytisknout doklady'
 31='(není-li vyplněno, bude tisk od prvního dokladu, tříděno podle čísel dokladů)'
 32='&do '
 33='Koncové číslo řady dokladů, do kterého chcete vytisknout doklady'
 34='(není-li vyplněno, bude tisk pouze jednoho dokladu)'
 35='Sestava vypíše doklady. Mají-li stejné číslo dokladu,'
 36='Sestava vypíše účetní doklady. Mají-li stejné číslo dokladu,'
 37='budou vypsány v jednom dokladu (i kdyby měly rozdílné datum)'
 38='Tisknout text poznámky do dokladu'
 39='Ano / Ne'
 40='Tisknout LOGO do dokladu'
 41='Ano / Ne'
 42='&Je-li datum dokladu jiné, než datum vystavení, pak Okamžik '
 43='vyhotovení dokladu ='
 44='- datum vystavení'
 45='Jako okamžik vyhotovení dokladu bude vytištěno datum vystavení faktury'
 46='Jako okamžik uskutečnění účetního případu bude vytištěno datum dokladu'
 47='- datum dokladu'
 48='Jako okamžik vyhotovení dokladu bude vytištěno datum dokladu, okamžik uskutečnění účetního případu nebude vytištěn, protože je shodný'
 49='- dnešní datum'
 50='Jako okamžik vyhotovení dokladu bude vytištěno dnešní (systémové - počítačové) datum'
 51='okamžik uskutečnění daňového případu = Datum dokladu'
 52='Jako okamžik vyhotovení účetního dokladu bude vytištěno dnešní (systémové - počítačové) datum'
 53='okamžik uskutečnění účetního případu = Datum dokladu'
 54='&Okamžik vyhotovení dokladu ='
 55='Jako okamžik vyhotovení dokladu bude vytištěno dnešní (systémové - počítačové) datum'+#13+'okamžik uskutečnění daňového případu = Datum dokladu'
 56='Jako okamžik vyhotovení účetního dokladu bude vytištěno dnešní (systémové) datum, okamžik uskutečnění účetního případu = datum dokladu'
 57='&Formát papíru:'
 58='A4 (297*210)'
 59='A5 (210*148,5)'
 60='A5 na šířku (148,5*210)'
 61='A6 (148,5*105)'
 62='A6 na šířku (105*148,5)'
 63='Vyber formát papíru, na který chcete tisknout. Nazapomeňte si také vhodně nastavit tiskárnu. (Formát A6 nedoporučujeme, nutno vyzkoušet)'
 64='&Spodní okraj'
 65='Pokud tiskárna nevytiskne vše a spodní část je useknuta, zadejte hodnotu (netištitelného) spodního okraje v milimetrech'
 66='Pokračuje ve zpracování'
 67='Zpět'
 68='Ukončí bez zpracování'
 69='Help'
 70='Způsob začlenění\t'
 71='\t'
 72='SÚ\tAÚ'
 73='\tPopis - obsah'
 74='\tČástka '
 75='IČ '
 76='Datum uskutečnění DPH:'
 77='Datum splatnosti:'
 78='Označení dalšího účastníka:'
 79='platba pohledávky: '
 80='platba závazku: '
 81='Poznámka: '
 82='Částka: '
 83=' použitý kurz: '
 84='\tČástka-cizí měna\tKód\tKurz'
 85='Datum\tObd\t'
 86='Legenda ke kódům DPH:'
 87='Podpis:'
 88='Podpis osoby zodpovědné za účetní případ:'
 89='Podpis osoby zodpovědné za zaúčtování:'
 90='Podpis správce rozpočtu:'
 91='Podpis hlavního účetního / hlavní účetní:'
 92='Podpis příkazce operace:'
 93='Příliš mnoho dani'
 94='Daň'
 95='Základ daně'
 96='Mimo daň'
 97='Chybný údaj'
 98='základní sazba \t'
 99='snížená sazba \t'
100='Používat zúžení písma'
101='snížená sazba 2\t'
>

<lang=sk
 1='Účtovné doklady podľa čísla'
 2='Účtovné doklady podľa čísla'
 3='Zmena triedenia - Nie'
 4='Filter - Nie'
 5='Účtovné doklady podľa čísla ...'
 6='Okamžik vyhotovenie dokladu:'
 7='Okamžik vyhotovenie úč.dokladu:'
 8='Okamžik uskutočnenie daň.prípadu:'
 9='Okamžik uskutočnenie úč.prípadu:'
 10='Obdobie:'
 11='Účtovné obdobie:'
 12='Popis:'
 13='Popis - obsah účtovného prípadu:'
 14='Začlenenie do daňovej evidencie:'
 15='Zaúčtovanie:'
 16='Doklad daňovej evidencie číslo '
 17='Účtovný doklad číslo '
 18='pohľadávka'
 19='záväzok'
 20='pokladňa'
 21='bankové operácie'
 22='ostatné úhrady'
 23='účtovná událosť'
 24='skupinová operácia na sklade'
 25='dlhodobý majetok'
 26='ostatný majetok'
 27='Tlač dokladov podľa čísla dokladu - '
 28=' Voľba údajov '
 29='&Číslo dokladu od '
 30='Počiatočné číslo rady dokladov, od ktorého chcete vytlačiť doklady'
 31='(ak nieje vyplnené, bude tlač od prvého dokladu, triedené podľa čísiel dokladov)'
 32='&do '
 33='Koncové číslo rady dokladov, do ktorého chcete vytlačiť doklady'
 34='(ak nieje vyplnené, bude tlač iba jedného dokladu)'
 35='Zostava vypíše doklady. Ak majú rovnaké číslo dokladu,'
 36='Zostava vypíše účtovné doklady. Ak majú rovnaké číslo dokladu,'
 37='budú vypísané v jednom doklade (aj keby mali rozdielne dátum)'
 38='Tlačiť text poznámky do dokladu'
 39='Áno / Nie'
 40='Tlačiť LOGO do dokladu'
 41='Áno / Nie'
 42='&Ak je dátum dokladu iné, než dátum vystavenia, potom Okamžik '
 43='vyhotovenie dokladu ='
 44='- dátum vystavenia'
 45='Ako okamžik vyhotovenia dokladu bude vytlačené dátum vystavenia faktúry'
 46='Ako okamžik uskutočnenia účtovného prípadu bude vytlačené dátum dokladu'
 47='- dátum dokladu'
 48='Ako okamžik vyhotovenia dokladu bude vytlačené dátum dokladu, okamžik uskutočnenia účtovného prípadu nebude vytlačený, pretože je zhodný'
 49='- dnešné dátum'
 50='Ako okamžik vyhotovenia dokladu bude vytlačené dnešné (systémové - počítačové) dátum'
 51='okamžik uskutočnenia daňového prípadu = Dátum dokladu'
 52='Ako okamžik vyhotovenia účtovného dokladu bude vytlačené dnešné (systémové - počítačové) dátum'
 53='okamžik uskutočnenia účtovného prípadu = Dátum dokladu'
 54='&Okamžik vyhotovenia dokladu ='
 55='Ako okamžik vyhotovenia dokladu bude vytlačené dnešné (systémové - počítačové) dátum'+#13+'okamžik uskutočnenia daňového prípadu = Dátum dokladu'
 56='Ako okamžik vyhotovenia účtovného dokladu bude vytlačené dnešné (systémové) dátum, okamžik uskutočnenia účtovného prípadu = dátum dokladu'
 57='&Formát papiera:'
 58='A4 (297*210)'
 59='A5 (210*148,5)'
 60='A5 na šírku (148,5*210)'
 61='A6 (148,5*105)'
 62='A6 na šírku (105*148,5)'
 63='Vyberte formát papiera, na ktorý chcete tlačiť. Nazabudnite si tiež vhodne nastaviť tlačiareň. (Formát A6 nedoporučujeme, nutné vyskúšať)'
 64='&Spodný okraj'
 65='Pokiaľ tlačiareň nevytlačí všetko a spodná časť je useknutá, zadajte hodnotu (netlačiteľného) spodného okraja v milimetroch'
 66='Pokračuje v spracovávaní'
 67='Späť'
 68='Ukončí bez spracovania'
 69='Help'
 70='Spôsob začlenenia\t'
 71='\t'
 72='SÚ\tAÚ'
 73='\tPopis - obsah'
 74='\tČiastka '
 75='IČO '
 76='Dátum uskutočnenia DPH:'
 77='Dátum splatnosti:'
 78='Označenie ďalšieho účastníka:'
 79='platba pohľadávky: '
 80='platba záväzku: '
 81='Poznámka: '
 82='Čiastka: '
 83=' použitý kurz: '
 84='\tČiastka-cudzia meny\tKód\tKurz'
 85='Dátum\tObd\t'
 86='Legenda ku kódom DPH:'
 87='Podpis:'
 88='Podpis osoby zodpovednej za účtovný prípad:'
 89='Podpis osoby zodpovednej za zaúčtovanie:'
 90='Podpis správcu rozpočtu:'
 91='Podpis hlavného účtovníka / hlavnej účtovníčky:'
 92='Podpis príkazcu operácie:'
 93='Príliš mnoho dane'
 94='Daň'
 95='Základ dane'
 96='Mimo daň'
 97='Chybný údaj'
 98='základná sadzba \t'
 99='znížená sadzba \t'
100='Používat zúženie písma'
101='znížená sadzba 2\t'
>

END;