Options
  • State Verified Answer
  • Replies 2 replies
  • Subscribers 7 subscribers
  • Views 524 views
  • Users 0 members are here
Related

Script Execution Failed

Umesh Pandey

Hi there,

I hope everyone had a good Xmas and New Year!

There is a script below added in a workflow. This script has been working without error until last upgrade was happened. It started throwing the error when trying the last step of the workflow (Publish to PDF) and we’re unsure why as nothing has been changed. Below are the error message and WF Script. Can you please assist?

Not Found

<MetadataEditor>, -, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
ScriptErrorHelper.cpp, 96, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MDispatchExImpl.h, 679, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MDispatchExImpl.h, 841, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataCardAction.cpp, 386, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataCardAction.cpp, 560, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataEditor.cpp, 2956, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataModel.cpp, 4488, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataModel.cpp, 4939, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
ElectronicSignatureUIHelper.cpp, 239, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MetadataModel.cpp, 12646, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
CoVaultMountingDocumentOperations.cpp, 3296, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
CoVaultMountingDocumentOperations.cpp, 3384, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
DocumentCache.cpp, 11824, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
DocumentCache.cpp, 11935, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
DocumentCache.cpp, 20364, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
IRPCObjectOperations.generated.cpp, 12120, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
gRPCClient.cpp, 497, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
gRPCClient.cpp, 466, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
gRPCClient.cpp, 99, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
gRPC.generated.cpp, 19358, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperations.cpp, 7173, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
MCallInLoop.h, 530, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelper.cpp, 4297, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelper.cpp, 3855, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelper.cpp, 9642, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelper.cpp, 10363, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelper.cpp, 25667, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelperPrivate.cpp, 2967, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelperPrivate.cpp, 3184, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelperPrivate.cpp, 3612, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
RPCDocumentOperationsHelperPrivate.cpp, 4487, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
VaultScriptSessionTemplates.cpp, 276, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
VaultScriptSessionTemplates.cpp, 341, Script execution failed. ((HSEQ Approved Document, StateAction: 470344-11)) (0x800408BB)
VaultScriptSessionTemplates.cpp, 341, Not found. (0x8004000B)
VaultScriptSessionTemplates.cpp, 523, Not found. (0x8004000B)
CoActiveScriptSite.cpp, 897, Not found. (0x8004000B)
CoActiveScriptSite.cpp, 739, Not found. (0x8004000B)
HSEQ Approved Document, StateAction, 33, Not found. (0x8004000B)
MNullPropagatingDispatchImpl.h, 127, Not found. (0x8004000B)
MNullPropagatingDispatchImpl.h, 174, Not found. (0x8004000B)
CoPropertyValues.cpp, 394, Not found. (0x8004000B)
(M-Files 23.12.13247.4 2024-01-10T04:02:11.395Z)

'Purpose: Download HSEQ WIP document and recreate as a HSEQ Published document.
'	   

Option Explicit


	'Temp variables
	Const TEMP_PATH = "C:\Windows\Temp\ICC_M-Files\"
	Const ALLOWED_EXTENSIONS = "docx doc xls xlsx pptx ppt txt png jpg"

	'Get properties from HSEQ WIP document ready to copy to HSEQ Document
	Dim oPV_Name			: Set oPV_Name = PropertyValues.SearchForProperty(MFBuiltInPropertyDefNameOrTitle)
 	Dim oPV_HSEQCategory	: Set oPV_HSEQCategory = PropertyValues.SearchForPropertyByAlias(vault, "PD.HSEQCategory", False)
	Dim oPV_Subcategory		: Set oPV_Subcategory = PropertyValues.SearchForPropertyByAlias(vault, "PD.Subcategory", False)
	Dim oPV_DocumentDate	: Set oPV_DocumentDate = PropertyValues.SearchForPropertyByAlias(vault, "PD.DocumentDate", False)	
	Dim oPV_DescriptionNotes : Set oPV_DescriptionNotes = PropertyValues.SearchForPropertyByAlias(vault, "PD.DescriptionNotes", False)	


'  Due to changes - remove checked by and prepared by
 '	Dim oPV_PreparedBy	: Set oPV_PreparedBy = PropertyValues.SearchForPropertyByAlias(vault, "PD.PreparedBy", False)
