CE PLUS - Nota 006700
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 05/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:07:21
Descrição da Nota: CAPTAÇÃO - ESTORNO DA CAPTAÇÃO DE PRE PAGAMENTO
Sintoma
O programa de captação não estorna a captação de pre pagamento.
Solução
adicionado código para que o programa de captação faça o estorno de pre pagamento sem erros.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06700 Data: 05/06/2008 Hora: 17:58:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06700
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00050
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00627 - 00001 - 6.0 - 00022 - CAPITALIZAÇÃO DE JUROS
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - ESTORNO DA CAPTAÇÃO DE PRE PAGAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - ESTORNO DA CAPTAÇÃO DE PRE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
itab_partidas-dtdocto = itab_zycbt002-dtvincul.
ENDIF.
itab_partidas-agkon = conta_pre.
itab_partidas-agkoa = 'S'.
itab_partidas-agums = space.
itab_partidas-bukrs = /pws/zycbe001-bukrs.
itab_partidas-shkzg = 'H'.
itab_partidas-v_sinal = '+'.
APPEND itab_partidas.
ENDLOOP.
* >> Início da inclusão: FORM REAGRUPA_PRE
IF /pws/zycbe001-tpcontr(1) EQ 'P'.
LOOP AT itab_zycbt002p.
PERFORM pega_contas_acc_pre CHANGING conta_acc texto_acc
conta_pre texto_pre
cod_rze.
itab_partidas-tcode = itab_zycbe033-tcode.
itab_partidas-tabela = itab_zycbe033-tabela.
itab_partidas-cpochv = itab_zycbe033-cpochv.
IF itab_zycbt002p-belnr2 IS INITIAL.
itab_partidas-belnr = itab_zycbt002p-belnr.
itab_partidas-dtdocto = itab_zycbe033-budat.
ELSE.
itab_partidas-belnr = itab_zycbt002p-belnr2.
itab_partidas-dtdocto = itab_zycbt002p-dtvincul.
ENDIF.
itab_partidas-agkon = conta_pre.
itab_partidas-agkoa = 'S'.
itab_partidas-agums = space.
itab_partidas-bukrs = /pws/zycbe001-bukrs.
itab_partidas-shkzg = 'H'.
itab_partidas-v_sinal = '+'.
APPEND itab_partidas.
ENDLOOP.
ENDIF.
* << Fim da inclusão
IF sy-subrc EQ 0.
SORT itab_partidas BY agkoa agkon agums belnr.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
CLEAR v_subrc.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
...