CE PLUS - Nota 009562
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 10/12/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:32:36
Descrição da Nota: AO INSERIR DADOS NÃO CARREGA CORRETAMENTE PARÂMETRO DA ZYCIT195 E 196
Sintoma
ao inserir dados não carrega corretamente parâmetro da zycit195 e 196
Solução
verificar todos os itens nas duas tabelas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09562 Data: 10/12/2009 Hora: 16:42:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09562
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09475 - 00001 - 8.0 - 00002 - NECESSÁRIO ALTERAÇÕES PARA ATENDER VÁRIOS NVES PARA UM ITEM.
----------------------------------------------------------------------------------------------------
AO INSERIR DADOS NÃO CARREGA CORRETAMENTE PARÂMETRO DA ZYCIT195 E 196
----------------------------------------------------------------------------------------------------
Palavras Chave:
NVE - EMBAQUE - ZYCIT195 - ZYCIT196
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI001 0405
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit195
INTO TABLE itab_zycit195
WHERE steuc EQ p_ncm.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit196
INTO TABLE itab_zycit196
FOR ALL ENTRIES IN itab_zycit195
WHERE steuc EQ itab_zycit195-steuc
AND atributo EQ itab_zycit195-atributo.
* >> Início da exclusão: FORM CARREGA_NVE
LOOP AT itab_zycit195.
itab_zycit503-nrseq = /pws/zycie001-nrseq.
itab_zycit503-ebeln = itab_zycit003-ebeln.
itab_zycit503-ebelp = itab_zycit003-ebelp.
itab_zycit503-matnr = itab_zycit003-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_NVE
LOOP AT itab_zycit196.
READ TABLE itab_zycit195 WITH KEY
steuc = itab_zycit196-steuc
atributo = itab_zycit196-atributo.
IF sy-subrc EQ 0.
itab_zycit503-nrseq = /pws/zycie001-nrseq.
itab_zycit503-ebeln = itab_zycit003-ebeln.
itab_zycit503-ebelp = itab_zycit003-ebelp.
itab_zycit503-matnr = itab_zycit003-matnr.
* << Fim da inclusão
itab_zycit503-j_1bnbm = itab_zycit003-j_1bnbm.
* >> Início da exclusão: FORM CARREGA_NVE
itab_zycit503-nivel_nve = itab_zycit195-nivel .
itab_zycit503-atributo_nve = itab_zycit195-atributo .
itab_zycit503-desc_nve = itab_zycit195-descricao .
READ TABLE itab_zycit196 WITH KEY
steuc = itab_zycit195-steuc
atributo = itab_zycit195-atributo.
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_NVE
itab_zycit503-nivel_nve = itab_zycit196-nivel .
itab_zycit503-atributo_nve = itab_zycit196-atributo .
itab_zycit503-desc_nve = itab_zycit196-descricao .
* << Fim da inclusão
itab_zycit503-especif_nve = itab_zycit196-especificacao.
* >> Início da inclusão: FORM CARREGA_NVE
APPEND itab_zycit503.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM CARREGA_NVE
APPEND itab_zycit503.
* << Fim da exclusão
ENDLOOP.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
MODULE carrega_estrutura OUTPUT.
IF sy-dynnr EQ '0003'.
PERFORM carrega_estrutura_0003.
ELSEIF sy-dynnr EQ '0111' .
IF /pws/zycie001-regime EQ '14' OR /pws/zycie001-regime EQ '16'.
PERFORM carrega_estrutura.
DESCRIBE TABLE itab_zycit003 LINES v_line.
tc_da-lines = v_line.
ENDIF.
elseif sy-dynnr eq '0405' .
* >> Início da inclusão: MODULE CARREGA_ESTRUTURA
DESCRIBE TABLE itab_zycit503_aux LINES v_line.
tc_nve-lines = v_line.
* << Fim da inclusão
MOVE itab_zycit503_aux TO /pws/zycit503.
ENDIF.
ENDMODULE.
...