Sintoma

O sistema da DI no calculo de icms base reduzida não esta permitindo arredondamento para realizar o

calculo com 4 casas.

Solução

Criado o parâmetro /pws/zycit062-ICMS_BASE_RED_AR para permitir gerar o calculo com 4 casas decimais

Informações Complementares

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

Nota Número 08729 Data: 24/07/2009 Hora: 14:24:02

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

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

Nota Número              : 08729

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00106

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

Referência às notas relacionadas:

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

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

NA DI ARREDONDAR O CALCULO DE ICMS BASE REDUZIDA PARA 4 CASAS

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

Palavras Chave:

DI - ARREDONDAR - ICMS - BASE - RED - 4 - CASAS

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

Objetos da nota:

DTEL /PWS/ZYCIL390

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em DTEL /PWS/ZYCIL390

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

Elemento de dados incluído: /PWS/ZYCIL390

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (60 caracteres), idioma: PT

"GL - Flag Cálculo de ICMS com Base Red. na DI. Arredondado 4"

Categoria de dados: Domínio

Domínio: XFIELD

ID parâmetro:

Nome componente default:

Documentar modificações: SIM

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 04

Denominador breve incluído (4 caracteres), idioma: PT

"ICMS"

Comprimento máximo do denominador médio: 16

Denominador médio incluído (16 caracteres), idioma: PT

"Arred Base Reduz"

Comprimento máximo do denominador longo: 30

Denominador longo incluído (30 caracteres), idioma: PT

"Arredonda Base Reduzida ICMS 4"

Comprimento máximo do título: 54

Título incluído (54 caracteres), idioma: PT

"Cálculo de ICMS com Base Reduzida na DI. Arredondado 4"

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

Modificações efetuadas em TAB /PWS/ZYCIT062

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

...

* >> Início da inclusão:

ICMS_BASE_RED_AR     /PWS/ZYCIL390              CHAR     1

* << Fim da inclusão

USERNAMEC            SYUNAME                    CHAR    12

DTUSERC              SYDATUM                    DATS     8

HRUSERC              SYSTTIMLO                  TIMS     6

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM load_iicms USING p_tipo.

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

  DATA: v_advicms_C4 TYPE p DECIMALS 4.

* << Fim da inclusão

...

...

      IF NOT /pws/zycie003-advalicms IS INITIAL AND

         NOT /pws/zycie100a-icms_dif EQ 'X'.

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

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

          v_advicms_C4  = ( v_advicms * 100 /

                              /pws/zycie003-advalicms ).

          t_icmsbs_d2 = t_icmsbs = t_icmsbs * v_advicms_C4.

        ELSE.

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs = t_icmsbs *

        ( v_advicms * 100 / /pws/zycie003-advalicms ).

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

        ENDIF.

* << Fim da inclusão

      ELSEIF NOT /pws/zycie100a-icms_dif EQ 'X'.

        t_icmsbs_d2 = t_icmsbs = t_icmsbs *

            ( /pws/zycie003-basred / 100 ).

      ENDIF.

      IF NOT /pws/zycit062-flag_icms IS INITIAL AND

...