; DDT faktury do predtisteneho formulare 2000
; verze z 20.3.2001
; Autor: WinDUO Team

Name('Faktura do formuláře 2000 - široký')
FileName('Fakt2.WNS')
Designed('Faktura')
Author('Winduo Team','EMail: winduo@winduo.mine.nu','http://www.winduo.com','http://winduo.mine.nu')
Descr('Faktura do předtištěného formuláře z DUO pro DOS - široký tisk','druhá a další strana na čistý papír.')


MaxLines:Word
MaxLinesPril:Word
YTextFakt:Real
YTextPril:Real
SirkaFontuText:Real
VyskaFontuText:Real

PosunY:Real=-5 ;posun vseho v Y smeru
MaxLines=13 ;Maximalni pocet radku ve fakture
MaxLinesPril=45 ;Maximalni pocet radku v priloze
YTextFakt=120   ;y-souřadnice začátku textu ve fakture
YTextPril=10    ;y-souřadnice začátku textu v priloze
;SirkaFontuText=1.5
SirkaFontuText=2.5
VyskaFontuText=4


Designed('Faktura')

DeclareRec('Program')
DeclareRec('Faktura')
DeclareRec('Pohledavka')
DeclareRec('RozpisFaktury')
if(Program.Sklady)
  begin
    DeclareRec('Sklad')
    DeclareRec('KeySklad10')
  end
if(Program.TiskIDB)
  begin
    DeclareRec('BankovniUcet')
    DeclareRec('KeyBankovniUcet1')
  end
Hlavicka:Faktura
LocL:LongInt
LocStr:String
TiskDPH:Boolean
GetBindRec('Hlavicka',0)
GetBindRec('Pohledavka',0)
GetBindRec('RozpisFaktury')

TiskDPH=(Program.RezimDPH<>0) and (Hlavicka.Typ=0)

;****************************************************************************
; Tisk hlavickovych udaju
;****************************************************************************

;PaintMetaFile(75,18,98.8,39.2,Program.Logo)
PaintMetaFile(61,45,43,32,Program.Logo)
;box(65,43,48,38)
;PaintMetaFile(45,80,68.8,101,Program.Logo)
;box(45,80,68,101)
;end
;FontFace(Bold)
;FontSize(6)
;FontWidthScale(2.0)
;Text(96,25+PosunY,TA_RIGHT,'ZÁLOHOVÁ')
;FontWidthScale(0)

FontFace(Bold|Italic)
FontSize(4)
Text(48,37+PosunY,TA_LEFT,Program.ICO)
FontSize(5)
Text(175,35+PosunY,TA_RIGHT,Pohledavka.Doklad);
FontSize(4)
Text(48,41+PosunY,TA_LEFT,Program.DIC)
Text(175,40+PosunY,TA_RIGHT,Pohledavka.KSymb)
Text(24,48+PosunY,TA_LEFT,Program.Firma)
;Text(175,44+PosunY,TA_RIGHT,'SPEC.SYMB') ; ve strukture WinDUO neni
Text(24,52+PosunY,TA_LEFT,Program.Rozsireni)
Text(24,56+PosunY,TA_LEFT,Program.Ulice)
if((not Program.HideICO) or (Pohledavka.ICO>=Program.HideICOLess))
  Text(134,52+PosunY,TA_LEFT,Null(Pohledavka.ICO,8,0))
Text(12,60+PosunY,TA_LEFT,Program.PSC)
Text(24,60+PosunY,TA_LEFT,Program.Mesto)
Text(134,56+PosunY,TA_LEFT,Pohledavka.DIC)
FontSize(4.5)
Text(110,61+PosunY,TA_LEFT,Pohledavka.Firma)
if(Length(Pohledavka.Rozsireni)<>0)
begin
  Text(110,65.5+PosunY,TA_LEFT,Pohledavka.Rozsireni)
  Text(110,70+PosunY,TA_LEFT,Pohledavka.Ulice)
  Text(110,74.5+PosunY,TA_LEFT,Pohledavka.Mesto)
  Text(110,79+PosunY,TA_LEFT,Pohledavka.PSC)
