CE PLUS - Nota 003209
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 08/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:25:30
Descrição da Nota: PLI NÃO ATUALIZA DADOS DO FABRICANTE NO DETALHE DO ITEM.
Sintoma
Não está atualizando dados do fabricante ao entrar no detalhe do item da PLI.
Solução
tratar fabricante na navegação dos detalhes dos itens.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03209 Data: 08/03/2007 Hora: 09:44:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03209
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00866 - 00001 - 6.0 - 00022 - PROBLEMAS AO GERAR O SEQUENCIAL DE LI NA PLI.
----------------------------------------------------------------------------------------------------
PLI NÃO ATUALIZA DADOS DO FABRICANTE NO DETALHE DO ITEM.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - DETALHE DO ITEM - DADOS DO FABRICANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
MESSAGE i015 WITH text-025 text-032.
ENDIF.
ENDIF.
CLEAR /pws/zycie078-dtdef.
ENDFORM.
FORM comm_detli.
v_flag2 = '1'.
LOOP AT it_zycit079 WHERE mark = 'X'.
v_ip = sy-tabix.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
* >> Início da inclusão: FORM COMM_DETLI
perform load_desc_fabr.
* << Fim da inclusão
READ TABLE itab_itens_aux WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ '0'.
v_matnr = itab_itens_aux-matnr.
ENDIF.
ENDLOOP.
IF /pws/zycie079a IS INITIAL.
MESSAGE i013 WITH text-019.
ELSE.
IF sy-dynnr EQ '0100'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
LEAVE TO SCREEN '0500'.
ELSEIF /pws/zycie078-tpli EQ 'S'.
LEAVE TO SCREEN '0400'.
ENDIF.
WHEN 'PRIM'.
PERFORM field_industrializacao.
v_ip = 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_descri_suframa.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_desc_fabr.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
WHEN 'ANTE'.
PERFORM field_industrializacao.
IF v_ip > 1.
v_ip = v_ip - 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_descri_suframa.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_desc_fabr.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
ENDIF.
WHEN 'PROX'.
PERFORM field_industrializacao.
DESCRIBE TABLE it_zycit079 LINES v_line.
IF v_ip < v_line.
v_ip = v_ip + 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_descri_suframa.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_desc_fabr.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
ENDIF.
WHEN 'ULTI'.
PERFORM field_industrializacao.
DESCRIBE TABLE it_zycit079 LINES v_ip.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_descri_suframa.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM load_desc_fabr.
* << Fim da inclusão
CLEAR v_esp.
CLEAR rtexti.
REFRESH rtexti.
WHEN 'FORN'.
CALL SCREEN '0504'.
ENDCASE.
CLEAR okcode.
ENDMODULE.
MODULE atual_item INPUT.
IF ( v_tcode NE '/PWS/ZYCI020_E' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ENDIF.
IF v_txtki IS INITIAL.
CONCATENATE /pws/zycie079a-nrseqli /pws/zycie079a-ebeln
/pws/zycie079a-ebelp INTO v_txtki.
ENDIF.
PERFORM: load_meins ,
load_v_esp ,
fill_desc ,
salva_v_esp ,
load_especificacao,
* >> Início da exclusão: MODULE LOAD_ITEM
load_moeda_det ,
load_desc_fabr.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITEM
load_moeda_det .
* << Fim da inclusão
IF NOT /pws/zycie079a-destaque IS INITIAL.
SELECT SINGLE * FROM ekpo
WHERE ebeln EQ /pws/zycie079a-ebeln
AND ebelp EQ /pws/zycie079a-ebelp.
SELECT SINGLE * FROM /pws/zycit338
WHERE matnr EQ ekpo-matnr
AND destaque EQ /pws/zycie079a-destaque.
IF /pws/zycie079a-espec_tecnica IS INITIAL.
/pws/zycie079a-espec_tecnica = /pws/zycit338-text_compl.
ENDIF.
...
...
IF /pws/zycie079a-part_number IS INITIAL.
/pws/zycie079a-part_number = ekpo-matnr.
ENDIF.
ENDIF.
IF /pws/zycie079a-fabric EQ 2 AND /pws/zycie079a-lifnr IS INITIAL.
SELECT SINGLE * FROM ekpo
WHERE ebeln EQ /pws/zycie079a-ebeln
AND ebelp EQ /pws/zycie079a-ebelp.
/pws/zycie079a-lifnr = ekpo-mfrnr.
ENDIF.
* >> Início da inclusão: MODULE LOAD_ITEM
perform load_desc_fabr.
* << Fim da inclusão
ENDMODULE.
MODULE status_0200 OUTPUT.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
ENDMODULE.
MODULE get_parameter OUTPUT.
SET PARAMETER ID '/PWS/ZYGLP095' FIELD /pws/zycie078-flagpli.
GET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
ENDMODULE.
MODULE load_cabec_lsi OUTPUT.
...