function Titelblatt(_self)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Vermittlerabrechnung'
// -----------------------------------------
// -----------------------------------------------
// Titelblatt
// -----------------------------------------------

LOCAL nSumSach := 0
LOCAL nSumLVKV := 0
LOCAL cArt := ""
LOCAL cVertrName := ""
LOCAL cVertrStrasse := ""
LOCAL cVertrAnschrift := ""
LOCAL cVertrTyp := ""
LOCAL cAbrechnungszeitraum  := ""
LOCAL cAbrechnungstag := ""
LOCAL cAbrechnungsNr := ""
LOCAL dVom
LOCAL nSaldoVortr := 0
LOCAL nA_Konto := 0
LOCAL dPer
LOCAL nSaldo := 0
LOCAL cWaehrung := ""
local aSaldo

aSaldo := _Self:aSaldo

_SELF:seite_neue_seite()
_SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_hochformat() )
_SELF:seite_setze_raender(_self:nRandLinks, _self:nRandOben, _self:nRandRechts, _self:nRandUnten )
_SELF:wYStart := 0

IF aSaldo[17] == 0		// DEM
  cWaehrung := " DEM"
ELSEIF aSaldo[17] == 1	// EUR
  cWaehrung := " EUR"
ENDIF

// DBVTABR1
cAbrechnungszeitraum := "von "+DToC(aSaldo[2])+" bis "+DToC(aSaldo[3])	// ABRVON / ABRBIS
cAbrechnungstag := DToC(aSaldo[4])	// ABGER
cAbrechnungsNr := AllTrim(Str(aSaldo[1]))	// ABRNR

nSumSach := aSaldo[12]			// SACH_COURT
nSumLVKV := aSaldo[13]			// LVKV_COURT

cVertrName := AllTrim(aSaldo[6])	// VERTRNAME
cVertrStrasse := AllTrim(aSaldo[7])	// VERTRANSCH
cVertrAnschrift := AllTrim(aSaldo[8])	// VERTRORT
cVertrTyp := aSaldo[9]			// VERTRTYP

dVom := aSaldo[11]			// VOM
nSaldoVortr := aSaldo[10]		// SALDOVORTR
nA_Konto := aSaldo[14]			// A_KONTO
dPer := aSaldo[15]			// PER
nSaldo := aSaldo[16]			// SALDO

// "Vemittlerabrechnung"
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_schrift( "Arial", 40, _self:_schrift_roman(), _self:_attr_normal() )

_self:tab_initTab(0,0,1,1)
_self:tab_zeilenhoehe(50)
_self:tab_setze_spaltenbreite(1,1700)
_self:tab_rahmen(1,1,1,1,_self:_stift_null(),_self:_stift_null(),1,_self:_tab_umrandung())
IF _SELF:lZweitschrift == .t.
  _self:tab_setze_zelle(1,1,0,"Vermittlerabrechnung - Zweitschrift",_self:_txt_zentriert())
ELSE
  _self:tab_setze_zelle(1,1,0,"Vermittlerabrechnung",_self:_txt_zentriert())
ENDIF

// "Vetrteter"	
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_schrift( "Arial", 40, _self:_schrift_roman(), _self:_attr_normal() )

_self:tab_initTab(0,150,2,5)
_self:tab_zeilenhoehe(50)
_self:tab_setze_spaltenbreite(1,500)
_self:tab_setze_spaltenbreite(2,800)
_self:tab_setze_zelle(1,1,10,"Vermittler :",_self:_txt_links())
_self:tab_setze_zelle(2,1,10,cVertrName,_self:_txt_links())
_self:tab_setze_zelle(2,2,10,cVertrStrasse,_self:_txt_links())
_self:tab_setze_zelle(2,3,10,cVertrAnschrift,_self:_txt_links())	
_self:tab_setze_zelle(2,5,10,cVertrTyp,_self:_txt_links())	

// "Abrechnungszeitraum"	
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_schrift( "Arial", 40, _self:_schrift_roman(), _self:_attr_normal() )

_self:tab_initTab(0,460,2,3)
_self:tab_zeilenhoehe(50)
_self:tab_setze_spaltenbreite(1,500)
_self:tab_setze_spaltenbreite(2,800)

_self:tab_setze_zelle(1,1,10,"Abrechnungszeitraum :",_self:_txt_links())
_self:tab_setze_zelle(1,2,10,"Abrechnungstag :",_self:_txt_links())
_self:tab_setze_zelle(1,3,10,"Abrechnungsnummer :",_self:_txt_links())
_self:tab_setze_zelle(2,1,10,cAbrechnungszeitraum,_self:_txt_links())
_self:tab_setze_zelle(2,2,10,cAbrechnungstag,_self:_txt_links())
_self:tab_setze_zelle(2,3,10,cAbrechnungsNr,_self:_txt_links())

// Werte
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_schrift( "Arial", 40, _self:_schrift_roman(), _self:_attr_normal() )

_self:tab_initTab(0,700,2,5)
_self:tab_zeilenhoehe(50)
_self:tab_setze_spaltenbreite(1,700)
_self:tab_setze_spaltenbreite(2,1000)

_self:tab_rahmen(1,1,2,5,_self:_stift_durchgezogen(),_self:_stift_durchgezogen(),1,_self:_tab_umrandung())

_self:tab_setze_zelle(1,1,10,"Saldovortrag vom "+DToC(dVom),_self:_txt_links())
_self:tab_setze_zelle(2,1,10,Str(nSaldovortr,10,2) + cWaehrung,_self:_txt_rechts())

_self:tab_setze_zelle(1,2,10,"Sach/HUK-Courtagen",_self:_txt_links())
_self:tab_setze_zelle(2,2,10,Str(nSumSach,10,2) + cWaehrung,_self:_txt_rechts())

_self:tab_setze_zelle(1,3,10,"LV/KV-Courtagen",_self:_txt_links())
_self:tab_setze_zelle(2,3,10,Str(nSumLVKV,10,2) + cWaehrung,_self:_txt_rechts())

_self:tab_setze_zelle(1,4,10,"-Kontozahlung",_self:_txt_links())
_self:tab_setze_zelle(2,4,10,Str(nA_Konto,10,2) + cWaehrung,_self:_txt_rechts())

_self:tab_setze_zelle(1,5,10,"Saldo per "+DToC(dPer),_self:_txt_links())
_self:tab_setze_zelle(2,5,10,Str(nSaldo,10,2) + cWaehrung,_self:_txt_rechts())
	
ExecuteScript(AusgabeFussZeile,_self)

return _self

