Ir para conteúdo
  • Cadastre-se

Intelliware

Membros Pro
  • Total de ítens

    339
  • Registro em

  • Última visita

Tudo que Intelliware postou

  1. No caso, não chega a disparar nenhum exception. Também não passa pelo tratamento: procedure Tecf.AcbrEcfErrorSemPapel(Sender: TObject); begin statusPapelECF := 'E'; end;
  2. Entendi. No caso acima, seria de sem papel. Vou fazer um teste com pouco papel.
  3. Daniel, estou chamando a função dessa maneira: ecf.AcbrECF.EnviaComando('34'); Na unit 'ACBrSwedaSTX.pas' na linha: BS1 := Ord(copy(fpRespostaComando,12,1)[1]) Quando o ECF estava normalmente com papel, acusou: BS1 := 128 Depois avancei o papel até ela ficar em estado de erro, acusou: BS1 := 192 Na flag 'fsPoucoPapel' ficou como 'False'. No log do ECF em anexo apareceu o seguinte registro: -- Ativando a porta: COM1 -- 12:32:18:012 EnviaComando( 34 ) TX -> [STX]?34[ETX][171] 12:32:31:056 RX <- ACK = 6 Falha: 0 TimeOut estendido 12:32:34:112 RX <- (Bloco) = [STX]?34+0000AA[192][129][146][128][128][ETX][235] TX -> ACK = 6 Falha: 0 12:35:02:248 RX <- [STX]?34+0000AA[192][129][146][128][128][ETX][235] -- Desativando a porta: COM1 Abri o lacrador, acusou sem papel. LOG-SwedaST120.rar
  4. Bom dia Daniel. Agradeço. Já estamos atualizando aqui e começando os testes. Assim que tivermos os resultados posto aqui.
  5. Beleza Daniel. Agradeço.
  6. Bom dia pessoal. Estávamos verificando aqui, temos a function: AcbrEcf.EnviaComando() Daniel, teria como enviar um comando para a Sweda e depois analisar o sinalizador de pouco papel? Tínhamos efetuado três tratamentos para pouco papel que no momento não estão mais funcionando e estamos buscando uma condição de contorno. Desde já agradecemos.
  7. Olá pessoal, boa noite. O nosso RB-1000 chegou ontem. Os dados postados acima são de teste para utilizar com o ACBrSAT durante o desenvolvimento?
  8. Pior Daniel, acabou não anexando o log. Estou anexando um log do nosso sistema e um log utilizando o ECFTeste. Espero que possa ajudar. Se precisar de mais algum teste ou de mais dados, por favor nos informe. No aguardo. Desde já agradeço. LOG-ECFTeste-20150602.TXT LOG-Sistema-20150601.TXT
  9. Boa tarde pessoal. Estamos fazendo algumas melhorias no nosso sistema em relação a impressão no ECF. Verificamos que no ECF Sweda ST120 utilizando o protocolo SwedaSTX não retorna corretamente a flag 'PoucoPapel'. Mesmo dando exceção devido a falta de papel em um relatório gerencial, não passou pelo evento 'AcbrEcfErrorSemPapel' e sempre retorna False na flag citada acima. Verificamos no source que a variável 'fsPoucoPapel' é setada na unit 'ACBrECFSwedaSTX.pas': if Result and (Tipo = '!') then // Bloco de Satus não solicitado, Verificando begin // TODO: Mapear mudanças de estado, que não são erros Result := not (Erro in [40, // Abertura de Movimento 74, // Ejetando a Folha 98, // Processando 99, // Confirme 103..105, 109..111, // Eventos de Cheque 127, // Pouco Papel 159, // Preenchendo 172, // Preenchimento concluido 198, // Processando 200, // Leitura Mirc 207, // Autenticando 217, // Preparando Imp.Fita Det 220 // Emitindo Red.Z ]); if Erro = 217 then fsPoucoPapel := True; GravaLog(' Alteração de Estado: '+IntToStr(Erro)+'-'+DescreveErro(Erro) ) ; end; Em debug, não conseguimos localizar o retorno do ECF Sweda Tipo = '!' com Erro = 217 para poder setar pouco papel no ECF. A princípio pensamos que estivéssemos com um problema no sensor, mas utilizando o Lacrador 02.10.00, só o fato de abrir o programa já acusa pouco papel no ECF. Estou anexando um log que pode descrever os testes que estávamos realizando com maiores detalhes. Será que falta algum tipo de configuração no componente? Gostaríamos da opinião de vocês sobre o assunto.
  10. Boa tarde pessoal, ontem, efetuei o teste de instalar a ACBr no Delphi XE2 utilizando o ACBrInstall do trunk2 e funcionou normalmente. Agradeço a todos.
  11. Entendi. Encontrei no manual da Bematech o CODEPAGE 850. Passei a orientação para o pessoal de implantação não cadastrar as formas de pagamento com acentos.
  12. Ah sim, encontrei aqui. No nosso caso está setada para 0. Vou deixar em branco e pedir para fazer um teste no cliente. O que seria esta propriedade? Quais valores ela aceita?
  13. Bom dia Juliomar e Daniel. Juliomar, não encontrei o método/propriedade codepage do componente ACBrECF. Daniel, vou verificar esse problema de acentuação e qual versão do firmware do ECF. Agradeço.
  14. Interessante. Mas, no nosso caso as formas, são completamente diferentes EMBarbosa. Anexei uma imagem das formas cadastradas no ecf.
  15. Bom dia pessoal, Estamos com alguns problemas relacionados ao ECF MP-4000 TH FI no cliente. Ao tentar efetuar o fechamento em uma forma de pagamento TEF, estamos recebendo(1): -- 08:58:22:871 TX -> [STX]([NUL][FS]BCart[146]o Cr'dito 00000000002196001554[182][TAB] 08:58:22:937 RX <- ACK = 6 Falha: 0 08:58:22:963 VerificaFimImpressao: Pedindo o Status (19) 08:58:22:983 VerificaFimImpressao: ACK = 6, OK... Aguardando ST1 e ST2 08:58:22:993 RX <- [NUL][129][GS][NUL] ----------------- ERRO ----------------- Erro retornado pela Impressora: Bematech Meio de pagamento não permite tef ---------------------------------------- -- 08:58:23:006 TX -> [STX][20][NUL][FS]BCart[146]o Cr'dito [213][ENQ] 08:58:23:047 RX <- ACK = 6 Falha: 0 08:58:23:057 VerificaFimImpressao: Pedindo o Status (19) 08:58:23:072 VerificaFimImpressao: ACK = 6, OK... Aguardando ST1 e ST2 08:58:23:078 RX <- [NUL][129][GS][NUL] ----------------- ERRO ----------------- Erro retornado pela Impressora: Bematech Meio de pagamento não permite tef ---------------------------------------- -- 08:59:40:683 Estado TX -> [STX][ENQ][NUL][FS]#[WAK]P[NUL] 08:59:40:709 RX <- ACK = 6 Falha: 0 08:59:40:817 RX <- [NUL][NUL][NUL][NUL] Através da leitura X podemos observar que está configurado normalmente na forma de pagamento correspondente o vinculado. Observamos que sempre para esse erro o retorno é: RX <- [NUL][129][GS][NUL] Não sei se ajuda, mas observamos também, no log do ECF, que toda vez quando é impresso a Leitura X, temos(2): -- 13:12:29:658 LeituraX TX -> [STX][4][NUL][FS][ACK]"[NUL] 13:12:29:692 RX <- ACK = 6 Falha: 0 13:12:29:710 VerificaFimImpressao: Pedindo o Status (19) 13:12:31:212 VerificaFimImpressao: ACK = 0 - Falhas = 0 - Erro: ESynaSerError Communication error 9997: Timeout during operation 13:12:32:525 VerificaFimImpressao: ECF fora de linha 13:12:33:835 VerificaFimImpressao: ECF fora de linha 13:12:34:756 VerificaFimImpressao: Pedindo o Status (19) 13:12:34:771 VerificaFimImpressao: ACK = 6, OK... Aguardando ST1 e ST2 13:12:34:878 RX <- [NUL][NUL][NUL][NUL] O segundo problema já ocorreu em outros clientes e o Daniel nos passou em outros tópicos que seria problema na porta serial do computador. Gostaríamos da opinião de vocês em relação ao primeiro problema citado acima.
  16. Beleza Daniel, aguardando aqui para efetuar a atualização para o 'trunk2'.
  17. Boa tarde pessoal, estou tentando atualizar a ACBr no Delphi XE2 Update 4 HotFix 1, estou utilizando o caminho do SVN: https://svn.code.sf.net/p/acbr/code/trunk2 Estou instalando os componentes normalmente pacote por pacote. Quando vou instalar o pacote ACBrComum eu recebo erro nas seguintes linhas: LINHA 1731 - if AnsiStr[PosFim+1] <> CaracterQuebrar then // Proximo já é uma Quebra ? [DCC Error] ACBrUtil.pas(1731): E2015 Operator not applicable to this operand type + Possível correção: if Char(AnsiStr[PosFim+1]) <> CaracterQuebrar then // Proximo já é uma Quebra ? LINHA 1732 - while (AnsiStr[PosFim] <> CaracterQuebrar) and (PosFim > PosIni) do // Ache uma Quebra [DCC Error] ACBrUtil.pas(1732): E2015 Operator not applicable to this operand type + Possível correção: while (Char(AnsiStr[PosFim]) <> CaracterQuebrar) and (PosFim > PosIni) do // Ache uma Quebra LINHA 1742 - while (AnsiStr[PosIni] = CaracterQuebrar) and (PosIni <= Tamanho) do [DCC Error] ACBrUtil.pas(1742): E2015 Operator not applicable to this operand type + Possível correção: while (Char(AnsiStr[PosIni]) = CaracterQuebrar) and (PosIni <= Tamanho) do LINHA 1798 - C := AString[A] ; [DCC Error] ACBrUtil.pas(1798): E2010 Incompatible types: 'AnsiChar' and 'Char' + Possível correção: C := AnsiChar(AString[A]) ; As correções propostas acima, não sei se são ao todo aplicáveis, gostaria da opinião de vocês. Também quando tento instalar o componente, recebo a mensagem 'Resource ACBR not found.'. Tentei copiar o arquivo 'ACBrComum.res' da pasta 'trunk' antiga mas o problema persiste. Ao instalar o pacote ACBrSerial recebo o seguinte erro: Unit 'ACBrDevice.pas': 565 - FOnTraduzirTag( ATag, Result); [DCC Error] ACBrDevice.pas(565): E2033 Types of actual and formal var parameters must be identical Uma possível correção: function TACBrTagProcessor.TraduzirTag(const ATag: AnsiString): AnsiString; var TagTraduzida : string; begin Result := ''; TagTraduzida := ''; if (ATag = '') or IgnorarTags then exit ; if Assigned( FOnTraduzirTag ) then FOnTraduzirTag( ATag, TagTraduzida); Result := AnsiString(TagTraduzida); end; Também não sei se é aplicável, gostaria da opinião de vocês.
  18. Beleza Daniel, estou mudando para o 'trunk2' e vamos começar a efetuar testes nele em um caixa. Como você já está trabalhando em produção com ele, acredito que ficaria mais fácil para a gente reportar possiveis bugs. Desde já agradeço.
  19. Daniel, bom dia. Alteração funcionou perfeitamente na Sweda ST120. Estamos tendo reclamações dos clientes que utilizam Sweda referente a alguns problemas com as últimas atualizações. O que não ocorria anteriormente. Estávamos conversando aqui e temos um supermercado grande, parceiro nosso, que utiliza Sweda em todos os caixas. Se você aceitar, podemos gerar uma versão do nosso sistema com a última versão do 'trunk' e colocar em um caixa para teste, com o intuito de eliminar de uma vez por todas essas reclamações. Em troca, pediríamos uma atenção a mais no post, uma vez que podemos fazer isso até o dia 25/05/2015. Gostaríamos de saber a sua opinião.
  20. Boa tarde Daniel, efetuei a atualização agora. Não estou utilizando o trunk2. Estou obtendo 'Access Violation' na procedure: procedure TACBrECFSwedaSTX.VendeItem(Codigo, Descricao : String ; AliquotaECF : String ; Qtd : Double ; ValorUnitario : Double ; ValorDescontoAcrescimo : Double ; Unidade : String ; TipoDescontoAcrescimo : String ; DescontoAcrescimo : String ; CodDepartamento : Integer) ; Na linha 1802: AliquotaECF := FormatFloat(Aliquota.Tipo+'00.00%',Aliquota.Aliquota); A princípio, pelo que percebi, o sistema não está conseguindo acessar 'Tipo' e 'Aliquota' da variável 'Aliquota' do tipo TACBrECFAliquota(Linha 1801). Em anexo o log completo caso precise. 20150514.rar
  21. EMBarbosa, voltei para a revisão 8965 que eu estava ontem e voltou a funcionar a venda de item. Acredito que o problema possa estar na revisão 8966.
  22. Bom dia pessoal, Efetuei a atualização hoje de manhã(12/05/2015) do SVN da ACBr e liberei a versão para teste. O pessoal me reportou o seguinte problema utilizando a Sweda ST120: -- 09:19:49:593 VendeItem( 07894900700220 , COCA COCA ZERO 350ML SIX PACK , FF , 1 , 10,79 , 0 , UN , $ , D , -1 ) TX -> [STX]c02|1,000|07894900700220|10,790|UN|FF|COCA COCA ZERO 350ML SIX PACK|T[ETX][235] 09:19:49:671 RX <- ACK = 6 Falha: 0 TimeOut estendido 09:19:49:718 RX <- (Bloco) = [STX]c02-0023AC[128][144][146][128][128][ETX][226] TX -> ACK = 6 Falha: 0 09:19:49:734 RX <- [STX]c02-0023AC[128][144][146][128][128][ETX][226] ----------------- ERRO ----------------- Erro retornado pela Impressora: SwedaSTX Erro (0023) Erro na Sintaxe do Comando Enviado ---------------------------------------- -- 09:33:37:062 VendeItem( 07891030000046 , ACHOC MOCOCA 1L.CHOCOLATE , FF , 1 , 3,52 , 0 , CX , $ , D , -1 ) TX -> [STX]I02|1,000|07891030000046|3,520|CX|FF|ACHOC MOCOCA 1L.CHOCOLATE|T[ETX][197] 09:33:37:125 RX <- ACK = 6 Falha: 0 TimeOut estendido 09:33:37:187 RX <- (Bloco) = [STX]I02-0023AC[128][144][146][128][128][ETX][200] TX -> ACK = 6 Falha: 0 09:33:37:187 RX <- [STX]I02-0023AC[128][144][146][128][128][ETX][200] ----------------- ERRO ----------------- Erro retornado pela Impressora: SwedaSTX Erro (0023) Erro na Sintaxe do Comando Enviado ---------------------------------------- Não conseguimos mais efetuar venda de item no cupom fiscal. Estou enviando um log mais completo em anexo. Gostaria da opinião de vocês sobre esse possível problema. Desde já agradeço. Log-20150512-1009.rar
  23. Boa tarde Régys, diminuímos o buffer de envio e recebimento e trocamos o cabo. A porta serial que utilizávamos era de um conversor PCIe->Serial e agora estamos testando em um computador com porta serial onboard. A princípio o problema persiste, embora seja de maneira aleatória. Hoje na parte da manhã, durante os testes, obtivemos novamente um dos problemas do log acima: -- Ativando a porta: COM1 -- 11:22:35:371 DataHora TX -> [STX]934|I8[ETX][162] 11:22:35:387 RX <- ACK = 3 Falha: 0 TX -> [STX]934|I8[ETX][162] 11:22:44:640 RX <- ACK = 6 Falha: 1 TimeOut estendido Alteração de Estado: 0- 11:22:44:849 RX <- (Bloco) = [STX]900!0000AA[130][128][130][128][128][ETX][133] TX -> ACK = 6 Falha: 0 VerificaFimLeitura, Bloco "!" considerado Seq:57 Tipo:! Tarefa:00 Erro:0 - Bloco:[STX]900!0000AA[130][128][130][128][128][ETX][133] 11:22:44:954 RX <- -- Desativando a porta: COM1 Registrador: I8 Retorno: No Delphi, foi lançada a exceção: ---------------------------------------------------------------------------------------- [11/05/2015 11:28:47] [VALIDAR HORA SISTEMA ECF]Falha ao obter a DATA e a HORA do ECF! ERRO[#01]: '' is not a valid date ----------------------------------------------------------------------------------------
  24. Sim, estou enviando o Log do período em que ocorreu o erro. Obrigado. Log ECF Sweda.rar Log ECF Sweda.rar
  25. Boa tarde pessoal. Este problema está intermitente, já efetuamos testes em duas máquinas diferentes e em alguns casos emite o relatório normal, mas em outros temos erro de string vazia, pois o ECF pára de responder por um tempo. Desde já agradecemos a opinião de vocês.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.