Sintoma

Ao efetuar uma liquidação em andamento total e ocorrer erro na F-30, o sistema esta tentando efetuar

uma FBRA incorretamente.

Solução

Verificar, antes de gerar a FBRA/FB08 no cancelamento de uma liquidação em andamento, verificar se

foi gerado desmembramento de cliente na liquidação emandamento. Se não foi, não efetuar a FBRA/FB08.

Informações Complementares

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

Nota Número 03529 Data: 24/04/2007 Hora: 11:38:33

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

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

Nota Número              : 03529

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00163

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

Referência às notas relacionadas:

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

03276  - 00001 - 6.0    - 00026  - LIQUIDAÇÃO EM ANDAMENTO - DESMEMBRAMENTO CLIENTE - ERRO BI - ZTER

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

LIQUIDAÇÃO EM ANDAMENTO TOTAL - FBRA INCORRETA APÓS ERRO F-30

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO TOTAL FBRA INCORRETA APÓS ERRO F-30

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

Objetos da nota:

REPS /PWS/MZYCB031F01

REPS /PWS/MZYCB031TOP

REPT /PWS/SAPMZYCB031

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

Modificações efetuadas em REPS /PWS/MZYCB031F01

...

          PERFORM proc_estorno.

        ENDIF.

    ENDCASE.

  ENDLOOP.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-033.

  ELSE.

    itab_zycbt209_ant[] = itab_zycbt209[].

  ENDIF.

  PERFORM verifica_alteracoes.

* >> Início da exclusão: FORM COMMAND_PROC

  IF sy-subrc EQ 0.

* << Fim da exclusão

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

  IF sy-subrc    EQ 0

     AND v_subrc NE 4.

* << Fim da inclusão

    SORT itab_zycbt209 BY nrinvoic gsberf nrparcf dtincl belnr.

    itab_zycbt209_ant[] = itab_zycbt209[].

    CALL FUNCTION 'MESSAGES_SHOW'

         EXPORTING

              object = text-046.

  ENDIF.

ENDFORM.

FORM command_back.

  PERFORM verifica_alteracoes.

  IF sy-subrc EQ 0.

...

...

      ENDIF.

      v_desmemb = 'X'.

    ELSE.

      itab_zycbt030-belnr_d = itab_zycbt030-v_belnr.

    ENDIF.

    MODIFY itab_zycbt030 TRANSPORTING belnr_d

                                      belnr.

  ENDLOOP.

  CHECK sy-subrc EQ 0.

  PERFORM clear_dados_batch.

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

  IF v_subrc = 4.

    MESSAGE e061 WITH text-073.

    EXIT.

  ENDIF.

* << Fim da inclusão

  CLEAR v_erro.

  IF v_desmemb EQ 'X'.

    CONCATENATE 'Des.'

                itab_zycbt209-nrinvoic

                itab_zycbt209-nrparcf

                INTO itab_zycbe033-c_zuonr

                SEPARATED BY space.

  ENDIF.

  itab_zycbe033-tcode  = 'F-30'.

  itab_zycbe033-tabela = '/PWS/ZYCBT209'.

...

...

                  arbgb = '/PWS/ZYCBM'

                  msgty = 'I'

                  msgv1 = itab_zycbt034-descricao

                  txtnr = '061'

                  zeile = v_zeile.

        v_zeile = v_zeile + 1.

      ENDLOOP.

      v_erro = 'X'.

    ENDIF.

  ENDIF.

* >> Início da exclusão: FORM PROC_INCLUSAO

  IF v_erro EQ 'X'.

* << Fim da exclusão

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

  IF     v_erro    EQ 'X'

     and v_desmemb EQ 'X'.

* << Fim da inclusão

    LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt209-nrinvoic AND

                                nrparcf  = itab_zycbt209-nrparcf  AND

                                gsberf   = itab_zycbt209-gsberf   AND

                                belnr_d  NE space.

      PERFORM anula_desmembramento USING itab_zycbt209-bukrs

                                         itab_zycbt030-belnr_d

                                         itab_zycbt209-dtcredext.

      CLEAR itab_zycbt030-belnr_d.

      MODIFY itab_zycbt030.

    ENDLOOP.

