Sintoma

Ajuste para inclusão da linha de II na pasta de impostos da nota fiscal complementar.

Solução

Ajuste para inclusão da linha de II na pasta de impostos da nota fiscal complementar..

Informações Complementares

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

Nota Número 11632 Data: 17/11/2011 Hora: 08:26:34

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

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

Nota Número              : 11632

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00094

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

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

11494  - 00002 - 8.0    - 00009  - ACRESCENTAR TRATAMENTO PARA LINHA DO II NA NF.

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

INCLUSÃO DA LINHA DE II NA NOTA FISCAL COMPLEMENTAR

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

Palavras Chave:

NOTA - FISCAL - COMPLEMENTAR - INCLUSÃO - LINHA - II

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

Objetos da nota:

REPS /PWS/MZYCI029F01

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

  IF /pws/zycbt007-waersb IS INITIAL.

    SELECT SINGLE * FROM /pws/zycbt007

                    WHERE bukrs EQ /pws/zycie264-bukrs.

  ENDIF.

  SELECT * FROM /pws/zycit398

   INTO TABLE itab_zycit398

    WHERE bukrs EQ /pws/zycie264-bukrs

      AND clnf  EQ itab_zycit033-clnf

      AND tpnf  EQ itab_zycit033-tpnf

      AND ( tributos EQ 'PIS' OR

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

            tributos EQ 'COFINS' ).

* << Fim da exclusão

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

            tributos EQ 'COFINS' OR

            tributos eq 'II' ).

* << Fim da inclusão

  READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.

  IF sy-subrc EQ 0.

    it_zycee007-leipis = itab_zycit398-leipis.

  ENDIF.

  READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.

  IF sy-subrc EQ 0.

    it_zycee007-leicofins = itab_zycit398-leicofins.

  ENDIF.

  it_zycee007-tcode    = text-003.

  it_zycee007-tabela   = text-004.

...

...

  IF it_zycee007-taxval IS INITIAL.

    CLEAR it_zycee007-rate.

  ENDIF.

  CLEAR: v_tabix_exit.

  CONCATENATE itab_zycit265_c2-ebeln '/' itab_zycit265_c2-ebelp

              INTO it_zycee007-msg1.

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

  READ TABLE itab_zycit398 WITH KEY tributos = 'II'.

  IF sy-subrc EQ 0.

    it_zycee007-taxtyp_ii = itab_zycit398-taxtyp.

  ELSE.

    CLEAR it_zycee007-taxtyp_ii.

  ENDIF.

* << Fim da inclusão

  APPEND it_zycee007.

  v_tabix_exit = sy-tabix.

  READ TABLE itab_zycit001 INDEX 1.

  CLEAR itab_zycit036_lanc.

  MOVE: itab_zycit001-nrseq    TO itab_zycit036_lanc-nrseq     ,

        itab_zycit001-werks    TO itab_zycit036_lanc-werks     ,

        itab_zycit001-bukrs    TO itab_zycit036_lanc-bukrs     ,

        'D'                    TO itab_zycit036_lanc-codmod    ,

        itab_zycit265_c2-ebeln TO itab_zycit036_lanc-ebeln     ,

        itab_zycit265_c2-ebelp TO itab_zycit036_lanc-ebelp     ,

...