Sintoma

O sistema se perdia no lançamento contábil de Liquidação com Arbitragem quando a liquidação

era feita no valor total da fatura

Solução

Foi incluído um tratamento para não efetuar o filtro por atribuição quando o lançamento de

desmembramento do cliente não ocorrer

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11178 Data: 25/05/2011 Hora: 10:36:16

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 11178

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00072

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

08536  - 00001 - 7.0    - 00009  - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C

09055  - 00002 - 8.0    - 00001  - CODE INSPECTOR - CAMBIO EXPORTAÇÃO

09133  - 00003 - 8.0    - 00001  - CODE INSPECTOR - CAMBIO EXPORTAÇÃO

09221  - 00004 - 8.0    - 00001  - CODE INSPECTOR CÂMBIO

09254  - 00005 - 8.0    - 00001  - CODE INSPECTOR - CAMBIO

09262  - 00006 - 8.0    - 00001  - CODE INSPECTOR CÂMBIO

09268  - 00007 - 8.0    - 00001  - CODE INSPECTOR CÂMBIO

09894  - 00008 - 8.0    - 00002  - ASSOCIAÇÃO VALORES MANTIDOS NO EXTERIOR - ARBITRAGEM APENAS NO EM

----------------------------------------------------------------------------------------------------

LIQUIDAÇÃO ARBITRAGEM NÃO FAZER FILTRO DA ATRIBUIÇÃO NA LIQUIDAÇÃO TOTAL

----------------------------------------------------------------------------------------------------

Palavras Chave:

LIQUIDAÇÃO ARBITRAGEM - FILTRO ATRIBUIÇÃO LANÇAMENTO

CONTÁBIL - LIQUIDAÇÃO TOTAL

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_W

REPS /PWS/MZYCB004F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W

...

    v_vl_min(16)         value '0,01',

    v_vl_max(16)         value '9.999.999.999,99',

    v_partidas(1),

    v_xpos_belnr2(2) type n,

    v_selecao(2)    type n,

    v_tabix         like sy-tabix,

    v_agkoa         like /pws/zycbe033-agkoa,

    v_fdtdoc             type /pws/zycbt007-fdtdoc,

    v_year          like bkpf-gjahr.

  data: v_chv(1) type c.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W

  DATA: v_filtro_zuonr(1) TYPE c.

* << Fim da inclusão

  data: begin of itab_parts occurs 0,

          tabela  like /pws/zycbe033-tabela,

          cpochv  like /pws/zycbe033-cpochv,

          tcode   like /pws/zycbe033-tcode,

          agkoa   like /pws/zycbe033-agkoa,

          agkon   like /pws/zycbe033-agkon,

          agums   like /pws/zycbe033-agums,

          shkzg   like /pws/zycbe033-shkzg,

          v_sinal type /pws/zycbe033-v_sinal,

          dtdocto type /pws/zycbe033-dtdocto,

...

