2번 문장을 1번문장으로 고치려 합니다.
그런데 when젤에서 자꾸 에러가 납니다.

필드를 구성하는 조건을 1가지에서 2가지로 변경하여
하나의 필드를 만들려고 합니다

즉 입고일때만 a1인 필드를 생성하였다면 입고 반입 두가지경우다 a1필드로 만드려 합니다
좋은 아이디어 가지신분 부탁드립니다

//==================================================================================================================================
//= 1 번 문장========================================================================================================
//==================================================================================================================================
          With Q_MUSI  do begin
             Close;
             Sql.Clear;
             Sql.Add('SELECT B.COMPCODE, B.COMPNAME, B.COMPTEL, B.DAMDANG, B.DAMTEL, B.BASEMISU, B.COMPMISU,');               when token error
             Sql.Add('SUM(CASE WHEN ((CHKIO = ''입고'') or (CHKIO = ''반입'')) THEN ISNULL(MSUM,0) END) AS A1,');     <<<<<=========================
             Sql.Add('SUM(CASE WHEN ((CHKIO = ''출고'') or (CHKIO = ''반출'')) THEN ISNULL(MSUM,0) END) AS A2,');
             Sql.Add('SUM(CASE WHEN (CHKIO = ''입금'') THEN ISNULL(MSUM,0) END) AS AA1,');
             Sql.Add('SUM(CASE WHEN (CHKIO = ''출금'') THEN ISNULL(MSUM,0) END) AS AA2');
             Sql.Add(' FROM TFLOWMAIN A, TCODCOMP B');

             Sql.Add(' WHERE A.DRGST < ''' + DateToStr(DateTimePicker1.Date) + '''');
             IF COMBOBOX1.ItemIndex <> 0 THEN
                BEGIN
                   Sql.Add(' And B.GUBUN = ''' + COMBOBOX1.Text +'''');
                END;
             Sql.Add(' And A.COMPCODE = B.COMPCODE');
             Sql.Add(' GROUP BY B.COMPCODE, B.COMPNAME, B.COMPTEL, B.DAMDANG, B.DAMTEL, B.BASEMISU, B.COMPMISU');
             Active := True;
          end;

//==================================================================================================================================
//== 2 번 문장================================================================================================================================
//==================================================================================================================================

      
          With Q_MUSIS  do begin
             Close;
             Sql.Clear;

             Sql.Add('SELECT B.COMPCODE, B.COMPNAME, B.COMPTEL, B.DAMDANG, B.DAMTEL, B.BASEMISU, B.COMPMISU,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''입고'' THEN ISNULL(MSUM,0) END) AS A1,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''출고'' THEN ISNULL(MSUM,0) END) AS A2,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''반입'' THEN ISNULL(MSUM,0) END) AS A3,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''반출'' THEN ISNULL(MSUM,0) END) AS A4,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''입금'' THEN ISNULL(MSUM,0) END) AS AA1,');
             Sql.Add('SUM(CASE WHEN CHKIO = ''출금'' THEN ISNULL(MSUM,0) END) AS AA2');
             Sql.Add(' FROM TFLOWMAIN A, TCODCOMP B');

             Sql.Add(' WHERE A.DRGST >= ''' + DateToStr(DateTimePicker1.Date) + '''');
             Sql.Add(' And A.DRGST <= ''' + DateToStr(DateTimePicker2.Date) + '''');
             IF COMBOBOX1.ItemIndex <> 0 THEN
                BEGIN
                   Sql.Add(' And B.GUBUN = ''' + COMBOBOX1.Text +'''');
                END;
             Sql.Add(' And A.COMPCODE = B.COMPCODE');
             Sql.Add(' GROUP BY B.COMPCODE, B.COMPNAME, B.COMPTEL, B.DAMDANG, B.DAMTEL, B.BASEMISU, B.COMPMISU');
             Active := True;
          end;