; Slozenka C z faktury
; verze z 6.8.2002
; Autor: WinDUO Team


Name('Poštovní poukázka C - třídílná')
FileName('SlozC.WNS')
Designed('Faktura')
Author('Winduo Team','EMail: winduo@winduo.cz','http://www.winduo.com','http://www.winduo.cz')
Descr('Tiskne údaje z faktury do třídílné Poštovní poukázky C')

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

PosunX:Real=5
PosunY:Real=-5.5

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
;****************************************************************************

;text Dobirka
;FontFace(BOLD)
;FontSize(4)
;Text(32+PosunX,5+PosunY,TA_LEFT,'DOBÍRKA')
;Text(92+PosunX,5+PosunY,TA_LEFT,'DOBÍRKA')
;Text(146+PosunX,5+PosunY,TA_LEFT,'DOBÍRKA')

;castka
FontFace(Bold)
FontSize(4)

Text(69+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,'= '+Str(RozpisFaktury.Propla-0.49,,0)+' =')
Text(79+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,DesStr)
Text(126.5+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,'= '+Str(RozpisFaktury.Propla-0.49,,0)+' =')
Text(136+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,DesStr)
Text(176+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,'= '+Str(RozpisFaktury.Propla-0.49,,0)+' =')
Text(185+PosunX,10+PosunY,TA_RIGHT|TA_BaseLine,DesStr)
;Text(176+PosunX+50,10+PosunY,TA_RIGHT|TA_BaseLine,'= '+Str(RozpisFaktury.Propla-0.49,,0)+' =')
;Text(185+PosunX+50,10+PosunY,TA_RIGHT|TA_BaseLine,DesStr)


FontSize(3.6)
Text(78+PosunX,17+PosunY,TA_Right|TA_BaseLine,'=== '+NumToWord(RozpisFaktury.Propla,True,False)+' ===')
Text(52+PosunX,22+PosunY,TA_Right|TA_BaseLine,'==========================')
FontSize(4)
Text(70+PosunX,21+PosunY,TA_RIGHT|TA_BaseLine,DesStr)