'  	Dim oPV_CheckedBy	: Set oPV_CheckedBy = PropertyValues.SearchForPropertyByAlias(vault, "PD.CheckedBy", False)

	Dim oPV_Accountable	: Set oPV_Accountable = PropertyValues.SearchForPropertyByAlias(vault, "PD.Accountable", False)
 	Dim oPV_Responsible	: Set oPV_Responsible = PropertyValues.SearchForPropertyByAlias(vault, "PD.Responsible", False)
 	Dim oPV_FormattedBy	: Set oPV_FormattedBy = PropertyValues.SearchForPropertyByAlias(vault, "PD.FormattedBy", False)

 	Dim oPV_HSEQSubCategory	: Set oPV_HSEQSubCategory = PropertyValues.SearchForPropertyByAlias(vault, "PD.HSEQSubCategory", False)


 	Dim oPV_ApproveHSEQ	: Set oPV_ApproveHSEQ = PropertyValues.SearchForPropertyByAlias(vault, "PD.ApproveHSEQ", False)


 	Dim oPV_HSEQNo	: Set oPV_HSEQNo = PropertyValues.SearchForPropertyByAlias(vault, "PD.HSEQNo", False)

	Dim iPD_PublishedHSEQDoc : iPD_PublishedHSEQDoc = iGetIDFromAlias("PD.PublishedHSEQDoc")

	'Setup Properties for new HSEQ Document

	Dim iCLS_TargetClass : iCLS_TargetClass = Vault.ClassOperations.GetObjectClassIDByAlias("CLS.HSEQ")
	Dim iWF_TargetWF : iWF_TargetWF = Vault.WorkflowOperations.GetWorkflowIDByAlias("WF.HseqWorkflow")
	Dim iWFS_TargetWFS : iWFS_TargetWFS = Vault.WorkflowOperations.GetWorkflowStateIDByAlias("WFS.HseqWorkflow.PrepareToPublish")

	Dim oPV_TargetClass, oPV_TargetWF, oPV_TargetWFS
	Set oPV_TargetClass = PropertyValues.SearchForProperty(100)
	Set oPV_TargetWF = PropertyValues.SearchForProperty(38)
	Set oPV_TargetWFS = PropertyValues.SearchForProperty(39)

	Call oPV_TargetClass.TypedValue.SetValue(9, iCLS_TargetClass)
	Call oPV_TargetWF.TypedValue.SetValue(9, iWF_TargetWF)
	Call oPV_TargetWFS.TypedValue.SetValue(9, iWFS_TargetWFS)

	Dim strTempFileFullPath
	strTempFileFullPath = strDownlowdedFilePath(ObjVer.ObjID.ID, ALLOWED_EXTENSIONS)

	'Setup PropertyValues for new document

	Dim oPVs_NewDoc : Set oPVs_NewDoc = CreateObject("MFilesAPI.PropertyValues")


	Call oPVs_NewDoc.Add(-1, oPV_TargetClass)
	Call oPVs_NewDoc.Add(-1, oPV_TargetWF)
	Call oPVs_NewDoc.Add(-1, oPV_TargetWFS)

	Call oPVs_NewDoc.Add(-1, oPV_Name)

	Call oPVs_NewDoc.Add(-1, oPV_HSEQCategory)
	Call oPVs_NewDoc.Add(-1, oPV_Subcategory)

	Call oPVs_NewDoc.Add(-1, oPV_DocumentDate)
	Call oPVs_NewDoc.Add(-1, oPV_DescriptionNotes)

	Call oPVs_NewDoc.Add(-1, oPV_Accountable)
	Call oPVs_NewDoc.Add(-1, oPV_Responsible)
	Call oPVs_NewDoc.Add(-1, oPV_FormattedBy)

	Call oPVs_NewDoc.Add(-1, oPV_HSEQSubCategory)


	Call oPVs_NewDoc.Add(-1, oPV_ApproveHSEQ)
	Call oPVs_NewDoc.Add(-1, oPV_HSEQNo)


	'Add Published HSEQ Doc property if missing or empty
	Dim oNewVerObjAndProps

	Dim oPV_PublishedHSEQDoc : Set oPV_PublishedHSEQDoc = CreateObject("MFilesAPI.PropertyValue")
	If PropertyValues.IndexOf(iPD_PublishedHSEQDoc) <> - 1 then 'if not missing
		
		If PropertyValues.SearchForProperty(iPD_PublishedHSEQDoc).TypedValue.IsNull OR Instr(PropertyValues.SearchForProperty(iPD_PublishedHSEQDoc).TypedValue.DisplayValue, "deleted") > 0 then 'if empty or Null or Deleted

			'Create new Published Document
			Set oNewVerObjAndProps = Vault.ObjectOperations.CreateNewSFDObject(MFBuiltInObjectTypeDocument, oPVs_NewDoc, oSourceFile_FromPath(strTempFileFullPath), False, Nothing)
			Call Vault.ObjectOperations.CheckIn(oNewVerObjAndProps.ObjVer)
	
			'Setup link to Published HSEQ Document and Add
			oPV_PublishedHSEQDoc.PropertyDef = iPD_PublishedHSEQDoc
			Call oPV_PublishedHSEQDoc.TypedValue.SetValue(9, oNewVerObjAndProps.ObjVer.ID) 
			Call Vault.ObjectPropertyOperations.SetProperty(ObjVer, oPV_PublishedHSEQDoc)

		Else 'If link to Published Document exists then update it

			Dim oLU_PubHSEQDoc
			Set oLU_PubHSEQDoc = PropertyValues.SearchForProperty(iPD_PublishedHSEQDoc).TypedValue.GetValueAsLookup

			Dim oObjID_PubHSEQDoc : Set oObjID_PubHSEQDoc = CReateObject("MFilesAPI.ObjID")
			Call oObjID_PubHSEQDoc.SetIDs(oLU_PubHSEQDoc.ObjectType, oLU_PubHSEQDoc.Item)
			
			Dim oObjectVersion_PubHSEQDoc 
			Set oObjectVersion_PubHSEQDoc = Vault.ObjectOperations.GetLatestObjectVersionAndProperties(oObjID_PubHSEQDoc, False, False).VersionData

			Call UpdateExistingDocument(oObjectVersion_PubHSEQDoc, strTempFileFullPath, oPVs_NewDoc)


		End If

	Else 'If missing then add.


		'Create new Published Document

