Sintoma

Quando o programa de Captação é chamado via RFC ao executar a contabilização o programa não

retornava a mensagem com o número do contrato gerado.

Solução

Foi alterado as mensagens para exibir sempre o número do contrato gerado.

Informações Complementares

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

Nota Número 00163 Data: 19/10/2005 Hora: 14:20:39

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

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

Nota Número              : 00163

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00084

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ALTERAÇÃO NAS MENSAGENS DE RETORNO PARA A CAPTAÇÃO

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

Palavras Chave:

MENSAGEM CAPTAÇÃO

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

Objetos da nota:

MESS /PWS/ZYCBM299

MESS /PWS/ZYCBM300

REPS /PWS/MZYCB001F01

REPS /PWS/MZYCB001F04

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

Modificações efetuadas em MESS /PWS/ZYCBM299

* < Inclusão - Início >

299 Documento & foi gerado para o contrato &

* < Inclusão - Fim >

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

Modificações efetuadas em MESS /PWS/ZYCBM300

* < Inclusão - Início >

299 Contrato & foi gerado

* < Inclusão - Fim >

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

FORM fill_date1_f02.

...

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034[]     IS INITIAL.

    IF /pws/zycbe001-tpcontr+0(1) = 'D'.

...

    ELSE.

      IF /pws/zycbt001-tpcontr(1) = 'P' OR

         /pws/zycbe001-tpcontr(1) = 'S'.

...

    ENDIF.

    " Campos da tela ok, porém resultado igual 'S' ou 'E'

    IF sy-subrc = 0.

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-02'

                                        tabela = '/PWS/ZYCBT001'

                                        cpochv = /pws/zycbe001-nrseqc

                                        tpmsg  = 'S'.

      IF sy-subrc = 0.                 " Contabiliz. com sucesso

...

* < Inclusão - Início >

*       Chamado 263953 - Início - Fábio Kazuo Hatanaka - 17.10.2005

*       Mensagem de Documento XXX gerado para o Contrato XXX

        MESSAGE i299 WITH /pws/zycbe001-belnr /pws/zycbe001-nrseqc.

*       Chamado 263953 - Fim    - Fábio Kazuo Hatanaka - 17.10.2005

* < Inclusão - Fim >

        IF v_fechado = 'X' AND v_answer = 'J'.

...

        ENDIF.

...

      ELSE.                            " Contabiliz. com erro

        LOOP AT itab_zycbt032.

          MESSAGE i015 WITH itab_zycbt032-msg+0(50)

                            itab_zycbt032-msg+50(50).

        ENDLOOP.

* < Inclusão - Início >

*       Chamado 263953 - Início - Fábio Kazuo Hatanaka - 17.10.2005

*       Mensagem de Contrato Gerado

        MESSAGE i300 WITH /pws/zycbe001-nrseqc.

*       Chamado 263953 - Fim    - Fábio Kazuo Hatanaka - 17.10.2005

* < Inclusão - Fim >

      ENDIF.

    ELSE.                              " Campos da tela em branco

      LOOP AT itab_zycbt034.

        MESSAGE i016 WITH itab_zycbt034-descricao.

      ENDLOOP.

    ENDIF.

  ENDIF.                               " Pesquisa interna t034

ENDFORM.                               " FILL_DATE1_F02

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

FORM fill_date_1_f30.

...

  IF itab_zycbt034 IS INITIAL.

...

    IF sy-subrc EQ 0.

      READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-30'

                                        tabela = '/PWS/ZYCBT002'

                                       cpochv = /pws/zycbe001-nrseqc

                                        tpmsg  = 'S'.

      IF sy-subrc EQ 0.

...

*       Chamado 263953 - Início - Fábio Kazuo Hatanaka - 17.10.2005

*       Mensagem de Documento XXX gerado para o Contrato XXX

        MESSAGE i299 WITH itab_zycbt002p-belnr itab_zycbt002p-nrseqc.

*       Chamado 263953 - Fim    - Fábio Kazuo Hatanaka - 17.10.2005

        IF v_fechado = 'X' AND v_answer = 'J'.

...

        ENDIF.

      ELSE.

...

*       Chamado 263953 - Início - Fábio Kazuo Hatanaka - 17.10.2005

*       Mensagem de Contrato gerado

        MESSAGE i300 WITH itab_zycbt002p-nrseqc.

*       Chamado 263953 - Fim    - Fábio Kazuo Hatanaka - 17.10.2005

      ENDIF.

    ELSE.

...

*     Chamado 263953 - Início - Fábio Kazuo Hatanaka - 17.10.2005

*     Mensagem de Contrato gerado

      MESSAGE i300 WITH itab_zycbt002p-nrseqc.

*     Chamado 263953 - Fim    - Fábio Kazuo Hatanaka - 17.10.2005

    ENDIF.

  ENDIF.

ENDFORM.

ENDFORM.