Hello everyone,
I've been struggling with a strange error coming up while i'm doing some vbscript on Workflows.
When I use Err.raise MFScriptCancel, "blabla" it generates an error message : "Object Required"
Can somebody help me with that ?
Thank you in advance
'
' Check on document creation that a document with the same Document ID does not exist
'
' Get the properties of the object
Const DOCUMENT_OBJECTTYPE = 0 ' Document Object Type
Const SUPPLIER_PROPERTY = 1042 ' Supplier Property
Const CONFIRMED_ORDER_NUMBER_PROPERTY = 1302 'Confirmed order number property
Const CONFIRMED_ORDER_CLASS_NUMBER = 29 'Confirmed order class number
Const CLASS_PROPERTY = 100 'Class Property
CONST PROJECT_PROPERTY = 1320 ' Project Property
CONST PROJECT_A3_PROPERTY = 1075 'A3 Project Property
CONST PROJECT_A3_BOOLEAN_PROPERTY = 1373 ' Projet A3 boolean
CONST CONFIRMED_ORDER_DATE_PROPERTY = 1231 'Confirmed order Date property
CONST CONFIRMED_ORDER_SUBJECT_PROPERTY = 1304 ' Confirmed order subject property
Dim PropertyValues : Set PropertyValues = Vault.ObjectPropertyOperations.GetProperties( ObjVer, True )
'If the object is a document and belongs to the "Confirmation de commande" class
if( ObjVer.Type = DOCUMENT_OBJECTTYPE) and (PropertyValues.SearchForProperty(CLASS_PROPERTY).TypedValue.DisplayValue = "Confirmation de commande") then
err.raise mfscriptcancel, "yourmessage here"
'Get current property
Dim Supplier : Supplier = PropertyValues.SearchForProperty(SUPPLIER_PROPERTY).TypedValue.DisplayValue
Dim confirmedOrderNumber : confirmedOrderNumber = PropertyValues.SearchForProperty(CONFIRMED_ORDER_NUMBER_PROPERTY).TypedValue.DisplayValue
Dim projectValue : projectValue = PropertyValues.SearchForProperty(PROJECT_PROPERTY).TypedValue.DisplayValue
'Get the A3 Project instead if it's mentioned
Dim isProjectA3 : isProjectA3 = PropertyValues.SearchForProperty(PROJECT_A3_BOOLEAN_PROPERTY).TypedValue.Value
if (isProjectA3 = TRUE) then
projectValue = PropertyValues.SearchForProperty(PROJECT_A3_PROPERTY).TypedValue.DisplayValue
End if
Dim confirmedOrderDateValue : confirmedOrderDateValue = PropertyValues.SearchForProperty(CONFIRMED_ORDER_DATE_PROPERTY).TypedValue.DisplayValue
Dim confirmedOrderSubjectValue : confirmedOrderSubjectValue = PropertyValues.SearchForProperty(CONFIRMED_ORDER_SUBJECT_PROPERTY).TypedValue.DisplayValue
'Create a reusable search condition to create Conditions to add to a Condition set
'Purpose is to search for documents with same suppliers and invoice numbers to get duplicatas
Dim Condition : Set Condition = CreateObject("MFilesAPI.SearchCondition")
'Create a search conditions set
Dim ConditionSet : Set ConditionSet = CreateObject("MFilesAPI.SearchConditions")
'Create condition : Non deleted objects
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataStatusValueType = MFStatusTypeDeleted
Condition.TypedValue.SetValue MFDatatypeBoolean, False
ConditionSet.Add -1, Condition
'Create condition : Documents only
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataStatusValueType = MFStatusTypeObjectTypeID
Condition.TypedValue.SetValue MFDatatypeLookup, DOCUMENT_OBJECTTYPE
ConditionSet.Add -1, Condition
'Create condition : Confirmed order only
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = CLASS_PROPERTY
Condition.TypedValue.SetValue MFDatatypeLookup, CONFIRMED_ORDER_CLASS_NUMBER
ConditionSet.Add -1, Condition
'Get the SUPPLIER_PROPERTY of the object.
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = SUPPLIER_PROPERTY
Condition.TypedValue.SetValue 1, Supplier
ConditionSet.Add -1, Condition
'Get the PROJECT of the object.
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = PROJECT_PROPERTY
Condition.TypedValue.SetValue 1, projectValue ' 1 = MFDatatypeText
ConditionSet.Add -1, Condition
' Get the Confirmed Order Number of the object
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = CONFIRMED_ORDER_NUMBER_PROPERTY
Condition.TypedValue.SetValue 1, confirmedOrderNumber ' 1 = MFDatatypeText
ConditionSet.Add -1, Condition
' Get the Confirmed Order Date of the object
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = CONFIRMED_ORDER_DATE_PROPERTY
Condition.TypedValue.SetValue 5, confirmedOrderDateValue
ConditionSet.Add -1, Condition
' Get the Confirmed Order Subject of the object
Condition.ConditionType = MFConditionTypeEqual
Condition.Expression.DataPropertyValuePropertyDef = CONFIRMED_ORDER_SUBJECT_PROPERTY
Condition.TypedValue.SetValue 1, confirmedOrderSubjectValue ' 1 = MFDatatypeText
ConditionSet.Add -1, Condition
'Let out void offers
Condition.ConditionType = MFConditionTypeNotEqual
Condition.Expression.DataPropertyValuePropertyDef = CONFIRMED_ORDER_NUMBER_PROPERTY
Condition.TypedValue.SetValue 1, ""
ConditionSet.Add -1, Condition
Dim oResults 'As ObjectSearchResults
Set oResults = Vault.ObjectSearchOperations.SearchForObjectsByConditions(ConditionSet, MFSearchFlagNone, False) 'False = SortResults
Dim doublonPropValue
If oResults.Count > 0 Then
Dim i : Dim oRes 'As MFilesAPI.ObjectVersion
dim err : err = false
For i=1 To oResults.Count
Set oRes = oResults.Item(i)
If oRes.ObjVer.ID<>ObjVer.ID Then
err = true
End If
Next
If err = true Then
Set doublonPropValue = CreateObject("MFilesAPI.PropertyValue")
doublonPropValue.propertyDef = 1162
doublonPropValue.TypedValue.SetValue MFDataTypeBoolean, true
Vault.ObjectPropertyOperations.SetProperty ObjVer, doublonPropValue
Else
Set doublonPropValue = CreateObject("MFilesAPI.PropertyValue")
doublonPropValue.propertyDef = 1162
doublonPropValue.TypedValue.SetValue MFDataTypeBoolean, false
Vault.ObjectPropertyOperations.SetProperty ObjVer, doublonPropValue
End if
End if
End if
CoScriptObjectFactory.cpp, 465, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) ScriptErrorHelper.cpp, 96, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MDispatchExImpl.h, 694, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MDispatchExImpl.h, 994, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataCardAction.cpp, 386, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataCardAction.cpp, 570, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataEditor.cpp, 2967, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataModel.cpp, 4262, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataModel.cpp, 4699, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) ElectronicSignatureUIHelper.cpp, 235, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MetadataModel.cpp, 12187, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) CoVaultMountingDocumentOperations.cpp, 3140, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) DocumentCache.cpp, 11174, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) DocumentCache.cpp, 11283, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) DocumentCache.cpp, 19436, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCMethodCallWithRetry.h, 35, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCMethodCallWithRetry.h, 35, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperations.cpp, 12536, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperations.cpp, 7383, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) MCallInLoop.h, 711, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelper.cpp, 3925, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelper.cpp, 3492, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelper.cpp, 8880, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelper.cpp, 9452, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelper.cpp, 26788, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelperPrivate.cpp, 2826, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelperPrivate.cpp, 3038, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelperPrivate.cpp, 3457, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) RPCDocumentOperationsHelperPrivate.cpp, 4295, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) VaultScriptSessionTemplates.cpp, 269, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) VaultScriptSessionTemplates.cpp, 328, Script execution failed. ((010 - Gestion des doublons, StateAction: 1596915-8)) (0x800408BB) VaultScriptSessionTemplates.cpp, 328, Object required: '' (0x80040008) VaultScriptSessionTemplates.cpp, 501, Object required: '' (0x80040008) CoActiveScriptSite.cpp, 893, Object required: '' (0x80040008) CoActiveScriptSite.cpp, 735, Object required: '' (0x80040008) 010 - Gestion des doublons, StateAction, 22, Object required: '' (0x80040008) MErrorHelper.cpp, 2457, Object required: '' (0x80040008) (M-Files 21.2.9928.4)
