Ereignisnummer abrufen und drucken

Aufbau

Parameter

keine

Rückgabewert

Ganzzahl

Beschreibung

Wichtig: Diese Funktion kann nur während der Trigger-Aktion „Nach der Dokumenterstellung“ verwendet werden, wie sie im Ereignisskript eingerichtet ist. Diese Funktion gibt die Ereignis-ID des Ereignisses zurück, durch das dieser Druckauftrag erstellt wurde.

Beispiel

sMostRecentEvent = IntToStr(LookupPrintEventNum)

if sMostRecentEvent <> "" then

sCompany = LookupPrintCompany

sCertName = ReturnFromSQL("SELECT CERT_FILE_NAME FROM CERTS WHERE EVENT_NUM = " & sMostRecentEvent)

sDocName = ReturnFromSQL("SELECT FILE_NAME FROM EVENTDOCS WHERE EVENT_NUM = " & sMostRecentEvent)

sFile1 = GetIndySoftTempDir & sCertName

sFile2 = GetIndySoftTempDir & sDocName

sFileName1= ReturnBlobTofile("SELECT CERT_RTF FROM CERTS WHERE EVENT_NUM = " & sMostRecentEvent, sFile1)

sFileName2= ReturnBlobToFile("SELECT DOC_BLOB FROM EVENTDOCS WHERE EVENT_NUM = " & sMostRecentEvent, sFile2)

sCertName = Left(sCertName, Len(sCertName) - 4)

sDocName = Left(sDocName, Len(sDocName) - 4)

sNewFileName = GetIndySoftTempDir & sCertName & sDocName & ".pdf"

AppendPDFFilesRepaginate(sFile1, sFile2, sNewFileName, "Seite [Seite] von [Gesamt]")

sFile3 = sNewFileName

' sWhere = "WHERE EVENT_NUM = " & sMostRecentEvent & " AND COMPANY = '" & sCompany & "'"

sWhere = "WHERE EVENT_NUM = " & sMostRecentEvent

UpdateBlobWithFile("CERTS", "CERT_RTF", sWhere, sFile3)

end if

Anwendungskompatibilität

IndySoft Kalibrierungsmanagement, IndySoft Laborverwaltung für gewerbliche Einrichtungen, IndySoft Werkzeugverwaltung

Siehe auch

Keine verwandten Themen |