cSQL = "update reembolso (nome = 'test' )  "


ON ERROR DO errhand 


rp = SQLEXEC(lnHandle, cSQL)

ON ERROR  && Restore system error handler

 
    
    .....


PROCEDURE errhand
   = AERROR(aErrorArray)  && Data from most recent error
   CLEAR
  
   FOR n = 1 TO 7  && Display all elements of the array
  = MESSAGEBOX( aErrorArray(n))
   ENDFOR