Truncamento no Item MP4000 TH FI

[Gutierres]

Bom dia

Não estou conseguindo fazer venda de item truncado na mp 4000 th fi

ex . vendo nela um produto a 0,139 x 1,19 = 0,17 onde truncada deveria dar 0,16 como faço

Obrigado

[lampada]

A impressora está arredondando?

Ou é na bobina?

Pode detalhar melhor?

[Gutierres]

Obrigado

A impressora Mp4000 th fi esta truncada

quando vendo o item no acbr esta arredondando e no aplicativo da bematech sai trucado eu queria que no abcr tambem fosse tuncado na venda do item

Obrigado

[Daniel Simoes]

Verifique a propriedade ArredondaItemMFD

[Gutierres]

ArredondaItemMFD esta como FALSE estou fazendo no ECFTeste para Daruma esta ok mas para a bematech mp 4000 th fi nao esta funcionando

[lampada]

Em tempo de execução verifique a propriedade Arredonda.

Ela deve estar false, se estiver true é algum problema na hora de pegar se a impressora arredonda ou trunca na unit da bematech

[Gutierres]

O Arredonda em Tempo de Execução esta False tambem

[Daniel Simoes]

Copie o LOG aqui, veja com o Debug qual dos IFs de ACBrECFBematech.VendeItem está sendo executado

[Gutierres]

