*--------------------------------------------------
LOCAL strSql as string

strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang)

thisform.pgfClient.pagSpecification.grdVox.RecordSource = ""
IF SQLEXEC(z_conn,strSql,"apClient") >= 0
	Select * from ("apClient") INTO CURSOR lCurApClient READWRITE noconsole
ENDIF
thisform.pgfClient.pagSpecification.grdVox.RecordSource = "lCurApClient"
*---------------------------------------------------