CE PLUS - Nota 006556
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 13/05/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:24:50
Descrição da Nota: ATUALIZAÇÃO DA VINCULAÇÃO DAS DI'S
Sintoma
O programa está apagando indevidamente os registros de importação.
Solução
Atualização da vinculção das DI's na composição de isenção.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06556 Data: 13/05/2008 Hora: 09:11:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06556
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00047
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05439 - 00001 - 7.0 - 00004 - PERFORMANCE
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DA VINCULAÇÃO DAS DI'S
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPOSIÇÃO ISENÇÃO DI'S GRUPOS ITENS GENÉRICOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI064F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
codmat = itab_det_exp-codmat
AND nrseqre = itab_det_exp-nrseqre
AND nrseq = itab_det_exp-nrseq
AND nrseqc = itab_det_exp-nrseqc
AND vbeln_va = itab_det_exp-vbeln_va
AND vbeln_vf = itab_det_exp-vbeln_vf
AND posnr = itab_det_exp-posnr.
IF /pws/zycit321-it_ge EQ 'X'.
READ TABLE itab_dis WITH KEY
grupo = itab_comp_vinc_final-grupo.
* >> Início da inclusão: FORM VINCULA_DI
IF sy-subrc NE 0.
DELETE itab_comp_vinc_final
WHERE grupo EQ itab_comp_vinc_final-grupo.
CONTINUE.
ENDIF.
* << Fim da inclusão
ELSE.
READ TABLE itab_dis WITH KEY
codcomp = itab_comp_vinc_final-codcomp.
* >> Início da exclusão: FORM VINCULA_DI
ENDIF.
* << Fim da exclusão
IF sy-subrc NE 0.
DELETE itab_comp_vinc_final
* >> Início da exclusão: FORM VINCULA_DI
WHERE grupo EQ itab_comp_vinc_final-grupo.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_DI
WHERE codcomp EQ itab_comp_vinc_final-codcomp.
* << Fim da inclusão
CONTINUE.
* >> Início da inclusão: FORM VINCULA_DI
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT itab_det_exp-dtre IS INITIAL.
v_dtini = /pws/zycie258-dtpr.
v_dtini(4) = v_dtini(4) - 2.
v_dtfim = itab_det_exp-dtre.
ELSE.
...