Pesquisar na Comunidade

Olá... Recentemente precisei integrar a balança/módulo WEIGHTECH WT3000-iR. Ao tentar utilizar o modelo existente "balWeightechWT3000_ABS" no componente ACBrBAL, a leitura veio 10x menor. Pesquisando melhor, vi que existem os modelos "WT3000_ABS" e "WT3000IR_ABS". Como eu não tinha um manual de integração e balança WT3000_ABS para testar o "balWeightechWT3000_ABS", achei melhor fazer uma nova classe para o "WT3000IR_ABS", para não mexer na outra classe e causar alguma quebra de compatibilidade. A princípio, o formato parece ser compatível com a balança LIBRATEK WT 3000 I R, e me baseei em parte na implementação dela. Porém lendo o manual de integração, vi que tem mais de um formato de mensagem, no caso, o padrão configurado no cliente atende aos formatos Fm1, Fm2 e Fm9. Foi implementada a leitura para esses formatos, e para transmissão normal e transmissão contínua. Implementei as classes: "TACBrBALWeightechWT3000IR_ABS" na unit "Fontes\ACBrSerial\ACBrBALWeightechWT3000IR_ABS". "TFormatoFm1Fm2Fm9Util" na unit "Fontes\ACBrSerial\ACBrBALWeightechWT3000IR_ABS_Fm1Fm2Fm9". Alterei as units: "Fontes\ACBrSerial\ACBrBAL" "TACBrBALModelo": Adicionada a enumeração "balWeightechWT3000IR_ABS". Uses (implementation): "ACBrBALWeightechWT3000IR_ABS" Método "TACBrBAL.SetModelo": "TACBrBALWeightechWT3000IR_ABS.Create(Self);" Obs.: Como existem mais formatos além dos citados acima, resolvi criar uma classe utilitária à parte, para a interpretação dos formatos que pertencem ao mesmo padrão (conforme o manual), achei melhor criar separado pra não deixar a classe referente à balança muito "cheia". Dessa forma, caso seja necessário implementar para os outros padrões, basta criar novas classes com a interpretação e usar na classe referente à balança. Caso a implementação não tenha ficado correta ou precisa de melhores explicações, ou se não havia necessidade, favor me informarem. Obrigado! Referências: Site do equipamento https://www.weightech.com.br/indicador-de-pesagem-wt3000-ir-abs Manual de integração https://drive.google.com/file/d/1R1tTGp5TZCRFR_6errg13vUV4k759NL1/view?usp=sharing WT3000_ABS e WT3000iR_ABS ACBrBAL.pas ACBrBALWeightechWT3000IR_ABS.pas ACBrBALWeightechWT3000IR_ABS_Fm1Fm2Fm9.pas

