CE PLUS - Nota 003241
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 14/03/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:57:10
Descrição da Nota: LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS BSAD E BSAS
Sintoma
Após a criação do câmbio pronto , foi realizada a Vinculação/ Liquidação da fatura kk000G0V22
normalmente. Contudo, ao estornar com Shift+F9 percebe-se que na F-30 , após FRBA e FB08 , surge a
caixa Selecionar crits.pesquisa. Nela, é selecionado Data de Lançamento como critério. No entanto, a
2ª linha com data está como 00.00.0000. Nesse momento é preciso usar /n para interromper o batch.
Obs:1- o cen.21707(fat.42E06) só precisa ser estornado com Shift +F9 na liquidação.
Solução
Ajuste efetuado inserindo o campo BUDAT em todos os pontos da liquidação onde a tabela bsad ou bsas
é utilizada.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03241 Data: 14/03/2007 Hora: 11:33:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03241
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 - Versão - Pacote - Descrição Breve
03193 - 00001 - 6.0 - 00026 - LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS INTERNAS BSAS E BSAD.
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS BSAD E BSAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO-ESTORNO NA LIQUIDAÇÃO-BUDAT TAB.BSAD E BSAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
v_year = v_year
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
SELECT bukrs kunnr umskz gjahr belnr bschl gsber wrbtr sgtxt zuonr
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
budat
* << Fim da inclusão
FROM bsad
INTO TABLE itab_bsad
WHERE bukrs EQ itab_zycbt006-bukrs AND
augdt EQ itab_zycbt006-dtpagto AND
gjahr EQ v_year AND
augbl EQ v_belnr_abr AND
belnr NE v_belnr_abr.
SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
budat
* << Fim da inclusão
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs EQ itab_zycbt006-bukrs AND
augdt EQ itab_zycbt006-dtpagto AND
gjahr EQ v_year AND
augbl EQ v_belnr_abr AND
belnr NE v_belnr_abr AND
( bschl = '40' OR
bschl = '50' ).
PERFORM clear_date_batch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
END OF itab_bsas.
DATA: BEGIN OF itab_bsad OCCURS 0,
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
augdt LIKE bsad-augdt,
augbl LIKE bsad-augbl,
gjahr LIKE bsad-gjahr,
belnr LIKE bsad-belnr,
wrbtr LIKE bsad-wrbtr,
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
budat LIKE bsad-budat,
* << Fim da inclusão
END OF itab_bsad.
DATA: BEGIN OF itab_ace OCCURS 2.
DATA: belnr TYPE belnr_d,
budat TYPE datum,
wrbtr TYPE wrbtr.
DATA: END OF itab_ace.
DATA: BEGIN OF itab_cli OCCURS 2.
DATA: belnr TYPE belnr_d,
budat TYPE datum,
wrbtr TYPE wrbtr.
...
...
LOOP AT itab_zycbt006_aux4 WHERE bukrs = itab_bsas-bukrs
AND dtpagto = itab_bsas-augdt
AND belnr = itab_bsas-augbl
AND dtpagto(4) = itab_bsas-gjahr
AND belnr = itab_bsas-belnr.
DELETE itab_bsas INDEX v_tabix.
ENDLOOP.
ENDLOOP.
SELECT bukrs kunnr umskz augdt augbl gjahr belnr
wrbtr
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
budat
* << Fim da inclusão
FROM bsad
INTO TABLE itab_bsad
FOR ALL ENTRIES IN itab_zycbt006_aux4
WHERE bukrs EQ itab_zycbt006_aux4-bukrs AND
augdt EQ itab_zycbt006_aux4-dtpagto AND
augbl EQ itab_zycbt006_aux4-belnr AND
gjahr EQ itab_zycbt006_aux4-dtpagto(4).
DELETE itab_bsad WHERE kunnr = space
OR kunnr = ' '.
LOOP AT itab_bsad.
...
...
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
gjahr LIKE bsad-gjahr,
belnr LIKE bsad-belnr,
bschl LIKE bsad-bschl,
gsber LIKE bsad-gsber,
wrbtr LIKE bsad-wrbtr,
sgtxt LIKE bsad-sgtxt,
zuonr LIKE bsad-zuonr,
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat LIKE bsad-budat,
* << Fim da inclusão
END OF itab_bsad.
DATA: BEGIN OF itab_bsas OCCURS 0,
bukrs LIKE bsas-bukrs,
hkont LIKE bsas-hkont,
gjahr LIKE bsas-gjahr,
belnr LIKE bsas-belnr,
bschl LIKE bsas-bschl,
gsber LIKE bsas-gsber,
wrbtr LIKE bsas-wrbtr,
sgtxt LIKE bsas-sgtxt,
zuonr LIKE bsas-zuonr,
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat LIKE bsas-budat,
* << Fim da inclusão
END OF itab_bsas.
CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zycbt006 WHERE v_status EQ 'A'
OR v_status EQ 'E'
...
...
dtvincul = itab_zycbt006-dtvincul AND
dtvencto = itab_zycbt006-dtvencto AND
dtpagto = itab_zycbt006-dtpagto.
CHECK sy-subrc EQ 0.
CHECK sy-subrc EQ 0.
IF NOT itab_zycbt074[] IS INITIAL.
CLEAR itab_zycbt074.
READ TABLE itab_zycbt074 WITH KEY nrseqc = itab_zycbt006-nrseqc.
IF sy-subrc EQ '0' AND NOT itab_zycbt074-dtcont IS INITIAL.
SELECT bukrs kunnr umskz gjahr belnr bschl gsber wrbtr sgtxt zuonr
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat
* << Fim da inclusão
FROM bsad
INTO TABLE itab_bsad
WHERE bukrs EQ itab_zycbt006-bukrs AND
augdt EQ itab_zycbt074-dtcont AND
augbl EQ itab_zycbt006-belnr AND
belnr NE itab_zycbt006-belnr.
SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat
* << Fim da inclusão
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs EQ itab_zycbt006-bukrs AND
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
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat
* << Fim da inclusão
FROM bsad
INTO TABLE itab_bsad
WHERE bukrs EQ itab_zycbt006-bukrs AND
augdt EQ itab_zycbt006-dtpagto AND
augbl EQ itab_zycbt006-belnr AND
belnr NE itab_zycbt006-belnr.
SELECT bukrs hkont gjahr belnr bschl gsber wrbtr sgtxt zuonr
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
budat
* << Fim da inclusão
FROM bsas
INTO TABLE itab_bsas
WHERE bukrs EQ itab_zycbt006-bukrs AND
augdt EQ itab_zycbt006-dtpagto AND
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.
...