Document Macro

IFS/Document Management can automatically start computer files by using specifically written macros. A macro is often associated with commands such as Print, Edit, View, Check In/Out, etc. Normally, the editing/viewing application is started, the macros are executed, and then normal work with the document can be performed. Macros are often used for inserting document headers, frames, updating the document with information from the database, and more.

Different macros can be used for editing documents in different applications or for doing different work (processes), such as printing the document to a printer.

To disable the macros defined, configure a document class process action with NoMacro in the Macro Option field for a process of a particular document class.

Important Terms

CHECKIN – Check in files from disk to the repository.
CHECKOUT – Check out files from the repository to disk.
DELETE – Delete the document or file
PRINT – Print the document.
VIEW – View the document.
CREATENEW – Create a new document.
OTHER – For future use.
UNDOCHECKOUT – Undo document checkout.

Available Macro Languages

VBScript and JavaScript are the programming languages available for writing macros. VBScript is the recommended language (all examples are written in it), but feel free to experiment with JavaScript as well.

The Macro Process

Create new macro blocks

A macro block is the place where the macro code itself is stored. Usually you create a couple of Subs or Functions in each block, trying to make them as general as possible so that they can be used in more than one macro.

A new macro block is defined in Macro Basic/Document Macro Blocks tab by giving a user preferred name for the block name and code in the script language

Create macro header

The macro header is where you specify on which file type/application the macro should be used, and for which process (VIEW, CHECKIN, CHECKOUT etc). A new macro header is defined in Macro Basic/Document Macros tab. A macro header does not do anything by itself, you need to connect macro blocks to it.

Field	Explanation
Time Out	The maximum number of seconds you would like a macro to be executed. If the actual execution time of the macro is longer than the value specified, you will receive a question asking if you want to continue with the execution or not.
Action	Must always be filled in but the reason it exists only becomes evident if you want to create more than one macro for a specific combination of File Type/Application and Process.
Script Language	Is used to specify which macro language you want to use. We recommend using VBScript because that is what we have tested out and know works. Using Javascript may or may not work.
Main Function	The Main Function field is VERY important. It tells the macro execution engine exactly which sub-procedure or function to call when starting up the macro.

Connect the macro blocks to the header.

This is where we attach the code onto the macro header to actually specify what should happen. The macro blocks are connected to the header in Macro Basic/Document Macros tab.

For an already created/existing macro header, connect the macro blocks by creating new rows in the table. Use the List of Values to pick the macro blocks or enter the names manually.

Configure how macros are going to be handled for each document class in the Document Class Process Action window. Possible settings are:

SelectAndRun - The normal functionality. If there are macros, the user can chose which one to execute.
RunIfOnlyOne - If only one macro exists for the file type/application associated with the connected document file, it will be run without user intervention.
NoMacro - If there are macros configured for the particular file type/application, the user will not be able to select or execute one. In other words, it effectively disables macro execution.

These settings are optional and if you do not specify any document class process actions, macros will always run, if available

Use the Macro tab in the Document Class Management window to register the macros that will be applied to a process within a document class. If no macros are defined per class, all macros will be available.

The following table shows the outcomes of different macro settings created by using different options in the Macro Basic, Document Class Process Action and Document Class Management windows.

Scenarios	Macro Basic window	Macro Option field in the Document Class Process Action window	Document Class Management/Macros tab	Choose Macro dialog box (Y/N)
1.) Word Macro for Checkout (Edit)	Three macros are defined	SelectAndRun	All macros copied	Y (all three macros are shown)
			All the macros except Word Edit Macros are copied	N
			Empty	Y (all three macros are shown)
			Only one Word Check Out macro is defined	Y (only the macro defined in the Document Class Management window is shown)
2.) Word Macro for Checkout (Edit)	Three macros are defined	No record for the check out process for the specified class	All macros copied	Y (all three macros are shown)
			All the macros except Word Edit Macros are copied	N
			Empty	Y (all three macros are shown)
			Only one Word Check Out macro is defined	Y (only the macro defined in the Document Class Management window is shown)