...

        perform bdc_field using v_campo  t_partidas-belnr.

        perform bdc_field using v_campo2 t_partidas-belnr.

        if v_cont = 5.

          perform bdc_field  using 'BDC_OKCODE' '=SU1'.

          perform bdc_screen using 'SAPDF05X'   '0731'.

          perform bdc_field using 'BDC_CURSOR'  'RF05A-SEL01(01)'.

          clear v_cont.

        endif.

      endloop.

      perform bdc_field  using 'BDC_OKCODE' '=GO'.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W

      CLEAR v_filtro_zuonr.

      IF NOT t_dados-c_zuonr IS INITIAL.

        v_filtro_zuonr = 'X'.

      ELSEIF NOT t_dados-d_zuonr IS INITIAL AND v_liqop EQ 'X'.

        SELECT SINGLE comp_aut_cc FROM /pws/zyglt009

                      INTO /pws/zyglt009-comp_aut_cc

                      WHERE bukrs = t_dados-bukrs.

        IF sy-subrc NE 0 OR ( sy-subrc = 0 AND

                           NOT /pws/zyglt009-comp_aut_cc IS INITIAL ).

          v_filtro_zuonr = 'X'.

        ENDIF.

      ELSEIF NOT v_assoc IS INITIAL AND

             NOT t_dados-d_zuonr IS INITIAL.

        v_filtro_zuonr = 'X'.

      ELSEIF NOT v_zuonr IS INITIAL.

        IF v_zuonr = 'X'.

          LOOP AT t_partidas WHERE tcode   = t_dados-tcode

                               AND tabela  = t_dados-tabela

                               AND cpochv  = t_dados-cpochv.

            IF NOT t_partidas-d_zuonr IS INITIAL.

                    v_filtro_zuonr = 'X'.

              EXIT.

            ENDIF.

          ENDLOOP.

        ELSE.

          v_filtro_zuonr = 'X'.

        ENDIF.

      ELSEIF NOT v_zuonr2 IS INITIAL.

        v_filtro_zuonr = 'X'.

      ELSEIF v_liqop EQ 'X'.

        LOOP AT t_partidas.

          IF NOT t_partidas-d_zuonr IS INITIAL AND

                 t_partidas-d_zuonr(4) = text-052.

            v_filtro_zuonr = 'X'.

            EXIT.

          ENDIF.

        ENDLOOP.

      ENDIF.

      IF NOT v_filtro_zuonr IS INITIAL.

* << Fim da inclusão

      perform bdc_screen using 'SAPDF05X'    '3100'.

      perform bdc_field  using 'BDC_SUBSCR'  'SAPDF05X'.

      perform bdc_field  using 'RF05A-ABPOS' '1'.

      perform bdc_field  using 'BDC_OKCODE'  '=OSU'.

      clear v_xpos1.

      select single selps from t021r

        into  v_xpos1

        where event = 'SU-AG'

          and feldn = 'ZUONR'.

      shift v_xpos1 left deleting leading  '0'.

...

...

          concatenate 'RF05A-SEL01(' v_cont ')' into v_xpos.

          perform bdc_field using v_xpos t_partidas-d_zuonr.

          if v_cont > 5.

            perform bdc_field using 'BDC_OKCODE' 'SU1'.

            perform bdc_screen using 'SAPDF05X'        '0731'.

            clear v_cont.

          endif.

        endif.

      endloop.

      perform bdc_field  using 'BDC_OKCODE'      '=GO'.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W

      ENDIF.

* << Fim da inclusão

      perform bdc_screen using 'SAPDF05X'   '3100'.

      perform bdc_field  using 'BDC_CURSOR' 'RF05A-ABPOS'.

      perform bdc_field  using 'BDC_OKCODE' '=OMX'.

      perform bdc_screen using 'SAPDF05X'   '3100'.

      perform bdc_field  using 'BDC_CURSOR' 'RF05A-ABPOS'.

      perform bdc_field  using 'BDC_OKCODE' '=Z+'.

      perform bdc_screen using 'SAPDF05X'   '3100'.

      perform bdc_field  using 'BDC_CURSOR' 'RF05A-ABPOS'.

      perform bdc_field  using 'BDC_OKCODE' '=OSE'.

      perform bdc_screen using 'SAPDF05X'   '3100'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

            empresa_nao_encontrada = 3

            period_in_not_valid    = 4

            period_not_assigned    = 5

            version_undefined      = 6

            others                 = 7.

  select single * from bkpf

     where bukrs = itab_zycbt006-bukrs

       and belnr = itab_zycbe033-belnr

       and gjahr = v_year.

  itab_zycbe033-dtdocto = bkpf-budat.

* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3

  IF v_tot_cliente IS INITIAL.

* << Fim da inclusão

  concatenate text-460 itab_zycbt006-nrinvoic itab_zycbt006-nrparcf

              into itab_zycbe033-c_zuonr

              separated by space.

* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3

  ENDIF.

* << Fim da inclusão

  itab_zycbt036-tcode   = itab_zycbe033-tcode.

  itab_zycbt036-tabela  = itab_zycbe033-tabela.

  itab_zycbt036-cpochv  = itab_zycbe033-cpochv.

  itab_zycbt036-residuo = itab_zycbe033-wrbtr.

...