CE PLUS - Nota 009694

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Vinculação

Data/Hora da Publicação: 14/01/2010 00:00:00

Data/Hora Última Alteração: 21/02/2011 10:23:02

Descrição da Nota: VINCULAÇÃO FATURA EXPORTAÇÃO, FLAG DEDUZ JUROS

Sintoma

O Programa está calculando de forma incorreta o Valor dos Juros Dentro da Captação para contratos de

PT e ST.

 

 

Solução

O Campo Flag Deduz Juros estará sempre fechado para edição. O Programa irá identificar se a data de

Pagamento no Exterior está preenchida, caso sim o Flag também ficará preenchido, caso não, o Flag

não ficará preenchido.

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURITIZAÇÃO

Informações Complementares

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

Nota Número 09694 Data: 14/01/2010 Hora: 17:40:25

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

 

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

Nota Número              : 09694

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00004

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

Referência às notas relacionadas:

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

 

08164  - 00001 - 7.0    - 00008  - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURI

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

VINCULAÇÃO FATURA EXPORTAÇÃO, FLAG DEDUZ JUROS

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

Palavras Chave:

VINCULAÇÃO FATURA EXPORTAÇÃO, FLAG DEDUZ JUROS, DATA PAGAMENTO EXTERIOR

 

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

Objetos da nota:

DYNP /PWS/SAPMZYCB009                        0100

REPS /PWS/MZYCB009F05

REPS /PWS/MZYCB009I01

 

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

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

 

 

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100

...

    with control tc_faturas

    cursor tc_faturas-current_line.

    module carrega_zycbe005.

    module set_screen_vinc.

  endloop.

  module posiciona_cursor.

  module: mensagem_tc_recurso_aux.

process after input.

  module limpa_var.

  call subscreen ss_html.

* >> Início da inclusão:

  module flag_deduz_juros.

* << Fim da inclusão

  field /pws/zycbe005-j_1bbranch module consiste_local_neg.

  loop at itab_zycbt005.

    field /pws/zycbe005-nrinvoic module verifica_condicoes.

    module casas_decimais.

    chain.

      field /pws/zycbe005-vlslf.

      field /pws/zycbe005-vlme_p.

      field /pws/zycbe005-vlvinc.

    endchain.

    module verif_vincul.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB009F05

 

...

        screen-input    = 1.

        screen-required = 0.

      elseif screen-name = '/PWS/ZYCBE005-DEDUZ_JUROS' or

             screen-name = 'TXT_DEDUZ_JUROS'.

        if sy-tcode ne c_transacao_a.

          screen-invisible = 0.

          if /pws/zycbe001-ffrcalc = 'C'.

              screen-input = 0.

          else.

            if not /pws/zycbe006-dtpagext is initial.

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

              screen-input = 1.

* << Fim da exclusão

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

              screen-input = 0.

              /pws/zycbe005-deduz_juros = 'X'.

* << Fim da inclusão

            else.

              screen-input = 0.

              clear /pws/zycbe005-deduz_juros.

            endif.

          endif.

        else.

          if /pws/zycbe001-ffrcalc = 'C'.

            screen-input = 0.

          endif.

        endif.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB009I01

 

...

            dyname     = sy-cprog

            dynumb     = '0301'

       tables

            dynpfields = tdynpread

       exceptions

            others     = 8.

endmodule.

module altera_0401 input.

  perform altera_conta_contabil_0401.

endmodule.

* >> Início da inclusão:

module flag_deduz_juros input.

  if /pws/zycbe001-tpcontr(1) = 'P' or

     /pws/zycbe001-tpcontr(1) = 'S'.

     if not /pws/zycbe006-dtpagext is initial.

        /pws/zycbe005-deduz_juros = 'X'.

     else.

        clear /pws/zycbe005-deduz_juros.

     endif.

  endif.

endmodule.

* << Fim da inclusão