CE PLUS - Nota 001007
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Declaração de Origem
Data/Hora da Publicação: 13/03/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:53:38
Descrição da Nota: CRIAÇÃO DE CAMPO /PWS/ZYCET281-NALADI E /PWS/ZYCET281-STEUC PARA ACE58.
Sintoma
Alterar a busca para onde está buscando os cadastros da /PWS/ZYCET283 (prinicipio ativo) deve buscar
/PWS/ZYCET281(RGC2).
Solução
Criação de campo NALADI em tabela /PWS/ZYCET283 e STEUC em tabela /PWS/ZYCET283. Ajuste em
consistência de acordo ACE58 para verificação de NALADI existente.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01007 Data: 13/03/2006 Hora: 10:08:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01007
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00987 - 00001 - 6.0 - 00022 - ALTERAÇÃO DA BUSCA DO CADADSTRO DO MATERIAL PARA ACE58
----------------------------------------------------------------------------------------------------
CRIAÇÃO DE CAMPO /PWS/ZYCET281-NALADI E /PWS/ZYCET281-STEUC PARA ACE58.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - DECLARAÇÃO DE ORIGEM - ADENDO ACE58
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYCEGF1
REPS /PWS/MZYCE042F01
REPS /PWS/MZYCE042I01
REPS /PWS/MZYCE042TOP
REPS /PWS/SAPMZYCE042
TABD /PWS/ZYCET281
TABD /PWS/ZYCET283
TOBJ /PWS/ZYCET281S
TOBJ /PWS/ZYCET283S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042F01
...
PERFORM trata_acordo_produto USING v_acordo.
PERFORM trata_material TABLES itab_mara_aux.
PERFORM trata_estados_partes TABLES itab_ekko.
SELECT * FROM /pws/zycet283 INTO TABLE itab_zycet283
WHERE acordo = v_acordo.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF itab_zycet281[] IS INITIAL.
SELECT *
FROM /pws/zycet281
INTO TABLE itab_zycet281
WHERE acordo EQ v_acordo.
ENDIF.
* << Fim da inclusão
CALL SCREEN 0100.
ENDFORM.
FORM acessa_mara.
CLEAR: itab_mara_aux, itab_mara, itab_familia, itab_cpo,
itab_where_cond, itab_dd03l.
...
...
WHERE nrseqdo = /pws/zycee273-nrseqdo.
READ TABLE itab_zycet279 INDEX 1.
/pws/zycee279 = itab_zycet279.
SELECT * FROM /pws/zycet283 INTO TABLE itab_zycet283
WHERE acordo = /pws/zycee273-acordo.
* >> Início da inclusão: FORM TRATA_DADOS
SELECT *
FROM /pws/zycet281
INTO TABLE itab_zycet281
WHERE acordo EQ /pws/zycee273-acordo.
* << Fim da inclusão
v_select = 'X'.
ENDIF.
ENDIF.
ENDFORM.
FORM trata_enter.
...
...
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
* << Fim da exclusão
* >> Início da inclusão: FORM COMPOSICAO_REGRA_ORIGEM
READ TABLE itab_zycet281
* << Fim da inclusão
WITH KEY naladi = itab_zycet274-naladi.
IF sy-subrc EQ 0.
wa_consistencia-consist_3 = 'X'.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042I01
...
PERFORM trata_estados_partes TABLES itab_ekko.
PERFORM trata_regra_origem USING mara-matnr.
PERFORM busca_exit USING 'DCO003'.
select * from /pws/zycet283 into table itab_zycet283
where acordo = v_acordo.
* >> Início da inclusão: MODULE USER_COMMAND_0002
SELECT *
FROM /pws/zycet281
INTO TABLE itab_zycet281
WHERE acordo EQ v_acordo.
* << Fim da inclusão
CALL SCREEN '0100'.
WHEN 'CANCEL'.
CALL SCREEN '0001'.
ENDCASE.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE042TOP
...
INCLUDE STRUCTURE mara.
DATA: END OF itab_mara.
DATA: BEGIN OF itab_zycet283 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet283.
DATA: END OF itab_zycet283.
* >> 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.
...
---------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET281
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET281
DESCRIÇÃO BREVE: CE - Parâmetro RGC2
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
NALADI /PWS/ZYCEL051 X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET283
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCET283
DESCRIÇÃO BREVE: CE - Parâmetro Princípio Ativo
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
STEUC STEUC X
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCET281S
* A visão de atualização da tabela /PWS/ZYCET281 foi gerada novamente.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCET283S
* A visão de atualização da tabela /PWS/ZYCET283 foi gerada novamente.