Sintoma

Verificar a DSI para tratar a coluna reg_susp.NF da tabela /pws/zycit062, quando for não incidência

assim como suspensão.

Solução

verificar parâmetro na /PWS/ZYCIT062 para tratar regime de não incidência.

Informações Complementares

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

Nota Número 03317 Data: 26/03/2007 Hora: 10:54:06

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

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

Nota Número              : 03317

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00159

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

Referência às notas relacionadas:

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

02362  - 00001 - 6.0    - 00025  - DSI VALOR DO SISCOMEX ZERADO

03106  - 00002 - 6.0    - 00026  - VALOR DE ICMS DA DSI ESTÁ MENOR QUE O TOTAL DA NOTA FISCAL

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

DSI VERIFICA A TABELA /PWS/ZYCIT062 PARA NÃO INCIDÊNCIA

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

Palavras Chave:

DSI - NÃO INCIDÊNCIA - /PWS/ZYCIT062 - REGIME SUSPENSÃO -

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

Objetos da nota:

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

      CLEAR v_nova.

    ENDIF.

    IF v_nova IS INITIAL.

      PERFORM mp_antiga.

    ELSE.

      PERFORM mp_nova.

    ENDIF.

  ENDIF.

  v_divisor =  ( 1 - v_advicms - v_advpis - v_advcof ).

  PERFORM calc_piscofins.

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

  IF '56' CA /pws/zycie100a-codregtri.

* << Fim da inclusão

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

  IF '5' CA /pws/zycie100a-codregtri.

* << Fim da exclusão

    v_vliirec = a_iidevi.

  ELSE.

    v_vliirec = t_iirec.

  ENDIF.

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

  IF '5' CA /pws/zycie100a-codregtriipi .

* << Fim da exclusão

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

  IF '56' CA /pws/zycie100a-codregtriipi .

* << Fim da inclusão

    v_vlipirec = a_ipidevi.

  ELSE.

    v_vlipirec = t_ipirec.

  ENDIF.

  CLEAR: v_vlpisrec , v_vlcofrec.

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

  IF '5' CA  /pws/zycie100a-codregtripiscofi.

* << Fim da exclusão

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

  IF '56' CA  /pws/zycie100a-codregtripiscofi.

* << Fim da inclusão

    v_vlpisrec   = t_pis_calc.

    v_vlcofrec   = t_cof_calc.

  ELSE.

    v_vlpisrec   = t_pis   .

    v_vlcofrec   = t_cofins.

  ENDIF.

  IF v_nr_itens GT 1.

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

        t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

        ( /pws/zycie003-basred / 100 ).

...

...

  IF NOT v_icms_especial IS INITIAL.

    t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                               ( t_icmsbs / t_icmsx ) .

    t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

    itab_it-vlicms   = t_icms.

    if /pws/zycit062 is initial.

      select single * from /pws/zycit062 where REGIO eq v_icms_regio.

    endif.

    IF /pws/zycit062-susp_nf EQ 'S'.

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

      IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da exclusão

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

      IF '56' ca /pws/zycie100a-codregtri .

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - a_iicalc.

      ENDIF.

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

      IF /pws/zycie100a-CODREGTRI EQ '5'.

* << Fim da exclusão

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

      IF '56' ca /pws/zycie100a-CODREGTRI.

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - a_ipidevi.

      ENDIF.

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

      IF /pws/zycie100a-codregtripiscofi EQ '5'.

* << Fim da exclusão

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

      IF '56' ca /pws/zycie100a-codregtripiscofi.

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_pis_calc - t_cof_calc.

      ENDIF.

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

      IF /pws/zycie100a-CODREGTRI EQ '5'.

* << Fim da exclusão

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

      IF '56' ca /pws/zycie100a-CODREGTRI .

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

...

...

      ENDIF.

    ENDIF.

  ELSE.

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                t_icmsbs.

  ENDIF.

  IF /pws/zycie100a-codregtri EQ '6'.

    CLEAR: t_icms_d2, t_vlicms.

  ENDIF.

  itab_it-vlicms   = t_icms.

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

  IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da exclusão

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

  IF '56' ca /pws/zycie100a-codregtri .

* << Fim da inclusão

    CLEAR: t_icms_d2, t_vlicms.

  ENDIF.

  IF p_tipo = 'I' OR p_tipo = 'T'.

    s_wicdevi = s_wicdevi + t_icms.

    s_wpisreco = s_wpisreco + t_pis   .

    s_wcofreco = s_wcofreco + t_cofins.

    s_wpiscalc =  s_wpiscalc + t_pis_calc.

    s_wpisdev  =  s_wpisdev  + t_pis_dev.

    s_wcofcalc =  s_wcofcalc + t_cof_calc.

    s_wcofdev  =  s_wcofdev  + t_cof_dev.

...

...

  itab_it-cofi_calc = t_cof_calc.

  itab_it-cofi_dev = t_cof_dev.

  t_pisbs = itab_it-basepis.

  t_cofinsbs = itab_it-basecofins.

  t_vlicms   = s_wicreco.

  t_vlpis    = s_wpisreco.

  t_vlcofins = s_wcofreco.

  IF /pws/zycie001-regime EQ '09'.

    CLEAR: t_pis, t_cofins, t_icms, t_icms_d2.

  ENDIF.

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

  IF /pws/zycie100a-codregtri EQ '5'.

* << Fim da exclusão

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

  IF '56' ca /pws/zycie100a-codregtri.

* << Fim da inclusão

    CLEAR: t_icms, t_icms_d2.

  ENDIF.

ENDFORM.

FORM data_sort.

  SORT itab_it BY

       j_1bnbm       fabric      lifnrfabr     lifnr          advalii

    advalipi      naladi      naladincca    codregtri      codregtriipi

       zterm         meinsest    pproc         nrseqli        aplicacao

       condmerc      inco1       codmat        cacl           codfunleg

       acordo        acordorate  reduzida      percreduz      notatipi

...