CE PLUS - Nota 005139
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 05/11/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:15:51
Descrição da Nota: ATUALIZAÇÃO DO PREENCHIMENTO DO CAMPO 'DATA AC'
Sintoma
O programa está preenchendo incorretamento o campo 'DATA AC'no cabeçalho do Ato Concessório.
Solução
Limpeza das tabelas internas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05139 Data: 05/11/2007 Hora: 10:53:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05139
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00019
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02619 - 00001 - 6.0 - 00025 - AJUSTE INSUMO ALTERNATIVO, CENTROS DA COMPOSIÇÃO E DATAS DO ATO
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DO PREENCHIMENTO DO CAMPO 'DATA AC'
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO DATA AC DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
COLLECT itab_resumo_ap.
ENDLOOP.
LOOP AT itab_resumo_ap.
SELECT SINGLE maktx FROM makt INTO itab_resumo_ap-maktx
WHERE matnr EQ itab_resumo_ap-matnr.
MODIFY itab_resumo_ap.
ENDLOOP.
ENDFORM.
FORM carrega_tabela279.
REFRESH: itab_zycit085, itab_zycit279_ap, itab_zycit279_ap_aux,
* >> Início da exclusão: FORM CARREGA_TABELA279
itab_zycit100, itab_zycit282_ap.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_TABELA279
itab_zycit100, itab_zycit282_ap, itab_data_di.
* << Fim da inclusão
SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279_ap
WHERE nrseqd EQ /pws/zycie244-nrseqd.
itab_zycit279_ap_aux[] = itab_zycit279_ap[].
DELETE itab_zycit279_ap_aux WHERE nrseqdi NE space.
IF /pws/zycit321-ut_imp EQ 'X'.
IF NOT itab_zycit279_ap_aux[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit279_ap_aux
WHERE nrseq EQ itab_zycit279_ap_aux-nrseq
AND ebeln EQ itab_zycit279_ap_aux-ebeln
...
...
DELETE itab_data_di WHERE data EQ space.
IF NOT itab_data_di[] IS INITIAL.
SORT itab_data_di BY data.
READ TABLE itab_data_di INDEX 1.
/pws/zycie244-dtdi = itab_data_di-data.
IF /pws/zycie244-vcto_fn IS INITIAL.
/pws/zycie244-vcto_fn = /pws/zycie244-dtdi + 731.
UPDATE /pws/zycit244 SET dtdi = /pws/zycie244-dtdi
vcto_fn = /pws/zycie244-vcto_fn
WHERE nrseqd EQ /pws/zycie244-nrseqd.
* >> Início da inclusão: FORM CARREGA_TABELA279
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CARREGA_TABELA279
ELSE.
IF itab_data_di[] IS INITIAL.
clear: /pws/zycie244-dtdi, /pws/zycie244-vcto_fn.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM monta_transf.
...