Sintoma

A contabilização na liquidação com perfomance é feita corretamente apenas para as faturas que

aparecem na table control.

Solução

Adicionado tratamento para todas as faturas da table control, para que possam fazer a liquidação com

performance corretamente.

Informações Complementares

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

Nota Número 01360 Data: 17/05/2006 Hora: 17:12:46

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

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

Nota Número              : 01360

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00114

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO COM PERFORMANCE.

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

Palavras Chave:

LIQUIDAÇÃO COM PERFORMANCE. CAMPO ZTERM

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

Objetos da nota:

DYNP /PWS/SAPMZYCB004                        0100

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004I01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB004                        0100

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

           WHERE nrinvoic = itab_zycbt005-nrinvoic AND

                 dtvincul = itab_zycbt005-dtvincul .

  ENDIF.

ENDFORM.

FORM altera_itab_zycbt005.

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

  DATA: v_vlmedif LIKE /pws/zycbt006-vlme,

        v_bukrs_fat LIKE /pws/zycbt017-bukrs.

* << Fim da exclusão

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

  DATA: v_vlmedif LIKE /pws/zycbt006-vlme.

* << Fim da inclusão

  IF v_status_s EQ 0.

    MODIFY itab_zycbt005

    INDEX tc_faturas-current_line TRANSPORTING mark.

    EXIT.

  ENDIF.

...

...

      v_ind_mudanca = 'X'.

      itab_zycbt005-vlme        = /pws/zycbe006-vlme.

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

        PERFORM calc_paridade.

      ENDIF.

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

      SELECT SINGLE bukrs FROM /pws/zycbt017 INTO v_bukrs_fat

        WHERE nrinvoic = itab_zycbt005-nrinvoic

          AND nrparcf  = itab_zycbt005-nrparcf

          AND gsberf   = itab_zycbt005-gsberf.

      IF sy-subrc EQ 0.

        IF /pws/zycbe001-bukrs NE v_bukrs_fat.

          itab_zycbt005-v_performance = 'X'.

        ENDIF.

      ENDIF.

* << Fim da exclusão

      itab_zycbt005-txjtotal2   = /pws/zycbe006-txjtotal.

      itab_zycbt005-deduz_juros = v_deduz.

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

             /pws/zycbe006-vljur_ace TO itab_zycbt005-vljur_ace.

      PERFORM move_zycbt005.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004I01

MODULE user_command_0100 INPUT.

  DATA: e_subrc       LIKE sy-subrc,

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

        v_bukrs_fat LIKE /pws/zycbt017-bukrs,

* << Fim da inclusão

        e_exec_okcode.

  CLEAR: r_okcode, e_exec_okcode, v_syrepid.

  LOOP AT itab_zycbt005.

    itab_zycbt005-dtpagto  = v_dtpagto.

    itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.

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

      itab_zycbt005-v_armda = 'X'.

    ENDIF.

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

        SELECT SINGLE bukrs FROM /pws/zycbt017 INTO v_bukrs_fat

          WHERE nrinvoic = itab_zycbt005-nrinvoic

            AND nrparcf  = itab_zycbt005-nrparcf

            AND gsberf   = itab_zycbt005-gsberf.

        IF sy-subrc EQ 0.

          IF /pws/zycbe001-bukrs NE v_bukrs_fat.

            itab_zycbt005-v_performance = 'X'.

          ENDIF.

        ENDIF.

* << Fim da inclusão

    MODIFY itab_zycbt005

* >> Início da exclusão: MODULE USER_COMMAND_0100

      TRANSPORTING dtpagto dtpagext v_armda.

* << Fim da exclusão

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

      TRANSPORTING dtpagto dtpagext v_armda

                   v_performance.

* << Fim da inclusão

  ENDLOOP.

  CALL METHOD cl_gui_cfw=>dispatch.

  IF NOT r_okcode IS INITIAL.

    ok_code = r_okcode.

  ENDIF.

...