CE PLUS - Nota 005033

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Débito em Conta

Data/Hora da Publicação: 19/10/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 14:50:14

Descrição da Nota: DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA.

Sintoma

DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA na DSI.

 

 

Solução

verificar regime tributário da DI/DSI antes lançar valores no débito em conta

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

PREENCHER AUTOMATICAMENTE OS VALORES DOS IMPOSTOS E TAXA SISCOMES

O REGIME TRIBUTÁRIO É ISENÇÃO MAS NO DÉBITO EM CONTA,APARECE VALOR ICMS.

Informações Complementares

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

Nota Número 05033 Data: 19/10/2007 Hora: 14:25:05

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

 

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

Nota Número              : 05033

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00017

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

Referência às notas relacionadas:

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

 

03251  - 00001 - 6.0    - 00026  - O REGIME TRIBUTÁRIO É ISENÇÃO MAS NO DÉBITO EM CONTA,APARECE VALO

04583  - 00002 - 7.0    - 00002  - PREENCHER AUTOMATICAMENTE OS VALORES DOS IMPOSTOS E TAXA SISCOMES

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

DÉBITO EM CONTA ESTÁ LEVANDO VALORES MESMO COM REGIME NÃO INCIDÊNCIA.

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

Palavras Chave:

REGIME TRIBUTÁRIO - DÉBITO EM CONTA - VALORES - NÃO INCIDÊNCIA

 

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

Objetos da nota:

REPS /PWS/MZYCI006F01

REPS /PWS/MZYCI058F01

 

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

Modificações efetuadas em REPS /PWS/MZYCI006F01

 

...

        v_dppis     LIKE /pws/zycit085-vlpis,

        v_dpcofins  LIKE /pws/zycit085-vlcofins.

  DATA: v_vlicms    LIKE /pws/zycit016-vldp,

        v_vlipi     LIKE /pws/zycit016-vldp,

        v_vlii      LIKE /pws/zycit016-vldp,

        v_vlpis     LIKE /pws/zycit016-vldp,

        v_vlcofins  LIKE /pws/zycit016-vldp,

        v_line      TYPE i                 .

  if /pws/zycit001-regime = '04' and /pws/zycit001-tpdecl = 'DI'.

    loop at itab_zycit443.

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

      if not '35' ca itab_zycit443-codregtriicms.

* << Fim da exclusão

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

      if not '356' ca itab_zycit443-codregtriicms.

* << Fim da inclusão

          v_dpicms    = v_dpicms   + itab_zycit443-vlicms  .

      endif.

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

      IF itab_zycit443-codregtriipi NE '1' AND

         itab_zycit443-codregtriipi NE '5'.

* << Fim da exclusão

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

      IF not '156' ca itab_zycit443-codregtriipi .

* << Fim da inclusão

        v_dpipi     = v_dpipi     + itab_zycit443-vlipi   .

      ENDIF.

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

      IF itab_zycit443-codregtri NE '3' AND

         itab_zycit443-codregtri NE '5'.

* << Fim da exclusão

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

      IF not '356' ca itab_zycit443-codregtri .

* << Fim da inclusão

        v_dpii      = v_dpii     + itab_zycit443-vlii    .

      ENDIF.

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

      IF ( itab_zycit443-codregtripiscofi  NE '3' AND

           itab_zycit443-codregtripiscofi NE '5' ) .

* << Fim da exclusão

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

      IF  not '356' ca itab_zycit443-codregtripiscofi  .

* << Fim da inclusão

        v_dppis     = v_dppis    + itab_zycit443-vlpis   .

        v_dpcofins  = v_dpcofins + itab_zycit443-vlcofins.

      ENDIF.

    endloop.

  else.

  LOOP AT itab_zycit100.

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

    if not '35' ca itab_zycit100-codregtriicms.

* << Fim da exclusão

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

    if not '356' ca itab_zycit100-codregtriicms.

* << Fim da inclusão

        v_dpicms    = v_dpicms   + itab_zycit100-vlicms  .

    endif.

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

    IF itab_zycit100-codregtriipi NE '1' AND

       itab_zycit100-codregtriipi NE '5'.

* << Fim da exclusão

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

    IF not '156' ca itab_zycit100-codregtriipi.

* << Fim da inclusão

      v_dpipi     = v_dpipi     + itab_zycit100-vlipi   .

    ENDIF.

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

    IF itab_zycit100-codregtri NE '3' AND

       itab_zycit100-codregtri NE '5'.

* << Fim da exclusão

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

    IF not '356' ca itab_zycit100-codregtri .

* << Fim da inclusão

      v_dpii      = v_dpii     + itab_zycit100-vlii    .

    ENDIF.

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

    IF ( itab_zycit100-codregtripiscofi  NE '3' AND

         itab_zycit100-codregtripiscofi NE '5' ) .

* << Fim da exclusão

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

    IF not '356' ca itab_zycit100-codregtripiscofi .

* << Fim da inclusão

      v_dppis     = v_dppis    + itab_zycit100-vlpis   .

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

 

...

    ENDLOOP.

  ENDIF.

  MOVE itab_it[] TO itab_ita[].

  /pws/zycie093-ntgew = /pws/zycie085-ntgew = v_tntgew.

  IF /pws/zycie093-gewei_l IS INITIAL.

    /pws/zycie093-gewei_l =  /pws/zycie093-gewei_b.

  ENDIF.

  CLEAR itab_zycit100_temp.

  REFRESH itab_zycit100_temp.

  LOOP AT itab_it.

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

    if itab_it-codregtriicms is initial.

       itab_it-codregtriicms = itab_it-codregtri.

    modify itab_it.

    endif.

* << Fim da inclusão

    MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.

    APPEND itab_zycit100_temp.

  ENDLOOP.

ENDFORM.

FORM fill_it115b.

  CLEAR:   itab_zycit115b[].

  REFRESH: itab_zycit115b[].

  LOOP AT itab_zycit115    WHERE

       nrseq = wa_it-nrseq AND

       ebeln = wa_it-ebeln AND

...