; DDT pokladní doklad bez skladu jako daňový doklad
; verze z 22.3.2017
; Autor: WinDUO Team

Name('Pokladní daňový doklad - A5')
FileName('PoklDPH.WNS')
Designed('PokladnaS','PokladnaR','Pokladna')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Pokladní daňový doklad','bez skladových pohybů na A5','DPH bere z rozkontu')

PocetStrana:Word
PocetPriloha:Word
TabFontScale:Double
PoziceRozpisu:Word
PoziceRozpPril:Word

;****************************************************************************
; Nastavení proměnných majících vliv na podobu tisku
;****************************************************************************

PocetStrana=5      ;pocet radku rozpisu zbozi na 1 strane
PocetPriloha=22    ;pocet radku rozpisu zbozi na 2 a dalsi strane
TabFontScale=1.8   ;TabFontScale - nastavení šířky písma v tabulce položek
                   ;=1 písmo dle odhadu WinDUO
                   ;=0 písmo bez změny šířky
                   ;jinak index, tzn.např. =1.5 je 150% šířky odhladlé WinDUO
                   ;                       =0.75 je 75% šířky odhladlé WinDUO
                   ;cim vetsi cislo, tim tlustsi, obéznější (prsatější) písmenka
PoziceRozpisu=55   ;y-souradnice, odkud se tiskne hlavicka
PoziceRozpPril=16  ;y-souradnice, odkud se tiskne hlavicka na priloze


;****************************************************************************

DeclareRec('Pokladna')
DeclareRec('Denik')
DeclareRec('Program')
DeclareRec('KeyDenik7')
VetaP:LongInt                      ; definuje proměnnou pro pokladnu
VetaD:LongInt                      ; definuje proměnnou pro denik

GetBindRec('Pokladna')
if(Pokladna.Vydaj)
  begin
    ;úvodní varování, když je to výdajový doklad
    DefDialog('Daňový doklad',462,224)
    DlgShade(-1,'',4,27,453,124)
    DlgBitmap(903,10,46)
    DlgStatic(-1,'Upozornění',16,5,79)
    DlgStatic(-1,'K výdajovému pokladnímu dokladu nelze tisknout',75,60,325)
    DlgStatic(-1,'daňový doklad',75,80,100)

;    DlgButton(id_Yes,'Ano',414-124,156);
;    DlgOnLineHelp(id_Yes,'Pokračuje i přes varování ve zpracování')
    DlgButton(id_Cancel,'Zpět',198,156);
    DlgOnLineHelp(id_No,'Ukončí bez zpracování')


    if(DlgExecute()<>ID_Yes)
      Halt

  end

IsEET:Boolean=false;
EETOffset:Integer=0
if(IsPKP(Pokladna.PKP))
  begin
    IsEET=true
    EETOffset=-2
  end;

FontSize(4.5)
FontFace(Bold)
if(Program.RezimDPH<>0)
  Text(180,0,TA_RIGHT,'Příjmový pokladní doklad - daňový doklad')
else
  Text(180,0,TA_RIGHT,'Příjmový pokladní doklad')
PaintMetaFile(0,0,30,20,Program.Logo);
FontSize(3.5)
Brush(UserBrush)
Pen(ps_Null,0.1)
;BoxA(91,38,109,45)
Pen(0,0.3)
BoxA(145,5,180,10)
LineA(115,18,58,18)
LineA(58,18,58,11)
LineA(58,11,117,11)
Brush($FFFFFF)
Pen(0,0.7)

RoundBoxA(115,11,180,45,4,4)
Brush(NullBrush)

LineA(2,45,176,45)
ArcA(0,41,4,45,0,43,2,45);
LineA(0,40,0,43)
ArcA(0,42,4,38,2,38,0,40);
LineA(2,38,115,38);

