Sintoma

DI não está respeitando o parâmetro REG_SUSP da ZYCIT062 p ICMS

Solução

Foi corrigido o programa da DI

Informações Complementares

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

Nota Número 04679 Data: 11/09/2007 Hora: 16:19:12

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

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

Nota Número              : 04679

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

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

03226  - 00001 - 6.0    - 00026  - ESTÁ RECOLHENDO VALOR DO ICMS MESMO QUANDO ISENÇÃO NA DI.

03397  - 00002 - 7.0    - 00001  - QUANDO ICMS É DIFERIDO, NÃO PERMITE FAZER A BASE CHEIA.

03745  - 00003 - 7.0    - 00001  - AO UTILIZAR BASE DE ICMS REDUZIDA NA DI, VALOR A RECOLHER FICA IN

03931  - 00004 - 7.0    - 00002  - DI - ICMS DIFERIDO - BASE CHEIA

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

DI NÃO ESTÁ RESPEITANDO O PARÂMETRO REG_SUSP DA ZYCIT062 P ICMS

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

Palavras Chave:

DI NÃO ESTÁ RESPEITANDO O PARÂMETRO REG_SUSP DA ZYCIT062 P ICMS

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

Objetos da nota:

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

  ENDIF.

  IF v_nr_itens GT 1.

    t_icmsbs_d2 = t_icmsbs = ( t_ivadu +  v_vliirec + v_vlipirec +

        t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

        ( /pws/zycie003-basred / 100 ).

  ELSE.

    t_icmsbs_d2 = t_icmsbs = ( t_ivadu +  v_vliirec + v_vlipirec +

             v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec  ) *

             ( /pws/zycie003-basred / 100 ).

  ENDIF.

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

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

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_iicalc.

    ENDIF.

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_ipidevi.

    ENDIF.

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_piscalc - a_cofcalc.

    ENDIF.

    IF /pws/zycie100a-baseicms LT 0.

      CLEAR itab_zycit100-baseicms.

    ENDIF.

  ENDIF.

  IF NOT /pws/zycit062-flag_icms IS INITIAL AND

     /pws/zycie100a-icms_dif NE 'X'.

        t_icmsx = (  1 - v_advicms )  .

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

                               ( t_icmsbs / t_icmsx ) .

    itab_it-vlicms   = t_icms.

    IF NOT /pws/zycie003-basred IS INITIAL AND

       NOT /pws/zycie003-basred EQ '100'.

      t_icmsbs = ( t_icmsbs / t_icmsx ).

    ELSE.

      t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms."  + t_ivdesp.

    ENDIF.

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

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

      ENDIF.

    endif.

  ELSE.

    IF /pws/zycit062-bs_cheia_dif EQ 'X'.

      t_icmsx = 1 - v_advicms .

      t_icms_d2 = t_icms = v_advicms  *

                                 ( t_icmsbs / t_icmsx ) .

      t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms."  + t_ivdesp.

    ELSE.

      t_icms_d2 = t_icms = v_advicms  *  t_icmsbs.

    ENDIF.

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

       not /pws/zycit062-flag_icms is initial.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

      ENDIF.

    endif.

  ENDIF.

  IF '356' CA /pws/zycie100a-codregtriicms .

    CLEAR: t_icmsx, t_icms_d2, t_icms.

  ENDIF.

  itab_it-vlicms   = t_icms.

* << Fim da inclusão

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

    itab_it-vlicms   = t_icms.

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

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - a_iicalc.

      ENDIF.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - a_ipidevi.

      ENDIF.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - a_piscalc - a_cofcalc.

      ENDIF.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

      ENDIF.

      IF /pws/zycie100a-baseicms LT 0.

        CLEAR itab_zycit100-baseicms.

      ENDIF.

    ENDIF.

    IF '356' CA /pws/zycie100a-codregtriicms .

      CLEAR: t_icmsx, t_icms_d2, t_icms.

    ENDIF.

  ELSE.

    IF /pws/zycit062-bs_cheia_dif EQ 'X'.

      t_icmsx = 1 - v_advicms .

      t_icms_d2 = t_icms = v_advicms  *

                                 ( t_icmsbs / t_icmsx ) .

      t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms."  + t_ivdesp.

    ELSE.

      t_icms_d2 = t_icms = v_advicms  *  t_icmsbs.

    ENDIF.

    IF '356' CA /pws/zycie100a-codregtriicms .

      CLEAR: t_icmsx, t_icms_d2, t_icms.

    ENDIF.

  ENDIF.

* << Fim da exclusão

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

...