estou tentando instalar o acbr, quando instalo ACBrSerial, da erro na acbrposprinter (3104) Compiling /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrECF.pas Usar: /usr/bin/windres [opção(ões)] [arquivo-entrada] [arquivo-saída] As opções são: -i --input=<file> Nomeia arquivo de entrada -o --output=<file> Nomeia arquivo de saída -J --input-format=<format> Especifíca formato de entrada -O --output-format=<format> Especifíca formato de saída -F --target=<target> Especifíca alvo COFF --preprocessor=<program> Programa para ser usado para preprocessar arquivo rc --preprocessor-arg=<arg> Argumento adicional de preprocessador -I --include-dir=<dir> Diretório de inclusão para o preprocessamento de arquivo rc -D --define <sym>[=<val>] Define SYM para o preprocessamento de arquivo rc -U --undefine <sym> Indefine SYM para o preprocessamento de arquivo rc -v --verbose Verbose - te diz o que está fazendo -c --codepage=<codepage> Especifica codepage padrão -l --language=<val> Configura linguage para leitura de arquivo rc --use-temp-file Usa arquivo temporário ao invés de popen para ler a saída do preprocessador --no-use-temp-file Usa popen (padrão) -r Para ignorar a compatibilidade com rc @<arquivo> Opções de leitura de<arquivo> -h --help Imprimir mensagem de ajuda -V --version Imprimir informação sobre a versão Somente estes FORMATOS rc, res, ou coff, e a dedução da nome do arquivo se a extensão não for especificada. A partir de um nome arquivo e uma entrada de arquivo. Nenhuma entrada de arquivo é stdin (padrão de entrada), defaul rc (padrão rc). Nenhuma saída de arquivo é stdout (padrão de saída), defaul rc (padrão rc). /usr/bin/windres: destinos suportados: pe-x86-64 pei-x86-64 pe-bigobj-x86-64 elf64-x86-64 elf64-l1om elf64-k1om pe-i386 pei-i386 elf32-i386 elf32-iamcu elf64-little elf64-big elf32-little elf32-big srec symbolsrec verilog tekhex binary ihex plugin (3104) Compiling /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrECFYanco.pas (3104) Compiling /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrPosPrinter.pas (9022) Compiling resource /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrPosCheque.rc /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrPosPrinter.pas(3206,1) Error: (9029) Error while compiling resources /home/rsb/fpcupdeluxe/Componentes/01 - ACBr/ACBr-master/Fontes/ACBrSerial/ACBrPosPrinter.pas(3206,1) Fatal: (10026) There were 1 errors compiling module, stopping Fatal: (1018) Compilation aborted Error: /home/rsb/fpcupdeluxe/Lazarus/fpc/bin/x86_64-linux/ppcx64 returned an error exitcode alguém tem uma dica

