CE PLUS - Nota 005970

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Valores Mantidos no Exterior

Data/Hora da Publicação: 19/02/2008 00:00:00

Data/Hora Última Alteração: 18/02/2011 17:48:33

Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - TAXA DO ESTORNO

Sintoma

O programa leva a taxa errada para o batch input.

 

 

Solução

Alterado para que o programa busque a taxa do documento que vai fazer a F-02 inversa.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

Informações Complementares

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

Nota Número 05970 Data: 19/02/2008 Hora: 16:52:25

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

 

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

Nota Número              : 05970

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

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

 

05482  - 00001 - 7.0    - 00003  - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

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

VALORES MANTIDOS NO EXTERIOR - TAXA DO ESTORNO

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

Palavras Chave:

VALORES MANTIDOS NO EXTERIOR - TAXA DO ESTORNO

 

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

Objetos da nota:

REPS /PWS/MZYCB034F01

 

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

Modificações efetuadas em REPS /PWS/MZYCB034F01

 

...

        wa_zycbt225       TYPE t_s_zycbt225,

        wa_tab_op         TYPE t_s_tab_op,

        wa_zyglt316       TYPE t_s_zyglt316,

        wa_zycbt011       TYPE t_s_zycbt011,

        wa_cont           TYPE t_contabilizacoes,

        v_lancto_multiplo TYPE c,

        v_newbs2          TYPE newbs,

        v_titulo(31)      TYPE c,

        v_codeven         TYPE /pws/zycbt011-codeven,

        v_banco           TYPE /pws/zycbt226-bco_me,

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

        v_belnr           TYPE /pws/zycbt226-belnr_op,

        v_gjahr           TYPE bkpf-gjahr,

* << Fim da inclusão

        v_tot_liqand      TYPE wrbtr.

  CONSTANTS: c_op(23)     TYPE c VALUE 'DOC. ORDEM DE PAGAMENTO',

             c_est_op(31) TYPE c VALUE 'DOC. ESTORNO ORDEM DE PAGAMENTO'

.

  CHECK <fs_op>-tipo_op = 'E'.

  v_titulo = c_est_op.

  wa_zycbe033-tcode  = 'F-02'.

  wa_zycbe033-tabela = '/PWS/ZYCBT226'.

  IF <fs_op>-tipo_op = 'E'.

    CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf

...

 

...

  PERFORM preenche_campos_contab_exc

    USING

      <fs_op>-bukrs

      c_chave_oper

      v_codeven

      space

      <fs_op>

      wa_fat

    CHANGING

      wa_zycbe033.

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

  IF <fs_op>-belnr_op2 IS INITIAL.

    v_belnr = <fs_op>-belnr_op.

    v_gjahr = <fs_op>-dtlancto.

  ELSE.

    v_belnr = <fs_op>-belnr_op2.

    v_gjahr = <fs_op>-dtlancto2.

  ENDIF.

  SELECT SINGLE kursf

    FROM bkpf

    INTO wa_zycbe033-kursf

    WHERE belnr = v_belnr

      AND gjahr = v_gjahr

      AND bukrs = <fs_op>-bukrs.

    IF sy-subrc NE 0.

* << Fim da inclusão

  PERFORM define_taxa_cambio

    USING 'O'

      'X'

      v_codeven

      <fs_op>-bukrs

      <fs_op>-dtlancto

      <fs_op>-nrinvoic

    CHANGING

      wa_zycbe033-kursf.

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

    ENDIF.

* << Fim da inclusão

  PERFORM verifica_campo_vazio USING wa_zycbe033-kursf

                                     'KURSF'

                                     'Taxa de Câmbio'(019).

  READ TABLE itab_zycbt011 INTO wa_zycbt011

    WITH KEY

      codeven = v_codeven

      codmod  = c_modulo

      bukrs   = <fs_op>-bukrs.

  IF sy-subrc NE 0.

    READ TABLE itab_zycbt011 INTO wa_zycbt011

...