[[https://www.revelation.com/|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]]


==== Repository('WRITE"...) of menu event (OpenInsight Specific) ====
=== At 25 JUN 1999 07:18:50PM Terry Evans wrote: ===
 
{{tag>"OpenInsight Specific"}}
 
<QUOTE>
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
</QUOTE>
----

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

<QUOTE>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

[url=http://www.sprezzatura.com]Sprezzatura Group[/url]

[img]http://www.sprezzatura.com/zz.jpg[/img]

</QUOTE>

----

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

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

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=0DAB5AA03FA786D38525679B0080116D|View this thread on the  forum...]]