3.) Word Macro for Checkout (Edit)	Three macros are defined	NoMacro
			All macros copied	N
			All the macros except Word Edit Macros are copied	N
			Empty	N
			Only one Word Check Out macro is defined	N
4.) Word Macro for Checkout (Edit)	Three macros are defined	RunIfOnlyOne
			All macros copied	Y (all three macros are shown)
			All the macros except Word Edit Macros are copied	N
			Empty	Y (all three macros are shown)
			Only one Word Check Out macro is defined	N ( the macro defined in the Document Class Management window is Run)

Example of a Macro

This is an example of a macro that causes a message box to open when the connected process is performed.

Macro block MESSAGEBOXTEST:

Public Sub MessageBoxTest ()
MsgBox "This is a very simple macro."
End Sub

Available Attributes to Use in Macros

The macro creator has a long list of attributes that he can use when writing macros using the macro support functionality. Here is a complete list of the attributes and a description:

1. ClientScript Values

LOCAL_FILE_X - X will be a number starting from 1 and ending with the number specified by LOCAL_FILE_COUNT, another macro attribute. For example, if LOCAL_FILE_COUNT = 2 then there will be LOCAL_FILE_1 and LOCAL_FILE_2. LOCAL_FILE_X nstances will contain the client side file names of the files to be checked in.
LOCAL_FILE_COUNT - Number of files to be checked in e.g, Original, View, Raster, Hybrid.
CHECK_OUT_PATH - User defined check out path entered in the User Settings dialog box. Temp\ will be appended for processes VIEW and PRINT.
CHECK_IN_PATH - Directory path from which the files are being checked in.
EXTERNAL_VIEWER - User defined external viewer path defined in the User Settings dialog box.
REDLINE_VIEWER - User defined redline viewer application path defined in the User Settings dialog box.

Usage - ClientScriptValues.Item("LOCAL_FILE_COUNT") would return the local file count.

2. Script Values

