select 
  IsNull(ENTNMB, 65999999999) as ENTNMB,
  cast(IsNull(GOD, 2000) as numeric(4,0)) as GOD,
  cast(IsNull(KVARTAL, 0) as numeric(2,0)) as KVARTAL,
  SUM(PAY_SUM_STR) as STR,
  SUM(PAY_SUM_NAK) as NAK
from 
(
  select 
    cast(Insurerfk->RegNumberPFR as numeric(12,0)) as ENTNMB,
    PAY_SUM_STR,
    PAY_SUM_NAK,
    YEAR(PayDate) as GOD,
    case 
      when YEAR(PayDate) = 2010 then
        case
          when (MONTH(PayDate) between 1 and 6) then 1
          when (MONTH(PayDate) between 7 and 12) then 2
        end
      else 
        case
          when (MONTH(PayDate) between 1 and 3) then 1
          when (MONTH(PayDate) between 4 and 6) then 2
          when (MONTH(PayDate) between 7 and 9) then 3
          when (MONTH(PayDate) between 10 and 12) then 4
        end
    end as KVARTAL
  from
    (
    /* нефиктивные приходные платежи по банку */
    select
      Id,
      Insurerfk, 
      case when (IsIncome = 1) and (KBKFK = 39210202010061000160) then "SUM" 
         when (IsIncome = 0) and (KBKFK = 39210202010061000160) then -"SUM" 
         else 0 
      end as PAY_SUM_STR, 
        case when (IsIncome = 1) and (KBKFK = 39210202020061000160) then "SUM" 
           when (IsIncome = 0) and (KBKFK = 39210202020061000160) then -"SUM"
        else 0
      end as PAY_SUM_NAK,
      DateBankOut as PayDate
    from
      ASV_Entities.Payment
    where
      (IsFiction = 0) 
      and (IsIncome = 1) 
      and (InnerBankDocumentNumber is null)
      and (KBKFK = 39210202010061000160 or KBKFK = 39210202020061000160)
      and (IsComposite = 0)
    union
    /* внебанковские приходы + все расходы */
      select
        case 
          when q1.InsurerFK is null then q2.Id
          else q1.Id
        end as Id,
        case 
          when q1.InsurerFK is null then q2.InsurerFK
          else q1.InsurerFK
        end as Insurerfk,
        case 
          when q1.InsurerFK is null then 
            case when q2.IsFiction = 0 then 
              q2.PAY_SUM_STR
            else 
              0  
            end
          when q2.InsurerFK is null then q1.PAY_SUM_STR
          else q1.PAY_SUM_STR + q2.PAY_SUM_STR
        end as PAY_SUM_STR,
        case 
          when q1.InsurerFK is null then 
            case when q2.IsFiction = 0 then 
              q2.PAY_SUM_NAK
            else 
              0  
            end
          when q2.InsurerFK is null then q1.PAY_SUM_NAK
          else q1.PAY_SUM_NAK + q2.PAY_SUM_NAK
        end as PAY_SUM_NAK,        
        case 
          when q1.InsurerFK is null then q2.PayDate
          when q2.InsurerFK is null then q1.PayDate
          else q2.PayDate
        end as PayDate          
      from
      /* внебанковские приходные платежи */
(      select
        Id,
        InnerBankDocumentNumber,
        Insurerfk, 
        "SUM",
        case when (IsIncome = 1) and (KBKFK = 39210202010061000160) then "SUM" 
           when (IsIncome = 0) and (KBKFK = 39210202010061000160) then -"SUM" 
           else 0 
        end as PAY_SUM_STR, 
          case when (IsIncome = 1) and (KBKFK = 39210202020061000160) then "SUM" 
             when (IsIncome = 0) and (KBKFK = 39210202020061000160) then -"SUM"
          else 0
        end as PAY_SUM_NAK,
        DateBankOut as PayDate
      from
        ASV_Entities.Payment
      where
        (IsFiction = 0) 
        and (IsIncome = 1) 
        and  (not InnerBankDocumentNumber is null)
        and (IsComposite = 0) 
  ) q1                                               
  full join  
  (
      /* внебанковские "парные" расходные платежи */
      select 
        Id,  
                InnerBankDocumentNumber,
        Insurerfk, 
        "SUM",
        IsFiction,
        case when (not InnerBankDocumentNumber is null) or (not OrdersFolderFK is null) then
          case when (not OrdersFolderFK is null) then 
            case when (OrdersFolderFK->BaseDocumentInternalType = 'ClarifyPayment') or (OrdersFolderFK->BaseDocumentInternalType = 'RepaymentResolution') then 
              cast(OrdersFolderFK->BaseDocumentDate as date)
            else
              DateBankOut
            end  
          else 
            case when (not InnerBankDocumentDate is null) then
              InnerBankDocumentDate  
            else
              DateBankOut
            end
          end  
        else
          DateBankOut       
        end  as PayDate,
        case when (IsIncome = 1) and (KBKFK = 39210202010061000160) then "SUM" 
           when (IsIncome = 0) and (KBKFK = 39210202010061000160) then -"SUM" 
           else 0 
        end as PAY_SUM_STR, 
          case when (IsIncome = 1) and (KBKFK = 39210202020061000160) then "SUM" 
             when (IsIncome = 0) and (KBKFK = 39210202020061000160) then -"SUM"
          else 0
        end as PAY_SUM_NAK
      from
        ASV_Entities.Payment
      where
        (IsIncome = 0)
        and (KBKFK = 39210202010061000160 or KBKFK = 39210202020061000160)
        and (IsComposite = 0)
  ) q2      
  on
    (q1.InsurerFK = q2.InsurerFK and q1.InnerBankDocumentNumber = q2.InnerBankDocumentNumber and q1."SUM" = q2."SUM")    
  )
)
group by 
  EntNmb, God, Kvartal