01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Criar uma fórmula de cálculo do ST para que quando o ST calculado por pauta zerar ou negativar pegar a base do IVA para calcular o ST.

03. SOLUÇÃO

Criar nova fórmula na rotina 514 em que caso o valor do ST calculado por pauta der menor ou igual a zero, utilizar a base do IVA para calcular o valor do ST, da seguinte maneira:

...

O sistema irá realizar esses cálculos a partir das seguinte fórmulas:

Fórmula comparativa entre valor do ST calculado por pauta e Base do ST.

ST_COMPBASE_PAUTA_IVARetorna o valor do ST comparando o valor de IVA com a Base do ST

...

CASE WHEN (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) * ([ALIQICMS2TAB] / 100))) <= 0
 THEN
          GREATEST((#BASE_ST# * ([ALIQICMS1TAB] / 100)) -
          (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
          ([ALIQICMS2TAB] / 100)), 0)
         ELSE
          (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP])* ([ALIQICMS2TAB] / 100)))
       END

Fórmula comparativa entre valor do ST calculado por pauta e Base do ST com redução na Base do ICMS.

ST_COMPBASE_PAUTA_IVA_BASE_RED_ICMS Retorna o valor do ST comparando o valor de IVA com a Base do ST com redução base de ICMS

...

CASE
         WHEN (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
              ([ALIQICMS2TAB] / 100))) <= 0 
THEN
          GREATEST((#BASE_ST_BASE_RED_ICMS# * ([ALIQICMS1TAB] / 100)) -
          (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
          ([PERCBASEREDST2TRANSF] / 100) * ([ALIQICMS2TAB] / 100)),
                   0)
         ELSE
          (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
              ([ALIQICMS2TAB] / 100)))
       END

Fórmula comparativa entre valor do ST calculado por pauta e Base do ST com redução na Base do ICMS.

ST_COMPBASE_PAUTA_IVA_RED_ICMSRetorna o valor do ST comparando o valor de IVA com redução de ICMS na segunda parte

CASE
         WHEN (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
              ([ALIQICMS2TAB] / 100))) <= 0 THEN
              
          GREATEST((#BASE_ST#*([ALIQICMS1TAB]/100))-
          (([PTABELASEMIMPOSTO1]+[VLFRETE]+[VLOUTRASDESP])*([PERCBASEREDST2TRANSF]/100)*
          ([PERCBASERED]/100)*([ALIQICMS2TAB]/100)),0)
          
         ELSE        (([PAUTATAB] * ([ALIQICMS1TAB] / 100)) -
              (([PTABELASEMIMPOSTO1] + [VLFRETE] + [VLOUTRASDESP]) *
              ([ALIQICMS2TAB] / 100)))
         END 

Saiba como utilizar

Atualize as rotinas abaixo a partir das versões indicadas ou versões superiores:

...

• Como atualizar as rotinas do WinThor?
• Link CCW: https://centraldecontrole.pcinformatica.com.br/

IMPORTANTE!

As versões estarão disponíveis para download no CCW. Mantenha suas rotinas sempre atualizadas!

...