FUNCTION Kopfzeile(_self)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'ZeiterfassungGesamtListe'
// -----------------------------------------

LOCAL cText
LOCAL aZESel
LOCAL nLineHeight
LOCAL nTab1
LOCAL nTab2

nLineHeight := 35
nTab1 := 5
nTab2 := 130
aZESel := _self:aZESel
	
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", 35, _self:_schrift_roman(), _self:_attr_fett() )
cText := "Zeiterfassung Gesamtliste"
_SELF:txt_absolut(0,_SELF:wYTemp,cText)
_SELF:wYTemp := _SELF:wYTemp + 50

// Linie
_SELF:waehle_farbe( _self:_farbe_weiss() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:gdi_line( 0, _SELF:wYTemp, _SELF:seite_x_ausdehnung(), _SELF:wYTemp )
_SELF:wYTemp := _SELF:wYTemp + 20

_SELF:waehle_schrift( "ARIAL", 25, _self:_schrift_roman(), _self:_attr_normal() )

// KdNr & KdName
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"Kunde:")
IF Empty(aZeSel[1])
 _SELF:txt_absolut(nTab2,_SELF:wYTemp,"alle")
ELSE
 _SELF:txt_absolut(nTab2,_SELF:wYTemp,aZeSel[2] + " (" + aZeSel[1] + ")")
ENDIF
_SELF:wYTemp := _SELF:wYTemp + nLineHeight
 
// Sachbearbeiter
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"Sachb.:")
IF Empty(aZeSel[3])
 _SELF:txt_absolut(nTab2,_SELF:wYTemp,"alle")
ELSE
 _SELF:txt_absolut(nTab2,_SELF:wYTemp,aZeSel[3])
ENDIF
_SELF:wYTemp := _SELF:wYTemp + nLineHeight

// Zeitraum
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"Zeitraum:")
_SELF:txt_absolut(nTab2,_SELF:wYTemp,"von " + aZeSel[4] + "   bis " + aZeSel[5])
_SELF:wYTemp := _SELF:wYTemp + nLineHeight

// Gesamtzeit
_SELF:txt_absolut(nTab1,_SELF:wYTemp,"Gesamt:")
_SELF:txt_absolut(nTab2,_SELF:wYTemp,aZeSel[6])
_SELF:wYTemp := _SELF:wYTemp + nLineHeight

// Linie
_SELF:wYTemp := _SELF:wYTemp + 20
_SELF:waehle_farbe( _self:_farbe_weiss() )
_SELF:waehle_farb_pinsel()
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:gdi_line( 0, _SELF:wYTemp, _SELF:seite_x_ausdehnung(), _SELF:wYTemp )
_SELF:wYTemp := _SELF:wYTemp + 20

RETURN
