Repository('WRITE"...) of menu event (OpenInsight Specific) [Revelation On-Line Wiki]

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 25 JUN 1999 07:18:50PM Terry Evans wrote:

OpenInsight Specific

Cameron answered another users question about the Basic+ subroutine Repository() several years back. I would like some help with it and an explanation of the arguments that need to be supplied to call it from Basic+.

I need some help with it to write out an event record for a quickevent in a menu item. I can read a source record from the SYSREPOSEVENT file but can't get it written back as a new ID for a new form. I'm trying the following:
equ OrigForm to 'THEFORM'
equ NewForm to 'MYFORM'
  Key=@appid:'*MENU*':OrigForm:'.MENU.FILE.PRINTER_SETUP'
  read ScriptRec from f_SysReposEvents, Key then
    EntID=EntID(@appid,'OIEVENT','',NewForm:'.MENU.FILE.PRINTER_SETUP')
    Set_Status(0)
    Repository("WRITE",EntID,'',1,1,'','','','','',field(EntID,'*',4),ScriptRec)
but the copy of ScriptRec doesn't get written and Get_Status() returns an error. What should the EntID look like.

Thanks

Terry

At 28 JUN 1999 11:10AM akaplan@sprezzatura.com - [url=http://www.sprezzatura.com]Sprezzatura Group[/url] wrote:

The Entity ID should be APPLICATION*CLASS*TYPE*NAME which for an event should be MYAPP*OIEVENT*MENU*MENUNAME where MENUNAME is the fully qualified menu name.

akaplan@sprezzatura.com

Sprezzatura Group

At 28 JUN 1999 12:09PM Terry Evans wrote:

I think I'm using that, but I'll recheck. What about the 11th argument? (record ID, I think)

View this thread on the forum...