LookupPrintCompany

Aufbau

LookupPrintCompany

Parameter

keine

Rückgabewert

Zeichenkette

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 das Unternehmen zurück, dem der aktuell im Vorgang ausgewählte und für diesen Druckauftrag relevante Vermögenswert gehört.

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 |