Problema de registro de item com ISS na impresso blindada

[Henrique Gottardi Werlang]

Encontrei um problema de registro de itens na impressora fiscal blindada, quando o item é tributado por ISSQN de 4%. A alíquota está registrada na impressora, o problema é que não encontra a alíquota na impressora. Verificando os fontes, localizei o problema na linha 2116, função AchaICMSAliquota, o fonte atual está implementado da seguinte forma:

 

function TACBrECFEscECF.AchaICMSAliquota(var AliquotaICMS: String): TACBrECFAliquota;
begin
  if (upcase(AliquotaICMS[1]) = 'T') then
    AliquotaICMS := 'TT'+PadLeft(copy(AliquotaICMS,2,2),2,'0') ; {Indice}

  Result := inherited AchaICMSAliquota( AliquotaICMS );

end;

 

Se modificar o IF, e a concatenação da string da seguinte forma, tudo funciona corretamente:

 

function TACBrECFEscECF.AchaICMSAliquota(var AliquotaICMS: String): TACBrECFAliquota;
begin
  if CharInSet(UpCase(AliquotaICMS[1]), ['T', 'S']) then

    AliquotaICMS := 'T' + UpCase(AliquotaICMS[1]) + PadLeft(Copy(AliquotaICMS, 2, 2), 2, '0');

  Result := inherited AchaICMSAliquota(AliquotaICMS);
end;

 

Obrigado.

[Juliomar Marchetti]

Boa tarde

Isso para qual marca/modelo?

favor anexar a unit alterada para validação.

[Henrique Gottardi Werlang]

No caso específico, estava utilizando uma Bematech 4200.

O fonte está em anexo.

 

ACBrECFEscECF.pas

[Daniel Simoes]

A modificação proposta pode quebrar o funcionamento dos demais modelos...

Como reproduzir o problema, usando o ECFTeste ?

 

[EMBarbosa]

Em 08/12/2016 at 16:39, Henrique Gottardi Werlang disse:

Encontrei um problema de registro de itens na impressora fiscal blindada, quando o item é tributado por ISSQN de 4%. A alíquota está registrada na impressora, o problema é que não encontra a alíquota na impressora

 

Em 08/12/2016 at 16:39, Henrique Gottardi Werlang disse:

function TACBrECFEscECF.AchaICMSAliquota(var AliquotaICMS: String): TACBrECFAliquota;

Se o tributo é ISSQN, a função AchaICMSAliquota não vai encontrar mesmo.

Não entendi o motivo de isso ser um problema.

[Henrique Gottardi Werlang]

Como eu faço para registrar um item com ISS de 4%, senão é pela função normal de venda, que utiliza essa função para encontrar o índice da alíquota que tem que ser impressa?

[EMBarbosa]

3 horas atrás, Daniel Simoes disse:

Como reproduzir o problema, usando o ECFTeste ?

 

[Henrique Gottardi Werlang]

Vou colocar os passos que fiz para executar o teste:

1 - Utilitários -> Programa Alíquota -> 4 -> No -> Yes

2 - Cupom Fiscal -> Abre Cupom -> Ok

3 - Cupom Fiscal -> Vende Item -> Valor Aliq. ICMS = S01 -> Imprimir

Com esses passos dá erro de "Conteúdo de parâmetro inválido no comando.".

Abaixo o log do ECF Teste.

Ativar
#1#5#353#0#2#1#0#0#0#0#0#162
- + - + - + - + - + - + - + - + - + - + - + -
Aliquota: 01 Indice: S01 -> 4 Tipo: S
---------------------------------
AbreCupom
#1#15#26#0#0#1#0#0#0#12#01|000000005|#20
- + - + - + - + - + - + - + - + - + - + - + -
Erro retornado pela Impressora: BEMATECH

Categoria: 2-Erro em parâmetro do comando
Motivo: 1-Conteúdo de parâmetro inválido no comando.
#1#17#2#0#2#1#0#0#0#0#0#22
- + - + - + - + - + - + - + - + - + - + - + -

 

[Daniel Simoes]

Obrigado pelas informações e pela sugestão de correção...

Apliquei uma correção baseado nos fontes de outras classes...  (já no SVN)