; Slozenka z faktury1
; verze z 8.4.2002 - upraveno, ze bere udaje z faktury a ne z pohledavky
; Autor: WinDUO Team

Name('Poštovní předtišť. 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 předtištěné Poštovní dobírkové poukázky A-V')

DeclareRec('Program')
DeclareRec('Faktura')
DeclareRec('Pohledavka')
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)

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

FontFace(Normal)
FontSize(5)
Text(134,56,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(134,61,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(134,66,TA_Left|TA_BaseLine,Pohledavka.Ulice)
Text(134,71,TA_Left|TA_BaseLine,Pohledavka.Mesto)
Text(131,71,TA_Right|TA_BaseLine,Pohledavka.PSC)
FontFace(Bold)
FontSize(4)
Text(36,33.5,TA_RIGHT|TA_BaseLine,Str(RozpisFaktury.Propla-0.49,,0))
Text(49.5,33.5,TA_RIGHT|TA_BaseLine,DesStr)
Text(20,65,TA_LEFT|TA_BaseLine,Pohledavka.Doklad)
Text(20,70,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,22.5,TA_RIGHT|TA_BaseLine,5,10,Pohledavka.Doklad)
SText(194,31,TA_RIGHT|TA_BaseLine,5,10,Day(Pohledavka.DatVyst,2)+Month(Pohledavka.DatVyst,2)+Year(Pohledavka.DatVyst,2))
FontSize(3)
Text(9,76,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(9,78,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(9,81,TA_Left|TA_BaseLine,Pohledavka.Ulice)
Text(9,84,TA_Left|TA_BaseLine,Pohledavka.Mesto)
Text(9,87,TA_Left|TA_BaseLine,Pohledavka.PSC)
Text(63,41,TA_Left|TA_BaseLine,'=== '+NumToWord(RozpisFaktury.Propla,True,False)+' ===')
Text(131,46,TA_RIGHT|TA_BaseLine,DesStr)

END