CE PLUS - Nota 000987
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 07/03/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 16:25:44
Descrição da Nota: ALTERAÇÃO DA BUSCA DO CADADSTRO DO MATERIAL PARA ACE58
Sintoma
O programa busca o cadastro do Naladi na tabela /pws/zycet283.
Solução
Alterado para que o programa busque o cadastro da tabela /pws/zycet281 pelo campos STEUC.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00987 Data: 07/03/2006 Hora: 17:01:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00987
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00963 - 00001 - 6.0 - 00022 - ADENDO DO DESENVOLVIMENTO DO ACE58
----------------------------------------------------------------------------------------------------
ALTERAÇÃO DA BUSCA DO CADADSTRO DO MATERIAL PARA ACE58
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - DECLARAÇÃO DE ORIGEM - NALADI/NCM - ACE58
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042I01
REPS /PWS/MZYCE042TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
...
PERFORM acessa_mara.
PERFORM acessa_t005.
PERFORM trata_acordo_produto USING v_acordo.
PERFORM trata_material TABLES itab_mara_aux.
PERFORM trata_estados_partes TABLES itab_ekko.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT * FROM /pws/zycet283 INTO TABLE itab_zycet283
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
select * from /pws/zycet281 into table itab_zycet281
* << Fim da inclusão
WHERE acordo = v_acordo.
CALL SCREEN 0100.
ENDFORM.
FORM acessa_mara.
CLEAR: itab_mara_aux, itab_mara, itab_familia, itab_cpo,
...
...
WHERE nrseqdo = /pws/zycee273-nrseqdo.
SELECT * FROM /pws/zycet279 INTO TABLE itab_zycet279
WHERE nrseqdo = /pws/zycee273-nrseqdo.
READ TABLE itab_zycet279 INDEX 1.
/pws/zycee279 = itab_zycet279.
* >> Início da exclusão: FORM TRATA_DADOS
SELECT * FROM /pws/zycet283 INTO TABLE itab_zycet283
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_DADOS
select * from /pws/zycet281 into table itab_zycet281
* << Fim da inclusão
WHERE acordo = /pws/zycee273-acordo.
v_select = 'X'.
ENDIF.
ENDIF.
ENDFORM.
...
...
IF sy-subrc NE 0.
wa_consistencia-consist_2 = 'X'.
ELSE.
CLEAR v_existe.
LOOP AT itab_zycet274.
* >> Início da exclusão: FORM COMPOSICAO_REGRA_ORIGEM
READ TABLE itab_zycet283
WITH KEY naladi = itab_zycet274-naladi.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
read table itab_zycet281
with key steuc = itab_zycet274-steuc
binary search.
* << Fim da inclusão
IF sy-subrc EQ 0.
wa_consistencia-consist_3 = 'X'.
EXIT.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042I01
...
PERFORM trata_acordo_produto USING v_acordo.
PERFORM trata_material TABLES itab_mara_aux.
PERFORM trata_estados_partes TABLES itab_ekko.
PERFORM trata_regra_origem USING mara-matnr.
PERFORM busca_exit USING 'DCO003'.
* >> Início da exclusão: MODULE USER_COMMAND_0002
select * from /pws/zycet283 into table itab_zycet283
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0002
select * from /pws/zycet281 into table itab_zycet281
* << Fim da inclusão
where acordo = v_acordo.
CALL SCREEN '0100'.
WHEN 'CANCEL'.
CALL SCREEN '0001'.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042TOP
...
DATA: END OF itab_zycet288.
DATA: itab_cpo LIKE abapsource OCCURS 100 WITH HEADER LINE.
DATA: BEGIN OF itab_mara OCCURS 0.
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet283 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet283.
DATA: END OF itab_zycet283.
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_zycet281 occurs 0.
include structure /pws/zycet281.
data: end of itab_zycet281.
* << Fim da inclusão
DATA: itab_zyglt100 LIKE TABLE OF /pws/zyglt100 WITH HEADER LINE.
DATA: wa_cols TYPE cxtab_column,
wa_landx LIKE t005t-landx.
DATA: wa_desc LIKE makt-maktx,
wa_condov LIKE /pws/zycet037-condov.
...