lucasborin

Olá, venho novamente incomodar vocês hehe. Estou com alguns problemas na parte do setor ISENTO: 1. Não tenho o setor "I2" cadastrado no meu ECF. Quando tento efetuar a venda de um produto neste setor, automaticamente é utilizado o setor "I1". 2. Quando tento mandar o comando de cadastro do setor "I2" pelo demo do ACbrECF, nada ocorre. Estes casos ocorrem com os setores de ICMS (F, I, N) e ISSQN (FS, IS, NS).

Perfeito Daniel Simoes, tudo certo agora! Muito obrigado, parabéns pelo projeto! Abraço, Lucas Borin

Achei bastante estranho, pois da última vez havíamos homologado com as informações em duas linhas. Mas ok, Muito obrigado e desculpa o tópico em vão.

Olá, No rodapé do cupom fiscal, as informações de MD5, DAV e Pré-Venda estão saindo em apenas uma linha. O correto é o MD5 sair em uma linha e o DAV ou PV ou DAV+PV sair na próxima linha. MD-5: xxxxxxxxxxxxxxxxxxxxxx DAV0000000001 PV0000000001

Sabe me informar se este caso também está ocorrendo para as demais marcas (elgin, epson...)? Pois nossa homologação será dentro de 30~60 dias e precisava saber se este relato apenas ocorre na bematech ou nas demais também.

Daniel, tudo bom? Você tem alguma novidade sobre este caso?

Mesmo caso já foi reportado antigamente pelo "Joir Soares": http://www.forumweb.com.br/foruns/topic ... o-nas-ecf/ Função desenvolvida por ele para efetuar este arredondamento: function ABNTround(valor:extended;decimals:smallint):Extended; var vm:extended; p,f,p2,f2:extended; Begin (* Nova função de arredondamento *) vm:=Power(10,Decimals); p:=int(valor); { A conversão para string e depois para float evita erros indesejáveis. Que apareceria na comparação f2=0.5 } f:=StrToFloat(FloatToStr(Frac(valor)*vm)); p2:=int(f); f2:=Frac(f); if f2>0.5 then p2:=p2+1 else if f2=0.5 then if frac(p2/2)>0 then p2:=p2+1; p2:=p2/vm; result:=p+p2; end; Caso precisem de uma função de arredondamento ABNT, esta funcionou perfeitamente! Apenas fica faltando a parte de rever o "arredondamento" da impressora bematech.

Sim, o problema está na função que calcular o valor total do item no memoBobina. Porem a propriedade "arredonda" que é lida do ECF está como false, quando o correto era se true e efetuar o calculo conforme conversamos. No teste que passei acima, deu certo para você?

Apenas a propriedade ArredondaItemMFD está ATIVA, a ArredondaPorQtd está DESATIVADA. Caso eu ative o arredondamento por quantidade, o valor informado 0,015 passa a ser 0,02. Porem meu cliente utiliza balança e precisa da terceira casa da quantidade. Mais informações: ArredondaItemMFD = True ArredondaPorQtd = False DeciamisPreco = 2 DecimaisQtd = 3

Correto, o valor total do produto/serviço que está sendo impresso no cupom fiscal é diferente do que está aparecendo no memoBobina. Impressora Fiscal (correto): 0,015 KG x R$ 1,00 = R$ 0,02 0,025 KG x R$ 1,00 = R$ 0,02 0,035 KG x R$ 1,00 = R$ 0,04 0,045 KG x R$ 1,00 = R$ 0,04 memoBobina (errado): 0,015 KG x R$ 1,00 = R$ 0,01 0,025 KG x R$ 1,00 = R$ 0,02 0,035 KG x R$ 1,00 = R$ 0,03 0,045 KG x R$ 1,00 = R$ 0,04 Compreendeu? Impressora de teste: BEMATECH MP-4000 TH FI Abraço, Lucas Borin

A imagem "Captura2.JPG" que foi anexada na primeira página, mostra o trecho do código que efetua o truncamento/arredondamento do memoBobina (espelho do cupom). Não sei se isto ocorre para todos os ECF, mas no meu caso a impressora retorna o arredondamento como falso e a rotina efetua o truncamento, quando o correto deveria ser o uso desta rotina de arredondamento que postei logo acima. Vou efetuar um teste em outro emulador e verificar o que ocorre.

