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.
7.0
Produto:
Nota
Descrição
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
...