DescontoAcrescimoItemAnterior SwedaSTX

[sandrojca]

Eu tinha implementado o DescontoAcrescimoItemAnterior para SwedaSTX, mas acho que se perdeu nos fonte, refiz a procedure será que alguém poderia implementar acrescentar no arquivo ACBrECFSwedaSTX.pas?

Procedure TACBrECFSwedaSTX.DescontoAcrescimoItemAnterior(ValorDescontoAcrescimo :

Double; DescontoAcrescimo : String);

begin

if (DescontoAcrescimo = 'A') then

EnviaComando('03|' + AjustaValor(ValorDescontoAcrescimo))

else

EnviaComando('04|' +AjustaValor(ValorDescontoAcrescimo)) ;

end;

[lampada]

Você tinha pedido para alguém adicionar nos fontes do svn anteriormente ou só tinha feito no seu ?

[sandrojca]

Oi Fernando, eu tinha postado no forum, alguém ficou de adicionar mas não me lembro que foi.

Tem como adicionar?

Grato

[EMBarbosa]

Não achei o tópico sandro... vc pode mencionar qual foi?

[sandrojca]

Elton, já faz tem, acho que tem mais ou menos uns 6 meses. Teria como adicionarem a rotina que enviei?

[EMBarbosa]

Emerson, já faz tem, acho que tem mais ou menos uns 6 meses. Teria como adicionarem a rotina que enviei?

Ainda assim, se tivesse postado aqui no fórum deveria ser fácil localizar... eu não achei... Agora se postou lá no ForumWeb eu não pesquisei por lá...

Lampada, tem como vc testar e anexar a unit atualizada com essa correção? eu posso subir se estiver tudo certo...

Taí, por onde anda o Emerson??

[sandrojca]

Emerson, já faz tem, acho que tem mais ou menos uns 6 meses. Teria como adicionarem a rotina que enviei?

Ainda assim, se tivesse postado aqui no fórum deveria ser fácil localizar... eu não achei... Agora se postou lá no ForumWeb eu não pesquisei por lá...

Lampada, tem como vc testar e anexar a unit atualizada com essa correção? eu posso subir se estiver tudo certo...

Taí, por onde anda o Emerson??

Elton, foi na época do forumweb

Obrigado

[EMBarbosa]

agora eu achei aqui

[Daniel Simoes]

Bom... já fiz o Merge... logo logo eu envio...

[lampada]

Desculpe a minha demora.

Eu procuro sempre atualizar os fontes antes de aplicar as correções, mas posso ter falhado.

Me desculpe.

Abraços.

[Daniel Simoes]

Imagina... acho que nesse caso eu fui o primeiro que "comeu de barriga"

infelizmente é o acumulo de tarefas

[sandrojca]

Fernando,

implementamos para bematech também.

Procedure TACBrECFBematech.DescontoAcrescimoItemAnterior(ValorDescontoAcrescimo : Double; DescontoAcrescimo : String);

begin

if fpMFD and (Pos(Trim(GetSubModeloECF), 'MP-7000 TH FI') > 0) then

EnviaComando('02' + '0000' + IntToStrZero( Round(ValorDescontoAcrescimo * 100) ,12) )

else

EnviaComando('02' + padL(FormatFloat('00.00',ValorDescontoAcrescimo),10) +

IntToStrZero( Round(ValorDescontoAcrescimo * 100) ,12) ) ;

end;

Já funcionando em clientes.

[Daniel Simoes]

Oi Sandro,

Muito obrigado mais uma vez...

Esse comando está descrito em algum manual ? Não achei o comando 02 em nenhum dos manuais que eu tenho...

Ele tb funciona para o caso de acréscimo ?

[sandrojca]

Boa noite Daniel,

Eu tirei esse comando da função imprime item, na verdade a função vende item quando tem desconto, ela faz exatamente isso, vende o item e depois da um desconto em um item anterior.

[sandrojca]