Pen(0,0.1)
LineA(115,38,180,38)
;LineA(0,47,180,47);
Text(175,5.5,TA_RIGHT,Pokladna.Doklad);
FontFace(Normal)
Text(142,5.5,TA_RIGHT,'Číslo dokladu')
FontFace(Bold|Italic)
FontSize(3.5)
Text(118,13,TA_LEFT,'Odběratel:')
Text(0,20,TA_LEFT,'Dodavatel:')
FontFace(Bold);
ClearFontIndex()
GetFontIndex(64,Program.Firma)
GetFontIndex(64,Program.Rozsireni)
GetFontIndex(64,Program.Ulice)
GetFontIndex(64,Program.Mesto)
FontIndex()
Text(17,20,TA_LEFT,Program.Firma)
Text(17,23.3,TA_LEFT,Program.Rozsireni)
Text(17,26.6,TA_LEFT,Program.Ulice)
Text(17,30,TA_LEFT,Program.PSC+' '+Program.Mesto)


;IF(LENGTH(Program.Rozsireni)<>0)
;  begin
;    Text(20,20,TA_LEFT,Program.Firma)
;    FontSize(3.0)
;    Text(20,23.3,TA_LEFT,Program.Rozsireni)
;    FontFace(Normal);
;    Text(20,26.6,TA_LEFT,Program.Ulice)
;    Text(20,30,TA_LEFT,Program.PSC+' '+Program.Mesto)
;  end
;else
;  begin
;    Text(20,20,TA_LEFT,Program.Firma)
;    FontFace(Normal);
;    Text(20,24,TA_LEFT,Program.Ulice)
;    Text(20,28,TA_LEFT,Program.PSC+' '+Program.Mesto)
;  end
FontSize(2.2)
FontWidthScale(0)
ClearFontIndex()
GetFontIndex(56,Program.FaktSpecText[1])
GetFontIndex(56,Program.FaktSpecText[2)
FontIndex()
Text(114,33,TA_RIGHT,Program.FaktSpecText[1])
Text(114,35,TA_RIGHT,Program.FaktSpecText[2])

;FontSize(2.5)
;Text(114,27.5,TA_RIGHT,Program.FaktSpecText[1])
;Text(114,30,TA_RIGHT,Program.FaktSpecText[2])


FontSize(3.5)
FontFace(Bold);
FontWidthScale(0)
ClearFontIndex()
GetFontIndex(56,Pokladna.Firma)
GetFontIndex(56,Pokladna.Rozsireni)
GetFontIndex(56,Pokladna.Ulice)
GetFontIndex(56,Pokladna.Mesto)
FontIndex()
Text(120,18,TA_LEFT,Pokladna.Firma)
Text(120,21.3,TA_LEFT,Pokladna.Rozsireni)
Text(120,24.6,TA_LEFT,Pokladna.Ulice)
Text(120,28,TA_LEFT,Pokladna.Mesto)
Text(120,31.4,TA_LEFT,Pokladna.PSC)
;IF(LENGTH(Pokladna.Rozsireni)<>0)
;  begin
;    Text(125,18,TA_LEFT,Pokladna.Firma)
;    FontSize(3.0)
;    Text(125,21.3,TA_LEFT,Pokladna.Rozsireni)
;    FontFace(Normal);
;    Text(125,24.6,TA_LEFT,Pokladna.Ulice)
;    Text(125,28,TA_LEFT,Pokladna.Mesto)
;    Text(125,31.4,TA_LEFT,Pokladna.PSC)
;  end
;else
;  begin
;    Text(125,18,TA_LEFT,Pokladna.Firma)
;    FontFace(Normal);
;    Text(125,22,TA_LEFT,Pokladna.Ulice)
;    Text(125,26,TA_LEFT,Pokladna.Mesto)
;    Text(125,30,TA_LEFT,Pokladna.PSC)
;  end
FontFace(Normal);
FontSize(3)
Text(17,34,TA_LEFT,'IČO: '+NULL(Program.ICO,8,True)+'  DIČ: '+Program.DIC)
FontFace(Normal);
FontFace(Bold);
FontSize(5)
Text(88,12,TA_Center,'Uhrazeno v hotovosti')
FontSize(3.5)
FontFace(Normal);
Text(5,40,TA_Left,'Datum vystavení: '+StrDate(Pokladna.Datum))
if(Program.RezimDPH<>0)
  begin
    Text(90,40,TA_Right,'Datum zdanitelného plnění:')
    ;FontFace(Bold)
    Text(93,40,TA_Left,StrDate(Pokladna.Datum_ZP))
  end;
;FontSize(3)
if((not Program.HideICO) or (Pokladna.ICO>=Program.HideICOLess))
  Text(125,40,TA_LEFT,'IČO: '+NULL(Pokladna.ICO,8,True)+'  DIČ: '+Pokladna.DIC)

FontSize(4)
FontFace(Normal)
Text(5,PoziceRozpisu-2+EETOffset,TA_Left,'Účel platby: ')
FontSize(4.5)
FontFace(Italic|Bold)
Text(25,PoziceRozpisu-2+EETOffset,TA_Left,Pokladna.Popis)


; ********************
; Deklarace proměnných
; ********************

LocStr:String
Hlava1:String
Hlava2:String
LocW:Word
LocW2:Word
LocW3:Word
LocW4:Word
LocL:LongInt
SazbaDPHNizsi:Byte
SazbaDPHVyssi:Byte
SazbaDPHSnizena:Byte
VyssiDPHZaklad:Double
NizsiDPHZaklad:Double
SnizenaDPHZaklad:Double
VyssiDPHDan:Double
NizsiDPHDan:Double
SnizenaDPHDan:Double
CastkaSDPH:Double
BezDPH:Double
Celkem:Double
CelkemBezDPH:Double
LocD:Double
DynStr:String
NaStrane:Double
PocetStran:Word   ; pocet priloh
AktStrana:Word
LocBo:Boolean
Mezisoucet:Double
LocPos:Real
LocB:Byte
LocOfs:Real
LocSize:Real

; ***********************
; Inicializace proměnných
; ***********************

LocStr=''
Hlava1=''
Hlava2=''
LocW=0
SazbaDPHNizsi=SazbaDPH(dph_snizena,Pokladna.Datum_ZP)
SazbaDPHVyssi=SazbaDPH(dph_zakladni,Pokladna.Datum_ZP)
SazbaDPHSnizena=SazbaDPH(dph_snizena2,Pokladna.Datum_ZP)
VyssiDPHZaklad=0
NizsiDPHZaklad=0
SnizenaDPHZaklad=0
VyssiDPHDan=0
NizsiDPHDan=0
SnizenaDPHDan=0
BezDPH=0
Celkem=0
CelkemBezDPH=0
DynStr=''
NaStrane=0
PocetStran=0
AktStrana=0
MeziSoucet=0

; ********************************
; Vlastní zobrazení obsahu dokladu
; ********************************

;dodelat vyscitani DPH z rozkontu nebo hlaseni na obrazovku o tom, ze to nejde

; Vypocet celkove castky a castek DPH (z rozkontu)

if(IsEET)
  begin
    VyssiDPHZaklad=Pokladna.Amounts[eet_zakl_dan1];
    VyssiDPHDan=Pokladna.Amounts[eet_dan1];
    NizsiDPHZaklad=Pokladna.Amounts[eet_zakl_dan2];
    NizsiDPHDan=Pokladna.Amounts[eet_dan2];
    SnizenaDPHZaklad=Pokladna.Amounts[eet_zakl_dan3];
    SnizenaDPHDan=Pokladna.Amounts[eet_dan3];
    BezDPH=Pokladna.Amounts[eet_zakl_nepodl_dph];
  end else
  begin
    ; vyhleda interni cislo v deniku:
    KeyDenik7.Length=4
    KeyDenik7.Cislo=SwapL(Pokladna.Cislo)
    LocBo=SearchKey(KeyDenik7,VetaD)
    if((Pokladna.Cislo=SwapL(KeyDenik7.Cislo)) and LocBo)
      begin
        ; cyklus pres interni cislo
        While((Pokladna.Cislo=SwapL(KeyDenik7.Cislo))and(VetaD<>0))
          begin
            ReadRec(Denik,VetaD)        ; přečte větu ze souboru
            if(Denik.DanT&$C0=$80)      ; zaklad dane
              begin
                if(Denik.DanT&$30=0)
                  begin
                    BezDPH=BezDPH+Denik.Castka
                  end else
                if(Denik.DanT&$30=$10)
                  begin
                    NizsiDPHZaklad=NizsiDPHZaklad+Denik.Castka
                  end else
                if(Denik.DanT&$30=$20)
                  begin
                    VyssiDPHZaklad=VyssiDPHZaklad+Denik.Castka
                  end else
                if(Denik.DanT&$30=$30)
                  begin
                    SnizenaDPHZaklad=SnizenaDPHZaklad+Denik.Castka
                  end;
              end else
            if(Denik.DanT&$C0=$C0)      ; dan
              begin
                if(Denik.DanT&$30=$10)
                  begin
                    NizsiDPHDan=NizsiDPHDan+Denik.Castka
                  end else
                if(Denik.DanT&$30=$20)
                  begin
                    VyssiDPHDan=VyssiDPHDan+Denik.Castka
                  end else
                if(Denik.DanT&$30=$30)
                  begin
                    SnizenaDPHDan=SnizenaDPHDan+Denik.Castka
                  end;
              end;
            ;skok na dalsi vetu
            LocBo=NextKey(KeyDenik7,VetaD);
          end;
      end else
      begin
        ; v případě, že není rozkont
        ;{definice dialogu}
        TypSazby:Integer
        KoefAnoNe:Boolean=True

        if(Program.RezimDPH<>0)
          begin
            DefDialog('Zadání DPH',462,224)
            DlgShade(-1,'',4,27,453,124)
            DlgStatic(-1,'Upřesňující dotaz:',16,5,120)
            DlgStatic(-1,'Doklad nebyl rozkontován, zadej, kterou sazbu DPH obsahuje:',16,30,410)

            DlgStatic(-1,'&Sazba DPH:',116,80,80)
            DlgCombo(101,TypSazby,210,76,100,128,9,CBS_DropDownList,'základní','snížená','mimo DPH','snížená 2')
            DlgOnLineHelp(101,'Pokud není doklad rozkontován, lze vytisknout doklad jen s jednou sazbou DPH')

            if(Pokladna.Castka<=10000)
              begin
                DlgCheckBox(102,KoefAnoNe,116,107,400,,'&DPH počítat koeficientem')
                DlgOnLineHelp(102,'Výpočet bude proveden podle §17 odst. (3)')
              end else
              KoefAnoNe=False

            DlgButton(id_OK,'OK',414-124,156);
            DlgOnLineHelp(id_OK,'Pokračuje ve zpracování')
            DlgButton(id_Cancel,'Zpět',373,156);
            DlgOnLineHelp(id_Cancel,'Ukončí bez zpracování')


            if(DlgExecute(True)<>ID_OK)
              Halt

            if(TypSazby=0)
              ; výpocet ze zakladni sazby
              begin
                Koef:Real
                Koef=(SazbaDPHVyssi/(100+SazbaDPHVyssi))
                if(KoefAnoNe)
                  begin
                    ;zaokrouhlit na 4 desetinna mista
                    Koef=RoundFloat(Koef,-4)
                  end
                VyssiDPHDan=Pokladna.Castka*Koef
                if(Pokladna.ZaokrDPH)   ; zaokrouhlit na 10 nahoru
                  VyssiDPHDan=RoundFloat(Int((VyssiDPHDan+0.09)*10)/10,-2)
                  ;zaokrouhlit na 10 nahoru, mozna podle nastaveni zaokr. v dokladu nebo ve WinDUO
                VyssiDPHZaklad=Pokladna.Castka-VyssiDPHDan
              end

            if(TypSazby=1)
              ; výpocet ze snizene sazby
              begin
                Koef:Real
                Koef=(SazbaDPHNizsi/(100+SazbaDPHNizsi))
                if(KoefAnoNe)
                  begin
                    ;zaokrouhlit na 4 desetinna mista
                    Koef=RoundFloat(Koef,-4)
                  end
                NizsiDPHDan=Pokladna.Castka*Koef
                if(Pokladna.ZaokrDPH)   ; zaokrouhlit na 10 nahoru
                  NizsiDPHDan=RoundFloat(Int((NizsiDPHDan+0.09)*10)/10,-2)
                NizsiDPHZaklad=Pokladna.Castka-NizsiDPHDan
              end

            if(TypSazby=2)
              ; výpocet mimo DPH
              begin
                 BezDPH=Pokladna.Castka
              end

            if(TypSazby=3)
              ; výpocet ze zakladni sazby
              begin
                Koef:Real
                Koef=(SazbaDPHSnizena/(100+SazbaDPHSnizena))
                if(KoefAnoNe)
                  begin
                    ;zaokrouhlit na 4 desetinna mista
                    Koef=RoundFloat(Koef,-4)
                  end
                SnizenaDPHDan=Pokladna.Castka*Koef
                if(Pokladna.ZaokrDPH)   ; zaokrouhlit na 10 nahoru
                  SnizenaDPHDan=RoundFloat(Int((SnizenaDPHDan+0.09)*10)/10,-2)
                SnizenaDPHZaklad=Pokladna.Castka-SnizenaDPHDan
              end
          end
      end;
  end;

CelkemBezDPH=NizsiDPHZaklad+VyssiDPHZaklad+BezDPH
Celkem=CelkemBezDPH+NizsiDPHDan+VyssiDPHDan

LocW3=PoziceRozpisu+16;
if(IsEET)
  begin
    FontFace(Bold);
    MustPKP:Boolean=not IsFIK(Pokladna.FIK);
    RezimStr:String='běžný';
    if(Program.EETRezim=1)
      begin
        RezimStr='zjednodušený';
        MustPKP=true
      end;
    if(MustPKP)
      begin
        Text(0,PoziceRozpisu+2,TA_Left,'PKP:')
        FontFace(Normal)
        XText(10,PoziceRozpisu+2,170,TA_Left,GetPKPSegmentStr(Pokladna.PKP,115,0))
        XText(10,PoziceRozpisu+6,170,TA_Left,GetPKPSegmentStr(Pokladna.PKP,115,1))
        XText(10,PoziceRozpisu+10,170,TA_Left,GetPKPSegmentStr(Pokladna.PKP,115,2))
      end;
    FontFace(Bold);
    Text(0,LocW3,TA_Left,'Režim tržby: ')
    FontFace(Normal)
    XText(0,0,160,TA_Left|TA_Relative,RezimStr)
    Inc(LocW3,4);
    if(IsFIK(Pokladna.FIK))
      begin
        FontFace(Bold);
        Text(0,LocW3,TA_Left,'FIK: ')
        FontFace(Normal)
        XText(0,0,160,TA_Left|TA_Relative,GetFIK(Pokladna.FIK))
        Inc(LocW3,4);
      end;
    FontFace(Bold);
    Text(0,LocW3,TA_Left,'BKP: ')
    FontFace(Normal)
    XText(0,0,160,TA_Left|TA_Relative,GetBKP(Pokladna.BKP))
    Inc(LocW3,4);
    FontFace(Bold);
    Text(0,LocW3,TA_Left,'Datum a čas transakce: ')
    FontFace(Normal)
    XText(0,0,160,TA_Left|TA_Relative,StrUTCDate(Pokladna.ReceiptTime,true)+' '+StrUTCTime(Pokladna.ReceiptTime,true,true))
    Inc(LocW3,4);
    FontFace(Bold);
    Text(0,LocW3,TA_Left,'Provozovna: ')
    FontFace(Normal)
    XText(0,0,160,TA_Left|TA_Relative,Str(Pokladna.idProvoz))
    Inc(LocW3,4);
    FontFace(Bold);
    Text(0,LocW3,TA_Left,'Pokladna: ')
    FontFace(Normal)
    XText(0,0,160,TA_Left|TA_Relative,Pokladna.idPokl)
    Inc(LocW3,4);
  end;

TabPos(PoziceRozpisu+15)

LineA(0,TabPos,180,TabPos)
LocW3=TabPos
if(Program.RezimDPH<>0)
  begin
    TabPos=TabPos+1
    Text(173,TabPos,TA_Right,Str(CelkemBezDPH,0,2))
    TabPos=TabPos+4
    Text(173,TabPos,TA_Right,Str(Celkem-CelkemBezDPH,0,2))
    TabPos=TabPos+4
    Text(173,TabPos,TA_Right,Str(Celkem,0,2))
    TabPos=TabPos+4
    if(RoundFloat(Pokladna.Castka,-2)<>RoundFloat(Celkem,-2))
      begin
        Text(173,TabPos,TA_Right,Str(Pokladna.Castka-Celkem,0,2))
      end;
    TabPos=TabPos+4
  end else
  begin
    TabPos=TabPos+17
  end

FontFace(Normal)

if(Program.RezimDPH<>0)
  begin
    LocW3=LocW3+1
    Text(150,LocW3,TA_Right,'Celkem bez DPH')
    LocW3=LocW3+4
    Text(150,LocW3,TA_Right,'DPH')
    LocW3=LocW3+4
    Text(150,LocW3,TA_Right,'Celkem s DPH')
    LocW3=LocW3+4
    if(RoundFloat(Pokladna.Castka,-2)<>RoundFloat(Celkem,-2))
      begin
        Text(150,LocW3,TA_Right,'Zaokrouhlení')
      end;
  end else
  begin
    LocW3=LocW3+13
  end

TabPos=TabPos+2
Pen(0,0.7)
Brush(UserBrush)
BoxA(123,TabPos,173,TabPos+10)
Brush(NullBrush)
FontSize(6)
FontFace(Bold)
if(Pokladna.CastkaM<>0)
    Text(118,TabPos+1.5,TA_RIGHT,'Celkem uhrazeno:');
  else
    Text(118,TabPos,TA_RIGHT,'Celkem uhrazeno:');
FontFace(Bold)
FontSize(7)
if(Pokladna.CastkaM<>0)
  begin
    Text(170,TabPos+1.5,TA_RIGHT,Str(Pokladna.CastkaM,0,2)+' '+NumToCCC(Pokladna.Mena))
    FontFace(Normal)
    FontSize(3.5)
    Text(5,TabPos-2,TA_LEFT,'Převod na '+Program.Mena+': '+Str(Pokladna.Castka,0,2))
    Text(5,TabPos+1.5,TA_LEFT,'Kurz: '+Str(Pokladna.Castka/Pokladna.CastkaM,0,2))
  end else
    Text(169,TabPos+1.5,TA_RIGHT,Str(Pokladna.Castka,0,2)+' '+Program.Mena)

FontSize(3)
FontFace(Normal)

LocStr=''
LocD=Round(Frac(Pokladna.Castka)*100)
if(LocD<>0)
  begin
    LocStr=NumToWord(LocD,False,True)
    if(LocD=1)
      LocStr=LocStr+' haléř'
    else
    if(LocD<5)
      LocStr=LocStr+' haléře'
    else
      LocStr=LocStr+' haléřů'
  end;
LocStr=NumToWord(Pokladna.Castka,True,False)+' '+Program.Mena+' '+LocStr

FontFace(Normal)
if(Pokladna.CastkaM<>0)
   begin
     FontSize(3.5)
     Text(5,TabPos+7,TA_LEFT,'Slovy: '+LocStr)
   end else
   begin
     FontSize(3)
     Text(118,TabPos+7,TA_RIGHT,'Slovy: '+LocStr)
   end

TabPos=TabPos+12

FontSize(3)
Pen(0,0.1)
LineA(85,TabPos+13,125,TabPos+13)
LineA(140,TabPos+13,180,TabPos+13)
Text(105,TabPos+14,TA_Center,'Razítko a podpis odběratele')
Text(160,TabPos+14,TA_Center,'Razítko a podpis dodavatele')

if(Program.RezimDPH<>0)
  begin
    LocB=0;
    if(BezDPH<>0)
      Inc(LocB)
    if(SnizenaDPHZaklad<>0)
      Inc(LocB)
    if(NizsiDPHZaklad<>0)
      Inc(LocB)
    if(VyssiDPHZaklad<>0)
      Inc(LocB)
    if(LocB<>0)
      begin
        if(LocB=4)
          LocOfs=-5;
        LocSize=(LocB+1)*5
        Pen(0,0.5)
        BoxA(0,TabPos+LocOfs,75,TabPos+LocOfs+LocSize)
        Brush(UserBrush)
        BoxA(0,TabPos+LocOfs,25,TabPos+LocOfs+LocSize)
        BoxA(0,TabPos+LocOfs,75,TabPos+LocOfs+5)
        Brush(NullBrush)
        Pen(0,0.2)
        LinesA(0,TabPos+5+LocOfs,75,TabPos+LocOfs+5,0,5,LocB)
        LinesA(25,TabPos+LocOfs,25,TabPos+LocOfs+LocSize,25,0,2)
        Text(12.5,TabPos+LocOfs+1,TA_CENTER,'Sazba DPH')
        Text(37.5,TabPos+LocOfs+1,TA_CENTER,'Základ v '+Program.Mena)
        Text(62.5,TabPos+LocOfs+1,TA_CENTER,'DPH v '+Program.Mena)
        LocPos=6+LocOfs
        if(BezDPH<>0)
          begin
            Text(12.5,TabPos+LocPos,TA_CENTER,'0 %')
            Text(48,TabPos+LocPos,TA_Right,Str(BezDPH,0,2))
            Text(62.5,TabPos+LocPos,TA_Center,'×')
            Inc(LocPos,5);
          end
        if(SnizenaDPHZaklad<>0)
          begin
            Text(12.5,TabPos+LocPos,TA_CENTER,SazbaDPHSnizena+' %')
            Text(48,TabPos+LocPos,TA_Right,Str(SnizenaDPHZaklad,0,2))
            Text(73,TabPos+LocPos,TA_Right,Str(SnizenaDPHDan,0,2))
            Inc(LocPos,5);
          end
        if(NizsiDPHZaklad<>0)
          begin
            Text(12.5,TabPos+LocPos,TA_CENTER,SazbaDPHNizsi+' %')
            Text(48,TabPos+LocPos,TA_Right,Str(NizsiDPHZaklad,0,2))
            Text(73,TabPos+LocPos,TA_Right,Str(NizsiDPHDan,0,2))
            Inc(LocPos,5);
          end
        if(VyssiDPHZaklad<>0)
          begin
            Text(12.5,TabPos+LocPos,TA_CENTER,SazbaDPHVyssi+' %')
            Text(48,TabPos+LocPos,TA_Right,Str(VyssiDPHZaklad,0,2))
            Text(73,TabPos+LocPos,TA_Right,Str(VyssiDPHDan,0,2))
            Inc(LocPos,5);
          end
      end
  end

LocBo=LocW2<LocW

FontSize(2)
FontFace(Bold)

Text(0,TabPos+21,TA_Left,'Vytištěno systémem WinDUO - http://www.winduo.com')

Znova:
While((LocW2<LocW)and(Program.Sklady))
  begin
    AktStrana=AktStrana+1
;    FontSize(5)
    FontFace(Bold)
;    IF(AktStrana=1)
;      begin
        FontSize(4.5)
        Text(180,TabPos+20,TA_Right,'Strana '+AktStrana+' z(e) '+Str(PocetStran+1))
        FontSize(5)
;      end
;    ELSE
;      begin
;        Text(180,TabPos+20,TA_Right,'Strana '+AktStrana+' z(e) '+Str(PocetStran+1))
;      end
    NextPage
    Brush(UserBrush)
    Pen(0,0.3)
    ;BoxA(145,9,180,16);
    BoxA(145,5,180,10)
    Brush(NullBrush)
    FontSize(4.5)
    ;FontSize(7)
    FontFace(Bold)
    Text(180,0,TA_RIGHT,'Daňový doklad - prodejka za hotové')
    ;FontSize(5)
    FontSize(3.5)
    FontFace(Bold)
    Text(175,5.5,TA_RIGHT,Pokladna.Doklad);
    FontSize(4.5)
    Text(180,11,TA_RIGHT,'Příloha strana '+Str(AktStrana)+' z(e) '+Str(PocetStran))
    FontFace(Normal)
    FontSize(3.5)
    Text(142,5.5,TA_RIGHT,'Číslo dokladu')
    ;FontSize(4.5)
    FontSize(3.5)
    FontFace(Normal);
    StrCom(DynStr)
    if(TabFontScale<>1)
      FontWidthScale(TabFontScale)
    TabPos(PoziceRozpPril)
    DynTab(Hlava1)
    DynTab(Hlava2)
    LineA(7,PoziceRozpPril+8,173,PoziceRozpPril+8)
    TabPos(PoziceRozpPril+9)
    LocW4=0
    NaStrane=0
    While((LocW2<LocW) and (LocW4<PocetPriloha))
      begin
        LocW4=LocW4+1
        GetBindRec('Pohyb',LocW2)
        LocStr=''
        KeySklad10.Length=4
        KeySklad10.Cislo=SwapL(Pohyb.CisloMat)
        if(FindKey(KeySklad10,LocL))
          begin
            ReadRec(Sklad,LocL)
          end else
          begin
            ClearRec(Sklad)
          end;
        if(Program.FTiskFlags&1<>0) ;sklad
          begin
            LocStr=LocStr+Sklad.Sklad+#9
          end
        if(Program.FTiskFlags&2<>0) ;druh
          begin
            LocStr=LocStr+Sklad.Druh+#9
          end
        if(Program.FTiskFlags&4<>0) ;kod
          begin
            LocStr=LocStr+Sklad.Kod+#9
          end
        if(Program.TiskCis) ; skladove cislo
          begin
            LocStr=LocStr+Pohyb.Material+#9
          end

        LocStr=LocStr+Sklad.Nazev+#9+Str(Pohyb.JednCena,0,2)+#9+Pohyb.Mnozstvi+#9+Sklad.MJ+#9
        if(Program.RezimDPH<>0)
          begin
            LocStr=LocStr+Str(Pohyb.Castka,0,2)+#9+Pohyb.DPH+#9+Str(Pohyb.Castka*(1+Pohyb.DPH/100),0,2)
          end else
          begin
            LocStr=LocStr+Str(Pohyb.Castka,0,2);
          end

        DynTab(LocStr)

        if(Program.RezimDPH<>0)
          NaStrane=NaStrane+Pohyb.Castka*(1+Pohyb.DPH/100)
        else
          NaStrane=NaStrane+Pohyb.Castka
        LocW2=LocW2+1
      end
    ;TabPos=TabPos+2
    LineA(7,TabPos,173,TabPos)
    LocW3=TabPos
    TabPos=TabPos+1
    Text(173,TabPos,TA_Right,Str(NaStrane,0,2))
    TabPos=TabPos+4
    MeziSoucet=MeziSoucet+NaStrane
    Text(173,TabPos,TA_Right,Str(MeziSoucet,0,2))

    FontFace(Normal)

    if(Program.RezimDPH<>0)
      begin
        LocW3=LocW3+1
        Text(150,LocW3,TA_Right,'Celkem s DPH na straně')
        LocW3=LocW3+4
        Text(150,LocW3,TA_Right,'Celkem s DPH mezisoučet za přílohu')
      end else
      begin
        LocW3=LocW3+1
        Text(150,LocW3,TA_Right,'Celkem na straně')
        LocW3=LocW3+4
        Text(150,LocW3,TA_Right,'Celkem mezisoučet za přílohu')
      end
    TabPos=TabPos-14
  end

if(LocBo)
  begin
    AktStrana=AktStrana+1
    FontSize(4.5)
    FontFace(Bold)
    Text(180,TabPos+20,TA_Right,'Strana '+AktStrana+' z(e) '+Str(PocetStran+1))
  end

END