FUNCTION runscript(_self, _cScriptName)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'MakMahnProtokoll'
// -----------------------------------------
// benötigte Script's
global Kopfzeile := _cScriptName + "01.txt"

LOCAL nNummer
LOCAL cVon
LOCAL cBis
LOCAL cKdNr
LOCAL cWaehrung

cVon := DToS(_SELF:dVon)
IF Empty(_SELF:dBis)
 cBis := DToS(CToD("01.01.3000"))
ELSE
 cBis := DToS(_SELF:dBis)
ENDIF

_SELF:seite_neue_seite()
_SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_querformat() )
_SELF:seite_setze_raender( 250, 250, 250, 250 )
_SELF:wYTemp := 0

ExecuteScript(Kopfzeile, _self)	

_self:_dbsetdeleted("DBMKM", .t.)
_self:_dbsetorder("DBMKM", 3)
_self:__dbsoftseek("DBMKM", cVon)

IF ! _self:_dbeof("DBMKM")

 DO WHILE (! _self:_dbeof("DBMKM")) .and. (dToS(_self:_dbfieldget("DBMKM","MAKMAHNDAT")) <= cBis)

  cKdNr := _self:_dbfieldget("DBMKM","KDNR_G") + _self:_dbfieldget("DBMKM","KDNR_U")
  nNummer := _self:_dbfieldget("DBMKM","NUMMER")
			
  _self:_dbsetdeleted("DBMKMPos", .t.)
  _self:_dbsetorder("DBMKMPos", 1)

  IF _self:__dbseek("DBMKMPos", nNummer)

   DO WHILE _self:_dbfieldget("DBMKMPos","NUMMER") == nNummer

    // Umbruch ?
    IF _SELF:wYTemp + 100 > 1700
     // Umbruch
     _SELF:seite_neue_seite()
     _SELF:seite_waehle_papierformat( _self:_papier_A4(), _self:_format_querformat() )
     _SELF:seite_setze_raender( 250, 250, 250, 250 )
     _SELF:wYTemp := 0

     ExecuteScript(Kopfzeile, _self)	
    ENDIF

    // Währung
    cWaehrung := _self:pdfGetWaehrungBezeich(_self:_dbfieldget("DBMKMPos","WAEHRUNG"))

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

    _self:tab_initTab(0,_SELF:wYTemp,10,1)
    _self:tab_setze_spaltenbreite(1,150)
    _self:tab_setze_spaltenbreite(2,150)
    _self:tab_setze_spaltenbreite(3,620)
    _self:tab_setze_spaltenbreite(4,120)
    _self:tab_setze_spaltenbreite(5,150)
    _self:tab_setze_spaltenbreite(6,550)
    _self:tab_setze_spaltenbreite(7,450)
    _self:tab_setze_spaltenbreite(8,150)
    _self:tab_setze_spaltenbreite(9,150)
    _self:tab_setze_spaltenbreite(10,70)
    _self:tab_zeilenhoehe(90)
    _self:tab_rahmen(1,1,10,1,_self:_stift_durchgezogen(),_self:_stift_durchgezogen(),1,_self:_tab_umrandung())	
    _self:tab_setze_zelleEx(1,1,10,10,_self:_tcx_umbruch()+_self:_tcx_links(),DToC(_self:_dbfieldget("DBMKMPos","MAKMAHNDAT")))
    _self:tab_setze_zelleEx(2,1,10,10,_self:_tcx_umbruch()+_self:_tcx_rechts(),AllTrim(Str(_self:_dbfieldget("DBMKMPos","NUMMER"))))
    _self:tab_setze_zelleEx(3,1,10,10,_self:_tcx_umbruch()+_self:_tcx_links(),cKdNr+_self:pdf_crlf()+_self:pdfGetKdName2(cKdNr))
    _self:tab_setze_zelleEx(4,1,10,10,_self:_tcx_umbruch()+_self:_tcx_rechts(),AllTrim(Str(_self:_dbfieldget("DBMKMPos","RENR"))))
    _self:tab_setze_zelleEx(5,1,10,10,_self:_tcx_umbruch()+_self:_tcx_links(),DToC(_self:_dbfieldget("DBMKMPos","REDAT")))
    _self:tab_setze_zelleEx(6,1,10,10,_self:_tcx_umbruch()+_self:_tcx_links(),_self:_dbfieldget("DBMKMPos","VSNR")+_self:pdf_crlf()+_self:pdf_Art2Text2(_self:_dbfieldget("DBMKMPos","ART")))
    _self:tab_setze_zelleEx(7,1,10,10,_self:_tcx_umbruch()+_self:_tcx_links(),_self:pdf_VU2Text(_self:_dbfieldget("DBMKMPos","VU")))
    _self:tab_setze_zelleEx(8,1,10,10,_self:_tcx_umbruch()+_self:_tcx_rechts(),AllTrim(Str(_self:_dbfieldget("DBMKMPos","BRUTTO"),10,2))+_self:pdf_crlf()+cWaehrung)
    _self:tab_setze_zelleEx(9,1,10,10,_self:_tcx_umbruch()+_self:_tcx_rechts(),AllTrim(Str(_self:_dbfieldget("DBMKMPos","OFFEN"),10,2))+_self:pdf_crlf()+cWaehrung)
    _self:tab_setze_zelleEx(10,1,10,10,_self:_tcx_umbruch()+_self:_tcx_hzentriert(),AllTrim(Str(_self:_dbfieldget("DBMKMPos","MAKMAHNSTA"))))

    _SELF:wYTemp := _SELF:wYTemp + 90

    _self:_dbskip("DBMKMPos")

   ENDDO
  ENDIF

  _self:_dbskip("DBMKM")

 ENDDO
ENDIF

RETURN
