Sintoma

Ao criar uma LI através de uma PLI, o valor do campo "Qtde. UM. Estat" (/PWS/ZYCIE078-QTDEST) está

errado.

Não permitir que uma PLI seja cancelada se existir LI.

Solução

Atualizado programa para preenchimento do campo "Qtde. UM. Estat" na capa de LI/PLI e não permitir o

cancelamento de uma PLI com LI gerada.

Informações Complementares

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

Nota Número 13158 Data: 07/08/2013 Hora: 16:40:31

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

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

Nota Número              : 13158

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

12665  - 00001 - 9.0    - 00002  - AO SALVAR A LI MAIS DE UMA VEZ DUPLICA A QUANT. VINCULADA AO ATO

12764  - 00002 - 9.0    - 00003  - PLI - CANCELAMENTO DE ITEM

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

AJUSTAR O CAMPO /PWS/ZYCIE078-QTDEST, NÃO CANCELAR A PLI SE TIVER LI

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

Palavras Chave:

LI - /PWS/ZYCIE078-QTDEST - QTDE. UM. ESTAT

PLI - NÃO CANCELAR UMA PLI SE TIVER LI

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0502

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020F02

REPT /PWS/SAPMZYCI020

Após aplicação dessa nota, aplicar a nota 13177

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0502

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0502

...

    MODULE: carrega_zycie079_400,

            set_screen_sub.

    MODULE: set_screen_pli.

  ENDLOOP.

PROCESS AFTER INPUT.

  LOOP AT it_zycit079.

    CHAIN.

      FIELD /pws/zycie079-qtd_iten MODULE trata_saldo_pexpam

      ON CHAIN-REQUEST.

    ENDCHAIN.

* >> Início da inclusão:

    FIELD /pws/zycie079-cancel MODULE trata_item_cancelado

    ON REQUEST.

* << Fim da inclusão

    MODULE altera_it_zycit079_400.

  ENDLOOP.

  MODULE: atualiza_dados_502,

          atualiza_itens,

          user_command_0502,

          calc_total.

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE atualiza_itens INPUT.

  DATA: v_calc(1) TYPE c.

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

  CLEAR: v_calc.

* << Fim da inclusão

  IF /pws/zycie078-qtdest IS INITIAL.

    v_calc = 'X'.

  ENDIF.

  LOOP AT it_zycit079.

    v_indice = sy-tabix.

    PERFORM atualiza_itens.

    MODIFY it_zycit079 INDEX v_indice.

    IF v_calc EQ 'X'.

      /pws/zycie078-qtdest = /pws/zycie078-qtdest + it_zycit079-qtdest.

    ENDIF.

  ENDLOOP.

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

  IF it_zycit079[] IS INITIAL.

    CLEAR: /pws/zycie078-qtdest.

  ENDIF.

* << Fim da inclusão

ENDMODULE.

...

...

* >> Início da inclusão:

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.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

FORM comm_cancelpli.

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

  DATA: lv_numli.

* << Fim da inclusão

  PERFORM quest_gravacao.

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

  CLEAR: lv_numli.

  LOOP AT it_zycit079 WHERE numli <> ' '.

    lv_numli = 'X'.

    EXIT.

  ENDLOOP.

* << Fim da inclusão

  IF v_resp_save NE 'A'.

    IF /pws/zycie078-status = 'CAN'.

      MESSAGE s015 WITH text-057.

    ELSEIF /pws/zycie078-status = 'SUB'.

      MESSAGE s015 WITH text-058.

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

    ELSEIF lv_numli EQ 'X'.

      MESSAGE i015 WITH text-523.

* << Fim da inclusão

    ELSE.

      PERFORM questiona_cancel_pli.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI020

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 523

Texto: (42 caracteres)

"PLI can not be canceled because it has LI."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 523

Texto: (42 caracteres)

"PLI não pode ser cancelada pois possui LI."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 523

Texto: (39 caracteres)

"PLI no puede ser cancelada debido a LI."

Comprimento máximo: 42

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 524

Texto: (38 caracteres)

"can not be canceled because it has LI."

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 524

Texto: (38 caracteres)

"não pode ser cancelado pois possui LI."

Comprimento máximo: 38

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 524

Texto: (35 caracteres)

"no puede ser cancelada debido a LI."

Comprimento máximo: 38