end else
begin
  Text(110,65.5+PosunY,TA_LEFT,Pohledavka.Ulice)
  Text(110,70+PosunY,TA_LEFT,Pohledavka.Mesto)
  Text(110,74.5+PosunY,TA_LEFT,Pohledavka.PSC)
end

if(Pohledavka.Banka<>0)
  begin
    Text(35,68+PosunY,TA_LEFT,Pohledavka.Ucet+'/'+Null(Str(Pohledavka.Banka),4))
    if(Program.TiskIDB)
      begin
        KeyBankovniUcet1.Ucet=Null(Str(Pohledavka.Banka),4)+Pohledavka.Ucet
        if(FindKey(KeyBankovniUcet1,LocL))
          ReadRec(BankovniUcet,LocL)
        else
          ClearRec(BankovniUcet)
        Text(20,74+PosunY,TA_LEFT,BankovniUcet.NazevB)     ;nazev banky
        LocStr=BankovniUcet.Ulice
        if((Length(LocStr)<>0) and (Length(BankovniUcet.Mesto)<>0))
          LocStr=LocStr+','
        LocStr=LocStr+BankovniUcet.Mesto
        Text(20,78.5+PosunY,TA_LEFT,LocStr)
      end
  end;

Text(45,89+PosunY,TA_LEFT,Pohledavka.OBJEDNAVKA)

FontFace(Bold|Italic)

FontSize(3.5)
Text(149,89+PosunY,TA_Left,StrDate(Pohledavka.DatSpl))     ;datum splatnosti
Text(149,93+PosunY,TA_Left,StrDate(Pohledavka.DatVyst))    ;datum odeslání = vystavení
Text(149,97+PosunY,TA_Left,StrDate(Pohledavka.DatVyst))    ;datum vystavení

if(Program.RezimDPH<>0)
  begin
    Text(149,101+PosunY,TA_Left,StrDate(Pohledavka.Datum_ZP))   ;datum DPH
  end else
  begin
    Text(149,101+PosunY,TA_Left,'dodavatel není plátce DPH')   ;datum DPH
  end;
Text(149,105+PosunY,TA_Left,GetString(5500-Pohledavka.Platba))

FontFace(Normal)
FontSize(3)

TabPos=220+PosunY          ; pozice pro tabulku rozpisu DPH
if(TiskDPH)
  begin
    Pen(0,0.5)
    BoxA(10,TabPos+PosunY,85,TabPos+20+PosunY)
    ;Brush(UserBrush)
;    BoxA(10,TabPos+PosunY,35,TabPos+20+PosunY)
    LineA(35,TabPos+PosunY,35,TabPos+20+PosunY)
    LineA(10,TabPos+5+PosunY,85,TabPos+5+PosunY)
;    BoxA(10,TabPos+PosunY,85,TabPos+5+PosunY)
    ;Brush(NullBrush)
    Pen(0,0.2)
    LineA(60,TabPos+PosunY,60,TabPos+20+PosunY)
    LinesA(10,TabPos+10+PosunY,85,TabPos+10+PosunY,0,5,2)
;    LinesA(35,TabPos+PosunY,35,TabPos+20+PosunY,25,0,2)
    Text(22.5,TabPos+1+PosunY,TA_CENTER,'Sazba daně')
    Text(47.5,TabPos+1+PosunY,TA_CENTER,'Základ')
    Text(72.5,TabPos+1+PosunY,TA_CENTER,'Daň')
    if(RozpisFaktury.DPHZakladBez<>0)
      begin
        Text(22.5,TabPos+6+PosunY,TA_CENTER,'0 %')
        Text(58,TabPos+6+PosunY,TA_Right,Str(RozpisFaktury.DPHZakladBez,0,2))
        Text(72.5,TabPos+6+PosunY,TA_Center,'×')
      end
    if(RozpisFaktury.DPHZakladNizsi<>0)
      begin
        Text(22.5,TabPos+11+PosunY,TA_CENTER,'5 %')
        Text(58,TabPos+11+PosunY,TA_Right,Str(RozpisFaktury.DPHZakladNizsi,0,2))
        Text(83,TabPos+11+PosunY,TA_Right,Str(RozpisFaktury.DPHDanNizsi,0,2))
      end
    if(RozpisFaktury.DPHZakladVyssi<>0)
      begin
        Text(22.5,TabPos+16+PosunY,TA_CENTER,'22 %')
        Text(58,TabPos+16+PosunY,TA_Right,Str(RozpisFaktury.DPHZakladVyssi,0,2))
        Text(83,TabPos+16+PosunY,TA_Right,Str(RozpisFaktury.DPHDanVyssi,0,2))
      end
  end