DOCUMENT_CLASS
DOCUMENT_CLASS_DESCRIPTION
DOCUMENT_NUMBER
DOCUMENT_SHEET
DOCUMENT_REVISION
APPROVAL_TEMPLATE_ID
REVISION_NUMBER
REVISION_TEXT
REVISION_DATE
LANGUAGE_CODE
DOCUMENT_REVISION_NOTE
RESPONSIBLE_DEPARTMENT
RESPONSIBLE_PERSON
NUMBER_OF_SHEETS
DATE_RELEASED
DATE_OBSOLETE
ACCESS_CONTROL
ACCESS_CONTROL_DB
PLANNED_START
PLANNED_FINISH
ACTUAL_FINISH
FORMAT_SIZE
FORMAT_SIZE_DESCRIPTION
DATE_MODIFIED
MODIFIED_BY
DATE_CREATED
CREATED_BY
DAYS_TILL_DOCUMENT_EXPIRES
REASON_FOR_ISSUE
REASON_FOR_ISSUE_DESC
UPDATE_ALLOWED_DURING_APPROVAL
OBJSTATE
DOCUMENT_STATUS
DOCUMENT_PROGRESS
MAX_REVISION_NUMBER
MAX_APPROVED_REVISION_NUMBER
DOCUMENT_TITLE
DOCUMENT_TITLE_INFO
DESCRIPTION1
DESCRIPTION2
DESCRIPTION3
DESCRIPTION4
DESCRIPTION5
DESCRIPTION6
NEXT_DOC_SHEET
SHEET_ORDER
SCALE
VIEW_FILE_REQUIRED
VIEW_FILE_REQUIRED_DB
OBJECT_CONNECTION_REQUIRED
OBJECT_CONNECTION_REQUIRED_DB
DESTROY_DOCUMENT
DESTROY_DOCUMENT_DB
SAFETY_COPY_REQUIRED
SAFETY_COPY_REQUIRED_DB
DOCUMENT_TITLE_DATE_CREATED
DOCUMENT_TITLE_CREATED_BY
ISO_CLASSIFICATION
CONFIDENTIAL
BASED_ON_DOCUMENT_CLASS
BASED_ON_DOCUMENT_NUMBER
BASED_ON_DOCUMENT_REVISION
REPLACED_BY_DOCUMENT_CLASS
REPLACED_BY_DOCUMENT_NUMBER
ALTERNATE_DOCUMENT_NUMBER
DOC_TYPE
FILE_NAME
LOCAL_PATH
LOCAL_FILE_NAME
COPY_OF_FILE_NAME
COPY_OF_VIEW_FILE_NAME
CHECKED_IN_SIGN
CHECKED_IN_DATE
CHECKED_OUT_SIGN
CHECKED_OUT_DATE
LOCATION_NAME
FILE_TYPE
PATH
EDM_STATUS
DOC_CLASS
DOC_NAME
DOC_NO
DOC_SHEET
DOC_REV
FILE_STATE
REV_NO
STATE
TITLE
USER_CREATED
DT_CRE
LOCATION_USER
LOCATION_PASSWORD
LOCATION_ADDRESS
LOCATION_PORT
LOCATION_TYPE
NUMBER_OF_FILES
LOCAL_FILE_NAME_01
LOCAL_FILE_NAME_02
LOCAL_FILE_NAME_03
...
COPY_OF_FILE_NAME_01
COPY_OF_FILE_NAME_02
COPY_OF_FILE_NAME_03
...
RIGHTS
IFS_CAD_DB_ALIAS
FND_USER
FIRSTREV_DRAWN_BY
FIRSTREV_ISSUED
FIRSTREV_CHECKED_BY
FIRSTREV_CHECKED
FIRSTREV_APPROVED_BY
FIRSTREV_APPROVED
FOLDER_IDENTIFIER
DESCRIPTION
FOLDER_NAME
RESPONSIBLE_PERSON
REV_00
REV_00_DATE
REV_00_REASON
REV_00_REASON_DESC
REV_00_REV_TEXT
REV_00_DRAWN_BY
REV_00_APP_SIGN_01
REV_00_APP_DATE_01
REV_00_APP_SIGN_02
REV_00_APP_DATE_02
OLD_REV_01
OLD_REV_01_DATE
OLD_REV_01_REASON
OLD_REV_01_REASON_DESC
OLD_REV_01_REV_TEXT
OLD_REV_01_DRAWN_BY
OLD_REV_01_APP_SIGN_01
OLD_REV_01_APP_DATE_01
OLD_REV_01_APP_SIGN_02
OLD_REV_01_APP_DATE_02
OLD_REV_02
OLD_REV_02_DATE
OLD_REV_02_REASON
OLD_REV_02_REASON_DESC
OLD_REV_02_REV_TEXT
OLD_REV_02_DRAWN_BY
OLD_REV_02_APP_SIGN_01
OLD_REV_02_APP_DATE_01
OLD_REV_02_APP_SIGN_02
OLD_REV_02_APP_DATE_02
OLD_REV_03
OLD_REV_03_DATE
OLD_REV_03_REASON
OLD_REV_03_REASON_DESC
OLD_REV_03_REV_TEXT
OLD_REV_03_DRAWN_BY
OLD_REV_03_APP_SIGN_01
OLD_REV_03_APP_DATE_01
OLD_REV_03_APP_SIGN_02
OLD_REV_03_APP_DATE_02
OLD_REV_04
OLD_REV_04_DATE
OLD_REV_04_REASON
OLD_REV_04_REASON_DESC
OLD_REV_04_REV_TEXT
OLD_REV_04_DRAWN_BY
OLD_REV_04_APP_SIGN_01
OLD_REV_04_APP_DATE_01
OLD_REV_04_APP_SIGN_02
OLD_REV_04_APP_DATE_02
OLD_REV_05
OLD_REV_05_DATE
OLD_REV_05_REASON
OLD_REV_05_REASON_DESC
OLD_REV_05_REV_TEXT
OLD_REV_05_DRAWN_BY
OLD_REV_05_APP_SIGN_01
OLD_REV_05_APP_DATE_01
OLD_REV_05_APP_SIGN_02
OLD_REV_05_APP_DATE_02
...
CORRESPONDENT
ATTENTION
LETTER_DATE
CLOSE_BY
DOC_ARCH_NO
DOC_ARCH_STATUS
REFERENCE
DOC_POST_TYPE

