Sintoma

EXIT¿S CMP006 e CMP005

Solução

EXIT¿S CMP006 e CMP005

Informações Complementares

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

Nota Número 03121 Data: 21/02/2007 Hora: 09:15:26

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

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

Nota Número              : 03121

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00153

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO EXIT¿S CMP006 E CMP005

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

Palavras Chave:

COMPLEMENTO DO BOLETO EXIT¿S CMP006 E CMP005

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

Objetos da nota:

REPS /PWS/MZYCA110F01

REPS /PWS/MZYCM110F01

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

  IF itab_zycbe033-c_gsber IS INITIAL.

    itab_zycbe033-c_gsber = wa_zycbt118-gsber.

  ENDIF.

  PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs

                                     wa_zycbt118-j_1bbranch.

  itab_zycbe033-brnch = wa_zycbt118-j_1bbranch.

  itab_zycbe033-c_kostl = wa_zycbt118-kostl.

  itab_zycbe033-c_prctr = wa_zycbt118-prctr.

  itab_zycbe033-c_fipos = wa_zycbt118-fipos.

  itab_zycbe033-c_fictr = wa_zycbt118-fictr.

* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_CD

  CLEAR:   itab_zyglt100.

  REFRESH: itab_zyglt100.

  IF itab_zyglt100[] IS INITIAL.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

  ENDIF.

  READ TABLE itab_zyglt100 WITH KEY zexit  = 'CMP005' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa)

              CHANGING   e_subrc.

      IF e_subrc NE 0.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  APPEND itab_zycbe033.

  CLEAR t021r.

  SELECT SINGLE * FROM t021r INTO t021r

                  WHERE event = 'SU-AG'

                    AND feldn = 'AWKEY'.

  CLEAR itab_zycbt036.

  REFRESH itab_zycbt036.

  IF wa_zycbt118-frpagto EQ 'C'.

    itab_zycbt036-tcode  = 'F-51'.

    itab_zycbt036-tabela = '/PWS/ZYCBT031'.

...

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

Modificações efetuadas em REPS /PWS/MZYCM110F01

...

  PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs

                                     wa_zycbt117-j_1bbranch.

  itab_zycbe033-brnch = wa_zycbt117-j_1bbranch.

  IF NOT wa_zycbt117-ftxt IS INITIAL.

    itab_zycbe033-d_sgtxt = wa_zycbt117-txtinf.

    itab_zycbe033-c_sgtxt = wa_zycbt117-txtinf.

  ELSE.

    itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.

    itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.

  ENDIF.

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

  CLEAR:   itab_zyglt100.

  REFRESH: itab_zyglt100.

  IF itab_zyglt100[] IS INITIAL.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

  ENDIF.

  READ TABLE itab_zyglt100 WITH KEY zexit  = 'CMP006' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa)

              CHANGING   e_subrc.

      IF e_subrc NE 0.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  APPEND itab_zycbe033.

  PERFORM preenche_partida_multipla.

  PERFORM call_function_f43a.

ENDFORM.

FORM get_parameters_f-43a.

  CONCATENATE '005' wa_zycbt117-codint INTO v_codeven.

  SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011

                       WHERE codeven = v_codeven

                         AND codmod  = 'I'.

  IF sy-subrc = 0.

...