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

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

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