Fronteira

Encaminhar para Alisson Cleiton dos Santos

Ref.: Alterações no subprograma B40015VD

Reinaldo,

1- Na DEFINE SUBROUTINE RATEIO-FRETE-FOB
Incluir filtro via FIND na tabela SITAFE-CTE-ITENS para checar se o CTE encontrado no FIND anterior não foi substituído, e caso tenha sido, deve ser desprezado do rateio do Frete FOB.
Obs.: O CTE de SUBSTITUIÇÃO tem efeitos de anulação do CTE ORIGINAL, portanto, o CTE ORIGINAL deve ser desprezado e só entra na base de cálculo o CTE de SUBSTITUIÇÃO.
Sugestão:
FIND CTE-ITEM2 WITH CTE-ITEM2.IT-NU-CHAVE-NFE = CTE1.IT-NU-CHAVE-ACESSO WHERE CTE-ITEM2.IT-INF-TIPO = 'CTESUB'

2- Na DEFINE SUBROUTINE CALCULA-ST
No código onde é feita a conferência do ICMS-ST (NFE-ITEM.IT-IN-OPERACAO = '10' AND NFE-ITEM.IT-IN-MARCADO = 'S') mantemos a classificação original (classificação 30 ou 70) se o valor do complemento de cada item da NFE é menor que R$ 0,01 ou fazemos o lançamento (classificação 40) quando o valor do complemento de cada item da NFE é maior ou igual a R$ 0,02.
Ocorre que, mesmo somando todos os itens, temos casos de valores irrisórios sendo lançados.
Portanto, solicito que seja alterado o código de forma que os itens que receberam o lançamento de ICMS complementar sejam "marcados" de forma que, após o processamento de todos os itens seja feito um comparativo se a soma de todos os itens tem valor maior ou igual a R$ 3,00.
Se a soma for maior ou igual a R$ 3,00 o lançamento fica mantido.
Se a soma for menor que R$ 3,00 o lançamento deve ser abortado, retornando a classificação original para estes itens (classificação 30 ou 70).