Sintoma

quando é criada diversas parcelas de Juros sem colocar o tipo de Taxa e a Taxa dos Juros, o programa

abre Pop ups informando que não foi informado a taxa e o tipo de taxa, diversas vezes. Ou seja, abre

um pop up para cada parcela de juros. o programa precisa mostrar apenas  uma vez esse Pop up

informando a falta das informações.

Solução

Fazer com que o programa não abra as janelas ( popup) diversas vezes para a mesma mensagem.

Informações Complementares

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

Nota Número 08572 Data: 22/06/2009 Hora: 16:39:26

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

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

Nota Número              : 08572

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00102

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

Referência às notas relacionadas:

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

01725  - 00007 - 6.0    - 00024  - CAPTAÇÃO - PRÉ-PAGAMENTO - GRAVAÇÃO DADOS E DOCTOS. CONTÁBEIS

01943  - 00006 - 6.0    - 00024  - RELATÓRIO DE DOCUMENTOS GERADOS PELA CAPTAÇÃO.

03094  - 00005 - 6.0    - 00026  - CAPTAÇÃO - CALCULO JUROS DE CONTRATO NA PARCELA VIGENTE COM SLPAG

03530  - 00004 - 7.0    - 00001  - CAPTAÇÃO PT - CÁLCULO PARCELA JUROS

03744  - 00003 - 7.0    - 00001  - ROTINA MENSAL EXPORTAÇÃO E CAPTAÇÃO - CÁLCULO JUROS

04419  - 00002 - 7.0    - 00002  - CAPTAÇÃO - PT - PRÉ-PAGAMENTO - JUROS NEGATIVO - DUMP

04808  - 00001 - 7.0    - 00003  - CAPTAÇÃO - ELIMINAÇÃO DA OBRIGATORIEDADE DA FORMA DE CALCULO PARA

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

CAPTAÇÃO - PASTA DE PERIODO DE JUROS - MENSAGEM VARIAS VEZES.

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

Palavras Chave:

CAPTAÇÃO - PASTA DE PERIODO DE JUROS - MENSAGEM VARIAS VEZES.

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

Objetos da nota:

REPS /PWS/MZYCB001F01

REPS /PWS/MZYCB001I01

REPS /PWS/MZYCB001TOP

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

      message i061 with text-149 /pws/zycbe004-belnr_comp

                        text-150 itab_zycbt032-belnr.

      /pws/zycbe004-belnr_comp = space.

    else.

      loop at itab_zycbt032.

        message i015 with itab_zycbt032-msg.

      endloop.

    endif.

  endif.

endform.

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

form dias_juros.

* << Fim da exclusão

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

form dias_juros using v_mess.

* << Fim da inclusão

  data:

    v_vlmeamj   like /pws/zycbe001-vlme,

    v_minimo      like /pws/zycbt001-vlme,

    v_maximo      like /pws/zycbt001-vlme,

    v_valme       like /pws/zycbt002-vlme,

    v_dtliquid    like /pws/zycbt001-dtliquid,

    v_dtpror      like /pws/zycbt003-dtpror.

  v_dtinicio3 = itab_zycbt002-dtinicio.

  if itab_zycbt002-dtinicio is initial.

    if v_dtfinal is initial.

...

...

              clear itab_zycbt010.

            else.

              message i015 with text-058.

              v_ind_juros = 'X'.

            endif.

          else.

            message i015 with text-057.

            v_ind_juros = 'X'.

          endif.

        else.

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

        if v_mess = 'X'.

* << Fim da inclusão

          message i015 with text-190.

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

          v_mess = ' '.

         endif.

* << Fim da inclusão

          v_ind_juros = 'X'.

        endif.

      else.

        clear itab_zycbt002-vlme.

        if /pws/zycbe001-tpcontr(1) ne 'C'.

          if /pws/zycbe001-tpcontr(1) eq 'D' and

            ( /pws/zycbe001-ffrcalc ne 'S' and

              /pws/zycbe001-ffrcalc ne 'V' ) .

            exit.

          endif.

          if itab_zycbt002-nrdias <> 0 and okcode eq 'SAVE'.

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

        if v_mess = 'X'.

