CE PLUS - Nota 013177
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 15/08/2013 00:00:00
Data/Hora Última Alteração: 19/08/2013 17:25:09
Descrição da Nota: ERRO NO CAMPO QTDEST DA TABELA /PWS/ZTCIT078
Sintoma
1) Na PLI, o campo QTDEST da tabela /pws/ztcit078 não está sendo atualizado quando o usuário altera
a quantidade dos itens.
Cada item em QTDEST = 380 quando foi criada a PLI (quantidade dos itens na tela = 100, mas faz a
conversão pelo fator no campo QTDEST = 190).
Quando alterei a quantidade dos itens na tela para 50 (calculou na /pws/zycit079-qtdest = 95 - OK).
Mas não atualizou o cmpo da /pws/zycit078.
2) Na PLI quando tem o no. e data de registro preenchido, fecha todos os campos para alteração.
Porém o campo dos itens "especificação técnica" quando dá duplo-clique abre texto para edição e
aceita alterações. Não permitir essa edição. Abrir o campo texto para somente visualização.
Solução
Atualizado programa para atualizar o campo de quantidade estatistica da capa na alteração da
quantidade de itens da PLI e fechar o campo especificação técnica quando o no. e data de
registro estiverem preenchidos.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13177 Data: 15/08/2013 Hora: 14:03:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13177
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00161
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12242 - 00001 - 8.0 - 00011 - PERMITIR QUE O USUÁRIO ALTERE O CAMPO ESPECIFICAÇÃO TÉCNICA
12665 - 00002 - 9.0 - 00002 - AO SALVAR A LI MAIS DE UMA VEZ DUPLICA A QUANT. VINCULADA AO ATO
13023 - 00003 - 9.0 - 00004 - ERRO NOS TEXTOS E ESPECIFICAÇÃO TÉCNICA PLI, PESO DI, GERAÇÃO LI
13158 - 00004 - 9.0 - 00005 - AJUSTAR O CAMPO /PWS/ZYCIE078-QTDEST, NÃO CANCELAR A PLI SE TIVER
----------------------------------------------------------------------------------------------------
ERRO NO CAMPO QTDEST DA TABELA /PWS/ZTCIT078
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - /PWS/ZTCIT078-QTDEST - ERRO AO ALTERAR A QUANTIDADE DOS ITENS
ESPECIFICAÇÃO TÉCNICA - FECHAR O CAMPO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
MODULE atualiza_itens INPUT.
* >> Início da exclusão: MODULE ATUALIZA_ITENS
DATA: v_calc(1) TYPE c.
CLEAR: v_calc.
IF /pws/zycie078-qtdest IS INITIAL.
v_calc = 'X'.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ITENS
CLEAR: /pws/zycie078-qtdest.
* << Fim da inclusão
LOOP AT it_zycit079.
v_indice = sy-tabix.
PERFORM atualiza_itens.
MODIFY it_zycit079 INDEX v_indice.
* >> Início da exclusão: MODULE ATUALIZA_ITENS
IF v_calc EQ 'X'.
* << Fim da exclusão
/pws/zycie078-qtdest = /pws/zycie078-qtdest + it_zycit079-qtdest.
* >> Início da exclusão: MODULE ATUALIZA_ITENS
ENDIF.
* << Fim da exclusão
ENDLOOP.
* >> Início da exclusão: MODULE ATUALIZA_ITENS
IF it_zycit079[] IS INITIAL.
CLEAR: /pws/zycie078-qtdest.
ENDIF.
* << Fim da exclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
CLEAR: v_txtki.
CONCATENATE /pws/zycie078-nrseqli
/pws/zycie079a-ebeln
/pws/zycie079a-ebelp
INTO v_txtki.
wa_thead-tdobject = '/PWS/ZYCI'.
wa_thead-tdname = v_txtki.
wa_thead-tdid = '0338'.
wa_thead-tdspras = sy-langu.
wa_thead-tdlinesize = 132.
* >> Início da inclusão: FORM PREENCHE_V_ESP
IF NOT /pws/zycie078-nrpli IS INITIAL AND
NOT /pws/zycie078-dtreg IS INITIAL.
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
display = 'X'
header = wa_thead
TABLES
lines = rtexti338
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
ELSE.
* << Fim da inclusão
CALL FUNCTION 'EDIT_TEXT'
EXPORTING
header = wa_thead
TABLES
lines = rtexti338
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM PREENCHE_V_ESP
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF v_tcode EQ '/PWS/ZYCI020_E' OR
v_tcode EQ '/PWS/ZYCI020_R' OR
v_tcode EQ '/PWS/ZYCI020_L'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZTLI'
language = sy-langu
name = v_txtki
...
...
IF t001-land1 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
ENDIF.
IF /pws/zycie078-zum IS INITIAL.
SELECT SINGLE /pws/zum
FROM t604f
INTO (/pws/zycie078-zum)
WHERE steuc EQ /pws/zycie078-steuc1 "#EC CI_GENBUFF
AND land1 EQ t001-land1.
ENDIF.
* >> Início da inclusão: FORM SAVEPLI
CLEAR: /pws/zycie078-qtdest.
LOOP AT it_zycit079.
/pws/zycie078-qtdest = /pws/zycie078-qtdest + it_zycit079-qtdest.
ENDLOOP.
* << Fim da inclusão
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_I'.
PERFORM verifica_nrseq_gravado.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP078' FIELD /pws/zycie078-nrseqli.
IF v_tcode EQ '/PWS/ZYCI020_A' OR
v_tcode EQ '/PWS/ZYCI020_N' OR
v_tcode EQ '/PWS/ZYCI020_G'.
/pws/zycie078-usernamea = sy-uname.
...