CE PLUS - Nota 007196
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 26/08/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:04:12
Descrição da Nota: COMPLEMENTO DO BOLETO - REMESSA - REPATRIAÇÃO - FBRA / FB08
Sintoma
Ao efetuar o estorno de um boleto de remessa, onde a mesma foi criada por repatriação, esta chamando
a transação FB08, mas o documento é de compensação e precisa chamar a FBRA e depois a FB08.
Solução
Considerar como PRONTO se campo da /pws/zycbt145 estiver = PR ou vazio.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07196 Data: 26/08/2008 Hora: 11:28:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07196
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00062
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06671 - 00001 - 7.0 - 00005 - REPATRIAÇÃO DE REMESSA
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - REMESSA - REPATRIAÇÃO - FBRA / FB08
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO REMESSA REPATRIAÇÃO FBRA FB08
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
IF wa_zycbt124-frpagto = 'R' OR /pws/zycbe145-cod_fech = 'TR'.
READ TABLE itab_dados_tc WITH KEY tpimp = 'PRINCIPAL'.
IF NOT itab_dados_tc-belnr IS INITIAL.
READ TABLE itab_dados_tc_aux WITH KEY tpimp = 'PRINCIPAL'.
IF sy-subrc EQ 0 AND
( itab_dados_tc-kursf NE itab_dados_tc_aux-kursf OR
itab_dados_tc-vlmi NE itab_dados_tc_aux-vlmi OR
itab_dados_tc-bcooper NE itab_dados_tc_aux-bcooper OR
itab_dados_tc-dtlanc NE itab_dados_tc_aux-dtlanc ).
IF NOT wa_zycat028 IS INITIAL AND
* >> Início da exclusão: FORM TRATA_REMESSA
/pws/zycbe145-cod_fech = 'PR'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_REMESSA
/pws/zycbe145-cod_fech ne 'TR'.
* << Fim da inclusão
PERFORM estorna_docto_repatriacao_cp
USING 'PRINCIPAL'
itab_dados_tc_aux-belnr
itab_dados_tc_aux-dtlanc
itab_zycbt124_aux-criacao
'X'.
ELSE.
PERFORM estorna_docto_cp USING 'PRINCIPAL'
itab_dados_tc_aux-belnr
itab_dados_tc_aux-dtlanc
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF wa_zycbt124-frpagto = 'R' OR /pws/zycbe145-cod_fech = 'TR'.
READ TABLE itab_dados_tc WITH KEY tpimp = 'PRINCIPAL'.
IF NOT itab_dados_tc-belnr IS INITIAL.
READ TABLE itab_dados_tc_aux WITH KEY tpimp = 'PRINCIPAL'.
IF sy-subrc EQ 0.
IF NOT wa_zycat028 IS INITIAL AND
* >> Início da exclusão: FORM EXCLUI_CP
/pws/zycbe145-cod_fech = 'PR'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_CP
/pws/zycbe145-cod_fech ne 'TR'.
* << Fim da inclusão
PERFORM estorna_docto_repatriacao_cp
USING 'PRINCIPAL'
itab_dados_tc_aux-belnr
itab_dados_tc_aux-dtlanc
itab_zycbt124_aux-criacao
'X'.
ELSE.
PERFORM estorna_docto_cp USING 'PRINCIPAL'
itab_dados_tc_aux-belnr
itab_dados_tc_aux-dtlanc
...