CE PLUS - Nota 003191
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 06/03/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:31:33
Descrição da Nota: ESTORNO DOCUMENTO CONTÁBIL DA CAPTAÇÃO
Sintoma
Ao efetuar o estorno de uma captação, o programa não está fazendo o estorno do documento contábil.
Solução
A data a ser passada para a função foi corrigida.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03191 Data: 06/03/2007 Hora: 16:44:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03191
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ESTORNO DOCUMENTO CONTÁBIL DA CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DOCUMENTO CONTÁBIL DA CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
IF v_kna1-land1 = 'BR'.
p_check = 1.
ENDIF.
ENDIF.
ENDFORM.
FORM reverse_document_zycbt001_del.
DATA: sysubrc LIKE sy-subrc.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
DATA: v_gjahs TYPE /pws/zycbe033-gjahs.
* << Fim da inclusão
IF wa_zycbt089-comp_trans EQ 'C'
AND /pws/zycbe001-tpcontr(1) NE 'T'.
PERFORM estorno_f04.
IF NOT /pws/zycbe001-belnr_comp IS INITIAL.
EXIT.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCBT001'.
...
...
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-stgrd = '01'.
ELSE.
itab_zycbe033-stgrd = '02'.
itab_zycbe033-budat = sy-datum.
ENDIF.
APPEND itab_zycbe033.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
MOVE itab_zycbe033-budat(4) TO v_gjahs.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_modo = v_modo_bi
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001_DEL
v_gjahs = v_gjahs
* << Fim da inclusão
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...