Most of the attributes are self-explanatory. All the date attributes (XX_DT and XX_DATE) are in ISO-format (YYYY-MM-DD); if you want another format you have to change this in your macro or customize the function used to retrieve the information (see below).

The attributes above that may need some explanation are:
FIRSTREV_ISSUED
FIRSTREV_CHECKED_BY
FIRSTREV_CHECKED
FIRSTREV_APPROVED_BY
FIRSTREV_APPROVED

NUMBER_OF_FILES
LOCAL_FILE_NAME_XY
COPY_OF_FILE_NAME_XY
IFS_CAD_DB_ALIAS

The first five attributes contain information from the first issue, regardless of which issue you are working on right now. If you have revisions (issues) A1-A5, the information will be retrieved from revision A1.
FIRSTREV_DRAWN_BY and FIRSTREV_ISSUED are taken from the revision itself. The checked and approved attributes are taken from the first two steps in approval routing for the first issue.
The attributes starting with OLD_REV_XX contains the same information as the FIRSTREV_XXX but for the following five revisions. REV_00 is the same as the revision you are working with.
The attributes FOLDER_IDENTIFIER, DESCRIPTION, FOLDER_NAME and RESPONSIBLE_PERSON are taken from the first object reference of the type Document Folder (logical unit DocFolder).
The attribute NUMBER_OF_FILES contains the number of file references to this document.
For each file reference there are matching LOCAL_FILE_NAME and COPY_OF_FILE_NAME attributes.
The attribute FND_USER contains the name of the logged in foundation user.
The attribute IFS_CAD_DB_ALIAS is retrieved from default data and is used for logging into the IFS CAD applications.

If these attributes (or the values they contain) are not enough for your needs there are a couple of ways to fix this:

Customize the Get_Document_Data function in Doc_Issue_API
Make a macro that calls the IFS Foundation Gateway and do the necessary database calls yourself. This is unsupported, but might work.
Retrieve the values from some other place such as files or windows registry, using available functions in VBScript.

Object Attributes for Macros

It is possible to include attributes of business objects connected to the document in the document macro code by defining the business objects in Basic Data. This is a very useful feature that allows you to make good use of the document's connected objects. You could for example create a change report document and have the attributes from the actual change report printed in the document via a macro.

When using this feature, you have to first define which attributes should be available for each kind of business object. The reason for this is that the amount of data that can be used in a macro is limited (a document could potentially be connected to hundreds or even thousands of documents). The maximum size of all macro attributes (the main ones and the ones for objects) is 32768.

For information about how to enter this default data see Activity Define Object Attributes for Macros.

The following are example macro code blocks that can be used to loop through all connected objects and to access their values so that they can be used in a document.

'<<<<<<<< Main Block Name: EXCEL_OBJECT_ATTR_INIT >>>>>>>>
Public Sub Update_Excel()
    Open_Excel
    Write_Cell_Attr "1" , "B","A", "CONNECTED_OBJECT_TYPES"
    oXl.ActiveWorkbook.Save
    MsgBox "Added Object Connection Info..."
End Sub

'<<<<<<<< Block Name: EXCEL_OBJECT_ATTR_FILE_OPEN >>>>>>>>
Option Explicit 

Dim oXl 
Dim sFileName 
Dim sPath 
Dim sSheetExist 
Dim nSheetCount 
Dim nCount 

