CE PLUS - Nota 008902
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 27/08/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:21:27
Descrição da Nota: IMPLEMENTAÇÃO PARA FECHAR CAMPOS APÓS VINCULAR LI NO EMBARQUE
Sintoma
Fechar campos no embarque após a vinculação da LI.
Solução
Fechar campos no embarque após a vinculação da LI.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08902 Data: 27/08/2009 Hora: 15:58:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08902
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO PARA FECHAR CAMPOS APÓS VINCULAR LI NO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
IMPLEMENTAÇÃO - VINCULAR - LI - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001O01
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ENDLOOP.
ENDIF.
LOOP AT itab_zycit003.
IF ( NOT itab_zycit003-qtd_itend IS INITIAL AND
itab_zycit003-ntgewd IS INITIAL ) OR
( itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL ).
v_sair = 'X'.
MESSAGE i015 WITH text-465 text-466.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit079
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF /pws/zycit079-qtd_iten < itab_zycit003-qtd_iten.
v_sair = 'X'.
MESSAGE i015 WITH text-496 text-497.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF v_sair = 'X'.
EXIT.
ENDIF.
v_nrseqerro = space.
CLEAR: itab_zycit008.
FREE: itab_zycit008.
SELECT * FROM /pws/zycit008 "#EC CI_NOFIELD
INTO TABLE itab_zycit008
WHERE tpgto EQ 'D'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
IF v_status_s = 1.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM TRATA_SCREEN_0101
IF ( screen-name EQ '/PWS/ZYCIE001-PAORIGEM' OR
screen-name EQ '/PWS/ZYCIE001-PAISPAO' OR
screen-name EQ '/PWS/ZYCIE001-PAISPA' OR
screen-name EQ '/PWS/ZYCIE001-PADEST' ) AND
( NOT /pws/zycie001-nrseq IS INITIAL ).
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq = /pws/zycie001-nrseq
AND nrseqli is not null
AND nrseqli <> ''.
IF sy-subrc EQ 0.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
IF screen-name = '/PWS/ZYCIE001-EMBARCA'.
IF v_status_s = '1'.
IF NOT /pws/zycie001-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit094 "#EC CI_NOFIRST
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc NE 0 OR /pws/zycie001-nrseq IS INITIAL.
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
mfrnr = /pws/zycie003-lifnrfabr.
IF sy-subrc EQ 0.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_401
IF screen-name EQ '/PWS/ZYCIE003-QTDEUMEST' AND
NOT /pws/zycie003-nrseqli IS INITIAL.
screen-input = 0.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
ENDIF.
IF v_tcode = '/PWS/ZYCI001_E'.
LOOP AT SCREEN.
IF screen-group1 EQ 'COM'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 496
Texto: (28 caracteres)
"The amount mentioned is than"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 496
Texto: (34 caracteres)
"A quantidade mencionada é superior"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 497
Texto: (16 caracteres)
"the amount of LI"
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 497
Texto: (18 caracteres)
"a quantidade da LI"
Comprimento máximo: 18