CE PLUS - Nota 001239
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 25/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:08:13
Descrição da Nota: LIQUIDAÇÃO EM ANDAMENTO - DATA DE VENCIMENTO PRORROGADA
Sintoma
Na liquidação em andamento quando a fatura é prorrogada o programa não está calculando a nova data
de vencimento, ou seja, considera a data que o documento foi criado quando o correto é calcular a
"data de vencto + nr. dias". A conta que está sendo utilizada para este evento é a Transitória do
Razão.
Solução
Verificar se existe data de prorrogação na tabela /PWS/ZYCBT045, quando estiver parametrizado para
enviar ao Batch-input a data de vencimento no campo ZFBDT. Se existir, enviar a mesma, caso
contrário, enviar a data de vencimeno original(/PWS/ZYCBT017-DTVENCTO).
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01239 Data: 25/04/2006 Hora: 10:03:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01239
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01145 - 00001 - 6.0 - 00023 - DESENVOLVIMENTO ADICIONAL CONTABILIZAÇÕES DA LIQUIDAÇÃO EM ANDAME
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO EM ANDAMENTO - DATA DE VENCIMENTO PRORROGADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO EM ANDAMENTO DATA DE VENCIMENTO PRORROGADA
CONTA DO RAZÃO PRORROGAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB031F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da inclusão: FORM PROC_INCLUSAO
SORT itab_zycbt045 DESCENDING BY nrinvoic gsberf nrparcf dtpror.
READ TABLE itab_zycbt045 WITH KEY
nrinvoic = itab_zycbt030-nrinvoic
gsberf = itab_zycbt030-gsberf
nrparcf = itab_zycbt030-nrparcf.
IF SY-SUBRC EQ 0.
itab_zycbe033-zfbdt = itab_zycbt045-dtpror.
ELSE.
* << Fim da inclusão
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* >> Início da inclusão: FORM PROC_INCLUSAO
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
...
FORM verifica_prorrogacao_est.
CLEAR: v_buzei, v_zterm, v_zbd1t, v_ztag1.
SELECT SINGLE buzei zterm zbd1t
FROM bsid
INTO (v_buzei, v_zterm, v_zbd1t)
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
WHERE belnr = itab_zycbt030-v_belnr
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
WHERE belnr = itab_zycbt030-belnr
* << Fim da inclusão
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
AND shkzg = 'H'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
AND shkzg = 'S'.
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE buzei zterm zbd1t
FROM bsad
INTO (v_buzei, v_zterm, v_zbd1t)
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
WHERE belnr = itab_zycbt030-v_belnr
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
WHERE belnr = itab_zycbt030-belnr
* << Fim da inclusão
AND gjahr = itab_zycbt030-budat(4)
AND kunnr = itab_zycbt030-kunag
AND bukrs = itab_zycbt209-bukrs
* >> Início da exclusão: FORM VERIFICA_PRORROGACAO_EST
AND shkzg = 'H'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PRORROGACAO_EST
AND shkzg = 'S'.
* << Fim da inclusão
ENDIF.
SELECT SINGLE ztag1 FROM t052
INTO v_ztag1
WHERE zterm = v_zterm.
v_zbd1t = v_ztag1.
...
ENDFORM. " verifica_prorrogacao_est