* << Fim da inclusão

            message i015 with text-032.

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

          v_mess = ' '.

         endif.

* << Fim da inclusão

            v_ind_juros = 'X'.

          endif.

        endif.

      endif.

      if /pws/zycbe001-tpcontr(1) eq 'D'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001I01

...

    when 'SAVE'.

      case /pws/zycbe001-tpcontr+0(1).

        when 'D'.

          perform create_zycbt002_a.

        when 'P' or 'S'.

          perform create_zycbt002_p.

        when 'A' or 'E' or 'C' or 'T'.

          perform create_zycbt002_e.

      endcase.

      perform cria_parcelas_comissao.

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

      perform dias_juros.

* << Fim da exclusão

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

      perform dias_juros using ' '.

* << Fim da inclusão

      perform calcula_moeda.

      perform save_changes.

      perform save_clientes.

      perform save_condpgto.

      perform save_rof.

      perform salva_texto using v_idioma.

      perform save_performance.

      perform elimina_parcelas_comissao.

      perform salva_parcelas_comissao.

      clear: v_belnr.

...

...

  loop at itab_zyglt209.

    move: /pws/zygle209-bcofav to itab_zyglt209-bcofav.

    modify itab_zyglt209.

  endloop.

endmodule.

module dias_juros input.

  if sy-dynnr eq '0102'.

    perform pt_linear.

    clear v_vigencia.

    clear v_calc_todas.

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

    v_mess = 'X'.

* << Fim da inclusão

    loop at itab_zycbt002.

      if itab_zycbt002-nrparc = '001'

      and itab_zycbt002-belnr is initial.

        v_calc_todas = 'X'.

      endif.

      if v_cambiais = 'X' and sy-tcode eq c_transacao_a.

        clear v_cambiais.

        exit.

      endif.

      if itab_zycbt002-escalonado ne 'X'.

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

        perform dias_juros.

* << Fim da exclusão

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

        perform dias_juros using v_mess.

* << Fim da inclusão

      endif.

      modify itab_zycbt002.

      v_dtfinal = itab_zycbt002-dtfinal.

      if v_dtfinal is initial.

        v_dtfinal = v_dtaux.

      endif.

      if itab_zycbt002-nrdias eq '00000' and

        itab_zycbt002-dtinicio = itab_zycbt002-dtfinal.

        delete itab_zycbt002.

      endif.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001TOP

...

DATA:   v_bukrs        LIKE /pws/zycbt001-bukrs,

        v_bco_cab      TYPE /pws/zycbe134-bcocred,

        v_codaux1      TYPE /pws/zygle316-codaux1,

        v_codaux2      TYPE /pws/zygle316-codaux2,

        v_banco(10)    TYPE n,

        v_conta(10)    TYPE c,

         v_volta_part_conta(1) TYPE c,

        v_codaux3      TYPE /pws/zygle316-codaux3.

CONSTANTS: c_debito               TYPE c VALUE 'D',

           c_credito              TYPE c VALUE 'C'.

* >> Início da inclusão:

Data:    v_mess        type c.

* << Fim da inclusão

DATA: vg_tcode(15) TYPE c,

      vg_origem    TYPE c.

DATA: v_year  LIKE  bkpf-gjahr,

v_repid       LIKE sy-repid,

v_codmod      TYPE c VALUE 'E',

v_exit        LIKE /pws/zyglt100-zexit VALUE 'CPT002'.

DATA: v_capital,

      v_primeiro,

      v_bco_cred       TYPE /pws/zycbe001-bcocred,

      v_bconegoc       TYPE /pws/zycbe001-bconegoc,

...