CE PLUS - Nota 007061
Módulo: DRAWBACK
Funcionalidade: Vinculação de Importação
Data/Hora da Publicação: 31/07/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:27:52
Descrição da Nota: COMPRAS NO MERCADO INTERNO.
Sintoma
O programa carrega todos os atos concessórios, mesmo os itens de compras no mercado interno.
Solução
Atualização do programa de vinculação de pedidos para desconsiderar os itens de compra no mercado
interno.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07061 Data: 31/07/2008 Hora: 14:45:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07061
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05535 - 00001 - 7.0 - 00004 - DESVINCULAÇÃO DE PEDIDOS JÁ VINCULADOS A PROCESSOS DE IMPORTAÇÃO
06896 - 00002 - 7.0 - 00006 - DRAWBACK INTERMEDIÁRIO IMPORTAÇÃO - ISENÇÃO
----------------------------------------------------------------------------------------------------
COMPRAS NO MERCADO INTERNO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAWBACK VINCULAÇÃO IMPORTAÇÃO COMPRAS MERCADO INTERNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI068F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
WHERE tipo NE 'G'.
ELSE.
DELETE itab_zycit244
WHERE tipo NE 'C'
AND tipo NE 'N'.
ENDIF.
IF NOT itab_zycit244[] IS INITIAL.
PERFORM verifica_lock_ato.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245
FOR ALL ENTRIES IN itab_zycit244
* >> Início da exclusão: FORM SELEC_ATOS
WHERE nrseqd EQ itab_zycit244-nrseqd.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_ATOS
WHERE nrseqd EQ itab_zycit244-nrseqd
AND nritem < 90000. "#EC PORTABLE
* << Fim da inclusão
ENDIF.
PERFORM monta_atos_apr.
ENDFORM.
FORM converte_um_ncm USING p_matnr
CHANGING p_meins
p_werks
p_qtd.
DATA: v_cod_umncm LIKE /pws/zyglt204-zum ,
v_codpais LIKE /pws/zycev604-land1 ,
v_meinsb LIKE marm-meinh,
...
...
WHERE ebeln EQ itab_zycit376-ebeln
AND ebelp EQ itab_zycit376-ebelp.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
FOR ALL ENTRIES IN itab_zycit376
WHERE nrseqd EQ itab_zycit376-nrseqd
AND status EQ 'D'.
IF NOT itab_zycit244[] IS INITIAL.
PERFORM verifica_lock_ato.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245
FOR ALL ENTRIES IN itab_zycit244
* >> Início da exclusão: FORM SELEC_DES
WHERE nrseqd EQ itab_zycit244-nrseqd.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DES
WHERE nrseqd EQ itab_zycit244-nrseqd
AND nritem < 90000. "#EC PORTABLE
* << Fim da inclusão
ENDIF.
ENDIF.
LOOP AT itab_zycit376.
READ TABLE itab_zycit244 WITH KEY nrseqd = itab_zycit376-nrseqd.
IF sy-subrc NE 0 AND NOT itab_zycit376-nrseqd IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycit279 WITH KEY ebeln = itab_zycit376-ebeln
ebelp = itab_zycit376-ebelp.
IF sy-subrc EQ 0.
...