Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 21/11/2005 00:00:00
Data/Hora Última Alteração: 17/02/2011 12:47:58
Descrição da Nota: A COMPOSIÇÃO ISENÇÃO ESTA TRAZENDO ITENS DE EXPORTAÇÃO JÁ APROPRIADOS.
Sintoma
A composição isenção esta trazendo itens de Exportação já apropriados.
Solução
Ajustada seleção da exportação.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00316 Data: 21/11/2005 Hora: 16:13:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00316
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
A COMPOSIÇÃO ISENÇÃO ESTA TRAZENDO ITENS DE EXPORTAÇÃO JÁ APROPRIADOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPOSIÇÃO DE ISENÇÃO - ITENS APROPRIADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064TOP3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
ELSE.
SELECT a~nrseqre a~nrre a~dtincl a~agrupado a~codenq1
b~matnr b~vbeln_va b~vbeln_vf b~posnr b~vbeln_vl b~posnl
b~gewei b~ntgew b~brgew b~waers
b~vfob b~vlagente b~netpr b~seqagrupado b~codnrseq
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
d~nrseqexp
* << Fim da inclusão
INTO TABLE itab_re_final
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
FROM /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
FROM ( /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b
* << Fim da inclusão
ON a~nrseqre EQ b~nrseqre
INNER JOIN /pws/zycet002 AS c
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
ON b~vbeln_va EQ c~vbeln_va AND b~vbeln_vf EQ c~vbeln_vf
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
ON b~vbeln_va EQ c~vbeln_va AND b~vbeln_vf EQ c~vbeln_vf )
LEFT OUTER JOIN /pws/zycit282 as d
on c~nrseq EQ d~nrseqexp
AND c~vbeln_va EQ d~vbeln_va
AND c~vbeln_vl EQ d~vbeln_vl
AND c~posnl EQ d~posnl
* << Fim da inclusão
FOR ALL ENTRIES IN itab_zycit434
WHERE a~dtincl >= p_dtexp1 AND
a~dtincl <= p_dtexp2 AND
b~nrato EQ space AND
c~werks EQ itab_zycit434-werks AND
c~bukrs EQ /pws/zycie258-bukrs AND
b~matnr IN p_matnr.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
delete itab_re_final where nrseqexp ne space.
* << Fim da inclusão
SELECT * FROM /pws/zycet130 INTO TABLE itab_zycet130
WHERE codenq = '80000'
OR codenq = '80116'.
IF NOT itab_re_final[] IS INITIAL.
IF /pws/zycie258-tipo EQ 'C'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064TOP3
...
waers LIKE /pws/zycet118-waers ,
vfob LIKE /pws/zycet118-vfob ,
vlagente LIKE /pws/zycet118-vlagente,
netpr LIKE /pws/zycet118-netpr ,
seqagrupado LIKE /pws/zycet118-seqagrupado,
* >> Início da exclusão:
codnrseq LIKE /pws/zycet118-codnrseq.
* << Fim da exclusão
* >> Início da inclusão:
codnrseq LIKE /pws/zycet118-codnrseq,
nrseqexp like /pws/zycit282-nrseqexp.
* << Fim da inclusão
DATA: END OF itab_re_final.
DATA: BEGIN OF itab_res_imp OCCURS 0,
codcomp LIKE /pws/zycie260-codcomp ,
qtd_di LIKE /pws/zycie260-qtd_di ,
qtd_vinc LIKE /pws/zycie260-qtd_vinc,
...