Sintoma

Ao executar o estorno em Período Fechado o programa de Vinculação exibe um Dump na função

/pws/zygl_montante_converte

Solução

Foi criada novamente a chamada da função com o tratamento das exceções na função

/PWS/ZYGL_MONTANTE_CONVERTE.

Informações Complementares

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

Nota Número 02838 Data: 09/01/2007 Hora: 14:43:26

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

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

Nota Número              : 02838

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00148

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DUMP NA FUNÇÃO MONTANTE_CONVERTE NA VINCULAÇÃO

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

Palavras Chave:

FUNÇÃO /PWS/ZYGL_MONTANTE_CONVERTE VINCULAÇÃO

VARIANTE DE EXERCÍCIO

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

Objetos da nota:

REPS /PWS/MZYCB009F04

REPT /PWS/SAPMZYCB009

FUNC /PWS/ZYCB_TRANSACAO_F_02F

REPS /PWS/MZYCB009F08

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_02F

...

              bukrs eq t_dados-bukrs.

      perform determina_string using t_dados-newbs1

                                     t_dados-bukrs

                                     v_cconta

                            changing v_string_credito.

    endif.

    if v_lanc2 eq 'C'.

      perform trata_string_credito tables t_dados

                                          t_campo

                                          itab_oculto

* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

                                   using  v_string_debito.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

                                   using  v_string_credito.

* << Fim da inclusão

    else.

      perform trata_string_debito  tables t_dados

                                          t_campo

                                          itab_oculto

* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

                                   using  v_string_debito.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

                                   using  v_string_credito.

* << Fim da inclusão

    endif.

    write: t_dados-bukrs to v_bukrs,

           t_dados-bldat to v_data_doc_char,

           t_dados-budat to v_data_lanc_char,

           t_dados-kursf to v_kursf.

    select single periv from t001

                 into v_periv

                 where bukrs eq v_bukrs.

    call function 'DETERMINE_PERIOD'

         exporting

...

...

      endif.

    else.

      perform bdc_screen using 'SAPMF05A' '0304'.

      perform bdc_field using:

              'BSEG-WRBTR'     v_wrbtr,

              'BSEG-SGTXT'     v_sgtxt,

              'BSEG-ZUONR'     v_zuonr.

      if not v_gsber is initial.

        perform bdc_field using:

                'BSEG-GSBER' v_gsber.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

      endif.

      IF NOT v_zfbdt IS INITIAL.

        READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZFBDT'

                                        chave = 'C'.

        IF sy-subrc <> 0.

          PERFORM bdc_field USING: 'BSEG-ZFBDT' v_zfbdt.

* << Fim da inclusão

      endif.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_02F

      ENDIF.

* << Fim da inclusão

      perform bdc_field using: 'BDC_OKCODE'  '=BU'.

    endif.

    refresh itab_msg.

    clear itab_msg.

    v_transacao = 'F-02'.

    v_update = 'S'.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

    IF itab_vinc-status NE 'C'.

      itab_vinc-flag = 'I'.

      MODIFY itab_vinc.

    ENDIF.

  ENDLOOP.

  LOOP AT itab_vinc

          WHERE flag = text-039 OR

        ( flag = text-040 AND status EQ 'C' ).

    PERFORM clear_date_batch.

    CLEAR itab_zycbt012.

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

    CONCATENATE '001' itab_vinc-tpcontr(01) INTO v_codeven.

* << Fim da exclusão

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

    CONCATENATE '001' itab_vinc-tpcontr INTO v_codeven.

* << Fim da inclusão

    IF v_nrdias > 360.

      v_prazo = 'L'.

    ELSE.

      v_prazo = 'S'.

    ENDIF.

    CONCATENATE itab_vinc-tpcontr(01) v_prazo

        INTO v_codaux1 SEPARATED BY space.

    CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

         EXPORTING

              bukrs           = itab_vinc-bukrs

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F04

...

ENDFORM.

FORM determina_ano USING    p_budat

                            p_bukrs

                   CHANGING p_ano.

  CLEAR v_ano.

  CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       EXPORTING

            v_bukrs = p_bukrs

            v_date  = p_budat

       IMPORTING

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

            v_year  = p_ano.

* << Fim da exclusão

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

            v_year  = p_ano

       EXCEPTIONS

            VARIANTE_DE_EXERCICIO        = 1

            DATA_NAO_ENCONTRADA          = 2

            EMPRESA_NAO_ENCONTRADA       = 3

            PERIOD_IN_NOT_VALID          = 4

            PERIOD_NOT_ASSIGNED          = 5

            VERSION_UNDEFINED            = 6

            OTHERS                       = 7.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH TEXT-396.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM data_estorno2  USING    value(p_vmonat)

                             value(p_bukrs)

                             value(p_gjahr)

                             value(p_dtvinc)

                    CHANGING value(p_budat).

  DATA: v_cont(2)   TYPE n,

        v_ok.

  PERFORM determina_periodo USING    p_dtvinc

                                     p_bukrs

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCB009

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 396

Texto: (42 caracteres)

"Faltam parâmetros de entrada para a função"

Comprimento máximo: 42