ShowErrorLog()

ShowErrorLog() – Fehler-Log anzeigen

Diese Funktion zeigt ein Fehler-Log an, welches selbst zusammengestellt werden kann.

Parameter	Beschreibung
cErrorText:C	Gibt den Text an der als Beschreibung für den ErrorLog oben in einem Panel angezeigt wird
cErrorList:C	Stringliste der Fehler (Neue Zeile = neuer Fehler)
nErrorSourceType:N	Art der Darstellung des ErrorLogs; default = 0 0 = Fehlerliste anzeigen 1 = DataSet anzeigen
oErrorDataSet:O	Das DataSet das angezeigt werden soll, wenn nErrorSourceType = 1
cErrorBrowserID:C	Die Browser-ID die für die anzeige des DataSet verwendet wird
cErrorCaption:C	Gibt die Caption des Fensters an

Rückgabewert

Keiner

Beispiel

CODE

//#############################################################################
// @ErrorLog Browser ist im Anhang von der Dokumentation (ID:38836)
//#############################################################################

| oMemTbl, cErrorLog |

function AddError(oMemTbl, nFehlerCode, cFehlerText)
   oMemTbl.CbAppend(),
   oMemTbl:FehlerCode := nFehlerCode,
   oMemTbl:FehlerText := cFehlerText,
   oMemTbl.CbPost(),
end,

// Zeigt eine Fehlermeldung anhand eines String-Liste an
ShowErrorLog('Meldung als String-Liste', 'FehlerCode: 404          Seite nicht gefunden'       + crlf +
                                         'FehlerCode: 1337         Test war nicht erfolgreich' + crlf +
                                         'FehlerCode: 502          Bad Gateway'),

cErrorLog := '',
// Zeigt eine Fehlermeldung anhand einer Tabelle an
oMemTbl   := CreateObject('TBeMemTable'),
StartSeq
   oMemTbl.CbAddField('FehlerCode', ftInteger, 0),
   oMemTbl.CbAddField('FehlerText', ftMemo, 0),
   oMemTbl.Active := True,

   AddError(oMemTbl, 404,  'Seite nicht gefunden'),
   AddError(oMemTbl, 1337, 'Test war nicht erfolgreich'),
   AddError(oMemTbl, 502,  'Bad Gateway'),

   ShowErrorLog('Meldungs als Tabelle', '', 1, oMemTbl, '', 'Test-Log'),
always
   DestroyObject(oMemTbl),
stopseq,