CE PLUS - Nota 006995
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 21/07/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:47:41
Descrição da Nota: ESTORNO DA ORDEM SEM FAZER O CLEARING DA CONTA DO BANCO
Sintoma
Ao realizar o estorno da Ordem de Pagamento, o sistema faz o documento de estorno da Ordem, o
Clearing da conta do cliente e o clearing da conta do Banco.Esse ultimo não poderia existir pois se
a conta de banco não for por partida em aberto, o sistema não completa o estorno .
Solução
Tratar o estorno completando o processo mesmo quando não for por partida em aberto .
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06995 Data: 21/07/2008 Hora: 14:46:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06995
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00057
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05482 - 00002 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO
06371 - 00001 - 7.0 - 00005 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO
----------------------------------------------------------------------------------------------------
ESTORNO DA ORDEM SEM FAZER O CLEARING DA CONTA DO BANCO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DA ORDEM SEM FAZER O CLEARING DA CONTA DO BANCO
EM VALORES EMITIDOS NO EXTERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB034TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
i_bloqueia = ' '
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
* >> Início da inclusão: FORM ESTORNO
IF p_processo = 'O'.
v_adm = 'X' .
SELECT SINGLE xopvw
FROM skb1
INTO skb1-xopvw
WHERE bukrs = wa_zycbe033-bukrs
AND saknr = wa_zycbe033-d_newko.
IF skb1-xopvw = 'X'.
* << Fim da inclusão
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_titulo
'-'
<fs_op>-nrseq
space
'061'.
* >> Início da inclusão: FORM ESTORNO
endif.
else.
PERFORM message_store
USING '/PWS/ZYCBM'
'I'
v_titulo
'-'
<fs_op>-nrseq
space
'061'.
endif.
IF p_processo = 'O'.
IF skb1-xopvw = 'X'.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_S'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
ENDIF.
ELSE.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_S'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM ESTORNO
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY
tcode = 'F-30'
tabela = '/PWS/ZYCBT226'
cpochv = wa_zycbe033-cpochv
tpmsg = 'S'
INTO wa_zycbt032.
* >> Início da exclusão: FORM ESTORNO
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO
IF sy-subrc EQ 0 or
v_adm EQ 'X'.
* << Fim da inclusão
wa_cont-belnr = wa_zycbt032-belnr.
wa_cont-dtlancto = wa_zycbe033-budat.
wa_cont-fb08 = 'X'.
wa_cont-fbra = 'X'.
CASE p_processo(1).
WHEN 'C'.
wa_cont-belnr_ant = <fs_op>-belnr_desm_cli.
wa_cont-tabela = 'ITAB_ZYCBT226'.
wa_cont-campo = 'BELNR_DESM_CLI'.
CLEAR <fs_op>-belnr_desm_cli.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034TOP
...
/pws/zygli101,
<icon>.
TYPE-POOLS: icon.
TABLES:
/pws/zycbe226,
/pws/zycbe238,
/pws/zycbe239,
/pws/zycbe240,
/pws/zycbe242,
/pws/zycbe017,
* >> Início da inclusão:
skb1,
* << Fim da inclusão
/pws/zycbt089.
CONTROLS:
ts_70 TYPE TABSTRIP,
ts_principal TYPE TABSTRIP,
tc_op TYPE TABLEVIEW USING SCREEN '0110',
tc_30 TYPE TABLEVIEW USING SCREEN '0120',
tc_70 TYPE TABLEVIEW USING SCREEN '0131',
tc_contrato TYPE TABLEVIEW USING SCREEN '0132',
tc_00 TYPE TABLEVIEW USING SCREEN '0150',
tc_rendimentos TYPE TABLEVIEW USING SCREEN '0140',
...
...
v_total_30 TYPE wrbtr,
v_total_70 TYPE wrbtr,
v_msg_previsto(74) TYPE c,"#EC NEEDED
opt_origem_embarque(1) TYPE c,
opt_origem_pagantec(1) TYPE c,
opt_destino_30(1) TYPE c,
opt_destino_70(1) TYPE c,
v_mark(1) TYPE c,
v_icone TYPE icons-text,
v_tela_help TYPE sy-dynnr VALUE '0052'."#EC NEEDED
* >> Início da inclusão:
data: v_adm(1) type c.
* << Fim da inclusão
DATA:
v_codaux TYPE /pws/zygle316-codaux1,
v_codaux1 TYPE /pws/zygle316-codaux1,
v_codaux2 TYPE /pws/zygle316-codaux2.
INCLUDE /PWS/MZYCB034X01.
SELECTION-SCREEN BEGIN OF SCREEN 0001.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-011.
SELECT-OPTIONS: s_bukrs FOR /pws/zycbe226-bukrs,
s_nrseq FOR /pws/zycbe226-nrseq,
s_invoic FOR /pws/zycbe226-nrinvoic
...
...