'Call oSourceFile_FromPath(strTempFileFullPath)


		Set oNewVerObjAndProps = Vault.ObjectOperations.CreateNewSFDObject(MFBuiltInObjectTypeDocument, oPVs_NewDoc, oSourceFile_FromPath(strTempFileFullPath), False, Nothing)
		Call Vault.ObjectOperations.CheckIn(oNewVerObjAndProps.ObjVer)

		oPV_PublishedHSEQDoc.PropertyDef = iPD_PublishedHSEQDoc
		Call oPV_PublishedHSEQDoc.TypedValue.SetValue(9, oNewVerObjAndProps.ObjVer.ID) 

		Call Vault.ObjectPropertyOperations.SetProperty(ObjVer, oPV_PublishedHSEQDoc)

	End If

	Call DeleteFileInPath(strTempFileFullPath)

			

'===================================================================================


Sub DeleteFileInPath(strFilePath)
'Where strFilePath is the full path including filename and extension.

	Dim oFSO  ' Windows file system object
	Set oFSO = CreateObject("Scripting.FileSystemObject")

	Call oFSO.DeleteFile(strFilePath)

End Sub



'Get oSourceFile from full path to file.
Function oSourceFile_FromPath(strFullPath)

	Dim oFSO  ' Windows file system object
	Set oFSO = CreateObject("Scripting.FileSystemObject")

	If oFSO.FileExists(strFullPath) Then

	Dim strFullTitleWithExt, strTitle, strExt, strPath, arrPaths

	arrPaths = Split(strFullPath, "\")

	strFullTitleWithExt = arrPaths(UBound(arrPaths))

    'Strip of file extension allowing form more than one '.'
	strTitle = Left(strFullPath,InStrRev(strFullPath,".")-1)

	strPath = Replace(strFullPath, "\" & strFullTitleWithExt, "")

	strExt = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath,"."))


	Dim oSourceFile
	Set oSourceFile = CreateObject("MFilesAPI.SourceObjectFile")
	oSourceFile.Title = strTitle
	oSourceFile.Extension = strExt
	oSourceFile.SourceFilePath = strFullPath

	Set oSourceFile_FromPath = oSourceFile
	
	Else
		Die("Warning: Subject file missing on server [" & strFullPath & "]")	
	End If  ' If Temp file creation succeeded

End Function