TabPos=205+PosunY

if(RozpisFaktury.Zaloha=0)
  begin
    if(TiskDPH)
      begin
        Text(150,TabPos+PosunY,TA_Right,'Celkem bez DPH')
        Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Celkem,0,2))
        TabPos=TabPos+5
        Text(150,TabPos+PosunY,TA_Right,'DPH')
        Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.CelDPH-RozpisFaktury.Celkem,0,2))
        TabPos=TabPos+5
        Text(150,TabPos+PosunY,TA_Right,'Celkem s DPH')
        Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.CelDPH,0,2))
        if(RozpisFaktury.Zaokr<>0)
          begin
            TabPos=TabPos+5
            Text(150,TabPos+PosunY,TA_Right,'Zaokrouhlení')
            Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Zaokr,0,2))
          end;
      end else
      begin
        TabPos=TabPos+5
        Text(150,TabPos+PosunY,TA_Right,'Celkem')
        Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.CelDPH,0,2))
        if(RozpisFaktury.Zaokr<>0)
          begin
            TabPos=TabPos+5
            Text(150,TabPos+PosunY,TA_Right,'Zaokrouhlení')
            Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Zaokr,0,2))
          end;
      end
  end else
  begin
    Text(150,TabPos+PosunY,TA_Right,'Celkem na dokladu')
    Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Doklad,0,2))
    TabPos=TabPos+5
    Text(150,TabPos+PosunY,TA_Right,'Záloha')
    Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Zaloha,0,2))
    TabPos=TabPos+5
    Text(150,TabPos+PosunY,TA_Right,'Zbývá k proplacení')
    Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.CelDPH,0,2)) ; puvodne chybne CelkemBZ
    if(RozpisFaktury.Zaokr<>0)
      begin
        TabPos=TabPos+5
        Text(150,TabPos+PosunY,TA_Right,'Zaokrouhlení')
        Text(173,TabPos+PosunY,TA_Right,Str(RozpisFaktury.Zaokr,0,2))
      end;
  end

if(Hlavicka.FSleva<>0)
  begin
    FontSize(3.5)
    Text(7,210+PosunY,TA_Left,'Na doklad byla poskytnuta sleva ve výši '+Str(Hlavicka.FSleva)+'%')
  end;
FontSize(3.5)
;FontWidthScale(0.80)
;do zálohové faktury NE:
;Text(5,220+PosunY,TA_LEFT,SupplString(Str(Program.Penale,0,2),Program.FText))
;FontWidthScale(0)

FontFace(Normal|Italic)
Text(13,256+PosunY,TA_Left,Pohledavka.Vystavil)



FontSize(7)
FontFace(Bold|Italic)
Text(171,229+PosunY,TA_RIGHT,Str(RozpisFaktury.Propla,0,2))
Text(173,229+PosunY,TA_LEFT,'Kč')

;****************************************************************************
; Tisk radku faktury
;****************************************************************************

Radky:Word
Strana:Word
Radky=GetCountBindRec('Faktura')

FontSize(5)

LocW:Word
Sloupce:Word
DynStr:String
DynStr2:String
Hlava1:String
Hlava2:String
Radku:Word
Max:Array[1..12] of Byte
LocB:Byte
LocL:LongInt
LocW2:Word
LocW3:Word
LocB2:Byte
LocD:Double
AktRadek:Byte

