Sintoma

Inclusão do ponto de exit CPT016 para permitir alterar a contabilização da devolução ou dados da

mesma.

Solução

Inclusão do ponto de exit CPT016 para permitir alterar a contabilização da devolução ou dados da

mesma.

Informações Complementares

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

Nota Número 05240 Data: 16/11/2007 Hora: 14:55:49

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

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

Nota Número              : 05240

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00021

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

Referência às notas relacionadas:

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

03292  - 00001 - 6.0    - 00026  - CAPTAÇÃO - DP - PONTO DE EXIT F-29 E CONSITÊNCIA ORDEM

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

CAPTAÇÃO - PONTO DE EXIT CPT016

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

Palavras Chave:

CAPTAÇÃO - PONTO DE EXIT CPT016 DEVOLUÇÃO F-31

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

Objetos da nota:

REPS /PWS/MZYCB001F01

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

  ELSE.

    itab_zycbe033-d_sgtxt = /pws/zycbe204-text.

    itab_zycbe033-c_sgtxt = /pws/zycbe204-text.

  ENDIF.

  APPEND itab_zycbe033.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF /pws/zycbe204-belnr IS INITIAL.

    IF itab_zycbt034[] IS INITIAL.

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

      v_repid = sy-repid.

      CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

           EXPORTING

                i_codmod                = 'E'

                i_func                  = v_repid

           TABLES

                itab_zyglt100           = itab_zyglt100

           EXCEPTIONS

                i_codmod_nao_encontrado = 1

                i_func_nao_encontrado   = 2

                i_zexit_nao_encontrado  = 3

                OTHERS                  = 4.

      READ TABLE itab_zyglt100 WITH KEY zexit = 'CPT016'.

      IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

        PERFORM (itab_zyglt100-formulario)

                IN PROGRAM (itab_zyglt100-programa).

      ELSE.

* << Fim da inclusão

      CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_31'

           EXPORTING

                v_modo     = v_modo_bi

           TABLES

                t_dados    = itab_zycbe033

                t_campo    = itab_zycbt034

                t_zycbt032 = itab_zycbt032

           EXCEPTIONS

                OTHERS     = 2.

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

      ENDIF.

* << Fim da inclusão

      IF sy-subrc = 0.

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

                                          tabela = '/PWS/ZYCBT001'

                                          cpochv = /pws/zycbe001-nrseqc

                                          tpmsg  = 'S'.

        IF sy-subrc EQ 0.

          /pws/zycbe204-belnr = itab_zycbt032-belnr.

          UPDATE /pws/zycbt204    SET belnr  = /pws/zycbe204-belnr

                          WHERE nrseqc  = /pws/zycbe001-nrseqc

                            AND dtdevol = /pws/zycbe204-dtdevol.

...