Reforma Tributaria CBS/IBS -- BAdI POST_PROCESSING

    " =================================================================
    " BLOCO 1: Filtros Iniciais
    " Regra: Reforma Tributaria CBS/IBS
    " Spec: content/specifications/txs-badi/reforma-cbs-ibs.md
    " =================================================================

    " Filtro 1: Apenas Brasil
    IF i_countries-intca <> 'BR'.
      RETURN.
    ENDIF.

    " Filtro 2: Apenas condition types da reforma em escopo
    CASE c_pricing_condition_record-kschl.
      WHEN 'CBS1' OR 'CBS2' OR 'IB1S' OR 'IB2S' OR 'IB1M' OR 'IB2M'.
        " Continua processamento
      WHEN OTHERS.
        RETURN.
    ENDCASE.

    " =================================================================
    " BLOCO 2: Recuperacao do Buffer de Respostas TXS
    " =================================================================

    " Instancia singleton do buffer (mesma usada pelo controller TXS)
    DATA(lr_response_buffer) = cl_txs_response_buffer=>get_instance( ).

    " Construcao da chave de busca (Reference = documento + item)
    DATA lv_container_ref  TYPE char16.
    DATA lv_container_doc  TYPE char16.
    DATA lv_container_item TYPE char16.

    " Cenario MM (KAPPL = TX): usa EVRTN (doc) + EVRTP (item)
    IF i_pricing_header-kappl = 'TX'.
      lv_container_doc  = c_pricing_item-evrtn.
      lv_container_item = c_pricing_item-evrtp.

    " Cenario SD (KAPPL = V): usa VGBEL/VGPOS ou AUBEL/AUPOS
    ELSEIF i_pricing_header-kappl = 'V'.
      IF c_pricing_item-vgbel IS NOT INITIAL.
        lv_container_doc  = c_pricing_item-vgbel.
        lv_container_item = c_pricing_item-vgpos.
      ELSEIF c_pricing_item-aubel IS NOT INITIAL.
        lv_container_doc  = c_pricing_item-aubel.
        lv_container_item = c_pricing_item-aupos.
      ENDIF.
    ENDIF.

    lv_container_ref = lv_container_doc && lv_container_item.

    " Recupera o objeto de resposta do buffer
    DATA lr_response TYPE REF TO if_txs_response.

    TRY.
        IF lv_container_doc IS NOT INITIAL.
          lr_response = lr_response_buffer->if_txs_resp_buffer_ext_getters~get_response_by_ref(
            i_reference = lv_container_ref ).
        ELSE.
          lr_response = lr_response_buffer->if_txs_resp_buffer_ext_getters~get_response_by_id(
            i_id = c_pricing_condition_record-kposn ).
        ENDIF.
      CATCH cx_txs_response_not_on_buffer.
        RETURN.
    ENDTRY.

    " =================================================================
    " BLOCO 3: Deserializacao do JSON para Estrutura ABAP
    " Resultado: wa_response (tipo TXS_RESPONSE) com toda a response
    " =================================================================

    DATA(lv_response_json) = lr_response->get_response_json( ).

    DATA wa_response TYPE txs_response.

    TRY.
        DATA(json_tool)   = cl_txs_json_serializer=>get_instance( ).
        DATA(json_string) = json_tool->rename_properties_to_field( lv_response_json ).

        json_tool->deserialize(
          EXPORTING json        = json_string
                    pretty_name = json_tool->pretty_mode-camel_case
          CHANGING  data        = wa_response ).
      CATCH cx_sy_move_cast_error.
        RETURN.
    ENDTRY.

    " =================================================================
    " BLOCO 4: Achatamento de tax_values + Mapeamento por tax_type_code
    " =================================================================

    " Achata tax_values de todas as tax_lines em tabela flat
    DATA lt_tax_values TYPE txs_tax_value_tty.
    LOOP AT wa_response-tax_lines ASSIGNING FIELD-SYMBOL(<ls_tax_line>).
      APPEND LINES OF <ls_tax_line>-tax_values TO lt_tax_values.
    ENDLOOP.

    " Mapeamento direto -- cada variavel recebe o imposto correspondente
    " Se o imposto nao existir na response, a variavel fica vazia (OPTIONAL)
    DATA(ls_tax_cbs)    = VALUE #( lt_tax_values[ tax_type_code = 'CBS' ] OPTIONAL ).
    DATA(ls_tax_ibsuf)  = VALUE #( lt_tax_values[ tax_type_code = 'IBSUF' ] OPTIONAL ).
    DATA(ls_tax_ibsmun) = VALUE #( lt_tax_values[ tax_type_code = 'IBSMUN' ] OPTIONAL ).

    " =================================================================
    " BLOCO 5: Regra de Negocio -- Atualizacao da Condition
    " Mapeamento: KSCHL -> taxTypeCode -> campos da pricing
    " Validacao: condition tipo 1 (taxable > 0) / tipo 2 (taxable = 0)
    " =================================================================

    " Seleciona o imposto correto baseado no KSCHL + valida taxable
    " Tipo 1 (CBS1, IB1S, IB1M): so atualiza se taxable > 0 (com credito)
    " Tipo 2 (CBS2, IB2S, IB2M): so atualiza se taxable <= 0 (sem credito)
    DATA ls_tax TYPE txs_tax_value.

    IF c_pricing_condition_record-kschl = 'CBS1' AND ls_tax_cbs-taxable > 0.
      ls_tax = ls_tax_cbs.
    ELSEIF c_pricing_condition_record-kschl = 'CBS2' AND ls_tax_cbs-taxable <= 0.
      ls_tax = ls_tax_cbs.
    ELSEIF c_pricing_condition_record-kschl = 'IB1S' AND ls_tax_ibsuf-taxable > 0.
      ls_tax = ls_tax_ibsuf.
    ELSEIF c_pricing_condition_record-kschl = 'IB2S' AND ls_tax_ibsuf-taxable <= 0.
      ls_tax = ls_tax_ibsuf.
    ELSEIF c_pricing_condition_record-kschl = 'IB1M' AND ls_tax_ibsmun-taxable > 0.
      ls_tax = ls_tax_ibsmun.
    ELSEIF c_pricing_condition_record-kschl = 'IB2M' AND ls_tax_ibsmun-taxable <= 0.
      ls_tax = ls_tax_ibsmun.
    ENDIF.

    " Atualiza os campos da pricing condition com dados do Tax Engine
    IF ls_tax IS NOT INITIAL.
      c_pricing_condition_value        = ls_tax-value.      " Valor do imposto (ex: 9.68)
      c_pricing_condition_record-kbetr = ls_tax-rate * 10.  " Aliquota x10 (ex: 8.80 -> 88.000)
      c_pricing_condition_record-kawrt = ls_tax-taxable.     " Base de calculo (ex: 110.00)
    ENDIF.