'Get the ID of the Alias
Function iGetIDFromAlias(strAlias)
 
	strAlias = Trim(strAlias)

	If IsNumeric(strAlias) then 
	
		iGetIDFromAlias = Clng(strAlias)

	Else

		IF Instr(strAlias, "PD.") > 0 OR Instr(strAlias, "PD_") then iGetIDFromAlias = vault.PropertyDefOperations.GetPropertyDefIDByAlias(strAlias)
		IF Instr(strAlias, "OT.") > 0 OR Instr(strAlias, "OT_") > 0 then iGetIDFromAlias = vault.ObjectTypeOperations.GetObjectTypeIDByAlias(strAlias)
		IF Instr(strAlias, "CLS.") > 0 OR Instr(strAlias, "CLS_") then iGetIDFromAlias = vault.ClassOperations.GetObjectClassIDByAlias(strAlias)
		IF Instr(strAlias, "WF.") > 0 OR Instr(strAlias, "WF_") then iGetIDFromAlias = vault.WorkflowOperations.GetWorkflowIDByAlias(strAlias)
		IF Instr(strAlias, "WFS.") > 0 OR Instr(strAlias, "WFS_") then iGetIDFromAlias = vault.WorkflowOperations.GetWorkflowStateIDByAlias(strAlias)
		IF Instr(strAlias, "GRP.") > 0 OR Instr(strAlias, "GRP_") > 0 then iGetIDFromAlias = vault.UserGroupOperations.GetUserGroupIDByAlias(strAlias)
		IF Instr(strAlias, "NACL.") > 0 OR Instr(strAlias, "NACL_") > 0 then iGetIDFromAlias = vault.NamedACLOperations.GetNamedACLIDByAlias(strAlias)

		if iGetIDFromAlias = -1 or iGetIDFromAlias = 0 then Die("Could not obtain ID from Alias. [" & strAlias & "]")

	End If

End Function

Function Die(strMessage)
	err.raise mfscriptcancel, strMessage
End Function

Sub SetLastModUser()
	' Set last modified by with TypedValue
	Dim oLastModifiedBy : Set oLastModifiedBy = CreateObject("MFilesAPI.TypedValue")
	oLastModifiedBy.SetValue MFDatatypeLookup, CurrentUserID
	Call Vault.ObjectPropertyOperations.SetLastModificationInfoAdmin(ObjVer, True, oLastModifiedBy, False, Nothing)
End Sub


' Returns the PropertyValue object of a key property of a related object 
Function oGetPropValOFPropOfRelatedObject(iOT_REL_OBJECT, iPD_REL_OBJECT, iPD_KEY_PROP) 
    
	Dim oPropVals: Set oPropVals = Vault.ObjectPropertyOperations.GetProperties(ObjVer)

	' Find ID of Related Object	
	Dim oRelObjTypedValue : oRelObjTypedValue = oPropVals.SearchForProperty( iPD_REL_OBJECT ).TypedValue.Value
	Dim iRelObj : iRelObj = oRelObjTypedValue(0,0)

	'Set ObjID of Related Object
	Dim oRelObjID : Set oRelObjID = CreateObject("MFilesAPI.ObjID")
	Call oRelObjID.SetIDs(iOT_REL_OBJECT, iRelObj)

	'Get latest ObjVer for RelObj
	Dim oRelObjVer : Set oRelObjVer = Vault.ObjectOperations.GetLatestObjVer(oRelObjID, False, False)

	'Get KEY PROP from Related Object
	Dim oPropValsRel : Set oPropValsRel = Vault.ObjectPropertyOperations.GetProperties(oRelObjVer, iPD_KEY_PROP)
	
	'Prep PropValue Object
	Dim oPropValFn
    If oPropValsRel.IndexOf(iPD_KEY_PROP) = -1 then ' Check if property associated to object

		Set oPropValFn = CreateObject("MFilesAPI.PropertyValue")
		Call oPropValFn.TypedValue.SetValue(MFDataTypeText, "") ' Set empty property to return

	Else
       
		Set oPropValFn = oPropValsRel.Item(oPropValsRel.IndexOf(iPD_KEY_PROP)) ' Return PropertyValue
		
	End IF
	
	Set oGetPropValOFPropOfRelatedObject = oPropValFn

End Function

'Download a single file with allowed extension and return full path
Function strDownlowdedFilePath(iID_Document, strAllowedExtensions)

