Sintoma

O sistema deveria atualizar o campo deduz_juros da tabela /pws/zycbt006 para todos os 10 registros,

mas não está. Atualiza somente os primeiros 5 registros.

Solução

Alterações realizadas nas includes /PWS/MZYCB004F03, /PWS/MZYCB004F03 e /PWS/MZYCB004I01, para

atualizar o campo deduz_juros.

Informações Complementares

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

Nota Número 04445 Data: 17/08/2007 Hora: 10:48:59

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

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

Nota Número              : 04445

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00009

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO DE FATURAS

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

Palavras Chave:

LIQUIDAÇÃO DE FATURAS

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

Objetos da nota:

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004I01

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

        PERFORM msg_valor_invalido USING v_msg_1 v_msg_2.

        EXIT.

      ENDIF.

    ELSE.

      v_ind_mudanca = 'X'.

      itab_zycbt005-vlme        = /pws/zycbe006-vlme.

      IF itab_zycbt005-waers NE /pws/zycbt001-waers.

        PERFORM calc_paridade.

      ENDIF.

      itab_zycbt005-txjtotal2   = /pws/zycbe006-txjtotal.

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

      itab_zycbt005-deduz_juros = v_deduz.

* << Fim da exclusão

      MOVE:  /pws/zycbe006-vljur_acc TO itab_zycbt005-vljur_acc,

             /pws/zycbe006-vljur_ace TO itab_zycbt005-vljur_ace.

      PERFORM move_zycbt005.

      MODIFY itab_zycbt005

      INDEX tc_faturas-current_line TRANSPORTING dtpagto vlme slpagar

                                    txjtotal2 deduz_juros v_armda mark

                                    kostl aufnr kstrg prctr ps_posid

                                    nplnr matnr kdauf fictr fipos geber

                                    ebeln cod_area v_performance.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

      ASSIGN <fs_zycbt219>-belnr2 TO <fs_belnr>.

    ENDIF.

    PERFORM adiciona_documentos

      USING

        <fs_zycbt219>-bukrs

        <fs_belnr>

        <fs_zycbt219>-dtincl

        'S'.

  ENDLOOP.

ENDFORM.

* >> Início da inclusão:

FORM atualiza_deduz_juros.

  LOOP AT itab_zycbt005.

    itab_zycbt005-deduz_juros = v_deduz.

    MODIFY itab_zycbt005 INDEX sy-tabix.

  ENDLOOP.

  LOOP AT itab_zycbt006.

    itab_zycbt006-deduz_juros = v_deduz.

    MODIFY itab_zycbt006 INDEX sy-tabix.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCB004I01

...

ENDMODULE.

MODULE casas_decimais INPUT.

  SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycbt005-waers.

  IF sy-subrc <> 0.

    tcurx-currdec = 2.

  ENDIF.

  /pws/zycbe006-vlme = /pws/zycbe006-vlme  *

                       ( 10 ** ( tcurx-currdec - 2 ) ).

ENDMODULE.

MODULE verifica_liquidacao INPUT.

* >> Início da inclusão: MODULE VERIFICA_LIQUIDACAO

  perform atualiza_deduz_juros.

* << Fim da inclusão

  CLEAR v_existe_liq.

  CHECK v_status_s NE '0' AND

        sy-tcode   EQ c_transacao_c.

  LOOP AT itab_zycbt005.

    SELECT SINGLE nrseqc nrinvoic nrparcf tpdesp dtvincul dtpagto

      INTO (/pws/zycbt006-nrseqc, /pws/zycbt006-nrinvoic,

            /pws/zycbt006-nrparcf, /pws/zycbt006-tpdesp,

            /pws/zycbt006-dtvincul, /pws/zycbt006-dtpagto)

      FROM /pws/zycbt006

      WHERE nrseqc   = v_nrseqc

...