Boa noite Daniel,

Eu tirei esse comando da função imprime item, na verdade a função vende item quando tem desconto, ela faz exatamente isso, vende o item e depois da um desconto em um item anterior.

Testei apenas com desconto.

[Daniel Simoes]

Enviei para o SVN modificações com a implementação do método DescontoAcrescimoItemAnterior para os modelos:

ACBrECFBematech, ACBrECFDaruma, ACBrECFFiscNet, ACBrECFEpson, ACBrECFSwedaSTX

[giulianon]

Bom dia Daniel!
 
Pretendo em utilizar desse método DescontoAcrescimoItemAnterior, e para isso resolvi testar o mesmo com as marcas de ecf que meus clientes utilizam.
 
Bematech, Daruma, Sweda e Epson OK.
 
Com o FiscNet está retornando o erro que consta no log abaixo, gerado com testes feitos com o ECFTeste compilado agora com a última versão do ACBR.

 

 

 

--------------------------------------------------------------------------------

ATIVAR - 10/01/13 11:25:58:097 - Modelo: FiscNET - Porta: COM5 - TimeOut: 3

         Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0

--------------------------------------------------------------------------------

 

-- 11:25:58:098 

                TX -> {1;LeTexto;NomeTexto="VersaoSW";31}

   11:25:58:251 RX <- {1;0;ValorTexto="03.00.00";26}

-- 11:25:58:251 

                TX -> {2;LeTexto;NomeTexto="TextoLivre";33}

   11:25:58:404 RX <- {2;0;ValorTexto="";18}

-- 11:25:58:404 

                TX -> {3;LeTexto;NomeTexto="Marca";28}

   11:25:58:562 RX <- {3;0;ValorTexto="ZPM";21}

-- 11:25:58:562 

                TX -> {4;LeTexto;NomeTexto="Modelo";29}

   11:25:58:718 RX <- {4;0;ValorTexto="Simulador V1.00";33}

-- 11:25:58:718 Estado

                TX -> {5;LeInteiro;NomeInteiro="EstadoFiscal";39}

   11:25:58:875 RX <- {5;0;ValorInteiro=1;19}

-- 11:25:58:875 

                TX -> {6;LeInteiro;NomeInteiro="Indicadores";38}

   11:25:59:029 RX <- {6;0;ValorInteiro=14400;23}

-- 11:25:59:037 Estado

                TX -> {7;LeInteiro;NomeInteiro="EstadoFiscal";39}

   11:25:59:203 RX <- {7;0;ValorInteiro=1;19}

-- 11:25:59:203 

                TX -> {8;LeInteiro;NomeInteiro="Indicadores";38}

   11:25:59:357 RX <- {8;0;ValorInteiro=14400;23}

-- 11:26:04:416 AbreCupom( , ,  )

                TX -> {9;AbreCupomFiscal;;19}

   11:26:04:656 RX <- {9;0;;5}

-- 11:26:04:657 NumCupom

                TX -> {10;LeInteiro;NomeInteiro="COO";31}

   11:26:04:819 RX <- {10;0;ValorInteiro=8;20}

-- 11:26:04:858 Estado

                TX -> {11;LeInteiro;NomeInteiro="EstadoFiscal";40}

   11:26:05:023 RX <- {11;0;ValorInteiro=2;20}

-- 11:26:08:498 VendeItem( 111222333 , TESTE DE PRODUTO , NN , 1 , 1 , 0 , UN , % , D , -1 )

                TX -> {12;VendeItem;CodAliquota=-4 CodProduto="111222333" NomeProduto="TESTE DE PRODUTO" PrecoUnitario=1 Quantidade=1 Unidade="UN";124}

   11:26:08:670 RX <- {12;0;;6}

-- 11:26:08:670 Arredonda

                TX -> {13;LeInteiro;NomeInteiro="Arredondamento";42}

   11:26:11:006 RX <- {13;11011;NomeErro="ErroProtNomeRegistrador" Circunstancia="Parametro NomeInteiro contem nome de registrador inexistente";121}