'PreReqs TEMP_PATH should be set somewhere in "c:\windows\temp\"
'        AllowedExtensions added with space between if more than one.

	'Create ObjVer for TargetDocID
	Dim oObjID_TargetDoc : Set oObjID_TargetDoc = CreateObject("MFilesAPI.ObjID")
	Call oObjID_TargetDoc.SetIDs(MFBuiltInObjectTypeDocument, iID_Document)

		Dim oObjVer_TargetDoc
		Set oObjVer_TargetDoc = Vault.ObjectOperations.GetLatestObjVer(oObjID_TargetDoc, True, False)

	' Get the object files
	Dim oObjectFiles_TargetDoc
	Set oObjectFiles_TargetDoc = Vault.ObjectFileOperations.GetFiles(oObjVer_TargetDoc)

	If oObjectFiles_TargetDoc.Count <> 1 then Die("Warning: Only a single file of the follwing types are allowed...[" & strAllowedExtensions & "]")

	'Die(TEMP_PATH)

	'If Instr(lcase(TEMP_PATH), "c:\windows\temp\") = 0 then Die("Warning: A TEMP_PATH under c:\windows\temp\ is required to be set...")

	Dim oFile

	For Each oFile in oObjectFiles_TargetDoc 

		'File extension test
		If Instr(strAllowedExtensions, lcase(oFile.extension)) > 0 then

			Dim oFSO  ' Windows file system object
			Set oFSO = CreateObject("Scripting.FileSystemObject")
			
			' Try to create a temp folder
			On Error Resume Next
			oFSO.CreateFolder(TEMP_PATH)

			On Error Goto 0   

			Dim szDownloadLocation ' PDF-file will be downloaded to temp path		
			szDownloadLocation = TEMP_PATH & oObjVer_TargetDoc.ID & "_" & oFile.ID & "_" & oFile.Version & "." & oFile.extension

			' Download file to temp location
			Vault.ObjectFileOperations.DownloadFile oFile.ID, oFile.Version, szDownloadLocation

		Else

			Die("Warning: Only a single file of the follwing types are allowed...[" & strAllowedExtensions & "]")

		End If 'File Extension Test

	Next

	If szDownloadLocation <> "" then strDownlowdedFilePath = szDownloadLocation

End Function


'Update file with specified ObjectVersion and full path of file
Sub UpdateExistingDocument(ooObjectVersion, strFileInDownLoadPath, oPVs_ForUpdate)

	'iTargetWFS should be 0 for no change or the WFS ID Number
	Dim strExt

	If Left(Right(strFileInDownLoadPath, 4),1) = "." OR Left(Right(strFileInDownLoadPath, 5),1) = "." then
		If Left(Right(strFileInDownLoadPath, 4),1) = "." then strExt = Right(strFileInDownLoadPath, 3)
		If Left(Right(strFileInDownLoadPath, 5), 1) = "." then strExt = Right(strFileInDownLoadPath, 4)
	Else 

		err.raise mfscriptcancel, "File extension could not be determined from path..." & strFileInDownLoadPath

	End If


	Dim ooCheckedOutObjectVersion
	Set ooCheckedOutObjectVersion = Vault.ObjectOperations.Checkout(ooObjectVersion.ObjVer.ObjID)

	' Determine the target file to be uploaded.
	Dim oCheckedOutFiles
	Dim oCheckedOutFile
	Set oCheckedOutFiles = Vault.ObjectFileOperations.GetFiles(ooCheckedOutObjectVersion.ObjVer)
	Set oCheckedOutFile = oCheckedOutFiles.Item(1)


	' Upload the file.
	Call Vault.ObjectFileOperations.UploadFile(oCheckedOutFile.ID, oCheckedOutFile.FileVer.Version, strFileInDownLoadPath)



	Call Vault.ObjectFileOperations.RenameFile(ooCheckedOutObjectVersion.ObjVer, oCheckedOutFile.FileVer, ooCheckedOutObjectVersion.Title, strExt, True)

	'If PVs are available then update
	If NOT IsNUll(oPVs_ForUpdate) then
		If oPVs_ForUpdate.Count > 0 then
	
			'Remove Class PV if present
			If oPVs_ForUpdate.IndexOf(100) <> -1 then oPVs_ForUpdate.Remove(oPVs_ForUpdate.IndexOf(100))

			Call Vault.ObjectPropertyOperations.SetProperties(ooCheckedOutObjectVersion.ObjVer, oPVs_ForUpdate)
	
		End If
	End If


	' Finalize with check-in.
	Call Vault.ObjectOperations.CheckIn(ooCheckedOutObjectVersion.ObjVer)
 
End Sub
'=========================

Thank you





              

© M-Files Corporation 2024 | Privacy Policy