AcbrECF registrar item pesado!

[Daniel_FC]

Boa tarde pessoal,

ja uso o Acbr ja algum tempo, e ainda nao to conceguindo fazer a impressao do item pesado correto.

olha este exemplo aqui com a SwedaSt100 do meu cliente.

Produto : Carne Bovina Paleta S/Osso

Preço : 6,95

qtd na Etiqueta : 0,696 da balança

Na etiqueta impressa da balança toledo ta assim:

preço 6,95

peso 0,696

total R$ 4,84

Na ecf fica assim

preço 6,95

peso 0,696

total R$ 4,83

Detelhe, esta impressora nao arredonda por contidade.

me expliquem qual é a formula correta de se fazer o registro.

1- quando a impressora Arredonda?

2- quando a impressora nao arredonda?

3- posso setar em tempo de execução o comando arredonda por qtde.

preciso de um exemplo correto de como fazer isso, asso que os amigos do forum ja tem mais experiencia nisso, e sebem que tem

varias outras ecf que truncan e arredonda.

tenho que mostrar isso em tela corredo e tb gravar no bd. correto tambem.

obrigado.

[lampada]

Olá, se você usa o protoclo swedastx, quando for registrar o item altere a propriedade ArredondaItemMfd para true e venda o item, depois volte ele para false.

Fazendo isso, o item será arredondado na venda.

Abraços.

[Daniel_FC]

Obrigado lampada

mas este comando so funciona com a swedastx, ou posso usar sempre que for uma ecf MFD, pq dai vou

colocar no meu codigo em tempo de execução, antes do venda item.

isso é correto?

fico no aguardo.

[lampada]

Então cara, não são todas impressoras que permitem indicar o IAT ( indicador de Arredondamento e Truncamento ).

Você deve usar com precaução...

O IAT serve para isso mesmo, não há problema em usar ele.

[Daniel_FC]

Boa explicaçao ampada .

pergunto a vc que tem uma boa experiencia, no assunto.

quais as ecf que vc conhece que tenha IAT.

meus clientes tem as seguintes mfd

Bematech:

Sweda: Obs ; esta opçao, eu uso tb para as ecf SwedaSTX na ora de ativar meu pdv e funciona pode isso.

SwedaSTX:

FiscNET:

Epson:

agradeço desde-ja pela sua ajuda.

obrigado.

[kenio_c]

Olá amigao!

Eu tinha muito esse problema aki, entao resolvi fazer uma função que arredonda todos os valores

{+-----------------------------------------------------------------+

Arredondamento Financeiro ex: 2,556 = 2,55

                              2,567 = 2,56                                  I

+-----------------------------------------------------------------+}

function ArredFinanceiro(Value: Extended; Decimals: integer; ParaECF: Boolean): Extended;

var Factor, Fraction, Teste : Extended;

begin

   Factor := IntPower(10, Decimals);

   { A conversão para string e depois para float evita

     erros de arredondamentos indesejáveis. }

   Value := StrToFloat(FloatToStr(Value * Factor));

   Teste := Int(Value);

   Fraction := Frac(Value);


   if not ParaECF then

   begin

      if Fraction > 0.5 then

         Teste := Teste + 1

      else if Fraction <= -0.5 then

        Teste := Teste - 1

      else if Fraction = 0.5 then

         Teste := Value - Fraction;

   end;


   Teste := Teste / Factor;

   Result := Teste;

end;

[lampada]

Olá, nas swedas térmicas todos os modelos tem IAT desde que a versão do software básico seja a maior que a 'D'.

Nas bematechs apenas dos modelos mp 4000 th pra cima

Nas darumas e outros modelos eu não sei dizer, tem que dar uma olhada no manual ou especificação da impressora.

[Daniel Simoes]

Kenio_c,

Se você ativar a propriedade ArredondaPorQtd, o ACBrECF fará uma conta semelhante

[Daniel_FC]

Daniel Simoes.

Olha só, acho que estou fazendo alguma coisa errada ou nao estou entendendo a sintax.

Veja esta etiqueta impressa da balanca, que tenha em mao. preciso de ajuda.

Tomate L. Vida kg

Peso; 1,532kg

preco/Kg R$; 1,49

Total R$; 2,28

Rotina codigo fonte do meu pdv.

     if (PPESO = 'S') and (copy(Trim(vCBARRA),1,1) = '2') and (TMEAN = 13) then

      begin

        RVALOR       := (StrToFloat(copy(vCBARRA,8,5))/100);

        FQtde.Value := (RVALOR/PVALOR);  aqui eu acho o peso e jogo para um fnpNumeric com 3 casa decimal

        PQTD          := FQtde.Value;   aqui alimento a variavel para mandar para impressora.  junto com o preco unitaria de  1,49 do cadastro. db

      end;

 ai segue para a impressao na ecf.


          if (ImpFiscal.EmLinha(1)) then

          begin

            ImpFiscal.VendeItem(PEAN,PDESCRICAO,PICMS,PQTD,PVALOR,0,PUNID);

          end else

          begin

            Sleep(2000);

            ImpFiscal.VendeItem(PEAN,PDESCRICAO,PICMS,PQTD,PVALOR,0,PUNID);

          end;

sebe o que ela imprime a ecf.

S W E D A

Rua Dona Brígida, 713

Vila Mariana - São Paulo - SP

CNPJ: 53.485.215/0001-06

IE: 111.072.115.110

IM: 111.111.111.111

