FUNCTION OutlineVtAnt(_self, nOPVtAbrRecno, cGesamt, nOK)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Buchungsprotokoll'
// -----------------------------------------
LOCAL cKdNr
LOCAL cGesellschaft
LOCAL cKunde
LOCAL cWaehrung
LOCAL cVertrag
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:_dbgoto("DBOPVtAbr",nOPVtAbrRecno)

// Kunde in Klartext
cKdNr := _self:_dbfieldget("DBOPVtAbr", "KDNR_G") + _self:_dbfieldget("DBOPVtAbr", "KDNR_U")
cKunde := cKdNr + " " + _self:pdfGetKdName( cKdNr )
cWaehrung := Left(_self:pdfGetWaehrungBezeich(_self:_dbfieldget("DBOPVtAbr", "WAEHRUNG")),1)
cVertrag := _self:_dbfieldget("DBOPVtAbr", "VSNR")
cGesellschaft := _self:pdf_VU2Text(_self:_dbfieldget("DBOPVtAbr", "VU"))
dErstellt := _SELF:pdf_dErstelltFromTan(_self:_dbfieldget("DBOPVtAbr", "TAN"))

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

// endlich Ausdruck
_SELF:txt_absolut(nTab1,_SELF:wYTemp,DToC( _self:_dbfieldget("DBOPVtAbr", "REDAT")))
_SELF:txt_absolut(nTab2,_SELF:wYTemp,DToC(dErstellt))
_SELF:txt_absolut(nTab3,_SELF:wYTemp,AllTrim(Str(_self:_dbfieldget("DBOPVtAbr", "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(),Trim(cVertrag))
_SELF:txt_bereich(nTab6,_SELF:wYTemp,nTab7,_SELF:wYTemp+35,_self:_txt_links(),Trim(cGesellschaft))
_SELF:txt_bereich(nTab7,_SELF:wYTemp,nTab8,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPVtAbr", "BRUTTO")))+" "+cWaehrung)
_SELF:txt_bereich(nTab8,_SELF:wYTemp,nTab9,_SELF:wYTemp+35,_self:_txt_rechts(),AllTrim(Str(_self:_dbfieldget("DBOPVtAbr", "COURTANT")))+" "+cWaehrung)
_SELF:txt_bereich(nTab10,_SELF:wYTemp,nTab11,_SELF:wYTemp+35,_self:_txt_links(),"Vt-Ant:"+_self:pdfGetVertrName2(_self:_dbfieldget("DBOPVtAbr", "VERTR")))
	
_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

RETURN
