;{ DDT SESTAVA - STANDARD                                  }
;{ Poštovní podací arch                                    }
;{ Verze: 07.10.2011                                       }
;{ Autor: WinDUO Team                                      }

Name('Poštovní podací arch')
Designed('POHLMAN#1')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Poštovní podací arch')

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

WNSType(1)
FileName('TPOHPPAR.WNS')

LocP   :LongInt;
DeclareRec('Program')
DeclareRec('Pohledavka')
DeclareRec('KeyPohledavka1')

xPorCislo :Integer = 0
xSou      :Integer
ySou      :Integer
xDel      :Integer
yDel      :Integer

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

;tisk formulare

procedure Formular
  xSou = 5
  ySou = 10
  xDel = 190
  yDel = 250

  ;logo
  PaintMetaFile(xSou, ySou, 32, 6, 'CPOSTA.WMF')

  ;ramy
  Pen(ps_Solid,0.5)
  BoxA(xSou, ySou+25, xDel, yDel)
  LineA(xSou+68, ySou+25, xSou+68, yDel)
  LineA(xSou, ySou+40, xDel, ySou+40)

  Pen(ps_Solid,0.1)
  LineSA(xSou, ySou+40, xDel, ySou+40, 0, 20, 10)
  LineA(xSou+12, ySou+25, xSou+12, yDel)
  LineA(xSou+118, ySou+25, xSou+118, yDel)
  LineA(xSou+137, ySou+25, xSou+137, yDel)
  LineA(xSou+156, ySou+25, xSou+156, yDel)

  ;texty
  FontSize(5)
  FontFace(Normal)
  Text(xDel/2,ySou,TA_Center,'POŠTOVNÍ PODACÍ ARCH')
  
  FontSize(4)
  FontFace(Bold)
  Text(xSou+6,ySou+28,TA_Center,'Poř.')
  Text(xSou+6,ySou+32,TA_Center,'číslo')
  Text(xSou+40,ySou+30,TA_Center,'Podací znaky')
  Text(xSou+93,ySou+25,TA_Center,'Adresát - jméno, příjmení,')
  Text(xSou+93,ySou+28.5,TA_Center,'ulice, číslo domu,')
  Text(xSou+93,ySou+32,TA_Center,'PSČ, místo určení,')
  Text(xSou+93,ySou+35.5,TA_Center,'telefonní kontakt, email  ')
  Text(xSou+127.5,ySou+30,TA_Center,'Dobírka  ')
  FontSize(2.5)
  Text(6,-0.2,TA_Left|TA_Relative,'1)')
  FontSize(4)
  Text(xSou+146.5,ySou+28,TA_Center,'Udaná')
  Text(xSou+146.5,ySou+32,TA_Center,'cena  ')
  FontSize(2.5)
  Text(3,-0.2,TA_Left|TA_Relative,'2)')
  FontSize(4)
  Text(xSou+170.5,ySou+26.5,TA_Center,'Poznámka,')
  Text(xSou+170.5,ySou+30,TA_Center,'doplňkové')
  Text(xSou+170.5,ySou+33.5,TA_Center,'služby  ')
  FontSize(2.5)
  Text(4.5,-0.2,TA_Left|TA_Relative,'1)')
  
  FontSize(4)
  FontFace(Normal)
  Text(xSou,ySou+8,TA_Left,'Podavatel:')
  Text(xSou,ySou+15,TA_Left,'Odesílatel:')
  
  FontSize(3)
  FontFace(Normal)
  Text(xDel-5,ySou+21.5,TA_Right,'Placeno v hotovosti / Placeno převodem / Výplatní stroj (* Nehodící se škrtněte)')
  Text(xSou,yDel+0.5,TA_Left,'Česká pošta, s.p., IČ 47114983')
  Text(xSou+118,yDel+0.5,TA_Left,'Potvrzení pošty (otisk razítka APOST)')
  
  FontSize(3)
  FontFace(Normal)
  TextColor($646464)
  Text(xSou,yDel+21,TA_Left,'1) Vyplní odesílatel')
  Text(xSou,yDel+24,TA_Left,'2) U doporučených zásilek - standard, Doporučených zásilek, doporučených zásilek do zahraničí, Doporučených slepeckých zásilek a ')
  Text(xSou+3,yDel+27,TA_Left,'Doporučených slepeckých zásilek do zahraničí se neuvádí a sloupec se proškrtne.')
  TextColor($000000)
  
  ySou=39
End;

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

;{ prochazeni pohledavek }
Sloupec :Integer
Castka  :Double

ClearKey(KeyPohledavka1)
InitStatus(UsedKeys(KeyPohledavka1), 'Vytvoření seznamu')
while(NextKey(KeyPohledavka1,LocP))
  begin
    ReadRec(Pohledavka,LocP)
    if(InFilter(Pohledavka))
      begin
        Inc(xPorCislo)
        if(xPorCislo=1)
          formular
        if((xPorCislo=11)or(xPorCislo=21)or(xPorCislo=31)or(xPorCislo=41)or(xPorCislo=51))
          begin
            NextPage
            Formular
          end
        FontSize(3.5)
        Inc(ySou,20)
        XText(xSou+6,ySou,10,TA_Center,xPorCislo)
        XText(Sloupec+74,ySou-7.5,49,TA_Left,Pohledavka.Firma)
        XText(Sloupec+74,ySou-3,49,TA_Left,Pohledavka.Rozsireni)
        XText(Sloupec+74,ySou+1.5,49,TA_Left,Pohledavka.Ulice)
        XText(Sloupec+74,ySou+6,49,TA_Left,Pohledavka.PSC+', '+Pohledavka.Mesto)
        
        if(Pohledavka.Platba=4)
          XText(Sloupec+141,ySou,35,TA_Right,'-'+Str(Round(Pohledavka.Castka))+',-')
      end
  end


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

END