Sintoma

Na adição da DI, pasta câmbio, pagamento em até 180 dias, não deixa preencher a taxa.

O programa não está permitindo alterar o flag referente as parcelas.

Solução

Corrigir o tratamento para contemplar as chamadas desnecessarias da subtela.

Informações Complementares

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

Nota Número 05591 Data: 09/01/2008 Hora: 13:36:27

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

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

Nota Número              : 05591

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00029

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTES NO ANEXO DA DI PASTA CAMBIO->PAGAMENTO EM ATÉ 180 DIAS

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

Palavras Chave:

ANEXO - DI - CAMBIO - PAGAMENTO - 180 - DIAS - RADIO - BUTTON

/PWS/SAPMZYCI023 - PREENCHER - TAXA

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0353

REPS /PWS/MZYCI023F02

REPS /PWS/MZYCI023I01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0353

MODIFICAR BOTÃO RADIO "/PWS/ZYCIE116-PARCFIXAS"

Código função            PARC

MODIFICAR BOTÃO RADIO "/PWS/ZYCIE116-PARCVAR"

Código função            PARC

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE116-VALTOT"

Altura                   20

Comprimento Visível      21

Texto                    __.___.___.___,_____V

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0353

process before output.

module: radio_init1,

        set_screen,

        screen_lines.

loop at itab_zycit124b with control tc_apar.

     module: set_screen_lines_esp,

             fill_struct124b.

endloop.

process after input.

* >> Início da inclusão:

  FIELD: /pws/zycie116-codtxjuros MODULE load_juro ON REQUEST.

* << Fim da inclusão

module: radio_comm1.

loop at itab_zycit124b.

chain.

field /pws/zycie124-valor  module modi_data124b on input.

endchain.

     module modi_data124b.

endloop.

* >> Início da exclusão:

field: /pws/zycie116-codtxjuros module load_juro on request.

* << Fim da exclusão

* >> Início da inclusão:

  FIELD : /pws/zycie116-parcfixas,

          /pws/zycie116-parcvar MODULE parcela ON REQUEST.

* << Fim da inclusão

module: verify_tables.

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

Modificações efetuadas em REPS /PWS/MZYCI023F02

...

ENDFORM.

FORM load_mdpg.

  CLEAR: a_modpa.

  SELECT SINGLE descricao FROM /pws/zycit193 INTO a_modpa WHERE

         codmodpag = /pws/zycie006-mdpgto.

ENDFORM.

FORM load_juro.

  CLEAR: a_txjur.

  SELECT SINGLE descricao FROM /pws/zycet180 INTO a_txjur

         WHERE codtxjuros = /pws/zycie116-codtxjuros.

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

  IF sy-subrc EQ 0.

    MOVE /pws/zycie116-codtxjuros   TO  itab_zycit116-codtxjuros.

    MODIFY itab_zycit116 TRANSPORTING codtxjuros

                         WHERE nrseqdi EQ /pws/zycie116-nrseqdi

                           AND adicao  EQ /pws/zycie116-adicao.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM load_para.

  CLEAR: wa_zycbt007, wa_it000.

  SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                  WHERE bukrs EQ /pws/zycie085-bukrs.

  SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.

  SELECT SINGLE * FROM /pws/zycit000 INTO wa_it000

                          WHERE land1 EQ t001-land1.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-031 /pws/zycie085-bukrs.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

         a_checked = 3.

        a_check3      = /pws/zycie116-taxajuros.

        a_3codtxjuros = /pws/zycie116-codtxjuros.

        a_3taxarate   = /pws/zycie116-taxarate.

        a_3parcnum    = /pws/zycie116-parcnum.

        a_3periodic   = /pws/zycie116-periodic.

        a_3indice     = /pws/zycie116-indice.

        a_3valtot     = /pws/zycie116-valtot.

      ENDIF.

  ENDCASE.

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

  IF a_ucomm2 EQ 'ENTE'.

    IF     /pws/zycie116-parcfixas = 'X'.

      a_radio1 = '1'.

    ELSEIF /pws/zycie116-parcvar   = 'X'.

      a_radio1 = '2'.

    ENDIF.

    CLEAR: a_ucomm2.

  ENDIF.

* << Fim da exclusão

ENDMODULE.

MODULE modi_dataadir INPUT.

  it_adir-mark = wa_adr-mark.

  MODIFY it_adir INDEX tc_arep-current_line TRANSPORTING mark.

ENDMODULE.

MODULE check_urf INPUT.

  IF NOT v_msg1 IS INITIAL.

    CLEAR: v_msg1.

    IF NOT /pws/zycie085-urfdesp IS INITIAL AND

       NOT /pws/zycie085-urfent  IS INITIAL.

...

...

  IF itab_zycit003-modalidade EQ 'I'.

    /pws/zycie100a-codregtripiscofi = '3'.

  ENDIF.

  IF itab_zycit003-modalidade EQ 'S'.

    /pws/zycie100a-codregtripiscofi = '5'.

  ENDIF.

ENDMODULE.

MODULE load_fun_icms INPUT.

  PERFORM load_fun_icms.

ENDMODULE.

* >> Início da inclusão:

MODULE parcela INPUT.

  IF     /pws/zycie116-parcfixas = 'X'.

    a_radio1 = '1'.

  ELSEIF /pws/zycie116-parcvar   = 'X'.

    a_radio1 = '2'.

  ENDIF.

  CLEAR: a_ucomm2.

  MOVE: /pws/zycie116-parcfixas TO itab_zycit116-parcfixas,

        /pws/zycie116-parcvar   TO  itab_zycit116-parcvar.

  MODIFY itab_zycit116 TRANSPORTING parcfixas parcvar

                       WHERE nrseqdi EQ /pws/zycie116-nrseqdi

                         AND adicao  EQ /pws/zycie116-adicao.

ENDMODULE.

* << Fim da inclusão