CE PLUS - Nota 008265
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 01/04/2009 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:12:34
Descrição da Nota: FATURA DE MERCADORIA IMPLEMENTAR TRATAMENTO PARA CALCULO DA DATA BASE
Sintoma
Data base na fatura diferente da condição de pagamento configurada na OBB8.
Solução
Verificar o campo dia fixo da condição de pagamento na OBB8 e levar para o campo data base da
fatura.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08265 Data: 01/04/2009 Hora: 09:54:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08265
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00092
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FATURA DE MERCADORIA IMPLEMENTAR TRATAMENTO PARA CALCULO DA DATA BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - DATA - BASE - IMPLEMENTAÇÃO - SAP - OBB8
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
tabela = '/PWS/ZYCIT132'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
/pws/zycie006-statusp = 'C'.
itab_zycit132-status = 'C'.
MESSAGE i057 WITH itab_zycbt032-belnr.
itab_zycit132-belnr_p = itab_zycbt032-belnr.
itab_zycit132-dt_belnrp = sy-datum.
itab_zycit132-hr_belnrp = sy-uzeit.
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
PERFORM Altera_Data_Base
USING v_parcela
/pws/zycie006-bukrs
itab_zycbe033-budat
itab_zycbt032-belnr
itab_zycbe033-zterm.
SELECT SINGLE ztag1 FROM t052 INTO itab_t052s-ztag1
WHERE zterm = itab_zycit132-zterm.
itab_zycit132-dtvencto =
itab_zycit132-dtbase + itab_t052s-ztag1.
* << Fim da inclusão
MODIFY itab_zycit132.
ELSE.
erro_bi = 'X'.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tcode = v_trans
tabela = '/PWS/ZYCIT006'
cpochv = /pws/zycie006-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
/pws/zycie006-statusp = 'C'.
MESSAGE i057 WITH itab_zycbt032-belnr.
/pws/zycie006-belnr_p = itab_zycbt032-belnr.
/pws/zycie006-dt_belnrp = sy-datum.
/pws/zycie006-hr_belnrp = sy-uzeit.
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
PERFORM Altera_Data_Base
USING v_parcela
/pws/zycie006-bukrs
itab_zycbe033-budat
itab_zycbt032-belnr
itab_zycbe033-zterm.
* << Fim da inclusão
MODIFY /pws/zycit006 FROM /pws/zycie006.
ELSE.
erro_bi = 'X'.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
ENDIF.
ENDIF.
ELSE.
...
...
/pws/zycie006-dtvencto = /pws/zycie006-dtincl +
t052-ztag1.
ENDIF.
ELSEIF t052-zdart EQ 'D'.
IF NOT /pws/zycie006-dtincl IS INITIAL.
/pws/zycie006-dtvencto = /pws/zycie006-dtincl +
t052-ztag1.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM MONTAR_DTVENCTO
IF /pws/zycie006-tpfatura <> '11' OR
( /pws/zycie006-tpfatura = '11' AND
/pws/zycie006-BELNR_P IS INITIAL ).
* << Fim da inclusão
/pws/zycie006-dtbase = /pws/zycie006-dtincl.
* >> Início da inclusão: FORM MONTAR_DTVENCTO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF /pws/zycie006-dataprvtsr IS INITIAL.
/pws/zycie006-dataprvtsr = /pws/zycie006-dtvencto.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
* >> Início da inclusão:
form Altera_Data_Base
using
p_parcela
p_bukrs
p_budat
p_belnr
p_zterm.
CLEAR: v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
V_YEAR = v_ano
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
.
IF sy-subrc <> 0.
ENDIF.
SELECT SINGLE * FROM BSEG
WHERE BUKRS = p_bukrs
AND BELNR = p_belnr
AND GJAHR = v_ano
AND ZTERM = p_zterm.
IF SY-SUBRC = 0.
IF p_parcela IS INITIAL.
/pws/zycie006-dtbase = BSEG-ZFBDT.
ELSE.
itab_zycit132-dtbase = BSEG-ZFBDT.
ENDIF.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
/pws/zycit042,
/pws/zycit041,
/pws/zycie041,
/pws/zycit043,
/pws/zycet076,
/pws/zycbt131,
/pws/zycit048,
rbkp,
/pws/zyglt217,
/pws/zycit391,
* >> Início da inclusão:
BSEG,
* << Fim da inclusão
j_1bbranch ,
adrc ,
/pws/zycit270,
...