Max[1]=Length('Skl.')
Max[2]=Length('Druh')
Max[3]=Length('Kód')
Max[4]=Length('Označení')
Max[5]=Length('Popis položky')
Max[6]=Length('Cena za MJ')
Max[7]=Length('Množství')
Max[9]=Length('Sleva')
Max[10]=Length('bez DPH')
Max[11]=Length('DPH')
Max[12]=Length('Celkem')

Sloupce=0
Radku=0

if(Program.RezimDPH<>0)
  begin
    Sloupce=Sloupce|$C00
  end
LocW=1
While(LocW<Radky)
  begin
    GetBindRec('Faktura',LocW)

    if(Faktura.WFlags&$8000=0)
      begin
        Inc(LocW2)
        LocB=Length(Faktura.Text)
        if(LocB<>0)
          begin
            Sloupce=Sloupce|$10
            if(LocB>Max[5])
              begin
                Max[5]=LocB
              end
          end

        if(Faktura.RecType=0)
          begin
          OdCena:
            if(Faktura.Cena<>0)
              begin
                Sloupce=Sloupce|$20
                if(Hlavicka.FSleva<>0)
                  begin
                    Faktura.Cena=((100-Hlavicka.FSleva)/100)*Faktura.Cena;
                  end
                LocB=Length(Str(Faktura.Cena,0,2))
                if(LocB>Max[6])
                  Max[6]=LocB
              end
            if(Faktura.Mnozstvi<>0)
              begin
                Sloupce=Sloupce|$40
;                LocB=Length(Str(Faktura.Mnozstvi,0,3))
                LocB=Length(Str(Faktura.Mnozstvi))
                if(LocB>Max[7])
                  Max[7]=LocB
              end;
            LocB=Length(Faktura.MJ)
            if(LocB<>0)
              begin
                Sloupce=Sloupce|$80
                if(LocB>Max[8])
                  Max[8]=LocB
              end
          OdCelkem:
            if(Faktura.Sleva<>0)
              begin
                Sloupce=Sloupce|$100
                LocB=Length(Str(Faktura.Sleva))
                if(LocB>Max[9])
                  Max[9]=LocB
              end
            if(Faktura.Celkem<>0)
              begin
                if((Hlavicka.FSleva<>0)and(Faktura.DPH<98))
                  begin
                    Faktura.Celkem=((100-Hlavicka.FSleva)/100)*Faktura.Celkem;
                  end;
                if(Faktura.Sleva<>0) then
                  begin
                    Faktura.Celkem=(100-Faktura.Sleva)/100*Faktura.Celkem
                  end;
                Sloupce=Sloupce|$200
                LocB=Length(Str(Faktura.Celkem,0,2))
                if(LocB>Max[10])
                  Max[10]=LocB
              end
            if(Program.RezimDPH<>0)
              begin
                if(Faktura.DPH<90)
                  begin
                    LocB=Length(Str(Faktura.DPH))
                    if(LocB>Max[11])
                      Max[11]=LocB
                  end;
                if(Faktura.DPH<90)
                  begin
                    LocB=Length(Str(Faktura.Celkem*(1+Faktura.DPH/100),0,2))
                    if(LocB>Max[12])
                      Max[12]=LocB
                  end else
                  begin
                    LocB=Length(Str(Faktura.Celkem,0,2))
                    if(LocB>Max[12])
                      Max[12]=LocB
                  end;
              end
          end else
        if((Faktura.RecType=1) or (Faktura.RecType=6))
          begin
            GoTo(OdCelkem)
          end else
        if((Faktura.RecType=3) or (Faktura.RecType=4) or (Faktura.RecType=5))
          begin
            if(Program.Sklady)
              begin
                KeySklad10.Length=4
                KeySklad10.Cislo=SwapL(Faktura.CisMat)
                if(FindKey(KeySklad10,LocL))
                  begin
                    ReadRec(Sklad,LocL)
                  end else
                  begin
                    ClearRec(Sklad)
                  end;
                if((Program.FTiskFlags&1<>0) and (Sklad.Sklad<>0))
                  begin
                    Sloupce=Sloupce|1
                    LocB=Length(Str(Sklad.Sklad))
                    if(LocB>Max[1])
                      Max[1]=LocB
                  end
                if((Program.FTiskFlags&2<>0) and (Sklad.Druh<>0))
                  begin
                    Sloupce=Sloupce|2
                    LocB=Length(Str(Sklad.Druh))
                    if(LocB>Max[2])
                      Max[2]=LocB
                  end
                LocB=Length(Sklad.Kod)
                if((Program.FTiskFlags&2<>0) and (LocB<>0))
                  begin
                    Sloupce=Sloupce|4
                    if(LocB>Max[3])
                      Max[3]=LocB
                  end
                LocB=Length(Sklad.Material)
                if(Program.TiskCis and (LocB<>0))
                  begin
                    Sloupce=Sloupce|8
                    if(LocB>Max[4])
                      Max[4]=LocB
                  end
              end
            GoTo(OdCena)
          end
      end
    Inc(LocW)
  end

