DEMANDE convertir un script en une requete

Bonsoir
Est ce que c'est possible de convertir ce code en une seule requete ?
Merci

HLitPremier(CLIENT_SOLDE,COD_CLI)
TANTQUE PAS HEnDehors()
CLIENT_SOLDE.NB_CHEQUE_CNSS=0
CLIENT_SOLDE.NB_CHEQUE_FINANCE=0



HDésactiveFiltre(CHEQUE_CLIENT)
HFiltre(CHEQUE_CLIENT,COD_CLI,CLIENT_SOLDE.COD_CLI,CLIENT_SOLDE.COD_CLI)
HLitPremier(CHEQUE_CLIENT,COD_CLI)
TANTQUE PAS HEnDehors()
SI CHEQUE_CLIENT.ETAT_CHEQUE = 1 ALORS
SI CHEQUE_CLIENT.TYPE_REG = 1 ALORS
CLIENT_SOLDE.NB_CHEQUE_CNSS++
SINON
CLIENT_SOLDE.NB_CHEQUE_FINANCE++
FIN
FIN
HLitSuivant(CHEQUE_CLIENT,COD_CLI)
FIN
HModifie(CLIENT_SOLDE)
HLitSuivant(CLIENT_SOLDE,COD_CLI)
FIN

 

Aprés une recherche, j'ai pu trouvé :

Code (Text):

UPDATE CLIENT SET CLIENT.NB_ALERTE_CHEQUE_CNSS =
(
    SELECT
        COUNT(CHEQUE_CLIENT.CLE_REGC) AS Comptage_1
    FROM
        CHEQUE_CLIENT
    WHERE
        CHEQUE_CLIENT.COD_CLI = CLIENT.COD_CLI
        AND    CHEQUE_CLIENT.ETAT_CHEQUE = 1
        AND    CHEQUE_CLIENT.TYPE_REG = 1
)
,

CLIENT.NB_ALERTE_CHEQUE_FINANCE =
(
    SELECT
        COUNT(CHEQUE_CLIENT.CLE_REGC) AS Comptage_1
    FROM
        CHEQUE_CLIENT
    WHERE
        CHEQUE_CLIENT.COD_CLI = CLIENT.COD_CLI
        AND    CHEQUE_CLIENT.ETAT_CHEQUE = 2
        AND    CHEQUE_CLIENT.TYPE_REG = 1
)