Pesquisar na Comunidade

Boa Tarde, Em alguns clientes a minha conexão com o ACBr entra em loop e trava os dois sistemas. Segue o Log em anexo e a minha conexão. Eu realmente tenho um loop no meu programa pra tratar o encerramento da conexão pelo ACBr, quando o ACBr é fechado ou quando a as configurações são atualizadas. Tem alguma ideia do que seja o problema ou o que possa ser feito para resolver? Log.txt conexao.cs

Boa tarde, Lá estou eu aqui recorrendo aos amigos, estou implementando meu primeiro tipo de documento fiscal via ACBR Monitor. Então estou implementando o MDFe, tenho até agora obtido um bom desempenho. Então estou QUASE ( rsrs) aprovando o primeiro MDFe O retorno que estou tendo no momento é esse sobre o QR Code, fiquei em duvida pq como sou novato no ACBR não sei como faço pra gerar o QR-Code do MDFe usando o ACBr Monitor? O comando que estou usando atualmente (obtido via manual) é: MDFe.CriarEnviarMDFe("D:\Visual Basic -Projetos\ACBr\MDFE.INI", 1, 1, 1) E o retorno que tenho é: OK: C:\ACBrMonitorPLUS\Logs\43190811379417000123580010000000011914210010-mdfe.xml Arquivo recebido com sucesso [Envio] CStat=103 CUF=43 DhRecbto=20/08/2019 14:03:21 Msg=Arquivo recebido com sucesso NRec=439000007089531 TMed=1 TpAmb=2 VerAplic=RS20190308130713 Versao=RS20190308130713 XMotivo=Arquivo recebido com sucesso Manifesto(s) nao confirmado(s): 1->480-Rejeicao: O QR Code do MDF-e deve ser informado [Retorno] CStat=480 CUF=43 ChMDFe= MotivoMDFe= Msg=Manifesto(s) nao confirmado(s): 1->480-Rejeicao: O QR Code do MDF-e deve ser informado NProt= NRec=439000007089531 TpAmb=2 VerAplic=RS20190726112021 Versao=RS20190726112021 XMotivo=Rejeicao: O QR Code do MDF-e deve ser informado [MDFe1] Arquivo=C:\ACBrMonitorPLUS\Logs\43190811379417000123580010000000011914210010-MDFe.xml CStat=480 CUF=43 ChMDFe=43190811379417000123580010000000011914210010 DhRecbto=20/08/2019 14:03:22 DigVal=hBUSf0iyWFVqzVfpn9bMsYBYe/8= NProt= TpAmb=2 VerAplic=RS20190726112021 Versao=RS20190726112021 XMotivo=Rejeicao: O QR Code do MDF-e deve ser informado ALERTA: Fim da Conexão com: 127.0.0.1 em: 20/08/19 14:00:09

Atualizei o ACBr e agora quando vou compilar minha aplicação está dando o seguinte erro: Unit Jsons not found em Fontes\ACBrTCP\ACBrIBGE.pas na linha --> uses strutils, dateutils, blcksock, Jsons, ACBrUtil; Como faço para corrigir?

Pessoal, Alguém já implementando ou com interesse de implementarmos em conjunto uma terceira opção de integração com o ACBrMonitorPlus? Me refiro a ter uma comunicação por webservice ou REST, semelhante para que seja possivel acessar funcionalidades do monitor através de métodos HTTP? Abraço!

Boa tarde pessoal, Não encontrei nenhum tópico, por isso abri este, alguém teve sucesso em enviar algum comando TCP por websockets, socket.io ou qqr outra forma, através de javascript? Por aqui sem sucesso total. Abraço

Olá para todos... Acabei de subir para o SVN, uma novo componente, ACBrMTER -- ACBrMTer -- [+] Adicionado novo componente ACBrMTer, que atua como servidor de MicroTerminais TCP/IP, suportando atualmente os protocolos: VT100, StxEtx, PMTG (por: Elias César Vieira e DSA) Alguns Links para estudo: Emulador Wilbor (protocolos VT100 e Stx/Etx) - http://www.gradual.com.br/prod/programas/Emulador Terminal.zip Manual Terminal Wilbor (contém manual protocolo VT100 e Stx/Stx) - http://www.gradual.com.br/prod/manuais/Terminal_Ethernet.pdf Emulador Will Tech (Protocolo VT100) - http://www.willtech.com.br/download/Emulador_2016.rar Manual Terminal WillTech (contem manual protocolo VT100) - http://www.willtech.com.br/download/MANUAL_TC_V1.80_2013.pdf Emulador Gertec (Protocolo PMTG) - http://www.gertec.com/Modulos/Container/PopUpDownload.aspx?codDownload= 541&codIdioma= 1 Manual de Comunicação Protocolo PMTG http://www.gertec.com/Modulos/Container/PopUpDownload.aspx?codDownload= 245&codIdioma= 1 Manual Bematech FIT (VT100 e Stx/Etx) http://www.bematech.com.br/equipamentos/produto/fit-basico Não deixe de ler este tópico:

