Sintoma

Permitia agrupamento de Tipos de Juros diferentes para um determinado contrato.

Solução

Incluir código existente nesta nota.

Informações Complementares

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

Nota Número 02786 Data: 29/12/2006 Hora: 14:26:25

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

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

Nota Número              : 02786

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AGRUPAMENTO DE TIPOS DE JUROS DIFERENTES PARA UM CONTRATO.

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

Palavras Chave:

AGRUPAMENTO DE TIPOS DE JUROS DIFERENTES PARA UM CONTRATO.

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

Objetos da nota:

DYNP /PWS/SAPMZYCB012                        0100

REPS /PWS/MZYCB012I01

REPT /PWS/SAPMZYCB012

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

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

...

process after input.

...

  loop at itab_zycbt044.

    field /pws/zycbe044-nrseqc.

    field /pws/zycbe044-bukrs module empresa_branco.

    module altera_itab_zycbt044.

  endloop.

  module:

* >> Início da inclusão:

    tpjuros,

* >> Fim da inclusão:

    verif_contrato,

    verifica_banco,

    atualiza_dados,

    verifica_campo_obrigatorio,

    user_command_0100,

    user_command_exit at exit-command.

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

Modificações efetuadas em REPS /PWS/MZYCB012I01

...

module user_command_0051 input.

  case sy-ucomm.

    when 'BC'.

      call method html_control->go_back.

      clear sy-ucomm.

    when 'AVAN'.

      call method html_control->go_forward.

      clear sy-ucomm.

  endcase.

endmodule.

* >> Início da inclusão:

MODULE tpjuros INPUT.

  DATA: v_tpjuros     TYPE /pws/zycbt044-tpjuros,

        v_erro_jur(1) TYPE c.

  IF /pws/zyglt009 IS INITIAL.

    SELECT SINGLE * FROM /pws/zyglt009

      WHERE bukrs = /pws/zycbe044-bukrs.

  ENDIF.

  IF /pws/zyglt009-cont_rot_sep = 'S'.

    READ TABLE itab_zycbt044 INDEX 1.

    IF sy-subrc = 0.

      v_tpjuros = itab_zycbt044-tpjuros.

    ENDIF.

    LOOP AT itab_zycbt044.

      IF itab_zycbt044-tpjuros NE v_tpjuros.

        DELETE itab_zycbt044.

        v_erro_jur = 'X'.

      ENDIF.

    ENDLOOP.

    IF v_erro_jur = 'X'.

      MESSAGE i015 WITH text-143 text-144.

      CLEAR v_erro_jur.

      EXIT.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCB012

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 143

Texto: (30 caracteres)

"Não é permitido agrupamento de"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 144

Texto: (26 caracteres)

"Tipos de Juros diferentes."

Comprimento máximo: 26