if fpMFD and fsVendeItemExtendido then

   begin

     BytesResp   := 0 ;

     Codigo      := padL(Codigo,14) ;

     QtdStr      := IntToStrZero( Round( Qtd * 1000), 7) ;

     ValorStr    := IntToStrZero( Round( ValorUnitario * 1000), 8) ;

     AcrescimoStr:= StringOfChar('0',4) + #0;

     DescontoStr := AcrescimoStr;


     try

        if ValorDescontoAcrescimo <> 0 then

        begin

             if DescontoAcrescimo = 'A' then

                AcrescimoStr := IntToStrZero( Round(ValorDescontoAcrescimo * 100),

                     ifthen(TipoDescontoAcrescimo = '%', 4, 8) ) + #0

             else

                DescontoStr := IntToStrZero( Round(ValorDescontoAcrescimo * 100),

                     ifthen(TipoDescontoAcrescimo = '%', 4, 8) ) + #0

        end ;


        EnviaComando(#62 + #73 +

                           Codigo + AliquotaECF + Unidade + QtdStr + ValorStr +

                           DescontoStr + AcrescimoStr + Descricao + #0 );

     except

       On E : Exception do

       begin

          if TestBit(ST1,2) then  // Comando inexistente ?

           begin

             fsVendeItemExtendido := False;

             VendeItem( Codigo, Descricao, AliquotaECF, Qtd, ValorUnitario,

                        ValorDescontoAcrescimo, Unidade, TipoDescontoAcrescimo,

                        DescontoAcrescimo );

             exit ;

           end

          else

             raise ;

       end ;

     end ;

   end

acbrlog.txt

[Daniel Simoes]

O código do ACBrECF eu também tenho aqui... não precisa copia-lo... apenas preciso saber em qual dos IFs acima ele está caindo

[Gutierres]

Desculpe se não te entendi mandei a parte do código que esta passando

mas vamos la

entra em

if fpMFD and fsVendeItemExtendido then

depois vai para

EnviaComando(#62 + #73 +

Codigo + AliquotaECF + Unidade + QtdStr + ValorStr +

DescontoStr + AcrescimoStr + Descricao + #0 );

e pronto sai do comando

[Daniel Simoes]

Pelo LOG , notei que está sendo enviado o comando #62 + #73 - VENDA DE ITEM COM DESCRIÇÃO EXTENDIDA

- 11:20:58 VendeItem( 111222333 , TESTE DE PRODUTO , NN , 0,139 , 1,19 , 0 , UN , % , D )

TX -> [sTX]A[0][28]>I111222333 NNUN0000139000011900000[0]0000[0]TESTE DE PRODUTO[0]'[CR]

11:20:58 RX

Os valores estão sendo enviados corretamente... Provavelmente há alguma programação no ECF para Arredondar.... Entre em contato com o Suporte técnico da Bematech para saber se há algo que possa influenciar o comando 62+73

[Gutierres]

Conforme solicitado entrei com contato com a bematech e eles me disseram que esta impressora tem 2 tipos de impressao arredondado e truncada

eles mandou eu Utilize o comando ESC 09 ou ESC 63 para truncar mas disseram que os parametros são diferentes

e usar este 62 73 para arredonda

eles me enviaram o manual como referencia

6768 - MP2100 TH FI USR PT Web - Rev.1.1

nao teve como enviar ele aqui pelo tamanho

[Daniel Simoes]

Acredito que os manuais já estão em nosso repositório - https://acbr.svn.sourceforge.net/svnroot/acbr/tools/

Por favor copie aqui a resposta do Suporte da Bematech

[EMBarbosa]

Verifiquei lá, o Manual que temos lá está nessa mesma revisão.

[Gutierres]

Desculpe não ter respondido antes estava sem internet

Gutierres para Bematech

Boa tarde estou realizando a venda na MP 4000 TH FI e esta acontecendo algo estranho ao vender um item pelo comando ESC 62 73 a venda do item sai arredondado eu queria que fosse truncada lembrando que o equipamento esta truncado existe algum outro comando que devo passar ante deste para que o total do item possa ficar arredondado

Bematech para Gutierres

Segue o manual da impressora MP2100 TH FI.

Utilize o comando ESC 09 ou ESC 63.

Atenciosamente,

Iohannes Nakatani

Sobre o repositório sim o manual é o mesmo que esta em tools/Bematech/MP-2100-TH-FI_6768.pdf

[Daniel Simoes]

Estranho no manual da MP4000 não nenhuma menção de que o comando 62 73 sempre irá arrendondar... o uso dele é preferível pois ele tem um controle melhor sobre Descontos / Acréscimos...

Experimente modificar a linha 705 para:

fsVendeItemExtendido := fpArredondaItemMFD;

Isso fará o ACBrECF usar esse comando apenas quando o Arredondamento é desejado, caso contrário ele cairá nos outros IFs, que já usam o comando 63

[Gutierres]

apos ter adicionado o comando acima agora esta acontecendo de vender um item e ele emitir 2 no ecf veja log

-- 20:32:49 AbreCupom( , , )

TX -> [sTX][4][0][28][0][28][0]

20:32:52 RX <- [0][0][0][0]

-- 20:32:52 NumCupom

TX -> [sTX][4][0][28][30]:[0]

20:32:52 RX <- [0][sTX]&[0][0][0][0]

-- 20:32:52 Estado

TX -> [sTX][5][0][28]#[17]P[0]

20:32:52 RX <- ![0][0][0][0]

-- 20:32:55 VendeItem( 111222333 , TESTE DE PRODUTO , NN , 1 , 1 , 0 , UN , % , D )

TX -> [sTX][5][0][28]#[28][[0]

20:32:55 RX <- [0][0][0][0][0]

-- 20:32:55

Bematech EnviaComando_ECF: ACK = 0 Falha: 1

TX -> [sTX]][0][28]?NN0000010000001000000000000000000000000000000000000000000000UN111222333[0]TESTE DE PRODUTO[0][185][18]

20:32:58 RX <- [0][0][0][0]

-- 20:32:58 Estado

TX -> [sTX][5][0][28]#[17]P[0]

20:32:58 RX <- ![0][0][0][0]

-- 20:33:59 18/07/2011 Ativar

TX -> [sTX][4][0][28][19]/[0]

20:34:00 RX <- [sTX][0][0][0]

-- 20:34:00

TX -> [sTX][5][0][28]#)h[0]

20:34:00 RX <- [1][0][sTX][0][0][0][0]

-- 20:34:00

TX -> [sTX][5][0][28]#<{[0]

20:34:00 RX <- BEMATECH MP-4000 TH FI ECF-IF [0][0][0][0]

-- 20:34:00

[Daniel Simoes]

Não acredito que essa alteração cause esse efeito... pois ela simplesmente nunca cairá no IF

Por favor faça um teste usando o projeto demo ECFTeste