CE PLUS - Nota 000830
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 08/02/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 16:16:59
Descrição da Nota: VERIFICAÇÃO DE NALADIS E SOMATÓRIA DA PERCENTUAIS
Sintoma
Comparação de percentuais errada e de produtos de matéria prima importada referente aos Terceiros
Países com todos os materiais do Produto Final.
Solução
Comparar as matérias primas importadas referentes aos Terceiros Países apenas com o material de
criação da Declaração de Origem e somar os percentuais dessas matérias primas que tenham o mesmo
NALADI do material de Produto Final.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00830 Data: 08/02/2006 Hora: 10:27:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00830
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00566 - 00001 - 6.0 - 00022 - DESENVOLVIMENTO DE CONSISTÊNCIAS PARA ACORDO ACE59
00753 - 00002 - 6.0 - 00022 - AJUSTES NO DESENVOLVIMENTO DE CONSISTÊNCIAS PARA ACORDO ACE59
00804 - 00003 - 6.0 - 00022 - CONSISTIR MENSAGENS DE REGRA DE ORIGEM PARA ACORDO ACE59
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO DE NALADIS E SOMATÓRIA DA PERCENTUAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PERCENTUAIS; NALADIS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE042 0003
DYNP /PWS/SAPMZYCE042 0105
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042I01
REPS /PWS/MZYCE042O01
REPS /PWS/MZYCE042TOP
REPS /PWS/MZYCE042X01
REPS /PWS/SAPMZYCE042
REPT /PWS/SAPMZYCE042
TABD /PWS/ZYCEE273
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
...
v_tab = sy-ucomm.
v_tela = '0104'.
ENDCASE.
ENDFORM.
FORM salva_declaracao.
* >> Início da exclusão: FORM SALVA_DECLARACAO
PERFORM composicao_regra_origem USING 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DECLARACAO
PERFORM composicao_regra_origem.
* << Fim da inclusão
LOOP AT itab_zycet273.
MODIFY itab_zycet273 FROM /pws/zycee273.
ENDLOOP.
MODIFY /pws/zycet273 FROM TABLE itab_zycet273.
READ TABLE itab_zycet273.
...
MOVE itab_zycet273-nrseqdo TO itab_zycet278-nrseqdo.
MODIFY itab_zycet278.
ENDLOOP.
MODIFY /pws/zycet278 FROM TABLE itab_zycet278.
IF itab_zycet284-codacor EQ '00009'.
* >> Início da exclusão: FORM SALVA_DECLARACAO
IF NOT /pws/zycee279-descricao IS INITIAL.
CLEAR: v_comentario, v_comentario1.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DECLARACAO
READ TABLE itab_zycet279 INDEX 1.
IF sy-subrc IS INITIAL AND
NOT itab_zycet279-descricao IS INITIAL.
CLEAR: v_comentario,
v_comentario1.
* << Fim da inclusão
ENDIF.
ENDIF.
DELETE FROM /pws/zycet279 WHERE nrseqdo = itab_zycet273-nrseqdo.
* >> Início da exclusão: FORM SALVA_DECLARACAO
MOVE itab_zycet273-nrseqdo TO /pws/zycee279-nrseqdo.
MODIFY /pws/zycet279 FROM /pws/zycee279.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DECLARACAO
MODIFY /pws/zycet279 FROM TABLE itab_zycet279.
* << Fim da inclusão
COMMIT WORK.
MESSAGE i001 WITH text-042.
ENDFORM.
...
FORM composicao_regra_origem.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
DATA: v_ok TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
DATA: v_ok TYPE c,
v_percentual TYPE /pws/zycet277-perfinal.
FIELD-SYMBOLS: <fs-zycet277> LIKE itab_zycet277.
* << Fim da inclusão
CASE /pws/zycee273-acordo.
WHEN 'ACE59'.
READ TABLE itab_zycet279 INDEX 1.
IF itab_zycet276[] IS INITIAL AND
itab_zycet277[] IS INITIAL .
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-nrseqdo = /pws/zycee273-nrseqdo.
* << Fim da inclusão
itab_zycet279-descricao = text-039.
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
ELSE.
READ TABLE itab_zycet274 WITH KEY matnr = /pws/zycee273-matnr.
CLEAR v_percentual.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
LOOP AT itab_zycet277.
READ TABLE itab_zycet274 INDEX sy-tabix.
CHECK itab_zycet277-naladi(4) EQ itab_zycet274-naladi(4).
v_ok = 'X'.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
LOOP AT itab_zycet277 ASSIGNING <fs-zycet277>.
CHECK <fs-zycet277>-naladi(4) EQ itab_zycet274-naladi(4).
v_ok = 'X'.
v_percentual = v_percentual + <fs-zycet277>-perfinal.
ENDLOOP.
* << Fim da inclusão
IF v_ok IS INITIAL.
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-nrseqdo = /pws/zycee273-nrseqdo.
* << Fim da inclusão
itab_zycet279-descricao = text-058.
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
ELSE.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF itab_zycet277-perfinal > 40.
IF p_flag IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
IF v_percentual > 40.
* << Fim da inclusão
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 inclusão: FORM COMPOSICAO_REGRA_ORIGEM
itab_zycet279-nrseqdo = /pws/zycee273-nrseqdo.
* << Fim da inclusão
itab_zycet279-descricao = text-059.
IF NOT itab_zycet279[] IS INITIAL.
MODIFY itab_zycet279 INDEX 1.
ELSE.
APPEND itab_zycet279.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042O01
...
DATA: v_ano1(4).
v_ano1 = sy-datum+0(4) - 1.
CONCATENATE v_ano1 sy-datum+4(4) INTO /pws/zycee001-dtinclav.
CONCATENATE v_ano1 sy-datum+4(4) INTO /pws/zycee001-dtincl.
ENDMODULE.
* >> Início da exclusão: MODULE COMPOR_REGRA_ORIGEM
MODULE compor_regra_origem OUTPUT.
PERFORM composicao_regra_origem USING space.
ENDMODULE.
* << Fim da exclusão
* >> Início da inclusão: MODULE COMPOR_REGRA_ORIGEM
MODULE compor_regra_origem OUTPUT.
PERFORM composicao_regra_origem.
ENDMODULE.
* << Fim da inclusão