FUNCTION Outline(_self, nOPListeRecno, cGesamt, nOK)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Buchungsprotokoll'
// -----------------------------------------
LOCAL cKdNr 
LOCAL cVUName
LOCAL cKunde
LOCAL cBuGrund
LOCAL nBuGrund
LOCAL cVUBetTan
LOCAL cWaehrung
LOCAL nBuklasse
LOCAL dErstellt
LOCAL nTab1
LOCAL nTab2
LOCAL nTab3
LOCAL nTab4
LOCAL nTab5
LOCAL nTab6
LOCAL nTab7
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
nTab7 := nTab6 + 500
nTab8 := nTab7 + 250
nTab9 := nTab8 + 300
nTab10 := nTab9 + 30
nTab11 := _self:seite_x_ausdehnung()

_self:oDlg:TextUpDate("Gesamt-Anzahl der Eintrge: "+cGesamt + chr(13) + chr(10) + "Bisher erstellte Eintrge: " + alltrim(str(nOK)))

_self:_dbsetdeleted("DBOPVUBet", .t.)
_self:_dbsetorder("DBOPVUBet", 1)

_self:_dbgoto("DBOPListe", nOPListeRecno)

// Kunde in Klartext
cKdNr := _self:_dbfieldget("DBOPListe", "KDNR_G") + _self:_dbfieldget("DBOPListe", "KDNR_U")
cKunde := cKdNr + " " + _self:pdfGetKdName( cKdNr )
cWaehrung := Left(_self:pdfGetWaehrungBezeich(_self:_dbfieldget("DBOPListe", "WAEHRUNG")),1)
dErstellt := _self:_dbfieldget("DBOPListe", "ERSTELLT")

_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", 30, _self:_schrift_roman(), _self:_attr_normal() )

