Sintoma

Tela de liberacao de debito em conta, para processo de drawback suspensão e isenção está

contabilizando para II e IPI.

Solução

Inserida verificação para gerar o Nr Correto.

Informações Complementares

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

Nota Número 00917 Data: 21/02/2006 Hora: 11:23:23

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

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

Nota Número              : 00917

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00101

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

TELA DE LIBERACAO DE DEBITO EM CONTA.

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

Palavras Chave:

LIBERAÇÃO - DEBITO - CONTA - DESPESAS - NR CONTABIL

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

Objetos da nota:

FUNC /PWS/ZYCI_RATEIO_CUSTO

REPS /PWS/MZYCI013F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO

...

              itab_despesa-tpdesp    TO itab_zycit036_aux-tpdesp .

          v_plan = itab_zycit003-netpr * itab_zycit003-qtd_iten.

          CLEAR itab_zycit039.

         READ TABLE itab_zycit039 WITH KEY codigo = itab_despesa-codigo.

          IF v_linha = v_index.

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

            itab_zycit036_aux-vlreal = itab_despesa-netpr - v_tot_desp.

* << Fim da exclusão

            IF NOT itab_despesa-waers IS INITIAL.

              itab_zycit036_aux-waers_real = itab_despesa-waers.

            ELSE.

              itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.

            ENDIF.

...

...

                ENDIF.

              ELSE.

                READ TABLE itab_zycit100a WITH KEY

                          ebeln = itab_zycit003-ebeln

                          ebelp = itab_zycit003-ebelp.

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

                IF sy-subrc EQ 0.

* << Fim da exclusão

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

                IF sy-subrc EQ 0 AND NOT v_tot_desp IS INITIAL.

* << Fim da inclusão

              itab_zycit036_aux-vlreal = itab_despesa-netpr - v_tot_desp

.

                  itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.

                ENDIF.

              ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI013F01

     IF it_contabil-tpdesp EQ '001'.           "Imposto IPI  a recolher.

       PERFORM  preenche_imposto.

     ELSEIF it_contabil-tpdesp EQ '002'.       "Imposto ICMS a recolher.

       PERFORM  preenche_imposto.

* << - Início da Exclusão - FORM verifica_itens

     elseif it_contabil-tpdesp eq '003'.       "Imposto II a recolher.

       perform  preenche_imposto.

* >> - Fim da Exclusão

     ELSEIF it_contabil-tpdesp EQ /pws/zycit000-cod_pis."PIS a recolher

       PERFORM  preenche_imposto.

     ELSEIF it_contabil-tpdesp EQ /pws/zycit000-cod_cofins."COFINS

       PERFORM  preenche_imposto.

     ENDIF.

   ENDLOOP.