Sintoma

Ao vincular uma determinada fatura em uma data e depois tentar vincular novamente na mesma data, o

programa não grava a vinculação, mas também não aparece nenhuma mensagem. Para essa situação o

programa deveria apresentar a mensagem "Já existe vinculação nessa data para a fatura XXX". Se por

acaso efetuarmos a vinculação da fatura na mesma data, sendo, que a fatura só aparece na segunda

pagina da table control, o programa executa a vinculação normalmente como se a fatura não tivesse

sido vinculada na mesma data.

Solução

Inclusão do tratamento para verificar se a fatura que estava sendo vinculada, já havia sido

vinculada na mesma data.

Informações Complementares

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

Nota Número 01131 Data: 03/04/2006 Hora: 08:18:19

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

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

Nota Número              : 01131

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

NÃO PERMITE VINCULAÇÃO DE FAT JÁ VINCULADA NA MESMA DT,P/ MESMO CONTRATO

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

Palavras Chave:

NÃO PERMITE VINCULAÇÃO DE FAT JÁ VINCULADA NA MESMA DT,P/ MESMO CONTRATO

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

Objetos da nota:

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009TOP

REPT /PWS/SAPMZYCB009

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

  ENDIF.

  CLEAR v_resposta.

  CLEAR ok_code.

ENDFORM.

FORM grava_tabelas.

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

  DATA: v_nrparc(3) TYPE n.

* << Fim da exclusão

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

  DATA: v_nrparc(3) TYPE n,

        v_fat_existe(1) TYPE c.

* << Fim da inclusão

  DATA: BEGIN OF itab_zycbt005_salva OCCURS 0.

          INCLUDE STRUCTURE /pws/zycbt005.

  DATA: END OF itab_zycbt005_salva.

  DATA: BEGIN OF itab_zycbt017_salva OCCURS 0.

          INCLUDE STRUCTURE /pws/zycbt017.

  DATA: END OF itab_zycbt017_salva.

  CLEAR v_excep.

  CLEAR v_erro_estorno.

  CLEAR v_erro_estorno2.

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

  IF sy-tcode = c_transacao_c.

    CLEAR v_fat_existe.

    REFRESH itab_zycbt005_aux3.

    SELECT * FROM /pws/zycbt005

      INTO TABLE itab_zycbt005_aux3

      WHERE nrseqc = itab_zycbt005-nrseqc.

    LOOP AT itab_zycbt005.

      READ TABLE itab_zycbt005_aux3 WITH KEY

        nrinvoic = itab_zycbt005-nrinvoic

        nrparcf  = itab_zycbt005-nrparcf

        gsberf   = itab_zycbt005-gsberf

        dtvincul = itab_zycbt005-dtvincul.

      IF sy-subrc = 0.

        MESSAGE i015 WITH text-381 itab_zycbt005-nrinvoic.

        v_fat_existe = 'X'.

      ENDIF.

    ENDLOOP.

    IF v_fat_existe = 'X'.

      REFRESH itab_zycbt005_aux3.

      CLEAR   itab_zycbt005_aux3.

      EXIT.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  PERFORM verifica_vldesvinc.

  CHECK v_executa IS INITIAL.

  IF v_performance = 'X'.

    EXIT.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009TOP

...

        INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,

        dtvincul LIKE /pws/zycbt005-dtvincul,

      END OF itab_zycbt005_aux2.

* >> Início da inclusão:

DATA: itab_zycbt005_aux3 LIKE /pws/zycbt005 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt005_aux4 OCCURS 0,

        nrinvoic LIKE /pws/zycbt005-nrinvoic,

        nrparcf  LIKE /pws/zycbt005-nrparcf,

        gsberf   LIKE /pws/zycbt005-gsberf,

        dtvincul LIKE /pws/zycbt005-dtvincul,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB009

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 381

Texto: (45 caracteres)

"Já existe vinculação nessa data para a fatura"

Comprimento máximo: 45