Sintoma

O programa de criação de Nota Fiscal Global esta apresentando Dump

Solução

Verificar se a Base de ICMS é maior que Zero para fazer a divisão

Informações Complementares

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

Nota Número 07233 Data: 02/09/2008 Hora: 09:51:53

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

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

Nota Número              : 07233

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00063

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DUMP NA NOTA FISCAL GLOBAL COM BASE DE ICMS ZERADA

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

Palavras Chave:

DUMP - NOTA - FISCAL - GLOBAL - BASE - ICMS - ZERADA

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

Objetos da nota:

FUNC /PWS/ZYCI_AJUSTE_IMP_NF

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_AJUSTE_IMP_NF

...

  DATA v_vlverif3    TYPE /pws/zycit100-vlicms.

  DATA v_vlverif4    TYPE /pws/zycit100-vlicms.

  DATA wa_zycit003   TYPE /pws/zycit003.

  DATA v_basred      TYPE /pws/zycie245-qtd_iten.

  DATA v_advicms     TYPE p DECIMALS 3.

  DATA v_tot_nf      TYPE /pws/zycee007-othbas.

  DATA v_tot_line    TYPE /pws/zycee007-othbas.

  CONSTANTS cent(5) TYPE p DECIMALS 2 VALUE '0.04'.

  IF zycit062-flag_icms = 'X'.

    wa_zycit003 = zycit003.

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

    IF  icms_dif = 'X'.

* << Fim da exclusão

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

    IF  icms_dif = 'X' OR

      wa_zycit003-basred IS INITIAL.

* << Fim da inclusão

      wa_zycit003-basred = '100'.

      v_basred =  '100'.

    ENDIF.

    CLEAR v_advicms.

    IF NOT  wa_zycit003-advalicms IS INITIAL.

      IF zycit062-bs_pis_cof IS INITIAL.

        IF NOT  wa_zycit003-basred IS INITIAL OR

           NOT  wa_zycit003-basred EQ '100'.

          v_advicms = ( (  wa_zycit003-advalicms / 100 ) *

           (  wa_zycit003-basred / 100 ) ) .

...

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

    IF sy-subrc EQ 0.

      SELECT * UP TO 1 ROWS FROM /pws/zycit085

               WHERE   nrseqdi = /pws/zycit100-nrseqdi.

      ENDSELECT.

    ENDIF.

    IF /pws/zycit001-tpdecl IS INITIAL.

      SELECT SINGLE *

        FROM /pws/zycit001

        WHERE nrseq EQ itab_zycit042-nrseq.

    ENDIF.

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

    IF itab_zycit100-icms_dif = 'X'.

* << Fim da exclusão

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

    IF itab_zycit100-icms_dif = 'X' OR

       itab_zycit003-basred IS INITIAL.

* << Fim da inclusão

      itab_zycit003-basred = '100'.

      v_basred = itab_zycit003-basred.

    ENDIF.

    CLEAR v_advicms.

    IF NOT itab_zycit003-advalicms IS INITIAL.

      IF /pws/zycit062-bs_pis_cof IS INITIAL.

        IF NOT itab_zycit003-basred IS INITIAL OR

           NOT itab_zycit003-basred EQ '100'.

          v_advicms = ( ( itab_zycit003-advalicms / 100 ) *

           ( itab_zycit003-basred / 100 ) ) .

...