Sintoma

Criar um ponto de exit no programa /PWS/SAPMZYCB001 no ponto FORM fill_date_1_f30 antes de chamar a

função que contabiliza /PWS/ZYCB_TRANSACAO_F_30_A. Afim de utilizar o ponto de exit para preencher o

campo texto de acordo com a exit existente no SAP.

Solução

Alterada includes: PWS/MZYCB001F04 e /PWS/MZYCB001X01. Criado ponto de Exit CPT017.

Informações Complementares

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

Nota Número 05533 Data: 27/12/2007 Hora: 15:55:59

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

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

Nota Número              : 05533

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00027

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

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

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

EXIT CAPTAÇÃO DE CONTRATOS DE EXPORTAÇÃO

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

Palavras Chave:

EXIT CAPTAÇÃO DE CONTRATOS DE EXPORTAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCB001F04

REPS /PWS/MZYCB001X01

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

Modificações efetuadas em REPS /PWS/MZYCB001F04

...

      MESSAGE i015 WITH text-384.

    ENDIF.

  ELSE.

    READ TABLE itab_zyglt316 INDEX 1.

    MOVE itab_zyglt316-konth TO v_contac.

  ENDIF.

ENDFORM.

FORM fill_date_1_f30.

  DATA: mensagem(90) TYPE c,

        v_budat(10)  TYPE c,

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

        v_datum(10)  TYPE c,

        v_zuonr      LIKE /pws/zycbe033-c_zuonr.

* << Fim da exclusão

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

        v_datum(10)  TYPE c.

* << Fim da inclusão

  PERFORM clear_date_batch.

  PERFORM get_parameters_001.

  CASE /pws/zycbe001-fdtlanc.

    WHEN 'O'.

      v_dtinicio = /pws/zycbe001-dtcontr.

    WHEN 'D'.

      v_dtinicio = /pws/zycbe001-dtdesem.

    WHEN OTHERS.

      v_dtinicio = /pws/zycbe001-dtcred.

  ENDCASE.

...

...

  ENDIF.

  itab_zycbe033-kkber = /pws/zycbe001-area_credito.

  itab_zycbe033-werks = /pws/zycbe001-werks.

  APPEND itab_zycbe033.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

    CONCATENATE /pws/zycbe001-nrseqc /pws/zycbe001-tpcontr

      INTO v_zuonr.

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

    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 = 'CPT017'.

    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_30_A'

         EXPORTING

              v_modo          = v_modo_bi

              v_zuonr         = v_zuonr

         TABLES

              t_dados         = itab_zycbe033

              t_zycbt032      = itab_zycbt032

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

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

    ENDIF.

* << Fim da inclusão

    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.

        CLEAR itab_rollback.

        IF itab_zycbt002p-belnr2 IS INITIAL.

          READ TABLE itab_rollback WITH KEY

                              belnr_novo = itab_zycbt002p-belnr.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001X01

...

      wa_zycbt001_pre LIKE /pws/zycbt001,

      wa_zycbt004     LIKE /pws/zycbt004,

      wa_zycbt091     LIKE /pws/zycbt091,

      wa_zycbt204     LIKE /pws/zycbt204,

      wa_zycbt136     LIKE itab_zycbt136,

      wa_zycbt002     LIKE /pws/zycbt002,

      wa_zycbt089 LIKE /pws/zycbt089.

DATA:

  v_contabiliza     TYPE c,

  okcode            LIKE sy-ucomm,

* >> Início da inclusão:

  v_zuonr           LIKE /pws/zycbe033-c_zuonr,

* << Fim da inclusão

  v_modo_bi.

DATA: itab_zycbe033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycbt032  LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE.

DATA: END OF COMMON PART.