>*-------------------------------------------------- >LOCAL strSql as string > >strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang) > >IF used("apClient") THEN > SELECT ("apClient") > USE >ENDIF > >IF SQLEXEC(z_conn,strSql,"apClient") >= 0 > thisform.pgfClient.pagSpecification.grdVox.RecordSource = "" > Select * from ("apClient") INTO CURSOR lCurApClient READWRITE noconsole > thisform.pgfClient.pagSpecification.grdVox.RecordSourceType = 1 > thisform.pgfClient.pagSpecification.grdVox.RecordSource = "lCurApClient" >ENDIF >*--------------------------------------------------- >>
>*-------------------------------------------------- >LOCAL strSql as string > >strSql = "asp_GetClientAppel @Id_Client =" + ALLTRIM(STR(client.Id_Client)) + ", @Langue = " + strDblq(Z_Lang) > >IF used("apClient") THEN > SELECT ("apClient") > USE >ENDIF > >IF SQLEXEC(z_conn,strSql,"apClient") >= 0 > thisform.pgfClient.pagSpecification.grdVox.RecordSource = "" > thisform.pgfClient.pagSpecification.grdVox.RecordSource = "apClient" >ENDIF >*--------------------------------------------------- >>