CE PLUS - Nota 007865
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 06/01/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 10:40:09
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - ESTORNO - CLEARING CLIENTE - GSBER VAZIO
Sintoma
Ao executar o estorno de um Valores Mantidos no Exterior criado por pagamento antecipado, não esta
efetuando o clearing do cliente, devido o campo GSBER estar vazio.
Solução
Carregar os campos de divisão da itab_zycbe033 com a divisão informada na tela do valores mantidos
no exterior.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07865 Data: 06/01/2009 Hora: 15:26:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07865
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00080
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - ESTORNO - CLEARING CLIENTE - GSBER VAZIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR ESTORNO CLEARING CLIENTE GSBER VAZIO
PAGAMENTO ANTECIPADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
codeven = v_codeven
codmod = c_modulo
bukrs = space.
ENDIF.
PERFORM verifica_campo_vazio USING wa_zycbt011-blart
'BLART'
'Tipo de documento'(008).
IF sy-subrc = 0.
wa_zycbe033-blart = wa_zycbt011-blart.
ENDIF.
* >> Início da inclusão: FORM ESTORNO
IF NOT <fs_op>-gsberf IS INITIAL.
wa_zycbe033-gsber = <fs_op>-gsberf.
wa_zycbe033-d_gsber = <fs_op>-gsberf.
wa_zycbe033-c_gsber = <fs_op>-gsberf.
ENDIF.
* << Fim da inclusão
PERFORM define_taxa_cambio
USING p_processo(1)
'X'
v_codeven
<fs_op>-bukrs
wa_zycbe033-budat
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
PERFORM verifica_campo_vazio USING wa_zycbe033-kursf
...