Pessoal, estou com problema com o TACBrTCPServer, sei que talvez ninguém ainda use ele, mas estou com problemas que talvez tenha solução.... Quando realizo a devolução da String, ela se perde com os caracteres especiais como Acentos, já tentei converter para a UTF e para Ansi mas não deu certo, será que alguém achou uma solução para isso? Via telnet Enviar := AnsiToUtf8(Enviar)+#13+#10; Enviar := (Enviar)+#13+#10;

Bom dia. Estou começando a usar a ACBrFramework.Net aki na empresa está tudo bem para comunicar com balanças seriais. Mais agora tem uma balança Toledo com um painel Toledo 9091, com porta Ethernet (Rede). Alguém teria um exemplo de como pegar o peso nessa balança, configurar porta, senha essas coisas ? Não achei nada a respeito. Desde já muito obrigado.

Pessoal, bom dia. Estou utilizando o ACBrMonitor compilado com Lazarus 1.6. Durante a comunicação estou recebendo caracteres "extras" na resposta do ACBrMonitor Plus. Abaixo um exemplo do que está ocorrendo, mandei o comando "ECF.MFAdicional" e ele me retornou o seguinte abaixo. No exemplo abaixo existe: - comando (ecf.mfadicional) - resposta tratada como string - resposta completa convertida em chars ansi. ecf.mfadicional [RESPOSTA] OK: ? #79 + #75 + #58 + #32 + #2 + #63 + #0 + #0 + #28 + #63 + #28 + #28 + #0 + #0 + #28 + #28 + #69 + #80 + #48 + #56 + #49 + #51 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #49 + #28 + #77 + #70 + #68 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #48 + #49 + #28 + #69 + #80 + #83 + #79 + #78 + #28 + #84 + #77 + #45 + #84 + #56 + #49 + #32 + #70 + #66 + #73 + #73 + #73 + #28 + #69 + #67 + #70 + #45 + #73 + #70 + #28 + #48 + #49 + #46 + #48 + #48 + #46 + #48 + #52 + #28 + #57 + #57 + #28 + #57 + #57 + #28 + #51 + #48 + #48 + #49 + #50 + #48 + #49 + #51 + #49 + #53 + #49 + #65 + #3 Depurando o ACBrMonitor Plus, no método de retorno de comando notei que o problema já aparece ali. Coloquei para logar o tamanho da string que será retornada no memo de log do monitorplus, e vejam: Tamanho resposta: 112 ecf.mfadicional OK: ? Aqui o código que inseri no monitorplus (ACBrMonitor1.pas) marcado com o comentário "NOVO": procedure TFrmACBrMonitor.Resposta(Comando, Resposta: ansistring); var SL: TStringList; begin if rbTCP.Checked then begin if Assigned(Conexao) then begin // >>>>> NOVO !!!! mResp.Lines.Add('Tamanho resposta: ' + inttostr(length(Resposta))); // <<<<<<<<<<<<<<< if chbTCPANSI.Checked then Resposta := Utf8ToAnsi(Resposta); Resposta := StringReplace(Resposta, chr(3), '', [rfReplaceAll]); Conexao.SendString(Resposta); Conexao.SendByte(3); end; end; Alguém pode me ajudar para saber o que pode estar ocorrendo ?

Pessoal, boa tarde. Baixei e compilei todo o projeto do ACBr em Lazarus 1.6 Windows. Comecei a utilizar o modo de comunicação do ACBr Monitor Plus via TCP, para integrar minha aplicação feita em Java. Até o momento tudo corria bem, mas agora me deparei com um problema, que acredito ser gerado pelo Lazarus. Tenho uma impressora Bematech e uma Epson. Ambas tem formas de pagamento com acentuação já programas. Quando obtenho junto ao ACBrMontiorPlus as formas de pagamento (comando ECF.CarregaFormasPagamento) o contrato de retorno está sendo quebrado. Veja no seguinte exemplo de retorno: OK: 1 Dinheiro| 2V Cartão Formatando melhor o retorno para verificarmos a falta de caracteres: IIIITDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD " 1 Dinheiro" " 2V Cartão" Note que na descrição cartão está faltando um caracter, são na verdade somente 29 posições (ao invés de 30) retornadas pelo ACBrMonitorPlus. Não estou conseguindo descobrir como resolver isso (até porque não tenho grandes conhecimentos em Lazarus), porém acredito que isso esteja ocorrendo pois a String é UTF-8, onde no caso a caracter ã é representado em 2 bytes em UTF-8, diferentemente que no ANSI aonde é 1 byte. Já tentei trocar aquele parâmetro no ACBrMonitor para usar comunicação ANSI mas o problema continua. Fiz a depuração do ACBrMonitorPlus, e o problema aparece no ACBrUtils.pas na função abaixo: function PadLeft(const AString : String; const nLen : Integer; const Caracter : Char) : String ; var Tam: Integer; begin Tam := Length(AString); <<< ESTE LENGTH('Cartão') retorna 7 ao invés de 6!!!! if Tam < nLen then Result := StringOfChar(Caracter, (nLen - Tam)) + AString else Result := LeftStr(AString, nLen) ; //RightStr(AString,nLen) ; end ; Alguém pode me ajudar a resolver isso? Obrigado!

Pessoal, Estou tentando fazer a comunicação via TCP no ACBRMonitorPlus e não está funcionando. Alguém tem algum funcionando? em VB6. Abracos