CE PLUS - Nota 009564
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 11/12/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:45:10
Descrição da Nota: CORREÇÃO DO TRATAMENTO DE REAPURAÇÃO DOS INSUMOS.
Sintoma
Ao eliminar um item da pasta de exportação e reapurar os insumos alguns insumos são excluidos porém
eles não são eliminados do ato concessório mesmo após gravar o ato, ao abri-lo novamente os insumos
retornam ao ato concessório.
Solução
Ajustada eliminação dos itens da tabelas interna durante a reapuração do insumos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09564 Data: 11/12/2009 Hora: 09:31:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09564
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08647 - 00001 - 7.0 - 00010 - VERIFICAÇÃO DE ITENS REALIZADOS ANTES DE DELETAR OS ITENS PROVISI
----------------------------------------------------------------------------------------------------
CORREÇÃO DO TRATAMENTO DE REAPURAÇÃO DOS INSUMOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
REAPURAR - ISUMO - ATO - CONCESSÓRIO - DELETAR - COMPONENTES
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
IMPORTING
answer = v_confirm
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF v_confirm EQ '1'.
DELETE itab_zycit247.
ELSE.
EXIT.
ENDIF.
* >> Início da exclusão: FORM TRATA_BUTTON_EXCLM_M
v_verificp2 = 'N'.
* << Fim da exclusão
ELSE.
IF /pws/zycit321-c_comum NE 'X'.
LOOP AT itab_zycit371 WHERE codigo EQ itab_zycit247-mat_int.
MESSAGE e104 WITH text-349 text-351.
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zycit371 WHERE ncm EQ itab_zycit247-j_1bnbm.
MESSAGE e104 WITH text-349 text-351.
EXIT.
...
...
PERFORM confirm_expl_bom2 CHANGING v_flag.
v_verificp2_merc = v_verificp2.
v_verificp2 = v_verificp2_temp.
IF v_flag EQ 'N'.
v_verificp2_merc = 'S'.
EXIT.
ENDIF.
ENDIF.
CLEAR: it_stpox, it_stpox2, itab_zycit245.
REFRESH: it_stpox, it_stpox2, itab_zycit245.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
CLEAR itab_zycit245t. REFRESH itab_zycit245t.
* << Fim da inclusão
LOOP AT itab_zycit427.
CLEAR: it_stpox, it_stpox2, it_matcat.
REFRESH: it_stpox, it_stpox2, it_matcat.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01'
datuv = sy-datum
mktls = 'X'
mehrs = 'X'
mtnrv = itab_zycit427-matnr
...
...
ENDIF.
IF v_verificp2 EQ 'N' AND v_verifiit2 EQ v_ilinhas.
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
EXIT.
ENDIF.
ENDIF.
CLEAR: it_stpox, it_stpox2, itab_zycit245.
REFRESH: it_stpox, it_stpox2, itab_zycit245.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES2
CLEAR itab_zycit245t. REFRESH itab_zycit245t.
* << Fim da inclusão
LOOP AT itab_zycit247.
CLEAR: it_stpox, it_stpox2, it_matcat.
REFRESH: it_stpox, it_stpox2, it_matcat.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01'
datuv = sy-datum
mktls = 'X'
mehrs = 'X'
mtnrv = itab_zycit247-codmat
...