SIMULADOR SWEDA CONNECT/SIM

————————————————————————————————————————————————————————

21/12/2011  12:02:13  CCF:000057              COO:000101

          CUPOM FISCAL

ITEM CÓDIGO      DESCRIÇÃO

QTD.     UN.  VL UNIT(R$)     ST             VL ITEM(R$)

1 115 TOMATE L. VIDA KG 1,53 x 1,49 I1             2,27

                                     ——————————————————

TOTAL R$                                           2,27

Dinheiro                                           4,00

TROCO R$                                           1,73

            SUPERMERCADO NENE           


011 - SUPERVISOR  -  Gerente: Gerente   

————————————————————————————————————————————————————————

EULgcJQWZV(sCQB?xGuud@NZcELhK5KtAeDdzItauuTr7Fgt*3Ive

SWEDA IF ST200

ECF-IF VERSÃO: 01.00.01 ECF: 001 

ARZZZOE 21/12/2011 12:02:24

FAB: 00000000000000000001                             BR

Amigos nao to conceguindo achar um meio termo para isso, tb tenho balança no pdv junto.

e preciso acertar tanto na impressao da balanca do pdv por causa do imetro, e tb na da etiqueta

que vem do hortifrit, açougue..

me ajudem pessoal.

obrigado.

[Daniel Simoes]

E quantas casas decimais está programada no ECF, na Qtd e no Preço ?

Se for 2, o próprio ECF fará o truncamento do valor

[Daniel_FC]

Daniel.

Eu sempre deixo assim para todas as ecf.

Qtd 3 casas

Preco 2 Casas

meus clientes sao todos de mercado. com varias ecf mfd e Matricial.

[Daniel Simoes]

Emita uma leitura de memoria fiscal e verifique se realmente está programado desta maneira do ECF

[Daniel_FC]

Eu testei pelo AcbrECFTeste o seguinte fleg.

Ativar

- + - + - + - + - + - + - + - + - + - + - + -

Arredondamento: NAO

e esta me retornando isso.

mas o mais engraçado é que ativei apropriedade

ArredondamentoPorQtde = true

ai a ecf fez igualzinho o que esta na etiqueta da balanca especificado mais acima.

so que dai quando regirto, o item da balança do pdv, fica errado a qtd ref. ao display de peso.

nao sei mais o que fazer.

[Daniel Simoes]

O ArredondaPorQtd irá ajustar a QTD em + ou - 0,001 até o valor Total truncado bater com o valor arredondado desejado... Ou seja, ele Modifica a QTD

É necessário capturar do ECF o numero de casas decimais para a Qtd e P.Unit... Isso é exibido no relatório de Leitura de Memória Fiscal.. veja um exemplo:

N�mero de Redu��es Restantes:               1363

                  DADOS GERAIS                  

                SOFTWARE B�SICO                 

01.01.00                    14/04/2008 11:48:09 

01.01.01                    12/02/2010 13:44:05 

MOEDA: R                    02/05/2008 08:19:59 

QUANTIDADE: 03              02/05/2008 08:19:59 

VALOR UNIT�RIO: 03          02/05/2008 08:19:59 [/code]

No Exemplo acima o ECF foi programa para 3 casas em ambos os campos

[Daniel_FC]

OK,

Daniel.

Na minha ecf que estou testando, esta igual ao teu exemplo anterior.

Pergunto;

se tiver desta forma

QUANTIDADE: 03 02/05/2008 08:19:59

VALOR UNITRIO: 03 02/05/2008 08:19:59

Devo usar o ArredondaPorQtde = true

ou

se tiver desta forma

QUANTIDADE: 03 02/05/2008 08:19:59

VALOR UNITRIO: 02 02/05/2008 08:19:59

Devo usar o ArredondaPorQtde = false

entao qual seria a forma correta. preciso que quando registrado o item fique o valor na ecf igual ao da etiqueta.

to quase acertando..

[Daniel Simoes]

O ArredondaPorQtd é um "POG" (Programação Orientada a Gambiarra)... deve ser usado apenas quando o ECF não faz nenhum tipo de arredondemento

Tente a propriedade ArredondaItemMFD.

O Cupom que vc havia enviado antes imprime o P.Unitário com apenas 2 casas... e há o Truncamento (default nas MFDs)

1 115 TOMATE L. VIDA KG 1,53 x 1,49 I1 2,27

[Daniel_FC]

Bom dia, Daniel.

Já avia testado o ArredondaItemMFD, mas nao vi resultado.

com o ArredondaPorQtde agora esta funcionando, so nao consegui ver se com a balança no pdv vai dar certo.

quero saber se este comando 'ArredondaPorQtde' , eu consigo setar true ou falso em execuxao?

Pq eu vou testar sempre ante de venderItem, se for etiqueta da balança e impressora MFD, eu passo pra true, e se for balança no pdv passo pra falso.

para nao correr o risco.

apos isso podemos fechar o post.

Obrigado a todos pelas dicas.

vou ir para pratica..

rsrssr

[Daniel Simoes]

O Arredondamento por Item em MFD é algo novo.. ou seja, apenas os ECFs mais novos possuem essa característica...

Sim, você pode modificar o ArredondaPorQtd em Run-Time, e a cada Item vendido... Observe porém, que com ele, a QTD impressa no ECF não será a mesma da etiqueta da Balança (alguns clientes não gostam disso)... e se o preço Unitário do produto do produto for muito alto.. ele não funcionará...