Sintoma

Não está respeitando a opção de com ou sem ICMS do ato concessório.

Solução

Criar campo referente a entrada com ou sem ICMS, no cabeçalho do programa de entrada de nota fiscal

para realizar o tratamento dos valores dos itens e selecionar apenas os atos que possuírem a mesma

opção de tratamento do ICMS.

Informações Complementares

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

Nota Número 02798 Data: 02/01/2007 Hora: 11:17:43

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

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

Nota Número              : 02798

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE NO TRATAMENTO DE ENTRADA DE NOTA FISCAL COM E SEM ICMS.

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

Palavras Chave:

NOTA - FISCAL - ICMS - VINCULAÇÃO - ATO - CONCESSÓRIO - ENTRADA

/PWS/SAPMZYCI052

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

Objetos da nota:

DYNP /PWS/SAPMZYCI052                        0001

REPS /PWS/MZYCI052F01

REPS /PWS/MZYCI052I01

TABD /PWS/ZYCIE329

TABD /PWS/ZYCIT329

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI052                        0001

**Campos inseridos:

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

   /PWS/ZYCIE329-CICMS

      Check      4        3       1       1       1     CHAR   X           Ent Off

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

Modificações efetuadas em REPS /PWS/MZYCI052F01

...

              AND refitm EQ itab_zycit330-buzei.

        itab_zycit330-buzei = j_1bnflin-itmnum.

        AUTHORITY-CHECK OBJECT 'C_PPBD'

                             ID 'AKTTYP' FIELD 'V'

              ID 'WERKS' FIELD j_1bnflin-werks.

        IF sy-subrc NE 0.

          MESSAGE i015 WITH text-289 j_1bnflin-werks.

          LEAVE TO TRANSACTION sy-tcode.

        ENDIF.

        itab_zycit330-netwr = j_1bnflin-netwr.

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

        SELECT SINGLE j_1bnfstx~othbas

* << Fim da exclusão

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

        IF /pws/zycie329-cicms IS INITIAL.

          itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.

        ELSE.

          SELECT SINGLE j_1bnfstx~taxval

* << Fim da inclusão

          FROM ( j_1bnfstx INNER JOIN j_1baj

                 ON j_1bnfstx~taxtyp = j_1baj~taxtyp )

          INTO v_othbas

          WHERE j_1bnfstx~docnum EQ j_1bnflin-docnum

            AND j_1bnfstx~itmnum EQ j_1bnflin-itmnum

            AND j_1baj~taxgrp EQ 'ICMS'.

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

        itab_zycit330-netpr = v_othbas / j_1bnflin-menge.

* << Fim da exclusão

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

          itab_zycit330-netwr = itab_zycit330-netwr + v_othbas.

          itab_zycit330-netpr = itab_zycit330-netwr / j_1bnflin-menge.

        ENDIF.

* << Fim da inclusão

        APPEND itab_zycit330.

      ENDLOOP.

    ENDIF.

  ENDIF.

ENDFORM.

FORM blaettern USING p_tccurr p_tclins p_itlin p_okcode

               CHANGING nextline.

  DATA: b_overlapping(1) TYPE c VALUE 'X'.

  IF p_itlin EQ 0.

    EXIT.

...

...

  IF sy-subrc EQ 0.

    SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245

        WHERE tipo EQ 'F'

          AND j_1bnbm EQ itab_zycit330-ncm.

    IF NOT itab_zycit245[] IS INITIAL.

      SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244

          FOR ALL ENTRIES IN itab_zycit245

          WHERE nrseqd EQ itab_zycit245-nrseqd

            AND status EQ 'D'

            AND tipo   EQ 'F'

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

            AND cicms  EQ /pws/zycie329-cicms

* << Fim da inclusão

            AND vcto_fn >= sy-datum

            AND lifnr EQ ekko-lifnr.

      IF NOT itab_zycit244[] IS INITIAL.

        SELECT * FROM /pws/zycit279 INTO TABLE itab_zycit279_aux

            FOR ALL ENTRIES IN itab_zycit244

            WHERE nrseqd EQ itab_zycit244-nrseqd

              AND matnr  EQ j_1bnflin-matnr.

      ENDIF.

    ENDIF.

    PERFORM converte_um_ncm USING j_1bnflin-matnr

...

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

Modificações efetuadas em REPS /PWS/MZYCI052I01

...

MODULE user_command_0200 INPUT.

  CASE okcode .

    WHEN 'EXIT'.

      LEAVE TO SCREEN 100.

    WHEN 'VINC'.

      READ TABLE itab_vinc WITH KEY mark = 'X'.

      IF sy-subrc EQ 0

         AND itab_vinc-icon EQ '@5B@'.

        itab_zycit330-nrseqd = itab_vinc-nrseqd.

        itab_zycit330-nratoc = itab_vinc-nratoc.

* >> Início da exclusão: MODULE USER_COMMAND_0200

        CLEAR itab_zycit244.

        READ TABLE itab_zycit244 WITH KEY nrseqd = itab_vinc-nrseqd.

        IF NOT itab_zycit244-cicms IS INITIAL.

          SELECT SINGLE j_1bnfstx~taxval

            FROM ( j_1bnfstx INNER JOIN j_1baj

                   ON j_1bnfstx~taxtyp = j_1baj~taxtyp )

            INTO v_icms

            WHERE j_1bnfstx~docnum EQ j_1bnflin-docnum

              AND j_1bnfstx~itmnum EQ j_1bnflin-itmnum

              AND j_1baj~taxgrp EQ 'ICMS'.

          itab_zycit330-netwr = itab_zycit330-netwr + v_icms.

        ENDIF.

* << Fim da exclusão

        MODIFY itab_zycit330 TRANSPORTING nrseqd nratoc

                             WHERE docnum EQ itab_zycit330-docnum

                               AND buzei  EQ itab_zycit330-buzei.

        delete from /pws/zycit279 where docnum eq itab_zycit330-docnum

                                    and buzei  eq itab_zycit330-buzei.

        LEAVE TO SCREEN 100.

      ELSE.

        MESSAGE i015 WITH text-022.

      ENDIF.

  ENDCASE.

...

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

Modificações efetuadas em TABD /PWS/ZYCIE329

Nome campo Elem.dados    Tab.verif. N CtDt Comp. Grupo

...

J_1BBRANCH J_1BBRANC_    J_1BBRANCH   CHAR     4

DOCDAT     J_1BDOCDAT                 DATS     8

DATSYS     SYDATUM                    DATS     8

*>>Inicio da Inclusão:

CICMS      CHAR1                      CHAR     1

*<<Fim da Inclusão

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

Modificações efetuadas em TABD /PWS/ZYCIT329

Nome campo Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

...

J_1BBRANCH     J_1BBRANC_                 CHAR     4

DOCDAT         J_1BDOCDAT                 DATS     8

DATSYS         SYDATUM                    DATS     8

*>>Inicio da Inclusão:

CICMS          CHAR1                      CHAR     1

*<<Fim da Inclusão