Sintoma

O programa estava exibindo a mensagem aparecerá quantas vezes tiver itens com pagamento antecipado.

Solução

Foi tratado no programa para exibir a mensagem por pedido e não por pedido/item

Informações Complementares

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

Nota Número 02714 Data: 15/12/2006 Hora: 17:08:57

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

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

Nota Número              : 02714

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

MENSAGEM COM PAGAMENTO ANTECIPADO

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

Palavras Chave:

V_EBELN, ITAB_ZYCIT003-EBELN, EBELN, VERIFICA_PAG_ANTEC

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003O01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

    MESSAGE s015 WITH  text-042.

  ENDIF.

  IF okcode = 'DELE'.

    LOOP AT itab_zycit132.

      MOVE itab_zycit132 TO /pws/zycit132.

      MODIFY /pws/zycit132.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM verifica_pag_antecipado.

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

  DATA: v_ebeln TYPE ekpo-ebeln.

* << Fim da inclusão

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycbt117

         INTO TABLE itab_zycbt117

         FOR ALL ENTRIES IN itab_zycit003

         WHERE ebeln = itab_zycit003-ebeln

           AND slpgant > 0

           AND status NE 'E'.

    CLEAR v_pg_ant.

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

    SORT itab_zycit003 BY ebeln.

* << Fim da inclusão

    LOOP AT itab_zycit003.

      READ TABLE itab_zycbt117 WITH KEY ebeln = itab_zycit003-ebeln.

      IF sy-subrc EQ 0.

        v_vlme  = itab_zycbt117-vlme.

        v_waers = itab_zycbt117-waers.

        v_waers = itab_zycbt117-waers.

        WRITE itab_zycbt117-vlme TO v_vlme CURRENCY itab_zycbt117-waers.

        CONCATENATE itab_zycbt117-nrseq 'no valor:'

                    v_vlme v_waers

                    INTO v_valmoed SEPARATED BY space.

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

        IF v_ebeln NE itab_zycit003-ebeln.

          v_ebeln = itab_zycit003-ebeln.

      MESSAGE i061 WITH text-077 itab_zycit003-ebeln text-078.

      "v_valmoed.

        ENDIF.

* << Fim da inclusão

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

      MESSAGE i061 WITH text-077 itab_zycit003-ebeln text-078 v_valmoed.

* << Fim da exclusão

        v_pg_ant = 'X'.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

FORM move_pais.

  SELECT SINGLE * FROM lfa1

    WHERE lifnr EQ /pws/zycie006-lifnr.

  /pws/zycie006-paquis = lfa1-land1.

  IF NOT /pws/zycie006-porigem IS INITIAL AND

...

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 078

*Antigo:

Texto: (23 caracteres)

"possui Pag. Antecipado:"

Comprimento máximo: 23

*Novo:

Texto: (23 caracteres)

"possui Pag. Antecipado."

Comprimento máximo: 23