Impressão Item Cupom

[Ademir P. Voigt]

Boa Tarde!

Recebemos uma impressora fiscal Elgin K para testes. finalmente...

 

Porem, a mesma não impreme o item.

Faz varias operações:

Redução

Leitura X

Cancela Cupom

Abre Cupom

 

Mas não vende Item.

Fiz um teste pelo demo do acbr ECFTeste.exe e vendeu normalmente dessa forma:

 

Form1.ACBrECF1.VendeItem( edCodigo.Text, edDescricao.Text,

                               edICMS.Text, StrToFloatDef( edQtd.Text, 0 ),

                               StrToFloatDef( edPrecoUnita.Text,0 ),

                               StrToFloatDef( edDesconto.Text,0 ), edUN.Text,

                               Desc );

Log do ECFTeste.exe

 

-- 16:17:23:767 VendeItem( 111222333 , TESTE DE PRODUTO , NN , 1 , 1 , 0 , UN , $ , D , -1 )

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

   16:17:24:121 RX <- {13;0;;6}

-- 16:17:24:124 Arredonda

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

   16:17:24:265 RX <- {14;0;ValorInteiro=0;20}

 

Nosso Sistema:

ACBrECF1.VendeItem(MyQrItensproduto_id.AsString,

          MyQrItensproduto_nome.AsString, MyQrItensaliquota.AsString,

          StrToFloatDef(MyQrItensquantidade.AsString, 0),

          StrToFloatDef(MyQrItensvalor.AsString, 0),

          StrToFloatDef(EditDesconto.Text, 0), MyQrItensun.AsString,

          Desc );

 

Log:

-- 16:20:00:454 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 )

                TX -> {102;LeInteiro;NomeInteiro="Arredondamento";43}

   16:20:00:595 RX <- {102;0;ValorInteiro=0;21}

 

Percebi que falta a linha:

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

 

Se usar o emulador da Sweda não tenho problemas nenhum. Inclusive, em um cleinte nosso tem uma impressora igual a que recebemos para testes.

 

[André Ferreira de Moraes]

Anexe o log completo da sua aplicação, desde o ATIVAR até o momento que ocorre o erro.

[Ademir P. Voigt]

-- 16:19:59:557 AbreCupom( , ,  )

                TX -> {98;AbreCupomFiscal;;20}

   16:19:59:988 RX <- {98;0;;6}

-- 16:19:59:991 NumCCF

                TX -> {99;LeInteiro;NomeInteiro="CCF";31}

   16:20:00:129 RX <- {99;0;ValorInteiro=27;21}

-- 16:20:00:133 NumCupom

                TX -> {100;LeInteiro;NomeInteiro="COO";32}

   16:20:00:257 RX <- {100;0;ValorInteiro=71;22}

-- 16:20:00:314 Estado

                TX -> {101;LeInteiro;NomeInteiro="EstadoFiscal";41}

   16:20:00:450 RX <- {101;0;ValorInteiro=2;21}

-- 16:20:00:454 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 )

                TX -> {102;LeInteiro;NomeInteiro="Arredondamento";43}

   16:20:00:595 RX <- {102;0;ValorInteiro=0;21}

