Sintoma

Não estava verificando a Prestação de Contas que possui Crédito de Impostos na Nota Fiscal

complementar e levava o valor da despesa da prestação de contas menos o credito de impostos para a

NF complementar. E deveria levar o valor total.

Solução

Verifica se a Prestação de Contas possui Crédito de Impostos

Informações Complementares

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

Nota Número 05174 Data: 08/11/2007 Hora: 15:03:04

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

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

Nota Número              : 05174

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00020

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CRÉDITO DE IMPOSTOS PRESTAÇÃO DE CONTAS NOTA FISCAL COMPLEMENTAR

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

Palavras Chave:

CRÉDITO DE IMPOSTOS - NOTA FISCAL COMPLEMENTAR

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

Objetos da nota:

REPS /PWS/MZYCI007F02

REPS /PWS/MZYCI029F01

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

Modificações efetuadas em REPS /PWS/MZYCI007F02

...

FORM gravar_custos_funcao.

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

DATA: vAux(1) TYPE C.

* << Fim da inclusão

  PERFORM agrupa_despesas.

  LOOP AT itab_zycit036.

    UPDATE /pws/zycit036 SET nrseqori   = /pws/zycie026-nrpres

                             netpr      = itab_zycit036-netpr

                             waers      = itab_zycit036-waers

                             vlreal     = itab_zycit036-vlreal

                             waers_real = itab_zycit036-waers_real

                             vldif      = itab_zycit036-vldif

                             waers_dif  = itab_zycit036-waers_dif

                             vlreal_emb = itab_zycit036-vlreal_emb

...

...

        SELECT single tpdesp

        INTO v_tpdesp2

        FROM /PWS/ZYCIT481

        WHERE TPDESP = v_tpdesp.

        IF SY-SUBRC = 0.

          IF NOT itab_cta_481 IS INITIAL.

            READ TABLE itab_cta_481 WITH KEY ebeln = itab_zycit036-ebeln

                                           ebelp = itab_zycit036-ebelp

                                          codigo = itab_zycit036-codigo.

            IF SY-SUBRC = 0.

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

              vAux = '0'.

* << Fim da inclusão

              LOOP AT itab_cta_481.

                IF itab_cta_481-ebelp = itab_zycit036-ebelp and

                   itab_cta_481-codigo = itab_zycit036-codigo.

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

                  itab_zycit036-CONDICAO_EMB = 'C'.

                  IF vAux = 0.

                    itab_zycit036-vlreal_emb = itab_zycit036-vlreal.

                    vAux = '1'.

                  ENDIF.

* << Fim da inclusão

                  itab_zycit036-vlreal =

                        itab_zycit036-vlreal - itab_cta_481-vlTot.

                  MODIFY itab_zycit036.

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

                ELSE.

                  vAux = '0'.

* << Fim da inclusão

                ENDIF.

              ENDLOOP.

            ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

  REFRESH itab_zycit036_aux.

  SORT itab_zycit036 BY nrseq ebeln ebelp codigo.

  LOOP AT itab_zycit036.

    READ TABLE itab_zycit036_aux WITH KEY

      nrseq  = itab_zycit036-nrseq

      ebeln  = itab_zycit036-ebeln

      ebelp  = itab_zycit036-ebelp

      codigo = itab_zycit036-codigo.

    IF sy-subrc = 0.

      v_tabix = sy-tabix.

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

      IF itab_zycit036-condicao_emb EQ 'C' AND

         NOT itab_zycit036-vlreal_emb IS INITIAL.

           itab_zycit036_aux-vlreal =

               itab_zycit036_aux-vlreal + itab_zycit036-vlreal_emb.

      ELSE.

* << Fim da inclusão

      itab_zycit036_aux-vlreal =

             itab_zycit036_aux-vlreal + itab_zycit036-vlreal.

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

      ENDIF.

