Kaufmännische Software für Handel, Handwerk und Produktionsbetriebe
Zurück |
Status dieses Features und der Dokumentation ist vorläufig. Kurzfristige Änderungen sind möglich.
Nach jedem Druck bzw. jeder Dateiausgabe wird ein Printjob-Objekt mit allen relevanten Druckdaten erzeugt.
VBScript
sub UserLogPrintJobs(job)
' jeder Rechnungsdruck wird im Infofeld der Rechnung dokumentiert
dim sql
If job.ObjectClass = "Eulanda.Rechnung" and job.ObjectId > 0 Then
sql = "UPDATE Rechnung SET Info = ISNULL(CONVERT(varchar(7000),Info)+CHAR(13)+CHAR(10),'') + 'Gedruckt von " & job.Username & " am " & CSTr(date()) & "' WHERE id = " & CSTR(job.ObjectId)
Context.Client.ExecuteSql Sql
End If
end Sub
Damit die Prozedur nach dem Drucken angesteuert werden kann, muss die in der
Scripting-Bibliothek (Registry \SYSTEM\LIBS\user.userlib.ReportLog)
hinterlegt werden. Außerdem muss ebenfalls in der Registry unter
\MODULES\Grundwerte der Eintrag ReportAfterPrint mit dem Wert "LIBCALL:userlib.UserLogPrintJobs"
angelegt werden.