-- 16:20:00:598 

                TX -> {103;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";90}

   16:20:00:652 RX <- {103;11005;NomeErro="ErroProtParamIndefinido" Circunstancia="ao verificar parametros do comando";96}

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

Erro retornado pela Impressora: FiscNET: ELGIN - K

 

Erro: 11005 - ErroProtParamIndefinido

ao verificar parametros do comando

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

 

 

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

ATIVAR - 26/11/14 16:48:59:761 - Modelo: FiscNET - Porta: COM3 - TimeOut: 3

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

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

 

-- 16:48:59:809 

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

   16:48:59:950 RX <- {1;0;ValorTexto="01.00.05";26}

-- 16:48:59:954 

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

   16:49:00:098 RX <- {2;0;ValorTexto="MD-5:AXAXAXAXAXAXAXAXAXAXAXAXAXAXAXAX[LF]Demo ACBrECF";68}

-- 16:49:00:102 

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

   16:49:00:243 RX <- {3;0;ValorTexto="ELGIN";23}

-- 16:49:00:246 

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

   16:49:00:387 RX <- {4;0;ValorTexto="K";19}

-- 16:49:00:425 Estado

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

   16:49:00:563 RX <- {5;0;ValorInteiro=1;19}

-- 16:49:00:567 

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

   16:49:00:708 RX <- {6;0;ValorInteiro=14400;23}

-- 16:49:00:712 Estado

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

   16:49:00:852 RX <- {7;0;ValorInteiro=1;19}

-- 16:49:00:855 

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

   16:49:00:996 RX <- {8;0;ValorInteiro=14400;23}

-- 16:49:00:999 TestaPodeAbrirCupom

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

   16:49:01:140 RX <- {9;0;ValorInteiro=1;19}

-- 16:49:01:143 

                TX -> {10;LeInteiro;NomeInteiro="Indicadores";39}

   16:49:01:268 RX <- {10;0;ValorInteiro=14400;24}

-- 16:49:01:306 Estado

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

   16:49:01:445 RX <- {11;0;ValorInteiro=1;20}

-- 16:49:01:448 

                TX -> {12;LeInteiro;NomeInteiro="Indicadores";39}

   16:49:01:589 RX <- {12;0;ValorInteiro=14400;24}

-- 16:49:08:215 AbreCupom( , ,  )

                TX -> {13;AbreCupomFiscal;;20}

   16:49:08:646 RX <- {13;0;;6}

-- 16:49:08:651 NumCCF

                TX -> {14;LeInteiro;NomeInteiro="CCF";31}

   16:49:08:784 RX <- {14;0;ValorInteiro=28;21}

-- 16:49:08:788 NumCupom

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

   16:49:08:928 RX <- {15;0;ValorInteiro=72;21}

-- 16:49:09:240 Estado

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

   16:49:09:377 RX <- {16;0;ValorInteiro=2;20}

-- 16:49:09:381 VendeItem( 85 , CUCA QUALITY 1 , NN , 1 , 11,5 , 0 , UN , $ , D , -1 )

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

   16:49:09:523 RX <- {17;0;ValorInteiro=0;20}

-- 16:49:09:526 

                TX -> {18;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";89}

   16:49:09:588 RX <- {18;11005;NomeErro="ErroProtParamIndefinido" Circunstancia="ao verificar parametros do comando";95}

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

Erro retornado pela Impressora: FiscNET: ELGIN - K

 

Erro: 11005 - ErroProtParamIndefinido

ao verificar parametros do comando

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

[Ademir P. Voigt]

Parece não estar indo o nome no produto, mas no VendeItem tem o nome

[Régys Silveira]

O que você está passando em Alíquota?

[Ademir P. Voigt]

O Mesmo que o ecfteste.exe:

NN

[Ademir P. Voigt]

analisando essa linha:

TX -> {18;VendeItem;CodAliquota=-4 CodProduto="85" PrecoUnitario=11,5 Quantidade=1 Unidade="UN";89}

Falta o Nome do produto

 

Coisa que o ECFteste.exe está mandando.

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

[André Ferreira de Moraes]

Com qualquer produto ocorre o mesmo erro no seu sistema?

[Ademir P. Voigt]

Sim, mesmo colocando o nome fixo: 'teste de produto'

 

Eu coloquei uns showmessage na unit ACBrECFFiscNET 

      AddParamInteger('CodAliquota', CodAliq);

      AddParamString('CodProduto', LeftStr(Codigo, 48));

      AddParamString('NomeProduto', LeftStr(Descricao, 200));

      AddParamDouble('PrecoUnitario', ValorUnitario);

      AddParamDouble('Quantidade', Qtd);

      AddParamString('Unidade', Unidade);

 

      ShowMessage(IntToStr(CodAliq));

      ShowMessage(Descricao);

Onde Descrição sempre retorna vazia. O CodAliq retorna -4 corretamente

[Ademir P. Voigt]

O que acontece é o seguinte:

Tinha o campo pagina de codigo como 80.

 

E dai olhando todas as funcionalidades que envolviam o campo descrição, encontramos:

fsECF.VendeItem( Codigo, CodificarPaginaDeCodigoECF( Descricao ),

 

Dai vimos que tinha algo relacionado quando a pagina de codigos fosse > 0.

 

Ajustei no sistema e agora funciona normalmente.

 

O que seria essa função PAGINA DE CODIGO?

 

Quando devo colocar algum valor?

[Régys Silveira]

Esse valor é configurado automaticamente pelo modelo da impressora.

Se configurado manualmente deve seguir o manual da impressora, colocando o valor que o manual informa.