Criei uma função para efetuar o arredondamento, semelhante a da impressora fiscal. Testei aqui e funcionou. function Arredondamento_ECF(Valor:Extended; Decimal:Integer = 2): Extended; begin FUNÇÃO CORRIGIDA NA PÁGINA 03 end;

Criei a função de arredondamento "ABNT" como me indicaram e funcionou perfeitamente, exceto no memoBobina! O memoBobina continua truncando os valores, ele precisa utilizar a rotina de arredondamento "ABNT" também. Para efetuar o teste, podem usar os valores que mencionei acima (0.015, 0.025, 0.035 e 0.045).

A lógica da minha impressora é a seguinte: Unidade x Quantidade = Valor 0,015 x 1 = 0,02 0,025 x 1 = 0,02 0,035 x 1 = 0,04 0,045 x 1 = 0,04 Quando segundo número do valor decimal for impar, o valor é arredondado. Se não ele é truncado. Agora lhes pergunto, todas impressoras funcionam desta maneira? Alguém sabe me dar esta dica? (Fora o caso que comentamos acima que trabalha com configuração da impressora). Abraço

Pela depuração, o parâmetro "Arredonda" no AcbrECF está como FALSO (o valor dele vem da impressora). Então está truncando. Tenho como alterar para arredondar ou então ler esta variável da impressora? Abraço

OK. Mas continuo com o problema e ainda preciso de uma ajuda: 15,00 = Unitário 00,615 = Quantidade ------------------ 9,225 = Total No meu aplicativo e no espelho do cupom (memo ligado ao acbrEcf), aparece o valor total do item como R$ 9,23. Já na impressora fiscal fica como R$ 9,22. Alguem sabe o que posso fazer? Teste efetuado com a impressora Bematech 4000 TH FI.

OK, tenho uma Bematech 4000 TH FI aqui e vou efetuar os testes. Andei lendo sobre a DLL da bematech e encontrei uma função para modificar a maneira de arredondamento da impressora fiscal. Tenho como definir pelo componente ACBrECF?

Caso eu ative esta opção, ao digitar a quantidade "0,098", a quantidade é alterada para "0,099" no cupom fiscal. Mas corrige o caso do valor total do item. Você passa pelo mesmo problema? Abraço, Lucas Borin

Olá! Estou com problemas no arredondamento do valor total do meu produto no cupom fiscal. Exemplo: 9,53 = Unitário 1,58 = Quantidade ------------------ 15,0574 = Total Na impressora fiscal o valor total está sendo truncado (R$ 15,05), já no meu aplicativo eu arredondo o valor total (R$ 15,06). Olhando no código fonte, percebi que para truncar/arredondar o valor total o componente lê a propriedade chamada "Arredonda". Como ativo ou desativo esta funcionalidade? Propriedades AcbrECF: ArredondaItemMDF = True ArredondaPorQTD = False DecimaisPreco = 2 DecimaisQtd = 3 Segue em anexo uma imagem de uma venda feita pelo ECFTeste e o trecho do código do ACBrECF.VendeItem que efetua o arredondamento / truncamento do valor total. Obrigado, Lucas Borin

Ajustei algumas funções em meu aplicativo, passei o "T/S" no final e funcionou! Abraço!

"Alíquota não encontrada '12.00T'" Porem já está cadastrada na impressora fiscal.

Impressora BEMATECH. Modelo vou ficar te devendo, vou conseguir para amanha provavelmente. Parâmetro é passado como "03.84", pois se eu passar como "S03.84" ou "T03.84" recebo o retorno avisando que o setor não existe. Amanha vou testar novamente em minha máquina para lhe passar mais informações.

Desculpe, esqueci de comentar no post anterior, esta rotina está dentro da procedure "AcbrECF.VendeItem()". Logo, no momento de vender um item (serviço) está ocorrendo o descrito acima. Há alguma rotina especifica para venda de serviços?

Olá, Meu cliente tem cadastrado em sua impressora fiscal o setor "T03,84" (ICMS), quando deveria ter cadastrado "S03.84" (ISSQN). Ao efetuar a venda de um SERVIÇO que utilize o setor "S03.84", automaticamente o valor está sendo enviado para o setor "T03.84". A função que retorna o índice do setor fiscal não está enviando o "tipo" para consulta. Segue em anexo imagens demonstrando a falha. Amanha no inicio do dia irei incluir o setor de ISSQN na impressora do cliente. Abraço, Lucas Borin

Hmm boa dica! Obrigado, vou verificar a possibilidade! Abraço, Lucas Borin