Sintoma

Quando a nota fiscal não possui valores de pis ou cofins o campo lei Pis e lei de cofins não é

preenchido.

Solução

Atualização do programa de nota fiscal para preencher os campos da Lei Pis e Lei Cofins independente

dos impostos possuirem valor a serem lançados.

Informações Complementares

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

Nota Número 03667 Data: 11/05/2007 Hora: 16:05:36

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

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

Nota Número              : 03667

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00165

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

Referência às notas relacionadas:

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

03588  - 00001 - 7.0    - 00001  - LEI FISCAL REFERENTE PIS/COFINS NA NOTA FISCAL

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

PREENCHE LEI DE PIS E COFINS SEMPRE QUE PARAMETRIZADO.

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

Palavras Chave:

LEI - PIS - COFINS - NOTA - FISCAL - PREENCHE

/PWS/SAPMZYCO16

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

      ENDIF.

  ENDCASE.

  DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.

  SELECT * FROM /pws/zycit398

   INTO TABLE itab_zycit398

    WHERE bukrs EQ /pws/zycie041-bukrs

      AND clnf  EQ itab_zycit033-clnf

      AND tpnf  EQ itab_zycit033-tpnf

      AND ( tributos EQ 'PIS' OR

            tributos EQ 'COFINS' ).

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

  READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.

  IF sy-subrc EQ 0.

    it_zycee007-leipis = itab_zycit398-leipis.

  ENDIF.

* << Fim da inclusão

  IF NOT itab_zycit100-vlpis IS INITIAL.

    CLEAR itab_zycit036.

    READ TABLE itab_zycit036 WITH KEY nrseq  = itab_zycit042-nrseq

                                      ebeln  = itab_zycit042-ebeln

                                      ebelp  = itab_zycit042-ebelp

                                      codigo = 'PIS'.

    it_zycee007-taxval_pis = itab_zycit036-vlreal.

    READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.

    IF sy-subrc EQ 0.

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

      it_zycee007-leipis = itab_zycit398-leipis.

* << Fim da exclusão

      it_zycee007-taxtyp_pis = itab_zycit398-taxtyp.

    ELSE.

      CLEAR it_zycee007-taxtyp_pis.

    ENDIF.

    IF NOT it_zycee007-taxval_pis IS INITIAL.

      it_zycee007-rate_pis   = itab_zycit100-advalpis.

    ENDIF.

    CASE itab_zycit398-tribpiscof.

      WHEN 1.

        PERFORM verifica_montante.

...

...

      WHEN 2.

        PERFORM verifica_montante.

        v_montante1 = itab_zycit100-basepis.

        it_zycee007-pis_excbas = v_montante1.

        CLEAR it_zycee007-taxval_pis.

      WHEN 3.

        PERFORM verifica_montante.

        v_montante1 = itab_zycit100-basepis.

        it_zycee007-othbas_pis = v_montante1.

    ENDCASE.

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

  ENDIF.

  READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.

  IF sy-subrc EQ 0.

    it_zycee007-leicofins = itab_zycit398-leicofins.

* << Fim da inclusão

  ENDIF.

  IF NOT itab_zycit100-vlcofins IS INITIAL.

    CLEAR itab_zycit036.

    READ TABLE itab_zycit036 WITH KEY nrseq  = itab_zycit042-nrseq

                                      ebeln  = itab_zycit042-ebeln

                                      ebelp  = itab_zycit042-ebelp

                                      codigo = 'COFINS'.

    it_zycee007-taxval_cof = itab_zycit036-vlreal.

    READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.

    IF sy-subrc EQ 0.

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

      it_zycee007-leicofins = itab_zycit398-leicofins.

* << Fim da exclusão

      it_zycee007-taxtyp_cof = itab_zycit398-taxtyp.

    ELSE.

      CLEAR it_zycee007-taxtyp_cof.

    ENDIF.

    IF NOT it_zycee007-taxval_cof IS INITIAL.

      it_zycee007-rate_cof   = itab_zycit100-advalcofins.

    ENDIF.

    CASE itab_zycit398-tribpiscof.

      WHEN 1.

        PERFORM verifica_montante.

...