;první sloupec
;adresát
FontFace(Normal)
FontSize(4)
ClearFontIndex()
GetFontIndex(65,Program.Firma)
GetFontIndex(65,Program.Rozsireni)
GetFontIndex(65,Program.Ulice)
;GetFontIndex(65,Program.Mesto)
GetFontIndex(65,Pohledavka.Firma)
GetFontIndex(65,Pohledavka.Rozsireni)
GetFontIndex(65,Pohledavka.Ulice)
;GetFontIndex(65,Pohledavka.Mesto)
FontIndex()
Text(17+PosunX,33+PosunY,TA_Left|TA_BaseLine,Program.Firma)
Text(17+PosunX,38+PosunY,TA_Left|TA_BaseLine,Program.Rozsireni)
Text(17+PosunX,43+PosunY,TA_Left|TA_BaseLine,Program.Ulice)
Text(17+PosunX,56+PosunY,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(17+PosunX,61+PosunY,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(17+PosunX,66+PosunY,TA_Left|TA_BaseLine,Pohledavka.Ulice)

FontWidthScale(0)
XText(37+PosunX,47.6+PosunY,45,TA_Left|TA_BaseLine,Program.Mesto)
XText(37+PosunX,71+PosunY,45,TA_Left|TA_BaseLine,Pohledavka.Mesto)

;druhý sloupec
ClearFontIndex()
GetFontIndex(52,Program.Firma)
GetFontIndex(52,Program.Rozsireni)
GetFontIndex(52,Program.Ulice)
;GetFontIndex(52,Program.Mesto)
GetFontIndex(52,Pohledavka.Firma)
GetFontIndex(52,Pohledavka.Rozsireni)
GetFontIndex(52,Pohledavka.Ulice)
;GetFontIndex(52,Pohledavka.Mesto)
FontIndex()
Text(85+PosunX,33+PosunY,TA_Left|TA_BaseLine,Program.Firma)
Text(85+PosunX,38+PosunY,TA_Left|TA_BaseLine,Program.Rozsireni)
Text(85+PosunX,43+PosunY,TA_Left|TA_BaseLine,Program.Ulice)
Text(85+PosunX,56+PosunY,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(85+PosunX,61+PosunY,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(85+PosunX,66+PosunY,TA_Left|TA_BaseLine,Pohledavka.Ulice)

FontWidthScale(0)
XText(115+PosunX,47.6+PosunY,22,TA_Left|TA_BaseLine,Program.Mesto)
XText(115+PosunX,71+PosunY,22,TA_Left|TA_BaseLine,Pohledavka.Mesto)

;třetí sloupec
ClearFontIndex()
GetFontIndex(46,Program.Firma)
GetFontIndex(46,Program.Rozsireni)
GetFontIndex(46,Program.Ulice)
GetFontIndex(46,Program.Mesto)
GetFontIndex(46,Pohledavka.Firma)
GetFontIndex(46,Pohledavka.Rozsireni)
GetFontIndex(46,Pohledavka.Ulice)
GetFontIndex(46,Pohledavka.Mesto)
FontIndex()
Text(142+PosunX,33+PosunY,TA_Left|TA_BaseLine,Program.Firma)
Text(142+PosunX,38+PosunY,TA_Left|TA_BaseLine,Program.Rozsireni)
Text(142+PosunX,43+PosunY,TA_Left|TA_BaseLine,Program.Ulice)
Text(142+PosunX,47.6+PosunY,TA_Left|TA_BaseLine,Program.Mesto)
Text(142+PosunX,56+PosunY,TA_Left|TA_BaseLine,Pohledavka.Firma)
Text(142+PosunX,61+PosunY,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
Text(142+PosunX,66+PosunY,TA_Left|TA_BaseLine,Pohledavka.Ulice)
Text(142+PosunX,71+PosunY,TA_Left|TA_BaseLine,Pohledavka.Mesto)

;čtvrtý sloupec
;Text(142+PosunX+50,33+PosunY,TA_Left|TA_BaseLine,Program.Firma)
;Text(142+PosunX+50,38+PosunY,TA_Left|TA_BaseLine,Program.Rozsireni)
;Text(142+PosunX+50,43+PosunY,TA_Left|TA_BaseLine,Program.Ulice)
;Text(142+PosunX+50,47.6+PosunY,TA_Left|TA_BaseLine,Program.Mesto)
;Text(142+PosunX+50,56+PosunY,TA_Left|TA_BaseLine,Pohledavka.Firma)
;Text(142+PosunX+50,61+PosunY,TA_Left|TA_BaseLine,Pohledavka.Rozsireni)
;Text(142+PosunX+50,66+PosunY,TA_Left|TA_BaseLine,Pohledavka.Ulice)
;Text(142+PosunX+50,71+PosunY,TA_Left|TA_BaseLine,Pohledavka.Mesto)


;tisk PSČ
FontWidthScale(0)
if(CompareStr(Copy(Program.PSC,4,1),' '))
  begin
    SText(6+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Program.PSC)
    SText(24.5+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,2,FromChar(' ',Program.PSC))
    SText(86+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Program.PSC)
    SText(104.5+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,2,FromChar(' ',Program.PSC))
  end else
  begin
    SText(6+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Copy(Program.PSC,1,3))
    SText(24.5+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,2,Copy(Program.PSC,4,2))
    SText(86+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Copy(Program.PSC,1,3))
    SText(104.5+PosunX,47.6+PosunY,TA_CENTER|TA_BASELINE,5.5,2,Copy(Program.PSC,4,2))
  end


SText(6+PosunX,71+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Pohledavka.PSC)
SText(24.5+PosunX,71+PosunY,TA_CENTER|TA_BASELINE,5.5,2,FromChar(' ',Pohledavka.PSC))
SText(86+PosunX,71+PosunY,TA_CENTER|TA_BASELINE,5.5,3,Pohledavka.PSC)
SText(104.5+PosunX,71+PosunY,TA_CENTER|TA_BASELINE,5.5,2,FromChar(' ',Pohledavka.PSC))


END