...

...

            i_demoeda_nao_encontrado   = 1

            i_paramoeda_nao_encontrado = 2

            i_ctmoeda_nao_encontrado   = 3

            i_dtbase_nao_encontrada    = 4

            taxa_nao_encontrada        = 5

            fator_nao_encontrado       = 6

            i_montante_nao_encontrado  = 7

            OTHERS                     = 8.

ENDFORM.

FORM desmembra_cliente.

* >> Início da exclusão: FORM DESMEMBRA_CLIENTE

  DATA: v_subrc    LIKE sy-subrc,

* << Fim da exclusão

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

  data:

* << Fim da inclusão

        v_dtliquid LIKE sy-datum,

        v_dtemb    LIKE sy-datum,

        v_kurrf_bl LIKE /pws/zycet001-kurrf_bl,

        v_cpochv   LIKE /pws/zycbe033-cpochv,

        v_desm     LIKE /pws/zycbt089-tx_desm_cli..

  DATA: v_gjahr TYPE gjahr.

  PERFORM clear_dados_batch.

  CLEAR   itab_zyglt321.

  REFRESH itab_zyglt321.

  SELECT * FROM /pws/zyglt321

...

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

Modificações efetuadas em REPS /PWS/MZYCB031TOP

...

DATA: BEGIN OF itab_zycbt017 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt017.

DATA: END OF itab_zycbt017.

DATA: BEGIN OF itab_zycbt045 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt045.

DATA: END OF itab_zycbt045.

DATA: wa_zycet048 LIKE /pws/zycet048.

CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB031_C',

           c_transacao_a(14) VALUE '/PWS/ZYCB031_A',

           c_transacao_e(14) VALUE '/PWS/ZYCB031_E'.

* >> Início da exclusão:

CONSTANTS: c_no_modify(1) VALUE 'X'.

* << Fim da exclusão

* >> Início da inclusão:

CONSTANTS: c_no_modify(1) VALUE 'X',

           c_zero(2) type c value ' 0'.

* << Fim da inclusão

CONTROLS: tc_liq   TYPE TABLEVIEW USING SCREEN 0100.

DATA:

      v_oper       LIKE icons-text,

      v_status(1)  TYPE c VALUE '1',

      v_vlsltrans  LIKE /pws/zycbt030-vlsltrans,

      v_line_ini   TYPE i VALUE 1,

      v_databl     LIKE sy-datum,

      v_zeile(5)   TYPE n,

      v_ktokd      LIKE /pws/zyglt368-ktokd,

      v_name1      LIKE kna1-name1,

...

...

      v_vktra      LIKE /pws/zycit054-vktra,

      v_dtemb      LIKE /pws/zycet001-dtemb,

      v_dtaverb2   LIKE /pws/zycet001-dtaverb,

      v_dtcruze    LIKE /pws/zycet001-dtcruze,

      v_nrseq      LIKE /pws/zycet001-nrseq,

      moeda        LIKE /pws/zycbt209-waers,

      v_buzei      LIKE bseg-buzei,

      v_zterm      LIKE bsid-zterm,

      v_zbd1t      LIKE bsid-zbd1t,

      v_ztag1      LIKE t052-ztag1,

* >> Início da exclusão:

      v_vinc_tot   type c.

* << Fim da exclusão

* >> Início da inclusão:

      v_vinc_tot   type c,

      v_subrc      like sy-subrc.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0001.

SELECT-OPTIONS: s_nrinv FOR /pws/zycbt209-nrinvoic

                MATCHCODE OBJECT /pws/zygla288,

                s_bukrs FOR /pws/zycbt209-bukrs,

                s_gsber FOR /pws/zycbt209-gsberf,

                s_werks FOR /pws/zycbt209-werks,

                s_nparc FOR /pws/zycbt209-nrparcf,

                s_kunnr FOR /pws/zycbt209-kunnr,

                s_dtinc FOR /pws/zycbt209-dtincl.

SELECTION-SCREEN END OF SCREEN 0001.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB031

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 073

Texto: (31 caracteres)

"Houve um erro na contabilização"

Comprimento máximo: 31