* << Fim da inclusão

      itab_zycit036_aux-vlmov =

             itab_zycit036_aux-vlmov + itab_zycit036-vlmov.

      IF itab_zycit036_aux-waers_real IS INITIAL.

        itab_zycit036_aux-waers_real = itab_zycit036-waers_real.

      ENDIF.

      IF itab_zycit036_aux-waers_mov IS INITIAL.

        itab_zycit036_aux-waers_mov = itab_zycit036-waers_mov.

      ENDIF.

      MODIFY itab_zycit036_aux INDEX v_tabix.

    ELSE.

      CLEAR itab_zycit036_aux.

      MOVE itab_zycit036 TO itab_zycit036_aux.

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

      IF itab_zycit036-condicao_emb EQ 'C' AND

         NOT itab_zycit036-vlreal_emb IS INITIAL.

           itab_zycit036_aux-vlreal = itab_zycit036-vlreal_emb.

      ELSE.

           itab_zycit036_aux-vlreal = itab_zycit036-vlreal.

      ENDIF.

* << Fim da inclusão

      CLEAR itab_zycit036_aux-origem.

      APPEND itab_zycit036_aux.

    ENDIF.

  ENDLOOP.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT036

Criação de Domínio

MODIFICAR DOMÍNIO: /PWS/ZYGLL572

DESCRIÇÃO BREVE: GL - Condição de Embarque

DEFINIÇÃO

FORMATO:

CATEGORIA DE DADOS: CHAR

NUM. POISÇÕES:      6

DECIMAIS:           0

CARACTERÍSTICAS DE SAÍDA:

COMPRIM. SAÍDA:     6

ROTINA CONVERSÃO:   ____________

(_) - SINAL(+/-)

(X) - LETR. MAIÚSCULAS: ________

ÁREA DE VALORES

VALORES INDIVIDUAIS

VALOR FIXO:        DESCRIÇÃO BREVE:

   C               Crédito de PIS e Cofins

INTERVALOS

LIMITE INF.:    LIMITE SUP.:    DESCRIÇÃO BREVE:

TABELA VALORES: _________________________

CARACTS

CLASSE DESENVOLVIMENTO /PWS/ZYCI

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

Modificações efetuadas em TABD /PWS/ZYCIT036

Criação de Elemento de Dados

MODIFICAR ELEMENTO DE DADOS: /PWS/ZYGLL572

DESCRIÇÃO BREVE: GL - Condição de Embarque

DEFINIÇÃO

CATEGORIA DE DADOS:

(X) - CATEGORIA ELEMENTAR

   (X) - DOMÍNIO            /PWS/ZYGLL572

   (_) - TIPO INSTALADO     CTG. DADOS: ________________

         CUMPRIMEN.________ DECIMAIS.________

(_) - TIPO DE REFERÊNCIA

      REFERÊNCIA A:_____________________________________

ATRIBUTOS:

REDIMENS:      (_) - VERTICAL    (_) - HORIZONTAL

               ___ - LINHAS MIN. ___ - COLUNAS MIN.

CARACTERÍSTICAS:

ID PARÂMETRO: ____________________

NOME COMPENENTE DEFAULT: ________________________

(X) DOC. MODIFICAÇÃO

AJUDA PARA PESQUISA

NOME: __________________________

PARÂMETROS: __________________________

DENOM. DE CAMPO:

BREVE : 10  Cond

MÉDIO : 15  Cond

LONGA : 20  Condição Emb

TÍTULO: 35  Condição Emb

CARACTS

CLASSE DESENVOLVIMENTO /PWS/ZYCI

*ALTERAR A TABELA /PWS/ZYCIT036 PARA INCLUIR O NOVO TIPO DE CAMPO

Alterar o elemento de dados do campo CONDICAO_EMB

de:

/PWS/ZYCIL089

Para:

/PWS/ZYGLL572

TABELA           CAMPO           TIPO DE CAMPO

/PWS/ZYCIT036    CONDICAO_EMB    /PWS/ZYGLL572