Macro IFSCLOUD R1

Hi,

Thanks for posting here. Some questions:

• Do you know that macros have been enabled for the documents you are working with?
• What did you try?
• Did you get any errors?
• Is the Aurena Agent installed and working?
• Is there an environment where we can have a look?
   

Thanks mathias

here are the elements 

the database https://ifspsd1-d01.demo.ifs.cloud/landing-page/

document class :CRM_ACTIVIT

document template no : 1201828

I’ll quote myself:

• What did you try?
• Did you get any errors?
• Is the Aurena Agent installed and working?

I added a super simple macro and it works. You can try the same by viewing the document below and see if you get the message box popping up (it sometimes appear behind the web browser as well, so look for new windows in the Windows task bar):

I needed to enable the aurena agent for the site, of course.

With the document I was able to create a document ... but on IFSCloudR1, I can't do it ... and the macros work ... thanks Mathias 

Hi,

I don't have the time to debug those macros, sorry. What I do know is that there is one small thing that can be different in Aurena when working with macros and that is how to get the local file name of the file that have been checked out.

I once helped another consultant getting these macros to run in Aurena. I just had a look at some old notes I have from back then. It looks I change this code:

   ' ****** IFS_01_06_GENERAL_FILE_EXIST

   PUBLIC FUNCTION FILE_EXIST(I, APP)
      
      ON ERROR RESUME NEXT
      
      MsgBox "In File_Exist"
      
      SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
      IF I = 0 THEN
         O_FILENAME = SCRIPTVALUES.ITEM("LOCAL_FILE_NAME").VALUE
      ELSE

To this:

   ' ****** IFS_01_06_GENERAL_FILE_EXIST

   PUBLIC FUNCTION FILE_EXIST(I, APP)
      
      ON ERROR RESUME NEXT
      
      MsgBox "In File_Exist"
      
      SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
      IF I = 0 THEN
         O_FILENAME = Replace(ClientScriptValues.Item("LOCAL_FILE_1").Value, "/", "\")
         O_FILENAME = Mid(O_FILENAME, InstrRev(O_FILENAME, "\") + 1)
      ELSE

Perhaps that can help you? Disclaimer: I don't remember if I was able to make these macros working or not, but I think I made the change above for a reason.

If you cannot get it to work, you should contact James G, who wrote those macros. With the above change he might be able to get it to work for you.

/Mathias
 

thank you for your help Mathias