Sintoma

na criação do embarque, ao vincular um pedido com quantidade zerada, sistema emite mensagem

informando que não é possível salvar embarque com itens zerados porém não elima-os.

Solução

Atualização do programa de embarque para verificar se item possui quantidade, caso não tenha,

informar que itens zerados serão eliminados e salvar o embarque.

Informações Complementares

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

Nota Número 03437 Data: 11/04/2007 Hora: 14:37:16

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

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

Nota Número              : 03437

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00161

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

Referência às notas relacionadas:

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

01272  - 00001 - 6.0    - 00023  - ACRESCENTAR A MENSAGEM NA TELA DE EMBARQUE " IMPOSSÍVEL EXCLUIR Í

01417  - 00002 - 6.0    - 00023  - AGREGAR OS CUSTOS EFETIVOS DA ADMISSÃO NA NACIONALIZAÇÃO DA MERCA

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

EMBARQUE ESTÁ SALVANDO ITENS COM QUANTIDADES ZERADAS.

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

Palavras Chave:

EMBARQUE - ITENS- QUANTIDADES ZERADAS - SEM QTDE.

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPT /PWS/SAPMZYCI001

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

  ENDIF.

  MODIFY /pws/zycit125 FROM TABLE itab_zycit125.

  LOOP AT itab_zycit125_aux.

    READ TABLE itab_zycit125 WITH KEY

                     lifnr = itab_zycit125_aux-lifnr.

    IF sy-subrc NE 0.

      DELETE FROM /pws/zycit125 WHERE nrseq = /pws/zycie001-nrseq

                           AND lifnr = itab_zycit125_aux-lifnr.

    ENDIF.

  ENDLOOP.

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

  loop at itab_zycit003 where qtd_iten eq 0.

  endloop.

  if sy-subrc eq 0.

    v_msg = 'X' .

  endif.

* << Fim da inclusão

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

  LOOP AT itab_zycit003.

* << Fim da exclusão

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

  if v_msg eq 'X'.

      MESSAGE i015 WITH text-261 text-260.

      delete itab_zycit003 where qtd_iten eq '0'.

  endif.

* << Fim da inclusão

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

    IF itab_zycit003-qtd_iten EQ 0.

      MESSAGE i015 WITH text-260 text-261.

      v_sair = 'X'.

      EXIT.

* << Fim da exclusão

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

  LOOP AT itab_zycit003.

* << Fim da inclusão

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

    ELSE.

* << Fim da exclusão

      CLEAR /pws/zycit013.

      MOVE-CORRESPONDING itab_zycit003 TO /pws/zycit013.

      MODIFY /pws/zycit013.

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

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

  IF v_sair NE 'X'.

    MODIFY /pws/zycit003 FROM TABLE itab_zycit003.

  ELSE.

...

...

  LOOP AT itab_zycit036_del.

    DELETE FROM /pws/zycit036 WHERE nrseq = itab_zycit036_del-nrseq

                              AND   ebeln = itab_zycit036_del-ebeln

                              AND   ebelp = itab_zycit036_del-ebelp.

  ENDLOOP.

  CLEAR itab_zycit036_del.

  REFRESH itab_zycit036_del.

  CLEAR itab_zycit003_del. FREE itab_zycit003_del.

  CLEAR itab_zycit455_del.

  FREE  itab_zycit455_del.

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

  perform carrega_saldo.

 commit work.

* << Fim da inclusão

ENDFORM.

FORM busca_sequencial.

  DATA:

    v_nrseq   LIKE /pws/zycit001-nrseq,

    v_nrseq_ant LIKE /pws/zycit001-nrseq,

    v_count(7) TYPE n,

    v_ano(4).

  v_nrseq_ant = /pws/zycie001-nrseq.

  IF NOT /pws/zycie001-bukrs IS INITIAL.

    SELECT SINGLE * FROM /pws/zyglt006

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 260

Texto: (23 caracteres)

"Itens serão eliminados."

Comprimento máximo: 75