Event 'TestExecute'
Prc_Test.Call(&Message)
Msg(&Message)
Endevent
----------------------------------------------------
Parm(out:&Message);
----------------------------------------------------
error_handler('OnError')
New
ShohinId = 7
ShohinName = "FromPrc"
ShohinPrice = 10
ShohinZaikoSu = 9999
EndNew
For each Shohin
Where ShohinId = 1
Delete
Endfor
New
ShohinId = 8
ShohinName = "FromPrc"
ShohinPrice = 10
ShohinZaikoSu = 9999
EndNew
Commit
&Message = "成功!"

sub 'OnError'
&gxErrOpt = 0

&Message = &Err.ToString().Trim()
rollback
return
endsub