CE PLUS - Nota 009718
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 22/01/2010 00:00:00
Data/Hora Última Alteração: 10/11/2011 13:16:40
Descrição da Nota: INFORMAR O USUÁRIO SAP QUE ESTÁ BLOQUEANDO O PEDIDO DE COMPRAS
Sintoma
Informar o usuário SAP que está bloqueando o pedido de compras em várias funcionalidades
Solução
Informar o usuário SAP que está bloqueando o pedido de compras em várias funcionalidades
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09718 Data: 22/01/2010 Hora: 15:21:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09718
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09211 - 00001 - 8.0 - 00001 - AO MODIFICAR EMBARQUE DE UM PEDIDO, PERMITE CRIAR DI POR FORA
----------------------------------------------------------------------------------------------------
INFORMAR O USUÁRIO SAP QUE ESTÁ BLOQUEANDO O PEDIDO DE COMPRAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
USUÁRIO - BLOQUEIO - MENSAGEM - EMBARQUE - DI - LI - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI023F05
REPT /PWS/SAPMZYCI001
REPT /PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT001'
EXPORTING
nrseq = /pws/zycie001-nrseq
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
CASE sy-subrc.
WHEN 1.
* >> Início da exclusão: FORM LOCK_RECORD
MESSAGE w015 WITH text-022 text-023.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_RECORD
MESSAGE w015 WITH text-508 sy-uname text-023.
* << Fim da inclusão
LEAVE TO TRANSACTION '/PWS/ZYCI001_E' AND SKIP FIRST SCREEN.
v_status_s = '0'.
WHEN 2.
MESSAGE a015 WITH text-024.
ENDCASE.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
OTHERS = 3.
IF sy-subrc EQ '1'.
IF sy-tcode EQ '/PWS/ZYCI001_C' OR
sy-tcode EQ '/PWS/ZYCI001_A'.
v_msg = 'X'.
v_status_s = '0'.
ENDIF.
ENDIF.
ENDLOOP.
IF v_msg = 'X'.
* >> Início da exclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-333 text-334.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-509 sy-uname text-334.
* << Fim da inclusão
IF sy-dynnr EQ '0001'.
LEAVE TO TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
CLEAR : itab_pedido.
REFRESH : itab_pedido.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
MESSAGE s004.
ENDIF.
CLEAR sy-subrc.
CASE okcode.
WHEN 'VLI'.
PERFORM: verifica_li.
WHEN 'MODI'.
PERFORM lock_record.
IF sy-subrc EQ '4'.
v_status_s = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0050
MESSAGE w015 WITH text-022 text-023.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
MESSAGE w015 WITH text-508 sy-uname text-023.
* << Fim da inclusão
ELSE.
v_status_s = 1.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI001_E'.
v_tcode = '/PWS/ZYCI001_A'.
ENDIF.
WHEN 'DI'.
IF /pws/zycie001-modalidade EQ '02'.
MESSAGE i013 WITH text-202.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ '1'.
v_msg = 'X'.
ENDIF.
ENDLOOP.
ENDIF.
IF v_msg = 'X'.
* >> Início da exclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-264 text-265.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-264 sy-uname text-265.
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_nrseqdi.
LEAVE TO TRANSACTION '/PWS/ZYCI017_E'.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
v_msg = 'X'.
v_tcode = '/PWS/ZYCI020_L'.
ELSEIF v_tcode EQ '/PWS/ZYCI020_P' OR
v_tcode EQ '/PWS/ZYCI020_N'.
v_msg = 'X'.
v_tcode = '/PWS/ZYCI020_R'.
ENDIF.
ENDIF.
ENDLOOP.
IF v_msg = 'X'.
* >> Início da exclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-443 text-444.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-443 sy-uname text-444.
* << Fim da inclusão
ENDIF.
CLEAR : itab_ekpo.
REFRESH : itab_ekpo.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
IF v_msg = 'X'.
* >> Início da exclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-260 text-261.
* << Fim da exclusão
* >> Início da inclusão: FORM LOCK_PEDIDO
MESSAGE i015 WITH text-260 sy-uname text-261.
* << Fim da inclusão
IF sy-dynnr EQ '0010'.
LEAVE TO TRANSACTION '/PWS/ZYCI023_E'
AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 508
Texto: (37 caracteres)
"The Shipment is being altered by user"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 508
Texto: (43 caracteres)
"O Embarque está sendo alterado pelo usuário"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 508
Texto: (41 caracteres)
"Embarque está siendo alterado por usuario"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 509
Texto: (38 caracteres)
"The order is already been used by user"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 509
Texto: (44 caracteres)
"Pedido já está sendo processado pelo usuário"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 509
Texto: (42 caracteres)
"Pedido ya esta sendo procesado por usuario"
Comprimento máximo: 44
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI020
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 443
Texto: (38 caracteres)
"The order is already been used by user"
Comprimento máximo: 60
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 443
Texto: (44 caracteres)
"Pedido já está sendo processado pelo usuário"
Comprimento máximo: 60
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 443
Texto: (42 caracteres)
"Pedido ya esta sendo procesado por usuario"
Comprimento máximo: 60