Sintoma

Não deixar cancelar a PLI caso os campos número de PLI e data de registro (/PWS/ZYCIE078-DTREG)

estejam preenchidos.

E nem deixar cancelar o item da PLI (/PWS/ZYCIE079-CANCEL) caso estes mesmos campos estejam

preenchidos.

Solução

Inibir o botão Cancelar PLI se os campos estiverem preenchidos.

Ao cancelar o item da PLI, se os campos estiverem preenchidos, exibir mensagem de erro.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 13760 Data: 27/02/2014 Hora: 22:03:24

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 13760

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

----------------------------------------------------------------------------------------------------

AJUSTES NO BOTÃO CANCELAR PLI

----------------------------------------------------------------------------------------------------

Palavras Chave:

/PWS/SAPMZYCI020 - BOTÃO - CANCELAR - PLI

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020F02

REPT /PWS/SAPMZYCI020

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

  ELSEIF v_tcode EQ '/PWS/ZYCI020_G'.

    it_code-fcode = 'MODI'    . APPEND it_code.

  ENDIF.

* >> Início da inclusão: MODULE STATUS_0500

  IF v_nrpli1 IS INITIAL AND

     NOT /pws/zycie078-nrpli IS INITIAL AND

     /pws/zycie078-nrpli NE '0000/00000'.

    CONCATENATE /pws/zycie078-nrpli(4)

                /pws/zycie078-nrpli+5(5)

              INTO v_nrpli1.

  ENDIF.

  IF NOT v_nrpli1 IS INITIAL AND

     NOT /pws/zycie078-dtreg IS INITIAL.

    it_code-fcode = 'CANCEL'. APPEND it_code.

  ENDIF.

* << Fim da inclusão

  SET PF-STATUS '0500' EXCLUDING it_code.

  IF v_tcode EQ '/PWS/ZYCI020_I'.

    SET TITLEBAR '0500'.

  ELSEIF v_tcode EQ '/PWS/ZYCI020_G'.

    SET TITLEBAR '0500A'.

  ELSEIF v_tcode EQ '/PWS/ZYCI020_L'.

    SET TITLEBAR '0500E'.

  ENDIF.

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE trata_item_cancelado INPUT.

  IF /pws/zycie079-cancel EQ 'X' AND NOT /pws/zycie079-numli IS INITIAL.

    MESSAGE e061 WITH text-148 /pws/zycie079-ebeln

             /pws/zycie079-ebelp text-524.

  ENDIF.

* >> Início da inclusão: MODULE TRATA_ITEM_CANCELADO

  IF NOT v_nrpli1 IS INITIAL AND

     NOT /pws/zycie078-dtreg IS INITIAL AND

     /pws/zycie079-cancel EQ 'X'.

    MESSAGE e061 WITH text-148 /pws/zycie079-ebeln

             /pws/zycie079-ebelp text-600.

  ENDIF.

* << Fim da inclusão

ENDMODULE.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

FORM comm_marcdele_pli.

  IF NOT /pws/zycie078-nrseqlisub IS INITIAL.

    MESSAGE s015 WITH text-089 /pws/zycie078-nrseqlisub.

  ELSEIF NOT /pws/zycie078-nrseqlisuba IS INITIAL.

    MESSAGE s015 WITH text-090 /pws/zycie078-nrseqlisuba.

  ELSEIF NOT /pws/zycie078-dtreg IS INITIAL.

* >> Início da exclusão: FORM COMM_MARCDELE_PLI

    MESSAGE s015 WITH text-091.

* << Fim da exclusão

* >> Início da inclusão: FORM COMM_MARCDELE_PLI

    MESSAGE s015 WITH text-601 text-091.

* << Fim da inclusão

  ELSE.

    PERFORM quest_gravacao.

    IF v_resp_save NE 'A'.

      /pws/zycie078-status    = 'INA'.

      wa_zycit078-status = 'INA'.

      IF v_tcode EQ '/PWS/ZYCI020_G' OR

         v_tcode EQ '/PWS/ZYCI020_I'.

        v_tcode = '/PWS/ZYCI020_L'.

      ENDIF.

      PERFORM save.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCI020

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: EN

Símbolo: 600

Texto: (41 caracteres)

"can not be canceled because it has N°PLI."

Comprimento máximo: 41

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 600

Texto: (41 caracteres)

"não pode ser cancelado pois possui N°PLI."

Comprimento máximo: 41

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: ES

Símbolo: 600

Texto: (38 caracteres)

"no puede ser cancelada debido a N°PLI."

Comprimento máximo: 41

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: EN

Símbolo: 601

Texto: (36 caracteres)

"PLI cannot be cancelled, because was"

Comprimento máximo: 38

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 601

Texto: (38 caracteres)

"PLI não pode ser marcada para deleção,"

Comprimento máximo: 38

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: ES

Símbolo: 601

Texto: (38 caracteres)

"PLI no puede ser marcada para exclus.,"

Comprimento máximo: 38