RechercherImprimerEntreprise

Structure

Paramètres

aucun

Valeur de retour

Chaîne

Description

Important : cette fonction n'est disponible que dans le cadre de l'action de déclenchement « Après la création du document », telle qu'elle est configurée dans le script d'événement. Cette fonction renvoie le nom de la société propriétaire de l'actif actuellement sélectionné dans l'événement et concerné par ce travail d'impression.

Exemple

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, "Page [Page] sur [Total]")

sFile3 = sNewFileName

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

sWhere = "WHERE EVENT_NUM = " & sMostRecentEvent

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

end if

Compatibilité des applications

Gestion de l'étalonnage IndySoft, Gestion des laboratoires commerciaux IndySoft, Gestion des outils IndySoft

Voir aussi

Aucun sujet connexe |