; Slozenka z faktury1
; verze z 2.8.2002
; Autor: WinDUO Team

Name('Poštovní dobírk. poukázka A-V')
FileName('Sloz1.WNS')
Designed('Faktura')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Tiskne údaje z faktury do prázdné Poštovní dobírkové poukázky A-V')


SKod:String='71'
TrKod:String='116'
KSymb:String='0179'
Cislo1:String='700879'
Cislo2:String='318'
PosunX1:Real=20    ; X-posun adresy majitele účtu v prvním sloupci

DeclareRec('Program')
DeclareRec('Faktura')
DeclareRec('Pohledavka')
DeclareRec('BankovniUcet')
DeclareRec('KeyBankovniUcet1')
DeclareRec('RozpisFaktury')
GetBindRec('RozpisFaktury')

Hlavicka:Faktura
LocL:LongInt
LocStr:String
GetBindRec('Hlavicka',0)
GetBindRec('Pohledavka',0)
Desetiny:Byte=Round(Frac(RozpisFaktury.Propla)*100)
DesStr:String[2]

if(Desetiny=0)
  DesStr='--'
else
  DesStr=Str(Desetiny,,2)


KeyBankovniUcet1.Ucet=Null(Str(Pohledavka.Banka),4)+Pohledavka.Ucet
if(FindKey(KeyBankovniUcet1,LocL))
  ReadRec(BankovniUcet,LocL)
else
  ClearRec(BankovniUcet)




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

; ***************** předtištěné údaje:
FontFace(Normal)
IF(Length(Program.Rozsireni)<>0)    ; je-li nazev nasi firmy dvouradkovy
  begin
    FontSize(3)
    Text(0+PosunX1,39,TA_LEFT|TA_BaseLine,Program.Firma)
    FontSize(2.8)
    Text(0+PosunX1,42,TA_LEFT|TA_BaseLine,Program.Rozsireni)
    FontSize(3)
    Text(0+PosunX1,45.5,TA_LEFT|TA_BaseLine,Program.Ulice)
    Text(0+PosunX1,49,TA_LEFT|TA_BaseLine,Program.PSC+' '+Program.Mesto)
  end
else                                ; je-li nazev nasi firmy jednoradkovy
  begin
    FontSize(3.5)
    Text(0,42,TA_LEFT|TA_BaseLine,Program.Firma)
    Text(0,45.5,TA_LEFT|TA_BaseLine,Program.Ulice)
    Text(0,49,TA_LEFT|TA_BaseLine,Program.PSC+' '+Program.Mesto)
  end

FontSize(4)
Text(52,54.5,TA_RIGHT|TA_BaseLine,Pohledavka.Ucet+'/'+NULL(Pohledavka.Banka,4,True))
FontSize(3.5)
Text(52,59.5,TA_RIGHT|TA_BaseLine,BankovniUcet.NazevB+' '+BankovniUcet.Mesto)


FontSize(4)
SText(179,6.5,TA_RIGHT|TA_BaseLine,5,2,SKod)
;SText(197,6.5,TA_RIGHT|TA_BaseLine,5,2,TrKod)

SText(194.5,15,TA_RIGHT|TA_BaseLine,5,16,NULL(Pohledavka.Ucet,16,True))
SText(134.5,23.2,TA_RIGHT|TA_BaseLine,5,4,NULL(Pohledavka.Banka,4,True))
SText(134.5,32,TA_RIGHT|TA_BaseLine,5,4,KSymb)


Text(140,44,TA_LEFT|TA_BaseLine,BankovniUcet.NazevB+' '+BankovniUcet.Mesto)


FontSize(4)
FontFace(Bold)
IF(Length(Program.Rozsireni)<>0)    ; je-li nazev nasi firmy dvouradkovy
  begin
    Text(60,55,TA_LEFT|TA_BaseLine,Program.Firma)
    FontSize(3.3)
    Text(60,59.5,TA_LEFT|TA_BaseLine,Program.Rozsireni)
    FontSize(4)
    Text(60,65,TA_LEFT|TA_BaseLine,Program.Ulice)
    Text(60,70,TA_LEFT|TA_BaseLine,Program.PSC+' '+Program.Mesto)
  end
else                                ; je-li nazev nasi firmy jednoradkovy
  begin
    Text(60,55,TA_LEFT|TA_BaseLine,Program.Firma)
    Text(60,64,TA_LEFT|TA_BaseLine,Program.Ulice)
    Text(60,69,TA_LEFT|TA_BaseLine,Program.PSC+' '+Program.Mesto)
  end
FontFace(Normal)
FontSize(3.5)
;Text(76,75,TA_LEFT|TA_BaseLine,Cislo1)
;Text(85,79,TA_LEFT|TA_BaseLine,Cislo2)
FontSize(3)
Text(194,80,TA_RIGHT|TA_BaseLine,'X')

FontSize(4.2)
SText(183,88.5,TA_RIGHT|TA_BaseLine,2.5,26,NULL(Pohledavka.Ucet,16,True)+NULL(Pohledavka.Banka,4,True)+KSymb+SKod)


;*********************************** zbytek z faktury, nepředtištěné:

FontFace(Normal)
FontSize(5)
Text(134,55,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(134,60,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(134,65,TA_Left|TA_BaseLine,Pohledavka.Ulice)
Text(134,70,TA_Left|TA_BaseLine,Pohledavka.Mesto)
Text(131,70,TA_Right|TA_BaseLine,Pohledavka.PSC)
FontFace(Bold)
FontSize(4)
Text(36,33,TA_RIGHT|TA_BaseLine,Str(RozpisFaktury.Propla-0.49,,0))
Text(49.5,33,TA_RIGHT|TA_BaseLine,DesStr)
FontFace(Normal)
Text(9,64,TA_LEFT|TA_BaseLine,Pohledavka.Doklad)
Text(9,69,TA_LEFT|TA_BaseLine,Day(Pohledavka.DatVyst,2)+Month(Pohledavka.DatVyst,2)+Year(Pohledavka.DatVyst,2))
SText(154,6.5,TA_RIGHT|TA_BaseLine,5,8,Str(RozpisFaktury.Propla-0.49,,0))
SText(164,6.5,TA_RIGHT|TA_BaseLine,5,2,DesStr)
SText(194,23.2,TA_RIGHT|TA_BaseLine,5,10,Pohledavka.Doklad)
SText(194,32,TA_RIGHT|TA_BaseLine,5,10,Day(Pohledavka.DatVyst,2)+Month(Pohledavka.DatVyst,2)+Year(Pohledavka.DatVyst,2))
FontSize(3.5)
Text(9,75,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(9,78.5,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(9,83,TA_Left|TA_BaseLine,Pohledavka.Ulice)
Text(9,87,TA_Left|TA_BaseLine,Pohledavka.PSC+' '+Pohledavka.Mesto)

Text(63,39,TA_Left|TA_BaseLine,'=== '+NumToWord(RozpisFaktury.Propla,True,False)+' ===')
Text(131,45.5,TA_RIGHT|TA_BaseLine,DesStr)

END