CE PLUS - Nota 007726
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 08/12/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:28:25
Descrição da Nota: CÓDIGO DE ENQUADRAMENTO (EXPORTAÇÃO)
Sintoma
O programa não está selecionando os RE's que possuem anexos com e sem vinculo com Ato concessório.
Solução
Atualização da busca dos códigos de enquadramento de operação na busca dos RE's (composição de
isenção).
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07726 Data: 08/12/2008 Hora: 09:45:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07726
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07106 - 00001 - 7.0 - 00006 - EXIT COI005
07547 - 00002 - 7.0 - 00007 - CONSIDERAR A DATA DE AVERBAÇÃO PARA BUSCAR OS RE'S.
07714 - 00003 - 7.0 - 00007 - TELA DE SELEÇÃO DAS EXPORTAÇÕES
----------------------------------------------------------------------------------------------------
CÓDIGO DE ENQUADRAMENTO (EXPORTAÇÃO)
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPOSIÇÃO ISENÇÃO SELEÇÃO DAS EXPORTAÇÕES CÓDIGO DE ENQUADRAMENTO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
AND c~vbeln_vl EQ d~vbeln_vl
AND c~posnl EQ d~posnl
WHERE e~dtaverb >= p_dtexp1 AND
e~dtaverb <= p_dtexp2 AND
b~nrato EQ space AND
c~bukrs EQ /pws/zycie258-bukrs AND
( c~staprop EQ space OR
c~staprop EQ 'E' ) AND
b~matnr IN p_matnr.
DELETE itab_re_final WHERE nrseqexp NE space.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF NOT itab_re_final[] IS INITIAL.
SELECT * FROM /pws/zycet078 INTO TABLE itab_zycet078
FOR ALL ENTRIES IN itab_re_final
WHERE nrseqre EQ itab_re_final-nrseqre.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycit498
INTO TABLE itab_zycit498. "#EC CI_NOWHERE
IF NOT itab_re_final[] IS INITIAL.
IF /pws/zycie258-tipo EQ 'C' OR
/pws/zycie258-tipo EQ 'N'.
SELECT * FROM /pws/zycit259
INTO TABLE itab_zycit259 "#EC CI_NOFIRST
FOR ALL ENTRIES IN itab_re_final
WHERE nrseqre EQ itab_re_final-nrseqre.
ELSEIF /pws/zycie258-tipo EQ 'F'.
SELECT * FROM /pws/zycit259
INTO TABLE itab_zycit259 "#EC CI_NOFIRST
FOR ALL ENTRIES IN itab_re_final
WHERE nrseqre EQ itab_re_final-nrseqre
AND lifnr EQ /pws/zycie258-lifnr.
ENDIF.
ENDIF.
IF NOT itab_re_final[] IS INITIAL.
LOOP AT itab_re_final.
v_tabix = sy-tabix.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_re_final-codenq1 NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
CLEAR itab_zycet078.
IF itab_re_final-agrupado EQ 'S'.
READ TABLE itab_zycet078
WITH KEY nrseqre = itab_re_final-nrseqre
codnrseq = itab_re_final-seqagrupado.
ELSE.
READ TABLE itab_zycet078
WITH KEY nrseqre = itab_re_final-nrseqre
codnrseq = itab_re_final-codnrseq.
ENDIF.
IF itab_zycet078-codenq1 NE space.
* << Fim da inclusão
READ TABLE itab_zycit498 WITH KEY
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_re_final-codenq1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_zycet078-codenq1.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE itab_re_final.
PERFORM preenche_itab_msg_erro USING itab_re_final-matnr
itab_re_final-nrseqre
itab_re_final-nrre
space
text-259
'@AG@'.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_re_final-codenq2 NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_zycet078-codenq2 NE space.
* << Fim da inclusão
READ TABLE itab_zycit498 WITH KEY
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_re_final-codenq2.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_zycet078-codenq2.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE itab_re_final.
PERFORM preenche_itab_msg_erro USING itab_re_final-matnr
itab_re_final-nrseqre
itab_re_final-nrre
space
text-259
'@AG@'.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_re_final-codenq3 NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_zycet078-codenq3 NE space.
* << Fim da inclusão
READ TABLE itab_zycit498 WITH KEY
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_re_final-codenq3.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_zycet078-codenq3.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE itab_re_final.
PERFORM preenche_itab_msg_erro USING itab_re_final-matnr
itab_re_final-nrseqre
itab_re_final-nrre
space
text-259
'@AG@'.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_re_final-codenq4 NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_zycet078-codenq4 NE space.
* << Fim da inclusão
READ TABLE itab_zycit498 WITH KEY
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_re_final-codenq4.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_zycet078-codenq4.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE itab_re_final.
PERFORM preenche_itab_msg_erro USING itab_re_final-matnr
itab_re_final-nrseqre
itab_re_final-nrre
space
text-259
'@AG@'.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_re_final-codenq5 NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
IF itab_zycet078-codenq5 NE space.
* << Fim da inclusão
READ TABLE itab_zycit498 WITH KEY
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_re_final-codenq5.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
codenq = itab_zycet078-codenq5.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE itab_re_final.
PERFORM preenche_itab_msg_erro USING itab_re_final-matnr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064X01
...
INCLUDE STRUCTURE /pws/zycit223 .
DATA: END OF itab_zycit223 .
DATA : BEGIN OF itab_vbfa OCCURS 0 .
DATA : vbelv LIKE vbfa-vbelv ,
vbeln LIKE vbfa-vbeln ,
posnn LIKE vbfa-posnn ,
posnv LIKE vbfa-posnv ,
vbtyp_v LIKE vbfa-vbtyp_v,
vbtyp_n LIKE vbfa-vbtyp_n.
DATA : END OF itab_vbfa .
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet078 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet078.
DATA: END OF itab_zycet078.
* << Fim da inclusão
DATA: END OF COMMON PART.
SELECTION-SCREEN BEGIN OF SCREEN 0312 AS WINDOW TITLE text-098.
SELECT-OPTIONS p_matnr FOR mara-matnr.
PARAMETERS: p_dtexp1 LIKE /pws/zycee116-dtincl,
p_dtexp2 LIKE /pws/zycee116-dtincl.
SELECTION-SCREEN END OF SCREEN 0312.
SELECTION-SCREEN BEGIN OF SCREEN 0326 AS WINDOW TITLE text-098.
SELECT-OPTIONS: s_prodt FOR /pws/zycie495-codigo OBLIGATORY,
s_data FOR sy-datum.
SELECTION-SCREEN END OF SCREEN 0326.