FUNCTION Kopfzeile(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Buchungsprotokoll'
// -----------------------------------------
LOCAL cCaption
LOCAL nTab1
LOCAL nTab2
LOCAL nTab3
LOCAL nTab4
LOCAL nTab5
LOCAL nTab6
LOCAL nTab8
LOCAL nTab9
LOCAL nTab10
LOCAL nTab11

nTab1 := 0
nTab2 := nTab1 + 180
nTab3 := nTab2 + 180
nTab4 := nTab3 + 170
nTab5 := nTab4 + 450
nTab6 := nTab5 + 300
nTab8 := nTab6 + 750
nTab9 := nTab8 + 300
nTab10 := nTab9 + 30
nTab11 := _self:seite_x_ausdehnung()

_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
IF _SELF:lReDat
 cCaption := "Rechnungs-/Buchungsdatum"
ELSE
 cCaption := "Erstellungsdatum"
ENDIF
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"Buchungsprotokoll: " + cCaption + " von "+DToC(_SELF:dVon)+" bis "+DToC(_SELF:dBis))
_SELF:txt_gerichtet(_SELF:wYTemp,_self:_txt_rechts(),"Seite "+AllTrim(Str(_SELF:nSeite)))
_SELF:wYTemp := _SELF:wYTemp + 40

// Linie 1
_SELF:waehle_farbe( _self:_farbe_weiss() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
_SELF:gdi_line( nTab1, _SELF:wYTemp, nTab11, _SELF:wYTemp )
_SELF:wYTemp := _SELF:wYTemp + 40

_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", 30, _self:_schrift_roman(), _self:_attr_fett() )
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"ReDat")
_SELF:txt_absolut(nTab2,_SELF:wYTemp,"ErstelltDat")
_SELF:txt_absolut(nTab3,_SELF:wYTemp,"ReNr")
_SELF:txt_absolut(nTab4,_SELF:wYTemp,"Kunde")
_SELF:txt_absolut(nTab5,_SELF:wYTemp,"VsNr")
_SELF:txt_absolut(nTab6,_SELF:wYTemp,"Versicherer")
_SELF:txt_bereich(nTab6,_SELF:wYTemp,nTab8,_SELF:wYTemp+35,_self:_txt_rechts(),"Prmie")
_SELF:txt_bereich(nTab8,_SELF:wYTemp,nTab9,_SELF:wYTemp+35,_self:_txt_rechts(),"Courtage")
_SELF:txt_absolut(nTab10,_SELF:wYTemp,"Bu-Klasse")
_SELF:wYTemp := _SELF:wYTemp + 35

// Linie 2
_SELF:waehle_farbe( _self:_farbe_weiss() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_stift( _self:_stift_durchgezogen(), 2 )
_SELF:gdi_line( nTab1, _SELF:wYTemp, nTab11, _SELF:wYTemp )
_SELF:wYTemp := _SELF:wYTemp + 10

RETURN