// Inkassobuchung mit VU-Beteiligung ------------------------------------------------
IF _self:_dbfieldget("DBOPListe", "VUBETEIL")
 cVUbetTan := _self:_dbfieldget("DBOPListe", "VUBETTAN")

 IF _self:__dbseek("DBOPVUBet", cVUBetTan)
  cBuGrund := " VU-Bet"
  DO WHILE _self:_dbfieldget("DBOPVUBet", "VUBETTAN") == cVUBetTan
				
   cVUName := _self:pdf_VU2Text(_self:_dbfieldget("DBOPVUBet", "VU"))

   // endlich Ausdruck
   _SELF:txt_absolut(nTab1,_SELF:wYTemp,DToC(_self:_dbfieldget("DBOPVUBet", "REDAT")))
   _SELF:txt_absolut(nTab2,_SELF:wYTemp,DToC(dErstellt))
   _SELF:txt_absolut(nTab3,_SELF:wYTemp,AllTrim(Str(_self:_dbfieldget("DBOPVUBet", "RENR"))))
   _SELF:txt_bereich(nTab4,_SELF:wYTemp,nTab5-10,_SELF:wYTemp+35,_self:_txt_links(),cKunde)
   _SELF:txt_bereich(nTab5,_SELF:wYTemp,nTab6-10,_SELF:wYTemp+35,_self:_txt_links(),_self:_dbfieldget("DBOPListe", "VSNR"))
   _SELF:txt_bereich(nTab6,_SELF:wYTemp,nTab7,_SELF:wYTemp+35,_self:_txt_links(),cVUName)
   _SELF:txt_bereich(nTab7,_SELF:wYTemp,nTab8,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPVUBet", "BRUTTODM")))+" "+cWaehrung)
   _SELF:txt_bereich(nTab8,_SELF:wYTemp,nTab9,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPVUBet", "COURTDM")))+" "+cWaehrung)
   _SELF:txt_bereich(nTab10,_SELF:wYTemp,nTab11,_SELF:wYTemp+35,_self:_txt_links(),AllTrim(_self:_dbfieldget("DBOPListe", "BUKLTXT"))+cBuGrund)
			
   _SELF:wYTemp := _SELF:wYTemp + 35
   // Umbruch ?
   IF _SELF:wYTemp > _SELF:seite_y_ausdehnung()
    _SELF:seite_neue_seite()
    _SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_querformat() )
    _SELF:seite_setze_raender( 75, 250, 75, 250 )
    _SELF:wYTemp := 0
    _SELF:nSeite := _SELF:nSeite + 1
    ExecuteScript(Kopfzeile, _self)	
    _SELF:waehle_farbe( _self:_farbe_schwarz() )
    _SELF:waehle_schrift( "ARIAL", 30, _self:_schrift_roman(), _self:_attr_normal() )
   ENDIF

   _self:_dbskip("DBOPVUBet")

  ENDDO

 ENDIF
	
// ohne VUBeteiligung ---------------------------------------------------------------
ELSE	
 cVUName := _self:pdf_VU2Text(_self:_dbfieldget("DBOPListe", "VU"))
 // BUGRUND nur bei provisinsbuchung auswerten
 nBuklasse := _self:_dbfieldget("DBOPListe", "BUKLASSE")
 IF nBuklasse == 3
  nBuGrund := _self:_dbfieldget("DBOPListe", "BUGRUND")
  IF nBugrund == 2
   cBuGrund := " AP"
  ELSEIF nBugrund == 3
   cBuGrund := " Boni"
  ELSEIF nBugrund == 4
   cBuGrund := " Sonst"			
  ELSEIF nBugrund == 5
   cBuGrund := " DynAP"			
  ELSEIF nBugrund == 6
   cBuGrund := " DynBoni"
  ELSE
   cBuGrund := ""			
  ENDIF
 ELSE
  cBuGrund := ""
 ENDIF

 // endlich Ausdruck
 _SELF:txt_absolut(nTab1,_SELF:wYTemp,DToC(_self:_dbfieldget("DBOPListe", "REDAT")))
 _SELF:txt_absolut(nTab2,_SELF:wYTemp,DToC(dErstellt))
 _SELF:txt_absolut(nTab3,_SELF:wYTemp,AllTrim(Str(_self:_dbfieldget("DBOPListe", "RENR"))))
 _SELF:txt_bereich(nTab4,_SELF:wYTemp,nTab5-10,_SELF:wYTemp+35,_self:_txt_links(),cKunde)
 _SELF:txt_bereich(nTab5,_SELF:wYTemp,nTab6-10,_SELF:wYTemp+35,_self:_txt_links(),_self:_dbfieldget("DBOPListe", "VSNR"))
 _SELF:txt_bereich(nTab6,_SELF:wYTemp,nTab7,_SELF:wYTemp+35,_self:_txt_links(),cVUName)

 IF nBuklasse != 3 .and. nBuklasse != 4	// keine Prmie bei Prov-Buchungen und Schadensbuchung
  _SELF:txt_bereich(nTab7,_SELF:wYTemp,nTab8,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPListe", "BRUTTO")))+" "+cWaehrung)
 ENDIF

 IF nBuklasse != 6	// keine Courtage bei RLaGeb
  _SELF:txt_bereich(nTab8,_SELF:wYTemp,nTab9,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPListe", "COURTAGE")))+" "+cWaehrung)
 ENDIF

 _SELF:txt_bereich(nTab10,_SELF:wYTemp,nTab11,_SELF:wYTemp+35,_self:_txt_links(),AllTrim(_self:_dbfieldget("DBOPListe", "BUKLTXT"))+cBuGrund)
	
 _SELF:wYTemp := _SELF:wYTemp + 35
 // Umbruch ?
 IF _SELF:wYTemp > _SELF:seite_y_ausdehnung()
  _SELF:seite_neue_seite()
  _SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_querformat() )
  _SELF:seite_setze_raender( 75, 250, 75, 250 )
  _SELF:wYTemp := 0
  _SELF:nSeite := _SELF:nSeite + 1
  ExecuteScript(Kopfzeile, _self)	
  _SELF:waehle_farbe( _self:_farbe_schwarz() )
  _SELF:waehle_schrift( "ARIAL", 30, _self:_schrift_roman(), _self:_attr_normal() )
 ENDIF

ENDIF
RETURN
