Sintoma

Ao salvar fatura de seguro ocorre dump

Solução

aumentar tamanho da variável do cálculo.

Informações Complementares

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

Nota Número 08834 Data: 14/08/2009 Hora: 10:59:07

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

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

Nota Número              : 08834

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00109

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

Referência às notas relacionadas:

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

08734  - 00001 - 7.0    - 00010  - AO TENTAR ESTORNAR FATURA PARCELADA, APAGA DOCUMENTO DO CÂMBIO.

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

AO SALVAR FATURA DE SEGURO OCORRE DUMP.

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

Palavras Chave:

DUMP - FATURA DE SEGURO

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

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

REPS /PWS/MZYCI003F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

...

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

        v_vltemp1 TYPE /pws/zycit006-vlfre,

        v_vltemp2 TYPE /pws/zycit006-vlfre.

* << Fim da exclusão

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

        v_vltemp1 TYPE /pws/zycit263-vlreal,

        v_vltemp2 TYPE /pws/zycit263-vlreal.

* << Fim da inclusão

...

...

                                      /pws/zycbt007-waersb

                             CHANGING itab_conv-kursf

                                      itab_conv-de

                                      itab_conv-para .

                itab_conv-waers = itab_zycit036_aux-waers_real.

                APPEND itab_conv.

              ENDIF.

              v_kursf2 = itab_conv-kursf.

              v_de2 = itab_conv-de.

              v_para2 = itab_conv-para .

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

              IF NOT v_para2 IS INITIAL AND NOT v_para IS INITIAL.

* << Fim da inclusão

              v_vltemp1 = ( v_tfrete *

                  ( ( v_kursf2 * v_de2 ) / v_para2 ) )

                   + ( v_seg * ( ( v_kursf * v_de ) / v_para ) ).

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

              ENDIF.

              IF NOT v_para2 IS INITIAL .

* << Fim da inclusão

              v_vlfrete = itab_zycit036_aux-vlreal *

                 ( ( v_kursf2 * v_de2 ) / v_para2 ) .

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

              ENDIF.

              IF v_vltemp1 = 0.

                v_vltemp1 = 1.

              ENDIF.

* << Fim da inclusão

              itab_zycit036-vlreal = v_total * ( v_vlfrete +

                ( ( itab_zycit003-qtd_iten * itab_zycit003-vlreal )

                  * ( v_kursf * v_de ) / v_para ) ) / v_vltemp1.

            ELSEIF /pws/zycit031-inco1_ci = 'CIF' OR

                            /pws/zycit031-inco1_ci = 'C&F'.

              itab_zycit036-vlreal = v_total *

                    ( itab_zycit003-vlreal * itab_zycit003-qtd_iten )

                      / v_seg   .

            ENDIF.

            IF v_waers IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      v_ml = 'F43'.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

  IF e_subrc EQ '0'.

    PERFORM multiplos_lancamentos.

  ENDIF.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

  IF /pws/zycie006-tpfatura EQ '03' AND v_fretei_custo IS INITIAL.

    EXIT.

  ENDIF.

* << Fim da inclusão

  PERFORM get_parameters_f-43_f-02.

...

...

  IF /pws/zycie006-tpfatura EQ '02' OR

     /pws/zycie006-tpfatura EQ '03' OR

     /pws/zycie006-tpfatura EQ '04'.

    PERFORM visualiza_rateio.

  ELSE.

    v_resp = 'S'.

  ENDIF.

  IF v_resp EQ 'S'.

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

    IF NOT itab_zycit132[] IS INITIAL.

      LOOP AT itab_zycit132 WHERE belnr_p IS initial.

      ENDLOOP.

      IF sy-subrc EQ 0.

        v_contabiliza = 'S'.

      ENDIF.

    ENDIF.

* << Fim da exclusão

    IF /pws/zycie006-frpagto NE 'A'.

      IF /pws/zycie006-frpagto EQ 'N' OR

         /pws/zycie006-frpagto EQ 'D' OR

       ( /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL ).

        IF wa_zycie006_ini-dtincl   NE /pws/zycie006-dtincl   OR

           wa_zycie006_ini-tpfatura NE /pws/zycie006-tpfatura OR

           wa_zycie006_ini-frpagto  NE /pws/zycie006-frpagto  OR

           wa_zycie006_ini-waers    NE /pws/zycie006-waers    OR

           wa_zycie006_ini-vltotal  NE /pws/zycie006-vltotal  OR

           wa_zycie006_ini-vlmerc NE /pws/zycie006-vlmerc OR

           wa_zycie006_ini-vlfre  NE /pws/zycie006-vlfre  OR

           wa_zycie006_ini-vlseg  NE /pws/zycie006-vlseg  OR

           wa_zycie006_ini-ratval NE /pws/zycie006-ratval  OR

           wa_zycie006_ini-zterm    NE /pws/zycie006-zterm    OR

           wa_zycie006_ini-lifnr    NE /pws/zycie006-lifnr    OR

           wa_zycie006_ini-j_1bbranch NE /pws/zycie006-j_1bbranch OR

           v_contabiliza            EQ 'S'               OR

           wa_zycie006_ini-dtvencto NE /pws/zycie006-dtvencto OR

           wa_zycie006_ini-ebene    NE /pws/zycie006-ebene    OR

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

           wa_zycie006_ini-dataprvtsr NE /pws/zycie006-dataprvtsr .

          IF /pws/zycie006-belnr_p         IS INITIAL OR

          v_congela IS INITIAL.

* << Fim da exclusão

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

           wa_zycie006_ini-dataprvtsr NE /pws/zycie006-dataprvtsr OR

           /pws/zycie006-belnr_p         IS INITIAL.

          IF /pws/zycie006-belnr_p IS INITIAL.

            LOOP AT itab_zycit132 WHERE belnr_p IS initial.

            ENDLOOP.

            IF sy-subrc EQ 0.

              v_contabiliza = 'S'.

            ENDIF.

          ENDIF.

          IF v_congela IS INITIAL.

* << Fim da inclusão

            READ TABLE itab_zycit003 INDEX 1.

            SELECT SINGLE  *

              FROM /pws/zycit042

              WHERE nrseq  EQ itab_zycit003-nrseq

               AND docnum NE ''.                        "#EC CI_NOFIRST

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

FORM multiplos_lancamentos.

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

clear v_fretei_custo  .

* << Fim da inclusão

...

...

        v_tvlreal     LIKE /pws/zycit003-vlreal ,

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

        v_fretei_custo           ,

* << Fim da exclusão

        v_tot_wrbtr LIKE /pws/zycbe035-wrbtr    ,

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

* >> Início da inclusão

data  v_fretei_custo .

* << Fim da inclusão

DATA: END OF COMMON PART.