CE PLUS - Nota 006083
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 29/02/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:41:24
Descrição da Nota: LIQUIDAÇÃO - ESTORNO PERIODO FECHADO
Sintoma
O programa não consegue efetuar o estorno da liquidação e dos juros com o periodo fechado.
Solução
Programa corrigido para buscar a data correta da tabela bseg.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06083 Data: 29/02/2008 Hora: 17:27:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06083
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02890 - 00001 - 6.0 - 00026 - ERRO ESTORNO LIQUIDAÇÃO PERÍODO FECHADO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - ESTORNO PERIODO FECHADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - ESTORNO PERIODO FECHADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
augdt EQ itab_zycbt074-dtcont AND
augbl EQ itab_zycbt006-belnr AND
belnr NE itab_zycbt006-belnr AND
( bschl EQ '40' OR bschl EQ '50' ).
ELSE.
SELECT bukrs kunnr umskz gjahr belnr bschl gsber wrbtr sgtxt zuonr
budat
FROM bsad
INTO TABLE itab_bsad
WHERE bukrs EQ itab_zycbt006-bukrs AND
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
augdt EQ itab_zycbt006-dtpagto AND
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
bldat EQ itab_zycbt006-dtpagto AND
* << Fim da inclusão
augbl EQ itab_zycbt006-belnr AND
belnr NE itab_zycbt006-belnr.
SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr
budat
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs EQ itab_zycbt006-bukrs AND
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
augdt EQ itab_zycbt006-dtpagto AND
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
bldat EQ itab_zycbt006-dtpagto AND
* << Fim da inclusão
augbl EQ itab_zycbt006-belnr AND
belnr NE itab_zycbt006-belnr AND
( bschl EQ '40' OR bschl EQ '50' ).
ENDIF.
ENDIF.
PERFORM clear_date_batch.
CLEAR itab_zycbt012.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
CASE itab_zycbt006-tpcontr+0(1).
WHEN 'A' OR 'E' OR 'C'.
...
...
itab_zycbe033-stgrd = '01'.
ELSE.
itab_zycbe033-stgrd = '02'.
itab_zycbe033-budat = sy-datum.
PERFORM determina_periodo USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_monat.
PERFORM determina_ano USING itab_zycbe033-budat
itab_zycbe033-bukrs
CHANGING v_ano.
* >> Início da exclusão: FORM ESTORNA_DIFERENCA_JUROS
IF v_monat EQ '12'.
ADD 1 TO v_ano.
ENDIF.
ADD 1 TO v_monat.
IF v_monat > '12'.
v_monat = '01'.
ENDIF.
CONCATENATE v_ano v_monat+1(2) '01' INTO itab_zycbe033-budat.
* << Fim da exclusão
itab_zycbe033-bldat = itab_zycbe033-budat.
ENDIF.
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB08'
EXPORTING
v_gjahs = itab_zycbe033-gjahs
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
...