CE PLUS - Nota 000935
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 22/02/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 16:02:54
Descrição da Nota: ADEQUAÇÃO AO ACORDO ACE58
Sintoma
Adequação do programa às consistências com acordo ACE58.
Solução
Melhoria do Processo
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00935 Data: 22/02/2006 Hora: 15:37:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00935
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00930 - 00001 - 6.0 - 00022 - DESENVOLVIMENTO DE CONSISTÊNCIAS PARA ACORDO ACE58
----------------------------------------------------------------------------------------------------
ADEQUAÇÃO AO ACORDO ACE58
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPROTAÇÃO - DECLARAÇÃO DE ORIGEM - ACE58
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042I01
REPS /PWS/MZYCE042O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
...
MOVE itab_t604n-text1 TO itab_zycet274_aux-descr.
ENDIF.
ENDIF.
ENDIF.
WHEN '00002' OR '00003' OR '00004' OR '00006' OR '00007'
* >> Início da exclusão: FORM TRATA_NCM_NALADI
OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_NCM_NALADI
OR '00008' OR '00009' OR '00010' or '00011'.
* << Fim da inclusão
READ TABLE itab_zycet509 WITH KEY matnr = itab_mara_aux-matnr.
IF sy-subrc = 0.
MOVE itab_zycet509-codnaladi TO itab_zycet274_aux-naladi.
MOVE itab_zycet509-descr_naladi TO itab_zycet274_aux-descr.
ELSE.
...
...
MOVE itab_t604n-text1 TO itab_zycet274_aux-descr.
ENDIF.
ENDIF.
ENDIF.
WHEN '00002' OR '00003' OR '00004' OR '00006' OR '00007'
* >> Início da exclusão: FORM TRATA_NCM_NALADI
OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_NCM_NALADI
OR '00008' OR '00009' OR '00010' or '00011'.
* << Fim da inclusão
READ TABLE itab_zycet509 WITH KEY matnr = itab_familia-matnr.
IF sy-subrc = 0.
MOVE itab_zycet509-codnaladi TO itab_zycet274_aux-naladi.
MOVE itab_zycet509-descr_naladi TO itab_zycet274_aux-descr.
ELSE.
...
...
itab_periodo-low = /pws/zycee001-dtincl.
itab_periodo-high = sy-datum.
APPEND itab_periodo.
CLEAR itab_periodo.
IF NOT it_stpox[] IS INITIAL.
* >> Início da inclusão: FORM TRATA_MATERIAL
if not /pws/zycee273-werks is initial.
* << Fim da inclusão
SELECT b~matnr a~ebeln a~aedat a~lifnr b~netpr a~waers
a~knumv b~ebelp b~menge b~meins b~ntgew
FROM ekko AS a
INNER JOIN ekpo AS b
ON a~ebeln = b~ebeln
INTO TABLE itab_ekko
FOR ALL ENTRIES IN it_stpox
WHERE b~matnr = it_stpox-idnrk
* >> Início da exclusão: FORM TRATA_MATERIAL
AND a~aedat IN itab_periodo.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_MATERIAL
AND a~aedat IN itab_periodo
and b~bukrs = /pws/zycee273-bukrs
and b~werks = /pws/zycee273-werks
and b~PSTYP = '0'
and b~KNTTP eq space
and b~ELIKZ eq 'X'
and ( a~BSTYP eq 'F' or a~BSTYP eq 'L' ).
else.
SELECT b~matnr a~ebeln a~aedat a~lifnr b~netpr a~waers
a~knumv b~ebelp b~menge b~meins b~ntgew
FROM ekko AS a
INNER JOIN ekpo AS b
ON a~ebeln = b~ebeln
INTO TABLE itab_ekko
FOR ALL ENTRIES IN it_stpox
WHERE b~matnr = it_stpox-idnrk
AND a~aedat IN itab_periodo
and b~bukrs = /pws/zycee273-bukrs
and PSTYP eq '0'
and KNTTP eq space
and ELIKZ eq 'X'
and ( a~BSTYP eq 'F' or a~BSTYP eq 'L' ).
endif.
* << Fim da inclusão
ENDIF.
SORT itab_ekko BY matnr ASCENDING aedat DESCENDING.
DELETE ADJACENT DUPLICATES FROM itab_ekko COMPARING matnr.
IF NOT itab_ekko[] IS INITIAL.
SELECT land1 lifnr FROM lfa1 INTO TABLE itab_lfa1
...
...
WHEN '00001' OR '00005'.
SELECT * FROM /pws/zycet509 INTO TABLE itab_zycet509
WHERE matnr = itab_mara_aux-matnr
AND steuc <> ' '.
IF sy-subrc EQ 4.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
if not /pws/zycee273-werks is initial.
SELECT matnr steuc FROM marc INTO TABLE itab_marc
WHERE matnr = itab_mara_aux-matnr
AND steuc <> ' '
and werks = /pws/zycee273-werks .
else.
* << Fim da inclusão
SELECT matnr steuc FROM marc INTO TABLE itab_marc
WHERE matnr = itab_mara_aux-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
endif.
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_marc INDEX 1.
SELECT text1 steuc FROM t604n INTO TABLE itab_t604n
WHERE steuc = itab_marc-steuc
AND spras = sy-langu.
ENDIF.
ENDIF.
WHEN '00002' OR '00003' OR '00004' OR '00006' OR '00007'
* >> Início da exclusão: FORM TRATA_ACORDO_PRODUTO
OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
OR '00008' OR '00009' OR '00010' or '00011'.
if not /pws/zycee273-werks is initial.
SELECT matnr steuc FROM marc INTO TABLE itab_marc
WHERE matnr = itab_mara_aux-matnr
AND steuc <> ' '
and werks = /pws/zycee273-werks.
else.
* << Fim da inclusão
SELECT matnr steuc FROM marc INTO TABLE itab_marc
WHERE matnr = itab_mara_aux-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
endif.
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_marc INDEX 1.
SELECT steuc /pws/codnaladi /pws/descr_nala
FROM t604f INTO TABLE itab_t604f
WHERE steuc = itab_marc-steuc.
...
...
WHEN '00001' OR '00005'.
SELECT * FROM /pws/zycet509 INTO TABLE itab_zycet509
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
IF NOT /PWS/ZYCEE273-WERKS IS INITIAL.
SELECT matnr steuc FROM marc INTO TABLE itab_marc
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '
AND WERKS = /PWS/ZYCEE273-WERKS.
ELSE.
* << Fim da inclusão
SELECT matnr steuc FROM marc INTO TABLE itab_marc
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
ENDIF.
* << Fim da inclusão
IF NOT itab_marc[] IS INITIAL.
SELECT text1 steuc FROM t604n INTO TABLE itab_t604n
FOR ALL ENTRIES IN itab_marc
WHERE steuc = itab_marc-steuc
AND spras = sy-langu.
ENDIF.
WHEN '00002' OR '00003' OR '00004' OR '00006' OR '00007'
* >> Início da exclusão: FORM TRATA_ACORDO_PRODUTO
OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
OR '00008' OR '00009' OR '00010' or '00011'.
* << Fim da inclusão
SELECT * FROM /pws/zycet509 INTO TABLE itab_zycet509
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
IF NOT /PWS/ZYCEE273-WERKS IS INITIAL.
SELECT matnr steuc FROM marc INTO TABLE itab_marc
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '
AND WERKS = /PWS/ZYCEE273-WERKS.
ELSE.
* << Fim da inclusão
SELECT matnr steuc FROM marc INTO TABLE itab_marc
FOR ALL ENTRIES IN itab_familia
WHERE matnr = itab_familia-matnr
AND steuc <> ' '.
* >> Início da inclusão: FORM TRATA_ACORDO_PRODUTO
ENDIF.
* << Fim da inclusão
IF NOT itab_marc[] IS INITIAL.
SELECT steuc /pws/codnaladi /pws/descr_nala
FROM t604f INTO TABLE itab_t604f
FOR ALL ENTRIES IN itab_marc
WHERE steuc = itab_marc-steuc.
...
...
ENDIF.
MOVE v_perfinal_aux TO itab_zycet277-perfinal.
APPEND itab_zycet277.
CLEAR itab_zycet277.
WHEN '00002' OR '00003' OR '00004' OR '00006' OR '00007'
* >> Início da exclusão: FORM TRATA_ESTADOS_PARTES
OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ESTADOS_PARTES
OR '00008' OR '00009' OR '00010' or '00011'.
* << Fim da inclusão
READ TABLE itab_marc WITH KEY matnr = it_stpox-idnrk.
IF sy-subrc EQ 0.
READ TABLE itab_t604f WITH KEY steuc = itab_marc-steuc.
IF sy-subrc EQ 0.
MOVE itab_t604f-/pws/codnaladi TO itab_aux-naladi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042O01
...
screen-invisible = '1'.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
WHEN '00002' OR '00003' OR '00004' OR '00006'
* >> Início da exclusão: MODULE SET_SCREEN
OR '00007' OR '00008' OR '00009' OR '00010'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
OR '00007' OR '00008' OR '00009' OR '00010' OR '00011'.
* << Fim da inclusão
v_text1 = text-040.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'TAB_TERCEIROS'.
screen-invisible = '0'.
...
...
CONCATENATE v_ano1 sy-datum+4(4) INTO /pws/zycee001-dtincl.
ENDMODULE.
MODULE compor_regra_origem OUTPUT.
PERFORM composicao_regra_origem.
ENDMODULE.