Public Sub Open_Excel() 
	On Error Resume Next 
	sPath = ScriptValues.Item("LOCAL_PATH").Value 
	sFileName = ScriptValues.Item("LOCAL_FILE_NAME").Value 
	Set oXl = CreateObject("excel.application") 
	If Err.Number <> 0 Then 
		MsgBox "Unable to create object from [excel.application]" 
	Else 
		oXl.Visible = True 
		If sFileName = "" Then 
			' Empty local filename means that this is a checked-in document 
			' Use the COPY_OF_FILE_NAME value instead 
			sFileName = ScriptValues.Item("COPY_OF_FILE_NAME").Value 
		End If 
		If sPath = "" Then 
			' Use the CHECK_OUT_PATH client script value instead 
			sPath = ClientScriptValues.Item("CHECK_OUT_PATH").Value 
		End If 
		oXl.Workbooks.Open(sPath & sFileName) 
		' Added object connection details into ObjectConnectionInfo worksheet 
		' If worksheet does not exist create a new worksheet called ObjectConnectionInfo 
		sSheetExist = "FALSE" 
		nSheetCount = oXl.ActiveWorkbook.WorkSheets.Count 
		For nCount = 1 To nSheetCount 
			If oXl.ActiveWorkbook.Worksheets(nCount).Name = "ObjectConnectionInfo" Then 
			sSheetExist = "TRUE" 
		End If 
	Next 
	If sSheetExist = "FALSE" Then 
		oXl.ActiveWorkbook.Worksheets.Add , oXl.ActiveWorkbook.Worksheets(oXl.ActiveWorkbook.WorkSheets.Count) 
		oXl.ActiveWorkbook.Worksheets(oXl.ActiveWorkbook.WorkSheets.Count).Name = "ObjectConnectionInfo" 
	End If 
	oXl.ActiveWorkbook.Worksheets("ObjectConnectionInfo").Activate 
End If 
End Sub

'<<<<<<<< Block Name:EXCEL_OBJECT_ATTR_UPDATE >>>>>>>>
Dim sLuNames
Dim sArrayLuName
Dim sTag
Dim nCounter
Dim sAttributes
Dim sArrayAttribute
Dim nRowNo
Dim sLu
Dim sAttribute
Dim nRecCount

Public Function attrValue(sVal)
    attrValue = ScriptValues.Item(UCase(sVal)).Value
End Function

Public Sub Write_Cell_Attr(row, colValue,colName, attr)
    On Error Resume Next
    nRowNo = row
    sLuNames = attrValue(attr)
    oXl.Cells(nRowNo, colName) = attr
    oXl.Cells(nRowNo, colValue) = sLuNames
    sArrayLuName = Split(sLuNames, ";", -1, 1)
    For Each sLu in sArrayLuName
        nCounter = 0
        nRowNo = nRowNo + 1
        sTag = sLu & ".COUNT"
        nCounter = attrValue(sTag)
        oXl.Cells(nRowNo, colName) = sTag
        oXl.Cells(nRowNo, colValue) = nCounter
        nRowNo = nRowNo + 1
        sTag = sLu & ".ATTRIBUTES"
        sAttributes = attrValue(sTag)
        oXl.Cells(nRowNo, colName) = sTag 
        oXl.Cells(nRowNo, colValue) = sAttributes 
        sArrayAttribute = Split(sAttributes, ",", -1, 1)
        IF nCounter > 0 Then
            For nRecCount=1 to nCounter
                For Each sAttribute in sArrayAttribute
                    sTag = sLu & "." & nRecCount & "." & sAttribute
                    nRowNo = nRowNo + 1
                    oXl.Cells(nRowNo, colName) = sTag
                    oXl.Cells(nRowNo, colValue) = attrValue(sTag) 
                Next 
            Next
        End If
    Next
    nRowNo = nRowNo + 1
    oXl.Cells(nRowNo, colName) = "DATA_LENGTH_EXCEEDED"
    oXl.Cells(nRowNo, colValue) = attrValue("DATA_LENGTH_EXCEEDED")
End Sub