> > 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 >Remove ON ERROR and do it directly right after sqlexec.