if(Sloupce<>0)
  begin
    DynStr=''
    Hlava1=''
    Hlava2=''
    LocW=0
    LocW3=0
    if(Sloupce&1<>0)
      begin
        DynStr=DynStr+Str(Max[1])+',TA_Right,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Skl.'+#9
        Inc(LocW)
      end
    if(Sloupce&2<>0)
      begin
        DynStr=DynStr+Str(Max[2])+',TA_Right,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Druh'+#9
        Inc(LocW)
      end
    if(Sloupce&4<>0)
      begin
        DynStr=DynStr+Str(Max[3])+',TA_Left,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Kód'+#9
        Inc(LocW)
      end
    if(Sloupce&$8<>0)
      begin
        DynStr=DynStr+Str(Max[4])+',TA_Left,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Označení'+#9
        Inc(LocW)
      end
    if(Sloupce&$10<>0)
      begin
        DynStr=DynStr+Str(Max[5])+',TA_Left,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Popis položky'+#9
        Inc(LocW)
      end
    if(Sloupce&$20<>0)
      begin
        DynStr=DynStr+Str(Max[6])+',TA_Right,'
        if(Program.RezimDPH<>0)
          begin
            Hlava1=Hlava1+'Cena za MJ'+#9
            Hlava2=Hlava2+'bez DPH'+#9
          end else
          begin
            Hlava1=Hlava1+#9
            Hlava2=Hlava2+'Cena za MJ'+#9
          end
        Inc(LocW)
      end
    if(Sloupce&$40<>0)
      begin
        DynStr=DynStr+Str(Max[7])+',TA_Right,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+'Množství'+#9
        Inc(LocW)
      end
    if(Sloupce&$80<>0)
      begin
        DynStr=DynStr+Str(Max[8])+',TA_Left,'
        Hlava1=Hlava1+#9
        Hlava2=Hlava2+#9
        Inc(LocW)
      end
    if(Sloupce&$100<>0)
      begin
        DynStr2=DynStr2+Str(Max[9])+',TA_Right,'
        Hlava1=Hlava1+'Sleva'+#9
        Hlava2=Hlava2+'%'+#9
        Inc(LocW3)
      end
    if(Sloupce&$200<>0)
      begin
        DynStr2=DynStr2+Str(Max[10])+',TA_Right,'
        if(Program.RezimDPH<>0)
          begin
            Hlava1=Hlava1+'Celkem'+#9
            Hlava2=Hlava2+'bez DPH'+#9
          end else
          begin
            Hlava1=Hlava1+#9
            Hlava2=Hlava2+'Celkem'+#9
          end
        Inc(LocW3)
      end
    if(Sloupce&$400<>0)
      begin
        DynStr2=DynStr2+Str(Max[11])+',TA_Right,'
        Hlava1=Hlava1+'DPH'+#9
        Hlava2=Hlava2+'%'+#9
        Inc(LocW3)
      end
    if(Sloupce&$800<>0)
      begin
        DynStr2=DynStr2+Str(Max[12])+',TA_Right,'
        Hlava1=Hlava1+'Celkem'+#9
        Hlava2=Hlava2+'s DPH'+#9
        Inc(LocW3)
      end

    Inc(LocW,LocW3)
    FontSize(VyskaFontuText)
    FontFace(Normal)
    FontWidthScale(0)
    DynStr='DefDynTab(7,166,5,'+Str(LocW)+','+DynStr+DynStr2+')';
    StrCom(DynStr)
    FontWidthScale(SirkaFontuText)
    SaveTabInfo(1)
    TabPos=YTextFakt+PosunY
    DynTab(Hlava1)
    DynTab(Hlava2)
    Pen(0,0.4)
    Line(7,TabPos+Shr(Odstup)+1,166,0)
    Inc(TabPos,Odstup+1)


    LocW2=1
    LocB=1
    LocB2=0
    While(LocB<=8)
      begin
        if(Sloupce&LocW2<>0)
          LocB2=LocB2+Max[LocB]+1
        LocW2=Shl(LocW2)
        Inc(LocB)
      end
    DynStr='DefDynTab(7,166,5,'+Str(LocW3+1)+','+Str(LocB2-1)+',TA_Left,'+DynStr2+')';
    StrCom(DynStr)
    FontWidthScale(SirkaFontuText)
    SaveTabInfo(2)

    While(LocB<=12)
      begin
        if(Sloupce&LocW2<>0)
          LocB2=LocB2+Max[LocB]+1
        LocW2=Shl(LocW2)
        Inc(LocB)
      end
    Dec(LocB);
    DynStr='DefDynTab(7,166,5,1,78,TA_Left)';
    StrCom(DynStr)
    FontWidthScale(SirkaFontuText)
    SaveTabInfo(3)

    LocStr:String
    LastType:Byte
    ActualType:Byte

    LocW=1
    LastType=3
    While(LocW<Radky)
      begin
        GetBindRec('Faktura',LocW)
        if(Faktura.WFlags&$8000=0)
          begin
            LocStr=''
            if(Faktura.RecType=0)
              begin
                if(Sloupce&$1<>0)
                  LocStr=LocStr+#9
                if(Sloupce&$2<>0)
                  LocStr=LocStr+#9
                if(Sloupce&$4<>0)
                  LocStr=LocStr+#9
                if(Sloupce&$8<>0)
                  LocStr=LocStr+#9
              Typ0:
                ActualType=1
                if(Sloupce&$10<>0)
                  LocStr=LocStr+Faktura.Text+#9
                if(Sloupce&$20<>0)
                  begin
                    if(Hlavicka.FSleva<>0)
                      begin
                        Faktura.Cena=((100-Hlavicka.FSleva)/100)*Faktura.Cena;
                      end;
                    if(Faktura.Cena<>0)
                      LocStr=LocStr+Str(Faktura.Cena,0,2)+#9
                    else
                      LocStr=LocStr+#9
                  end;
                if(Sloupce&$40<>0)
                  begin
                    if(Faktura.Mnozstvi<>0)
