CE PLUS - Nota 000963
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 01/03/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:08:53
Descrição da Nota: ADENDO DO DESENVOLVIMENTO DO ACE58
Sintoma
Houve uma mudança na legislação do acordo ACE58 em relação às Regras de Origem.
Solução
Desnvolvimento de novas consistências de Acordo com as necessidades e legislação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00963 Data: 01/03/2006 Hora: 14:50:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00963
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00935 - 00001 - 6.0 - 00022 - ADEQUAÇÃO AO ACORDO ACE58
00938 - 00002 - 6.0 - 00022 - CORREÇÃO EM EXPLOSÃO DE MATERIAIS EM LISTA TÉCNICA
----------------------------------------------------------------------------------------------------
ADENDO DO DESENVOLVIMENTO DO ACE58
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - DECLARAÇÃO DE ORIGEM - ADENDO - ACE58
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042TOP
REPT /PWS/SAPMZYCE042
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
...
ENDIF.
ENDIF.
ENDIF.
WHEN 'ACE58'.
CLEAR wa_consistencia.
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF itab_zycet276[] IS INITIAL AND
itab_zycet277[] IS INITIAL .
wa_consistencia-consist_1 = 'X'.
ELSE.
* << Fim da inclusão
LOOP AT itab_zycet277 WHERE steuc NE space OR
naladi NE space OR
matnr NE space OR
maktx NE space OR
country NE space OR
...
...
meins NE space OR
perfinal NE space .
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_1 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_2 = 'X'.
* << Fim da inclusão
ELSE.
CLEAR v_existe.
LOOP AT itab_zycet274.
READ TABLE itab_zycet283
WITH KEY naladi = itab_zycet274-naladi.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_2 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_3 = 'X'.
* << Fim da inclusão
EXIT.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF wa_consistencia-consist_2 EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF wa_consistencia-consist_3 EQ 'X'.
* << Fim da inclusão
CLEAR v_percentual.
LOOP AT itab_zycet277.
v_percentual = v_percentual + itab_zycet277-perfinal.
ENDLOOP.
MESSAGE i001 WITH text-045.
...
...
MESSAGE w016 WITH text-044 text-046.
CLEAR itab_zycet279-descricao.
CHECK NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_3 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_4 = 'X'.
* << Fim da inclusão
ENDIF.
ELSE.
CLEAR v_percentual.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_4 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_5 = 'X'.
* << Fim da inclusão
LOOP AT itab_zycet277 .
READ TABLE itab_zycet274
WITH KEY naladi(4) = itab_zycet277-naladi(4).
CHECK sy-subrc EQ 0.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
CLEAR wa_consistencia-consist_4 .
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
CLEAR wa_consistencia-consist_5 .
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF wa_consistencia-consist_4 NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF wa_consistencia-consist_5 NE 'X'.
* << Fim da inclusão
CLEAR v_percentual.
LOOP AT itab_zycet277.
v_percentual = v_percentual + itab_zycet277-perfinal.
ENDLOOP.
IF v_percentual GT 50.
MESSAGE w016 WITH text-044 text-046.
CLEAR itab_zycet279-descricao.
CHECK NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_5 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
wa_consistencia-consist_6 = 'X'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_zycet279 INDEX 1.
itab_zycet279-nrseqdo = /pws/zycee273-nrseqdo.
IF wa_consistencia-consist_1 = 'X'.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = text-060.
ELSEIF wa_consistencia-consist_3 = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-descricao = text-066.
ELSEIF wa_consistencia-consist_2 = 'X'.
* << Fim da inclusão
itab_zycet279-descricao = text-061.
ELSEIF wa_consistencia-consist_4 = 'X'.
itab_zycet279-descricao = text-062.
ELSEIF wa_consistencia-consist_5 = 'X'.
itab_zycet279-descricao = text-063.
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
ELSEIF wa_consistencia-consist_6 = 'X'.
itab_zycet279-descricao = text-067.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042TOP
...
data: begin of wa_consistencia.
data: consist_1,
consist_2,
consist_3,
consist_4,
* >> Início da exclusão:
consist_5.
* << Fim da exclusão
* >> Início da inclusão:
consist_5,
consist_6.
* << Fim da inclusão
data: end of wa_consistencia.
DATA:
okcode LIKE sy-ucomm,
v_prog(30) TYPE c VALUE '/PWS/SAPMZYCE042',
v_tela(4) TYPE c VALUE '0101',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE042
* Os textos abaixo foram inseridos:
*Chave Comprimento Txt.
066 28 Anexo V, artigo 2, letra "a"
067 28 Anexo V, artigo 4, letra "b"
* Os textos abaixo foram modificados:
* Chave Comprimento Txt.
DE: 061 30 Anexo V, artigo 5, apêndice 1.
PARA: 061 30 Anexo V, artigo 2, letra "c".
DE: 062 29 Anexo V, artigo 4, letra "a".
PARA: 062 30 Anexo V, artigo 5, apêndice 1
DE: 063 29 Anexo V, artigo 4, letra "b".
PARA: 063 29 Anexo V, artigo 4, letra "a".