CE PLUS - Nota 002876
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 12/01/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:41:55
Descrição da Nota: AJUSTADO ADITIVO PARA EXCLUSÃO DE ITENS DO ATO CONCESSÓRIO
Sintoma
Ajustado a criação automatica do aditivo para itens excluidos de forma que sejam levadas as mesmas
informações que os itens adicionados.
Solução
Ajustado a criação automatica do aditivo para itens excluidos de forma que sejam levadas as mesmas
informações que os itens adicionados.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02876 Data: 12/01/2007 Hora: 15:21:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02876
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01159 - 00001 - 6.0 - 00023 - DESENVOLVIMENTO PARA TRANSMISSÃO DOS DADOS DO ATO PARA O SISCOMEX
----------------------------------------------------------------------------------------------------
AJUSTADO ADITIVO PARA EXCLUSÃO DE ITENS DO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXCLUSÃO - ITENS - ATO - CONCESSÓRIO - ADITIVO
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
ENDFORM.
FORM verifica_alteracoes.
DATA: itab_zycit245_vf LIKE itab_zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit247_vf LIKE itab_zycit247 OCCURS 0 WITH HEADER LINE,
itab_src_de LIKE src2 OCCURS 0 WITH HEADER LINE,
itab_src_para LIKE src2 OCCURS 0 WITH HEADER LINE.
DATA: v_mensagem(72).
DATA: v_data1(10),
v_data2(10),
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
v_tpalter ,
* << Fim da inclusão
v_dias_p TYPE i.
REFRESH src2.
wa_src2-line = text-071.
APPEND wa_src2 TO src2.
v_ver_alt = 'X'.
IF v_tcode2 EQ '/PWS/ZYCI040_C' OR v_tcode2 EQ '/PWS/ZYCI040_A' OR
( sy-tcode NE v_tcode2 AND /pws/zycie244-fechado EQ 'X' ).
IF wa_zycit244 NE /pws/zycie244 .
IF wa_zycit244-werks NE /pws/zycie244-werks.
wa_src2-line = text-216.
...
...
ENDIF.
APPEND itab_zycit457.
ENDIF.
ENDIF.
itab_zycit245_vf[] = itab_zycit245[].
itab_zycit247_vf[] = itab_zycit247[].
IF itab_zycit247_save[] NE itab_zycit247[] .
LOOP AT itab_zycit247_save.
READ TABLE itab_zycit247_vf WITH KEY nritem =
itab_zycit247_save-nritem.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
IF sy-subrc EQ 0.
v_tpalter = 'A'.
DELETE itab_zycit247_vf
WHERE nritem = itab_zycit247_save-nritem.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
ELSE.
clear: itab_zycit247_vf.
v_tpalter = 'D'.
CLEAR: v_mensagem.
CONCATENATE text-217 itab_zycit247_save-nritem
text-225 text-224 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit247_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'E'.
itab_zycit457-para = itab_zycit247_save-j_1bnbm.
APPEND itab_zycit457.
ENDIF.
* << Fim da inclusão
IF itab_zycit247_vf-j_1bnbm NE itab_zycit247_save-j_1bnbm.
PERFORM preenche_alte USING text-168
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-j_1bnbm
itab_zycit247_vf-j_1bnbm
text-224.
ENDIF.
IF itab_zycit247_vf-meins NE itab_zycit247_save-meins.
PERFORM preenche_alte USING text-218
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-meins
itab_zycit247_vf-meins
text-224.
ENDIF.
IF itab_zycit247_vf-qtd_ncm NE itab_zycit247_save-qtd_ncm.
PERFORM preenche_alte USING text-219
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
itab_zycit247_save-qtd_ncm
itab_zycit247_vf-qtd_ncm
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
itab_zycit247_save-um_ncm
itab_zycit247_vf-um_ncm
* << Fim da inclusão
text-224.
ENDIF.
IF itab_zycit247_vf-waers NE itab_zycit247_save-waers.
PERFORM preenche_alte USING text-220
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-waers
itab_zycit247_vf-waers
text-224.
ENDIF.
IF itab_zycit247_vf-netpr NE itab_zycit247_save-netpr.
PERFORM preenche_alte USING text-221
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-netpr
itab_zycit247_vf-netpr
text-224.
ENDIF.
IF itab_zycit247_vf-netpr_t NE itab_zycit247_save-netpr_t.
PERFORM preenche_alte USING text-222
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-netpr_t
itab_zycit247_vf-netpr_t
text-224.
ENDIF.
IF itab_zycit247_vf-tolling NE itab_zycit247_save-tolling.
PERFORM preenche_alte USING text-223
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit247_save-tolling
itab_zycit247_vf-tolling
text-224.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
ENDIF.
DELETE itab_zycit247_vf
WHERE nritem = itab_zycit247_save-nritem.
ELSE.
CLEAR: v_mensagem.
CONCATENATE text-217 itab_zycit247_save-nritem
text-225 text-224 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit247_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'E'.
itab_zycit457-para = itab_zycit247_save-j_1bnbm.
APPEND itab_zycit457.
* << Fim da exclusão
ENDIF.
ENDLOOP.
IF NOT itab_zycit247_vf[] IS INITIAL.
LOOP AT itab_zycit247_vf.
CLEAR: v_mensagem, itab_zycit247_save.
CONCATENATE text-217 itab_zycit247_vf-nritem
text-225 text-224 text-231
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
...
...
APPEND wa_src2 TO src2.
PERFORM preenche_alte USING text-168
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-j_1bnbm
itab_zycit247_vf-j_1bnbm
text-224.
PERFORM preenche_alte USING text-218
itab_zycit247_vf-nritem
'C'
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-meins
itab_zycit247_vf-meins
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit247_save-um_ncm
itab_zycit247_vf-um_ncm
* << Fim da inclusão
text-224.
PERFORM preenche_alte USING text-219
itab_zycit247_vf-nritem
'C'
itab_zycit247_save-qtd_ncm
itab_zycit247_vf-qtd_ncm
text-224.
PERFORM preenche_alte USING text-220
itab_zycit247_vf-nritem
'C'
...
...
itab_zycit247_vf-tolling
text-224.
ENDLOOP.
ENDIF.
ENDIF.
IF itab_zycit245_save[] NE itab_zycit245[] .
LOOP AT itab_zycit245_save.
READ TABLE itab_zycit245_vf WITH KEY nritem =
itab_zycit245_save-nritem.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
DELETE itab_zycit245_vf
WHERE nritem = itab_zycit245_save-nritem.
v_tpalter = 'A'.
ELSE.
CLEAR: itab_zycit245_vf.
v_tpalter = 'D'.
CLEAR: v_mensagem.
CONCATENATE text-217 itab_zycit245_save-nritem
text-225 text-207 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit245_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'I'.
itab_zycit457-para = itab_zycit245_save-j_1bnbm.
APPEND itab_zycit457.
ENDIF.
* << Fim da inclusão
IF itab_zycit245_vf-j_1bnbm NE itab_zycit245_save-j_1bnbm.
PERFORM preenche_alte USING text-168
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit245_save-j_1bnbm
itab_zycit245_vf-j_1bnbm
text-207.
ENDIF.
IF itab_zycit245_vf-meins NE itab_zycit245_save-meins.
PERFORM preenche_alte USING text-218
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
itab_zycit245_save-meins
itab_zycit245_vf-meins
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
itab_zycit245_save-um_ncm
itab_zycit245_vf-UM_ncm
* << Fim da inclusão
text-207.
ENDIF.
IF itab_zycit245_vf-qtd_ncm NE itab_zycit245_save-qtd_ncm.
PERFORM preenche_alte USING text-219
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit245_save-qtd_ncm
itab_zycit245_vf-qtd_ncm
text-207.
ENDIF.
IF itab_zycit245_vf-waers NE itab_zycit245_save-waers.
PERFORM preenche_alte USING text-220
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit245_save-waers
itab_zycit245_vf-waers
text-207.
ENDIF.
IF itab_zycit245_vf-netpr NE itab_zycit245_save-netpr.
PERFORM preenche_alte USING text-221
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit245_save-netpr
itab_zycit245_vf-netpr
text-207.
ENDIF.
IF itab_zycit245_vf-netpr_t NE itab_zycit245_save-netpr_t.
PERFORM preenche_alte USING text-222
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_vf-nritem
'A'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-nritem
v_tpalter
* << Fim da inclusão
itab_zycit245_save-netpr_t
itab_zycit245_vf-netpr_t
text-207.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
DELETE itab_zycit245_vf
WHERE nritem = itab_zycit245_save-nritem.
ELSE.
CLEAR: v_mensagem.
CONCATENATE text-217 itab_zycit245_save-nritem
text-225 text-207 text-230
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
CLEAR: itab_zycit457.
itab_zycit457-nrseqd = /pws/zycie244-nrseqd.
itab_zycit457-item = itab_zycit245_save-nritem.
itab_zycit457-tpalter = 'D'.
itab_zycit457-aditivo = /pws/zycie244-aditivo.
itab_zycit457-pasta = 'I'.
itab_zycit457-para = itab_zycit245_save-j_1bnbm.
APPEND itab_zycit457.
ENDIF.
* << Fim da exclusão
ENDLOOP.
IF NOT itab_zycit245_vf[] IS INITIAL.
LOOP AT itab_zycit245_vf.
CLEAR: v_mensagem, itab_zycit245_save.
CONCATENATE text-217 itab_zycit245_vf-nritem
text-225 text-207 text-231
INTO v_mensagem SEPARATED BY space.
wa_src2-line = v_mensagem.
APPEND wa_src2 TO src2.
wa_src2-line = text-229.
APPEND wa_src2 TO src2.
PERFORM preenche_alte USING text-168
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-j_1bnbm
itab_zycit245_vf-j_1bnbm
text-207.
PERFORM preenche_alte USING text-218
itab_zycit245_vf-nritem
'C'
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-meins
itab_zycit245_vf-meins
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
itab_zycit245_save-um_ncm
itab_zycit245_vf-um_ncm
* << Fim da inclusão
text-207.
PERFORM preenche_alte USING text-219
itab_zycit245_vf-nritem
'C'
itab_zycit245_save-qtd_ncm
itab_zycit245_vf-qtd_ncm
text-207.
PERFORM preenche_alte USING text-220
itab_zycit245_vf-nritem
'C'
...