Sintoma

Ao efetuar uma liquidação com arbitragem, ocorrem os seguintes erros:

- com saldo total em VME, gera F-02 e ocorre erro na F-30(se perde no BI)

- com saldo em VME e LA, gera F-02 e ocorre erro na F-30(atribuição LA)

Solução

- com saldo total em VME, não enviar ao BI documentos vazios, quando não tem saldo(cliente, LA).

- com saldo em VME e LA, buscar atribuição da partida em aberto de LA.

Informações Complementares

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

Nota Número 11194 Data: 01/06/2011 Hora: 11:47:48

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

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

Nota Número              : 11194

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00073

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

Referência às notas relacionadas:

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

07760  - 00001 - 7.0    - 00007  - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO

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

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

09254  - 00004 - 8.0    - 00001  - CODE INSPECTOR - CAMBIO

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

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

LIQUIDAÇÃO ARBITRAGEM-SALDO TOTAL VME OU PARTE LA-ERRO LANÇAMENTO F-30

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

Palavras Chave:

LIQUIDAÇÃO ARBITRAGEM SALDO TOTAL VME OU PARTE LA ERRO LANÇAMENTO F-30

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

Objetos da nota:

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004F03

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

                                      gsberf   = itab_zycbt209-gsberf

                                      msg      = text-197.

    IF sy-subrc NE 0.

      PERFORM determina_ano USING itab_partidas-dtdocto

                                  itab_zycbt209-bukrs

                            CHANGING v_ano.

      SELECT zuonr FROM bseg INTO itab_partidas-d_zuonr

                   UP TO 1 ROWS

                   WHERE bukrs = itab_zycbt209-bukrs

                     AND belnr = itab_partidas-belnr

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

                     AND gjahr = v_ano.

* << Fim da exclusão

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

                     AND gjahr = v_ano

                     AND ( augbl = space OR

                           augbl = '          ' ).

* << Fim da inclusão

      ENDSELECT.

      v_zuonr = 'X'.

    ELSE.

      CONCATENATE text-460

                  itab_zycbt006-nrinvoic

                  itab_zycbt006-nrparcf

                  INTO itab_partidas-d_zuonr

                  SEPARATED BY space.

    ENDIF.

    itab_partidas-v_sinal = '-'.

...

...

        PERFORM lancamento_liquid_f_02

           USING 'CPT'

                 ' '

           CHANGING v_subrc.

        IF v_subrc = 4.

          EXIT.

        ENDIF.

      ENDIF.

    ENDIF.

    CLEAR: itab_zycbt209, v_data_f_28.

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

    READ TABLE itab_zycbt209

             WITH KEY nrinvoic = itab_zycbt006-nrinvoic

                        gsberf = itab_zycbt006-gsberf

                       nrparcf = itab_zycbt006-nrparcf.

* << Fim da exclusão

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

    LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic

                            AND gsberf   = itab_zycbt006-gsberf

                            AND nrparcf  = itab_zycbt006-nrparcf

                            AND saldo    > 0.

      EXIT.

    ENDLOOP.

* << Fim da inclusão

    LOOP AT itab_recurso_aux INTO wa_recurso_aux

                 WHERE nrinvoic     = itab_zycbt006-nrinvoic

                   AND gsberf       = itab_zycbt006-gsberf

                   AND nrparcf      = itab_zycbt006-nrparcf

                   AND ( descorigem = c_liq_cliente OR

                         descorigem = c_liq_and ).

      EXIT.

    ENDLOOP.

    IF sy-subrc EQ 0 OR

       ( itab_recurso_aux2[] IS INITIAL AND

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

                separated by space.

    modify itab_zycbe033 index 1.

  endif.

  v_tpcontabil = 'ARB'.

  perform busca_dados_bi using itab_zycbe033-bukrs

                               v_tpcontabil.

  clear /pws/zycbt084.

  loop at itab_zycbt034.

    message i016 with itab_zycbt034-descricao.

  endloop.

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

  delete itab_zycbt036 where belnr is initial or

                              belnr eq space   or

                              belnr eq '          '.

* << Fim da inclusão

  if itab_zycbt034 is initial.

    perform unlock_razao using itab_zycbe033-d_newko

                               itab_zycbe033-bukrs.

    perform unlock_razao using itab_zycbe033-c_newko

                               itab_zycbe033-bukrs.

    v_agkon = itab_zycbe033-agkon.

    perform unlock_razao using v_agkon

                               itab_zycbe033-bukrs.

    read table itab_zycbt005 with key nrinvoic = itab_zycbt006-nrinvoic

                                        gsberf   = itab_zycbt006-gsberf

...

...

      else.

        itab_partidas-dtdocto = itab_zycbt030-dtbelnr.

      endif.

      perform determina_ano using itab_partidas-dtdocto

                                  itab_zycbt006-bukrs

                            changing v_ano.

      select zuonr from bseg into itab_partidas-d_zuonr

                   up to 1 rows

                   where bukrs = itab_zycbt006-bukrs

                     and belnr = itab_partidas-belnr

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

                     and gjahr = v_ano.

* << Fim da exclusão

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

                     and gjahr = v_ano

                     and ( augbl = space or

                           augbl = '          ' ).

* << Fim da inclusão

      endselect.

      v_zuonr = 'X'.

    else.

      concatenate text-460

                  itab_zycbt006-nrinvoic

                  itab_zycbt006-nrparcf

                  into itab_partidas-d_zuonr

                  separated by space.

    endif.

    itab_partidas-v_sinal = '-'.

...

...

                               gsberf   = itab_zycbt209-gsberf

                               msg      = text-197.

      if sy-subrc ne 0.

        perform determina_ano using itab_partidas-dtdocto

                                    itab_zycbt209-bukrs

                              changing v_ano.

        select zuonr from bseg into itab_partidas-d_zuonr

                     up to 1 rows

                     where bukrs = itab_zycbt209-bukrs

                       and belnr = itab_partidas-belnr

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

                       and gjahr = v_ano.

* << Fim da exclusão

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

                       and gjahr = v_ano

                     and ( augbl = space or

                           augbl = '          ' ).

* << Fim da inclusão

        endselect.

        v_zuonr = 'X'.

      else.

        concatenate text-460

                      itab_zycbt006-nrinvoic

                      itab_zycbt006-nrparcf

                      into itab_partidas-d_zuonr

                      separated by space.

      endif.

      itab_partidas-v_sinal = '-'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

          itab_zycbt084-result_saldo = itab_zycbe033-wrbtr.

          itab_zycbt084-tdesmemb = 'V'.

          append itab_zycbt084.

          itab_contabil-nrinvoic = itab_zycbt006-nrinvoic.

          clear itab_contabil-vbeln.

          itab_contabil-nrparcf  = itab_zycbt006-nrparcf.

          itab_contabil-gsberf   = itab_zycbe033-c_gsber.

          itab_contabil-docto    = itab_zycbt032-belnr.

          itab_contabil-msg      = text-457.

          itab_contabil-bukrs    = itab_zycbe033-bukrs.

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

          itab_contabil-dtdocto  = itab_zycbt006-dtpagto.

* << Fim da inclusão

          append itab_contabil.

        else.

          delete from /pws/zycbt084

                       where nrseqc   = itab_zycbt006-nrseqc

                         and nrinvoic = itab_zycbt006-nrinvoic

                         and nrparc   = itab_zycbt006-nrparc

                         and nrparcf  = itab_zycbt006-nrparcf

                         and tpdesp   = itab_zycbt006-tpdesp

                         and gsberf   = itab_zycbt006-gsberf

                         and dtincl   = itab_zycbt006-dtincl

...