Salut
il n'y aurait pas un print dans ta proc ?

SQLCA.dbParm = "Async = 1"
  
SQLCA.sp_util_maproc(ls_param)
          
IF SQLCA.SQLCode < 0 THEN      
    MessageBox(gAppNom, "Erreur :~r" + SQLCA.SQLErrText, StopSign!)
    SQLCA.dbParm = "Async = 0"
    Return
END IF

ce code marche si tu enlèves l'envoi du mail ?

Excusez moi, mais je ne pense pas que votre code fait se que voulez exactement...how bad was that.

anyway setting the dbparm without an explicit connect will not do what you think it is doing.

//you'll need a disconnect here
disconnect using sqlca;

SQLCA.dbParm = "Async = 1"

//then after setting the dbparm a reconnect to get the ASYNC parm working
connect using sqlca;

SQLCA.sp_util_maproc(ls_param)
         
IF SQLCA.SQLCode < 0 THEN     
    MessageBox(gAppNom, "Erreur :~r" + SQLCA.SQLErrText, StopSign!)
   //ditto for here...if you want to go back to asynch = 0...you'll need to disconnect and reconnect.
    SQLCA.dbParm = "Async = 0"
    Return
END IF


However I don't think that is the issue, I'd look at the stored procedure to see if there isn't some logic that is not returning a RETURN 0.

I like your using SQLSA  as a test...clever. if you go that route don't forget to test sqlca for errors.

Also we always have the stored procedures return a value 0 for success and -1 for failure so the call to the proc shoul dbe

integer ll_return
string ls_param

ll_return = SQLCA.sp_util_maproc(ls_param)

If ll_return <> 0 then
   messagebox('','')
END IF

IF sqlca.sqlerrcode <> 0  then
MessageBox(gAppNom, "Erreur :~r" + SQLCA.SQLErrText, StopSign!)
end if

either way let us know the solution....