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)