Sintoma

Ao criar um pagto antecipado utilizando um pedido de compra Bloqueado,o programa tem permitido

gravar o pgto antecipado e não exibe nenhuma mensagem de erro. O correto seria o programa verificar

se o pedido está bloqueado (Entrar na Tabela EKKO, informando o pedido no campo EBELN e verificar o

campo "FRGKE - Cod liberação"),e caso esteja como bloqueado, o programa deverá exibir uma mensagem

de erro ao gravar o pagamento antecipado, que informe: "Pedido xxxx está bloqueado. Pagamento

antecipado não será gravado".E assim, não permitir gravar o pagamento antecipado.

Solução

Efetuada consistencias entre as tabelas EKKO e T16FB

Informações Complementares

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

Nota Número 02983 Data: 29/01/2007 Hora: 09:52:23

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

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

Nota Número              : 02983

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00150

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PAGAMENTO ANTECIPADO - PEDIDO DE COMPRA BLOQUEADO - EKKO T16FBPAGAMENTO

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

Palavras Chave:

PAGAMENTO ANTECIPADO - PEDIDO DE COMPRA BLOQUEADO - EKKO T16FB

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

Objetos da nota:

DYNP /PWS/SAPMZYCB104                        0100

REPS /PWS/MZYCB104I01

REPT /PWS/SAPMZYCB104

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

Modificações efetuadas em DYNP /PWS/SAPMZYCB104                        0100

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

Modificações efetuadas em REPS /PWS/MZYCB104I01

...

      AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD

                                          /pws/zycbe117-bukrs

                                          ID 'ACTVT' FIELD '03'.

      IF sy-subrc NE 0.

        MESSAGE e083(f5) WITH /pws/zycbe117-bukrs.

      ENDIF.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE calcula_valor INPUT.

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

  DATA: v_frgke(1) TYPE c,

        v_kzfre(1) TYPE c.

  CLEAR v_frgke.

* << Fim da inclusão

  IF /pws/zyglt009 IS INITIAL.

    SELECT SINGLE * FROM /pws/zyglt009 INTO /pws/zyglt009

                    WHERE bukrs EQ /pws/zycbe117-bukrs.

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

  ENDIF.

  SELECT SINGLE frgke FROM ekko

                INTO (v_frgke)

                WHERE ebeln = /pws/zycbe117-ebeln.

  SELECT SINGLE kzfre FROM t16fb

                INTO (v_kzfre)

                WHERE frgke = v_frgke.

  IF v_kzfre = ' '.

    MESSAGE e061 WITH text-078 /pws/zycbe117-ebeln text-079.

    EXIT.

* << Fim da inclusão

  ENDIF.

  IF /pws/zyglt009-contpa = 'Y' AND NOT /pws/zycbe117-ebeln IS INITIAL.

    CLEAR itab_ekpo.

    REFRESH itab_ekpo.

    SELECT * FROM ekpo INTO TABLE itab_ekpo

             WHERE ebeln EQ /pws/zycbe117-ebeln

               AND loekz EQ ' '.

    LOOP AT itab_ekpo.

      IF sy-tabix       NE 1 AND

         v_j_1bmatuse   NE itab_ekpo-j_1bmatuse AND

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB104

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 078

Texto: (8 caracteres)

"O Pedido"

Comprimento máximo: 8

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 079

Texto: (53 caracteres)

"está bloqueado. Pagamento antecipado não será gravado"

Comprimento máximo: 53