salut , joyeuse fête pour tout le monde
j'ai un souci avec une requête SQL avec la commande CASE ,j'utilise RAD seattle avec BDE , une fonction dans RAD qui contient
le code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function SQLText(strSelect, strWhere : String) : String;
Begin
   Result :='SELECT B.CODRS, B.NCMP, B.BLOE, B.CTYP, '+
           'B.T_BRT, B.R_SES, B.R_IRB, B.N_PYE, (B.CCH) AS EXPERT , '+
           'CASE WHEN ASN = 20 THEN (B.NOR - T_AFM) ELSE (((B.N_PYE - T_AFM) / (20 - ASN)) * ASN) END AS HONM, ' +          
           'G.ECH00, G.ECH01, G.ECH02, G.ECH03, '+
           'G.ECH08, G.INDICE AS INDPST, "" AS INDIEP, '+
           'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER, CAST(B.CODCH+B.NBRAE*H.T_IEAS AS CHAR(4)) AS ECHNE, ';
  If bolOrient Then
     Result :=Result+'B.NOMPRN, C.DESIGN AS DESGRD, F.DESIGN AS DESPST, D.DESIGN+"/"+D.AGEARA AS DESBNQ, '
               Else
............................. reste du programme -
je sais bien que l 'erreur de l'utilisation de CASE est la cause directe , j'ai pas pu la régler , s'il vous plait , donner moi un coup de pouce , merci