;                      LocStr=LocStr+Str(Faktura.Mnozstvi,0,3)+#9
                      LocStr=LocStr+Str(Faktura.Mnozstvi)+#9
                    else
                      LocStr=LocStr+#9
                  end;
                if(Sloupce&$80<>0)
                  LocStr=LocStr+Faktura.MJ+#9
             TiskOdCelkem:
                if(Sloupce&$100<>0)
                  begin
                    if(Faktura.Sleva<>0)
                      LocStr=LocStr+Str(Faktura.Sleva)+#9
                    else
                      LocStr=LocStr+#9
                  end
                if(Faktura.Celkem<>0)
                  begin
                    if((Hlavicka.FSleva<>0)and(Faktura.DPH<98))
                      begin
                        Faktura.Celkem=((100-Hlavicka.FSleva)/100)*Faktura.Celkem;
                      end;
                    if(Faktura.Sleva<>0) then
                      begin
                        Faktura.Celkem=(100-Faktura.Sleva)/100*Faktura.Celkem
                      end;
                    if(Sloupce&$200<>0)
                      begin
                        LocStr=LocStr+Str(Faktura.Celkem,0,2)+#9
                      end
                    if(Sloupce&$400<>0)
                      begin
                        if(Faktura.DPH<90)
                          LocStr=LocStr+Str(Faktura.DPH)+#9
                        else
                          LocStr=LocStr+#9
                      end
                    if(Sloupce&$800<>0)
                      begin
                        if(Faktura.DPH<90)
                          LocStr=LocStr+Str(Faktura.Celkem*(1+Faktura.DPH/100),0,2)+#9
                        else
                          LocStr=LocStr+Str(Faktura.Celkem,0,2)+#9
                      end
                  end
              end else
            if((Faktura.RecType=1) or (Faktura.RecType=6))
              begin
                ActualType=2
                if(Sloupce&$10<>0)
                  LocStr=LocStr+Faktura.Text2+#9
                GoTo(TiskOdCelkem)
              end else
            if((Faktura.RecType=2) or (Faktura.RecType=7))
              begin
                ActualType=3
                if(Sloupce&$10<>0)
                  LocStr=LocStr+Faktura.Text3+#9
              end else
            if(Faktura.RecType<=5)
              begin
                if(Sloupce&$F<>0)
                  begin
                    KeySklad10.Length=4
                    KeySklad10.Cislo=SwapL(Faktura.CisMat)
                    if(FindKey(KeySklad10,LocL))
                      begin
                        ReadRec(Sklad,LocL)
                      end else
                      begin
                        ClearRec(Sklad)
                      end;
                    if(Sloupce&$1<>0)
                      begin
                        if(Sklad.Sklad<>0)
                          LocStr=LocStr+Str(Sklad.Sklad)+#9
                        else
                          LocStr=LocStr+#9
                      end
                    if(Sloupce&$2<>0)
                      begin
                        if(Sklad.Druh<>0)
                          LocStr=LocStr+Str(Sklad.Druh)+#9
                        else
                          LocStr=LocStr+#9
                      end
                    if(Sloupce&$4<>0)
                      begin
                        if(Length(Sklad.Kod)<>0)
                          LocStr=LocStr+Sklad.Kod+#9
                        else
                          LocStr=LocStr+#9
                      end
                    if(Sloupce&$8<>0)
                      begin
                        if(Length(Sklad.Material)<>0)
                          LocStr=LocStr+Sklad.Material+#9
                        else
                          LocStr=LocStr+#9
                      end
                  end
                GoTo(Typ0)
              end
            Inc(AktRadek)
            if(AktRadek>MaxLines)
              begin