----------------- ERRO -----------------

Erro retornado pela Impressora: FiscNET: ZPM - Simulador V1.00

 

Erro: 11011 - ErroProtNomeRegistrador

Parametro NomeInteiro contem nome de registrador inexistente

----------------------------------------

 

-- 11:26:11:060 Estado

                TX -> {14;LeInteiro;NomeInteiro="EstadoFiscal";40}

   11:26:11:216 RX <- {14;0;ValorInteiro=2;20}

-- 11:26:24:202 DescontoAcrescimoItemAnterior( 0,2 , D , $ , 1 )

                TX -> {15;AcresceItemFiscal;ValorAcrescimo=-0,2 NumItem=1 Cancelar=f;62}

   11:26:28:886 RX <- {15;8047;NomeErro="ErroCMDDescontoItemInvalido" Circunstancia="Desconto nao pode ser maior ou igual do que o total do item";123}

----------------- ERRO -----------------

Erro retornado pela Impressora: FiscNET: ZPM - Simulador V1.00

 

Erro: 8047 - ErroCMDDescontoItemInvalido

Desconto nao pode ser maior ou igual do que o total do item

----------------------------------------

 

Fiz o teste usando o Demolog2 e funcionou certinho.

 

Vou tentar depurar aqui e corrigir, mas se alguém ai já tiver passado por esse problema e puder dar alguma dica, agradeço.

 

Att.

 

[Juliomar Marchetti]

Boa tarde

sim veja esse trecho do log

 

"11:26:28:886 RX <- {15;8047;NomeErro="ErroCMDDescontoItemInvalido" Circunstancia="Desconto nao pode ser maior ou igual do que o total do item";123}"

 

está ali o problema o Desconto não pode ser maior ou igual do que o total do item

 

[giulianon]

Boa tarde

sim veja esse trecho do log

 

"11:26:28:886 RX <- {15;8047;NomeErro="ErroCMDDescontoItemInvalido" Circunstancia="Desconto nao pode ser maior ou igual do que o total do item";123}"

 

está ali o problema o Desconto não pode ser maior ou igual do que o total do item

 

 

Mas não é Juliomar. Pode observar ali em cima que o item é R$ 1,00 e estou dando um desconto de R$ 0,20. Esse mesmo teste foi feito com as outras marcas e funcionou certinho.

 

Por isso achei estranho. 

Testei com um item de R$ 5,00 dando um desconto de R$ 0,20, pois achei que o protocolo pudesse estar considerando R$ 2,00 em vez de R$ 0,20 mas não funcionou também.

 

Vou continuar depurando aqui pra ver se descubro.

 

Obrigado!

[Juliomar Marchetti]

Correto Giuliano

 

vi que tem um outro erro logo após efetuar a venda do item sobre arredondamento?

chegou a passar debugando quando é chamado isso?

 

Mas não é Juliomar. Pode observar ali em cima que o item é R$ 1,00 e estou dando um desconto de R$ 0,20. Esse mesmo teste foi feito com as outras marcas e funcionou certinho.

 

Por isso achei estranho. 

Testei com um item de R$ 5,00 dando um desconto de R$ 0,20, pois achei que o protocolo pudesse estar considerando R$ 2,00 em vez de R$ 0,20 mas não funcionou também.

 

Vou continuar depurando aqui pra ver se descubro.

 

Obrigado!

[Daniel Simoes]

Fiz o teste usando o Demolog2 e funcionou certinho.

 

Veja o Log gerado pelo Demolog... compare com o gerado pelo ACBrECF

[giulianon]

Descobri.

 

É a ordem que os parâmetros são adicionados.

 

Segue anexo arquivo corrigido.

 

Att.

ACBrECFFiscNET.pas

[Daniel Simoes]

Obrigado pela correção... aplicada no SVN...