Boa tarde. Estou realizando a integração do nosso sistema com uma balança da marca Saturno. O padrão de resposta é composto juntamente com os indicadores de peso (Estabilidade do Peso e Estado da Balança) <CR>, PPPPPP, “E”/“O”, “L”/“B”, “_”, “ ”, <LF> (Conforme manual de integração), por exemplo: 023060EL_. Onde: <CR> = Carriage Return (#13), PPPPPP = Peso na Balança, E/O = Estado do Peso, L/B = Estado da Balança, <LF> = Line Feed. Testando o retorno por um outro software (Hercules SETUP utility) o retorno vem da seguinte forma no próprio Hercules utility: 006320OL_. Copiando esse valor e informando no "Exemplo de Emulador de Balanças do ACBr" e enviando, o retorno é interpretado corretamente pela classe TACBrBALSaturno da Unit ACBrBALSaturno no nosso sistema e peso é exibido de forma correta. Porém, ao realizar a leitura diretamente pela porta COM, o peso recebido fica zerado sempre, e observei que conforme o log de pesagem, ao que parece os textos [CR] e [LF] estão sendo recebidos de forma literal diretamente na resposta. Realizei o tratamento no método InterpretarRepostaPeso, também removendo esses textos (CR e LF) e ao que parece, classe passou a interpretar corretamente nesse caso. Obs.: Sei que CR = Carriage Return e LF = Line Feed, ambos sendo representados por #13 e #10 consecutivamente. Segue abaixo onde foi modificado (duas últimas linhas). if wAchouE or wAchouO then begin if wAchouE then wPosEO := Pos('E', UpperCase(aResposta)) else wPosEO := Pos('O', UpperCase(aResposta)); wResposta := Copy(aResposta, 0, wPosEO - 1); { Removendo caracteres especiais, caso encontre algum } wResposta := StringReplace(wResposta, '°', '0', [rfReplaceAll]); wResposta := StringReplace(wResposta, '±', '1', [rfReplaceAll]); wResposta := StringReplace(wResposta, '²', '2', [rfReplaceAll]); wResposta := StringReplace(wResposta, '³', '3', [rfReplaceAll]); wResposta := StringReplace(wResposta, '´', '4', [rfReplaceAll]); wResposta := StringReplace(wResposta, 'µ', '5', [rfReplaceAll]); wResposta := StringReplace(wResposta, '¶', '6', [rfReplaceAll]); wResposta := StringReplace(wResposta, '·', '7', [rfReplaceAll]); wResposta := StringReplace(wResposta, '¸', '8', [rfReplaceAll]); wResposta := StringReplace(wResposta, '¹', '9', [rfReplaceAll]); wResposta := StringReplace(wResposta, '[CR]', '', [rfReplaceAll]); // Modificado: Remover [CR] wResposta := StringReplace(wResposta, '[LF]', '', [rfReplaceAll]); // Modificado: Remover [LF] end Segue um trecho do log de pesagem: -------------------------------------------------------------------------------- ATIVAR - 04/04/22 14:22:34:841 - Modelo: Saturno - Porta: COM4 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE= MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 -------------------------------------------------------------------------------- - 14:22:35:862 RX <- [CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF] UltimoPesoLido: 0 - Resposta: [CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF][CR]023060EL_ [LF] O cliente ainda não informou o modelo em específico, mas assim que informar eu posto aqui. Gostaria de saber se alguém já passou por isso, se pode ser alguma particularidade do módulo que envia os pacotes de dados (alguma configuração como ele envia a resposta de peso), ou se realmente a alteração que eu fiz faz sentido e pode ser incluída no trunk do ACBr? Existe algum motivo do log gravar com esse [CR] e [LF] de forma literal? Seguem em anexo o código fonte modificado e o log de pesagem. Obrigado. ACBrBALSaturno.pas Log-Pesagem.log Teste-Balanca-Saturno-HerculesUtility.txt

Olá a todos! Gostaria de saber se alguém do fórum já conseguiu a proeza de instalar algum componente do ACBr no Lazarus rodando no sistema operacional Mac OS X. Eu tentei bastante, mas encontrei inúmeros erros na unidade ACBrUtil e muitas outras... Tentei corrigir algumas coisas..., mas na verdade eu devia conhecer bem os componentes para ter êxito nessa tarefa... o que, no momento não acontece. Já uso o ACBr no Lazarus (no Windows e no Linux) há algum tempo e sempre consegui tirar muito proveito disso. Porém, confesso que procurei bastante aqui no fórum e na net mesmo e não encontrei nenhuma notícia de quem usa os componentes no Lazarus (MAC OS X). Achei algumas pessoas que usam ACBrMonitor... mas quem sabe não existe um outro teimoso por aí... Não estou postando os erros aqui agora, porque são muito erros de compilação e também porque o objetivo do tópico é descobrir se alguém já tentou, ou se os principais desenvolvedores tem uma ideia sobre a dificuldade de tornar compatível. A partir daí, eu mesmo me disponho a esforçar-me para tal tarefa. Grato pela atenção dos colegas, aguardo as opiniões... (torcendo os dedos). []`s Messias Henrique

Atualizei os fontes do acbr, e quando vou compilar aparece essas mensagens: [DCC Error] lancamento_item.pas(1050): E2003 Undeclared identifier: 'TACBrHandShake' [DCC Error] lancamento_item.pas(1052): E2003 Undeclared identifier: 'TACBrSerialParity' [DCC Error] lancamento_item.pas(1054): E2003 Undeclared identifier: 'TACBrSerialStop' As uses estao declaradas ACBrDevice, ACBrBAL no meu codigo ele esta sendo carregado com as informaçoes que estao no arquivo .INI dm.balanca.Device.HandShake := TACBrHandShake(StrToIntDef(frmPrincipal.LerIni(sArqConfig, 'BALANCA', 'Balança handshaking', '0'), 0)); dm.balanca.Device.Parity := TACBrSerialParity(StrToIntDef(frmPrincipal.LerIni(sArqConfig, 'BALANCA', 'Balança parity', '0'), 0)); dm.balanca.Device.Stop := TACBrSerialStop(StrToIntDef(frmPrincipal.LerIni(sArqConfig, 'BALANCA', 'Balança stopbits', '0'), 0)); dm.balanca.Device.Data := StrToIntDef(frmPrincipal.LerIni(sArqConfig, 'BALANCA', 'Balança databits', '8'), 8); alguem sabe me dizer o que pode ser ?

Boa tarde a todos. Pessoal, estou começando agora a utilizar o AcbrPosPrinter. Tem como ele enviar abrir aquela caixinha do windows, para escolher qual a impressora que vai ser impressa ? Tenho 3 tipos de impressoras em locais diferentes.

Boa Tarde. Estou tentando utilizar o exemplo do componente ACBrETQ para realizar a impressão de etiquetas na impressora ELGIN L-42 mas estou com problemas. Realizei os seguintes passos para a instalação do driver da mesma: 1 - Vi que era necessário realizar os passos demonstrados no vídeo (https://www.youtube.com/watch?v=qSOHYqK9OEI) onde ele libera para instalar drivers não assinados digitalmente. 2 - Realizei a instalação do driver da impressora. 3 - Após instalado o driver, executei o comando conforme o comentário de valney no tópico ( https://www.projetoacbr.com.br/forum/topic/8829-acbretq-com-a-impressora-l42-elgin/?_fromLogin=1#_=_ ) onde ele utiliza " net use lpt1: \\servidor-PC\Elgin /persistent:yes " para mapear a porta para a impressora. Após isto fui executar o exemplo para fazer o teste de impressão, e ao confirmar a impressão recebo os seguintes erros: Algumas vezes ocorre o seguinte erro: que ocorre ao executar a linha destacada em vermelho: e outras vezes acontece outro erro, mas algumas linhas acima: este ocorrendo ao ser executada a linha de código 1859: Já tentei simular a impressão com a impressora conectada localmente e via rede em outro computador, e nos dois casos ocorrem os mesmos erros. Alguém poderia me dar uma mão?

Acabei de atualizar o ACBr e esta dando erra na instalação do pacote Serial

Olá Pessoal Boa noite! Estou tendo dificuldades no envio de SMS sempre me retorna esse erro. O que pode está acontecendo? Todos o métodos funcionam menos esse de enviar a mensagem (SMS). Retorna o IMEI, Status da Linha, o Nível do Sinal.. tudo ok! Estou usando Modem ZTE MF110 Debloqueado! Detalhe no software que o acompanha consigo fazer envio de sms normalmente!

Boa tarde amigos, Venho disponibilizar modificações feitas nos arquivos ACBrECF e ACBrECFClass referentes às impressões de Farmácias de manipulação de acordo com o BLOCO IV REQUISITOS ESPECÍFICOS DO PAF-ECF PARA FARMÁCIA DE MANIPULAÇÃO REQUISITO L 1. O PAF-ECF, exclusivamente no caso de venda de fórmula manipulada, deve possibilitar a emissão do DAV a que se refere o requisito VI discriminando a fórmula manipulada e consignando no Cupom Fiscal respectivo, como item comercializado, o número do DAV, utilizando a seguinte expressão: Fórmula manipulada conf. DAV nº "XXXX" onde "XXXX" representa o número do DAV, sendo dispensado o atendimento ao previsto na alínea “a” do item 5 do requisito VI. 2. Deve ser emitido um DAV para cada fórmula manipulada. Modificações feitas em ACBrECFClass : TACBrECFRodape = class( TPersistent ) private fsDavFarm : String; published property DavFarm : String read fsDavFarm write fsDavFarm stored False; procedure TACBrECFRodape.Clear; begin fsDavFarm := EmptyStr; Modificações feitas em ACBrECF : function TACBrECF.GetRodapePaf: String; begin if Trim(InfoRodapeCupom.DavFarm) <> EmptyStr then Result := Result + GetQuebraLinha('Fórmula manipulada conf. DAV nº : ' + Trim(InfoRodapeCupom.DavFarm)); ACBrECF_ACBrECFClass.rar

Olá, estou a um tempo tentando simular uma venda em que o pagamento é realizado em Cartão de Crédito. Utilizando o emulador da Bematech MP-4200 e o Exemplo da ACBR, TEFDemo.exe eu consigo apenas realizar vendas com pagamento em dinheiro. Ao tentar pagar por cartão, recebo a seguinte mensagem: ST3 = 20 - Forma de pagamento não programada. Lendo a documentação da Bematech, descobri que deveria chamar a função da DLL "Bematech_FI_ProgramaFormaPagamentoMFD". Fiz essa programação no Delphi: function ProgramaFormaPagamentoMFD( FormaPagto: String; OperacaoTef: String ): Integer; StdCall; External 'C:\Program Files (x86)\Bematech\bemafi32\BEMAFI32.DLL' name 'Bematech_FI_ProgramaFormaPagamentoMFD' ; E na chamada do método: var lFPG, lTEF : String; begin lFPG := 'Cartao'; lTEF := '1'; ProgramaFormaPagamentoMFD(PChar(lFPG), Pchar(lTEF)); end; Não recebo nenhum retorno e na listagem de formas de pagamento, somente Dinheiro está disponível. Alguma luz?

A implementação para checar se a porta é uma DLL não estava funcionando (não reconhecia DLL1). Alterado para: else if (pos(copy(UPorta,1,3),'USB|DLL') > 0) then /// Amarildo Lacerda: correção Result := dtHook ACBrDevice.pas

-- 16:59:43:031 AbreCupom( , , ) TX -> [FS]R[200]001[183] 16:59:43:156 RX <- :[200]001000000000026333810[CR] -- 16:59:43:156 TX -> [FS]F[200][255][255][255]m 16:59:43:608 RX <- :0000000[200]001736001256[CR][204] -- 16:59:43:624 NumCCF TX -> [FS]R[200]066[182] 16:59:43:764 RX <- :[200]06623042015165837[CR][194] -- 16:59:43:811 VendeItem( 1414 , EFA519 F AR GM CORSA 1.0 1.2 1.4 1.6 ARL8832 , FFT , 1 , 18,5 , 0 , PC , % , D , -1 ) TX -> [FS]F[207]17000100000001850000000000000181414 PC AEFA519 F AR GM CORSA 1.0 1.2 1.4 1.6 ARL8832[255][24] 16:59:44:419 RX <- :0000000[207]001000000001850[CR][245] -- 16:59:44:419 GrandeTotal TX -> [FS]R[200]001[183] 16:59:44:575 RX <- :[200]001000000000026335660[CR] -- 16:59:44:575 Subtotal TX -> [FS]R[200]047[181] 16:59:44:716 RX <- :[200]047000000001850[CR][192] -- 16:59:44:731 VendeItem( 796 , MOBIL SUPER 1000 API SM 20W50 1L , FFT , 3,5 , 16,5 , 0 , LT , % , D , -1 ) TX -> [FS]F[207]1700035000000165000000000000018796 LT AMOBIL SUPER 1000 API SM 20W50 1L[255]^ 16:59:45:371 RX <- :0000000[207]002000000005775[CR][250] -- 16:59:45:371 GrandeTotal TX -> [FS]R[200]001[183] 16:59:45:527 RX <- :[200]001000000000026341435[CR] -- 16:59:45:527 Subtotal TX -> [FS]R[200]047[181] 16:59:45:667 RX <- :[200]047000000007625[CR][202] -- 16:59:45:683 VendeItem( 1663 , EFL619 F LUB CORSA CELTA VECTRA MONZA OMEGA , FFT , 1 , 14,95 , 0 , PC , % , D , -1 ) TX -> [FS]F[207]17000100000001495000000000000181663 PC AEFL619 F LUB CORSA CELTA VECTRA MONZA OMEGA[255]s Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 0 - Estendido: 0 -> Erro não documentado Cod.Aviso: 0 17:00:17:288 RX <- 0000[207]0030000 ----------------- ERRO ----------------- Impressora Daruma não está respondendo ---------------------------------------- Pessoal estou enfrentando um erro estranho com uma ECF Daruma Mach1. A resposta do comando está vindo incompleta, já modifiquei timeout, intervaloComando... e nada, continua parando de uma hora pra outra. Alguém enfrentou um erro igual? Não achei no forum nada referente a este erro em especifico. Nota: A Maioria dos travamentos ocorre ao vender item, mas já aconteceu em outros comandos tbm. A Mensagem de falha eu encontrei, mas no caso não estava tendo o mesmo comportamento da minha ecf, onde devolve a resposta pela metade.

Ola, Tenho um cliente que precisa de um impressora de cheque qual marca/modelo USB esta homologado pelo acbr ? Caso não tenha modelos USB homologados, qual a melhor marca/modelo serial ? Obrigado a todos !

toda vez que eu tento gerar algum relatório que o ACBrECF usa a dll da epson, dá este problema "Erro: 1 ao Fechar a Porta com: EPSON_Serial_Fechar_Porta.", estou conseguindo emitir cupom normal e relatórios gerenciais.

Bom Dia a todos, Estou com um pequeno problema ao tentar cancelar um cupom com a ECF Epson Modelo M226A Retornar com o seguinte erro : 0A12 “Não foi possível cancelar último Cupom Fiscal” Venda faz normalmente so o cancelamento que esta dando erro. Segue o trecho da ativação. case TabGlobal.DPARAMET.par_ecf.Conteudo of 1: BaseDados.ACBrECF1.Modelo:= ecfBematech; 4: BaseDados.ACBrECF1.Modelo:= ecfUrano; 5: BaseDados.ACBrECF1.Modelo:= ecfDaruma; 6: BaseDados.ACBrECF1.Modelo:= ecfFiscNET; 7: BaseDados.ACBrECF1.Modelo:= EcfSchalter; 8: BaseDados.ACBrECF1.Modelo:= ecfEpson; end; BaseDados.ACBrECF1.Porta := 'COM'+IntToStr(TabGlobal.DPARAMET.par_ecf_porta.Conteudo); BaseDados.ACBrECF1.Device.Baud := 115200; BaseDados.ACBrECF1.Ativar; Obrigado pela ajuda a todos, desde ja agradeço.

No fonte ACBrETQPpla existe a função ImprimirTexto, hoje existe uma limitação para aceitar subfonte apenas maior que zero e menor que 7. Ocorreu um caso que nosso cliente solicitou que a etiqueta fosse impressa com fonte Arial, e após importar a fonte para impressora o valor da subfonte ficou superior a 800. Veja a imagem: Na documentação da linguagem PPLA, diz que ao utilizar fontes PCL é possível tersubfontes com até 3 digitos, segue: Realizei a alteração no fonte e já estou utilizando desta maneira a alguns dias perfeitamente. Anexado a alteração. ACBrETQPpla.pas

Boa Tarde, Hoje ao atualizar o ACBR em minha máquina, após um longo tempo, me deparei com um erro na hora da instalação do ACBRSerial: C:\componentesXE2\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(170) Error: E2003 Undeclared identifier: 'WriteLog' Alguma dica ou recomendação ? Cordialmente, Moacir Fortes

Pessoal, estou tendo problemas para instalar o AcBr mais somente o componente AcBrSerial, não dá erro na instalação, mais quando vou abrir o delphi aparece o erro "O programa não pode ser iniciado porque está faltando rtl190.bpl no seu computador.." se vou em "Components/Install packages" ele está desmarcado, se eu marco acontece o mesmo erro, já limpei tudo que tinha de bpl ou AcBr*.* do meu computador de todos os diretório, excluí tudo que tinha de AcBr no Registro do windows, mais ainda sim continua dando o erro, alguém sabe o que pode ser? pode ter conflito com algum outro componente conhecido? Obrigado!