;                FontSize(5)
                AktRadek=0
                Inc(Strana)
;                Text(7,260+PosunY,TA_Left,'Počet stránek faktury: '+Str(Word((Radky-1)/MaxLines+1))+' (Strana '+Str(Strana)+')')
                NextPage
                MaxLines=MaxLinesPril
                TabPos=YTextPril+PosunY
                LastType=1
                LoadTabInfo(LastType,False,True)
                DynTab(Hlava1)
                DynTab(Hlava2)
                Pen(0,0.4)
                Line(7,TabPos+Shr(Odstup)+1,166,0)
                Inc(TabPos,Odstup+1)
              end;
            if(ActualType<>LastType)
              begin
                LoadTabInfo(ActualType,False,True)
                LastType=ActualType
              end;
            DynTab(LocStr)
          end
        Inc(LocW)
      end
;    if(Radky>9)
;      begin
;        FontSize(5)
;        Inc(Strana)
;        Text(7,260+PosunY,TA_Left,'Počet stránek faktury: '+Str(Word((Radky-1)/MaxLines+1))+' (Strana '+Str(Strana)+')')
;      end;

  end
if(Strana=1)
   begin
     Message('Faktura obsahuje první stranu a jednu stranu přílohy, v tiskárně musí být vhodné papíry...',mb_IconExclamation)
   end;

if(Strana>1)
   begin
debug
     if(Strana<5)
       begin
           Message('Faktura obsahuje první stranu a '+Str(Strana)+' strany přílohy, v tiskárně musí být vhodné papíry...',mb_IconExclamation)
       end;
     else
       begin
           Message('Faktura obsahuje první stranu a '+Str(Strana)+' stran přílohy, v tiskárně musí být vhodné papíry...',mb_IconExclamation)
       end;
   end
END