Atenas Soluções Softwares

Daniel , sei que tu estás muito ocupado com as novas tendencias do ACBr com o projeto SAC e sei tambem que o ACBrTER praticamente nem é utilizado pelos colegas mas gostaria de dizer que o componente ACBrTER pra mim está em produção em um de meus clientes , e hoje baixei a atualização do SVN e a nova atualização implementada para leitura de balança ainda não subiu para o SVN , eu tenho backup dos meus fontes modificados mas peço encarecidamente por favor que suba pois quando atualizar por aqui não preciso estar verificando se subiu ou não . ...segue anexo novamente das mudanças e um outro Demo/Exemplo , muitissimo obrigado por enquanto . Marcelo .

Fernando , vc ja testou para a fiscal (MP 4000 TH FI) ou somente para não fiscal (MP 4000 TH) ?? pois na não fiscal tambem testei e esta ok com o emulador Bematech , se sim para as duas (Fiscal e Não Fiscal) finalizamos este post . Abraço . Marcelo .

Oque o colega Jaime disse , acredito que é a mais objetiva proposta sobre este assunto . Marcelo .

Na minha opinião ou é free ou é share !!! Acho que todos sem exceção teriam que colaborar financeiramente com o projeto ACBr mesmo os que não utilizassem o SAC , inclusive eu que nunca dei nada , rss ( Ja sei que o Daniel vai dizer que quer que seja open e tudo mais , ja sei Daniel !!! rsssss ) , Eu de verdade nunca doei financeiramente nada apenas respondo dentro do meu alcance algumas questões de alguns usuarios , ja doei algo pro ACBrTer e ja dei umas cotucadinhas no SwedaSTX e quero continuar ajudando no projeto quando possivel , mas acho que se todos sem exceção ajudassem financeiramente , esses valores de mensalidades poderiam ser bem menores doque aqueles ja sitados pois com mais usuarios ajudando o pouco se tornaria bastante . (Valor de 50,00 por mes + ou - para todos pagarem sem exceção) , acho que todos poderiam pagar , sendo que a opção de doação para valores maiores tambem continua para quem puder colaborar com mais . Forte abraço a todos . Marcelo .

Uma vez tive um problema desses , resolvi com um .bat com os comandos NET USE direcionando a porta de impressão para o computador onde esta a impressora , exemplo : Computador(A) impressora local instalada e compartilhada . Computador( que ira acessar computador (A) . 1-No Computador (A) Instale o driver da impressora e compartilhe-a . (DrLabel = Driver para Argox !!!). 2-No Computador ( crie um arquivo com extenção .bat e edite o arquivo da seguinte forma . NET USE LPT1: /DELETE NET USE LPT1: \\Computador(A)\NomeDaImpressoraCompartilhada // onde LPT1 pode ser LPT2 , COM1 , etc... Salve e execute o arquivo .bat . Pronto vc pode mandar a impressão do Computador( para a porta LPT1 normalmente que o próprio Windows vai direciona-la para vc .

Oi EddieBR tudo bem velho , pode ser sim tá pois na verdade ainda não testei para ECF Bematech USB , somente para não fiscal , mas não sei se vc ja instalou este emulador sitado da Bematech pelos colegas , pois quando vc o instala automaticamente se vc tem porta COM1 , COM2 ele ja cria uma terceira porta COM3 e na não fiscal funciona perfeito cara !!! abraço . Marcelo .

Dados complementares para testes : Fonte : Gradual Tecnologia (Wilbor Tech) Primeiramente verifique as configurações do terminal (Baudrate, Paridade, Num Bits, etc) se correspondem com as configurações da balança apertando a tecla (.)ponto por alguns segundos para abrir o menu no Microterminal Wilbor . Caso as configurações de Serial do terminal seja as mesmas da Balança, faça a verificação da pinagem do cabo da balança, lembrando que cada marca de balança segue um padrão de pinagem, por exemplo : Pinagem da Toledo (cruzado): 2 com 3 3 com 2 5 com 5 Jumper nos pinos 7-8 (nas duas pontas do cabo). Pinagem da Filizola (reto): 2 com 2 3 com 3 5 com 5 Jumper nos pinos 7-8 (nas duas pontas do cabo). Marcelo Ferreira Atenas informática Ltda.

Oi Daniel !!! 1-Novo implemento no ACBRTer (Função LeBalanca) , testamos com a balança da Filizola e grassas a Deus tivemos sucesso no implemento . 2-Modificações também no Aplicativo Demo em anexo já com a função LeBalanca + tratamento de exceções. 3-Gostaria que fizessem os testes nescessarios e subissem para o SVN . Forte Abraço a todos . Marcelo

Daniel , bom noite ! 1º - Estou disponibilizando pra vc comparar se este aqui ou o outro Demo é melhor para se manter no SVN , sendo que este ja é praticamente o software de produção completo , faltando somente alguns detalhes como trayicon , interface e pouca coisa mais , este aqui está com até Banco de Dados pra facilitar pros colegas , lógicamente que vão mudar para os seus banco de dados , fica a disposição como quiser ... 2º - Tenho agora uma segunda parte para desenvolver que é balança , ja que o terminal Wilbor tem uma serial nele para balança e no caso o componente não tem suporte para balança , gostaria de saber de ti se deixamos o componente assim como esta e o pessoal desenvolve a comunicação com a balança pelos seu proprios aplicativos ou tentamos desenvolver a leitura da porta de balança do terminal pelo componente ??? No aguardo , Marcelo .

Opa , Daniel , blz ! Estamos desenvolvendo um aqui completo para produção (Vinculado ao ERP da empresa aqui utilizando Banco de Dados Sql Server) e quando estiver pronto disponibilizo para todos . Forte Abraço . Marcelo

Boa tarde a todos , estamos implantando em um novo cliente que possui os terminais da Wilbor RS485 (Term16) e efetuamos alguns testes com o ACBrTer (Com comutadora !!!) e o componente esta bem bacana , fiz uma minima alteração no fonte original (somente no ACBrTERWilbor.pas), estaremos colocando em produção neste cliente em breve e deixaremos o FeedBack do componente , e aproveitando , criamos um pequeno Demo que no pacote ACBr não tem Demo do ACBRTer . Gostaria tambem que os Administradores verificassem as alterações e coloca-las em definitivo para Download . Espero que seja proveitoso para quem precisar . Abraço a todos . Marcelo SP.

Me esqueci , desculpa a todos . Segue anexo das modificações . Marcelo .

Oi Rossine , desenvolvo em Delphi-7 ; Não utilizo o ACBR monitor . Caso ajude o fonte , em anexo . Abraço .

Bom dia , eu não utilizo o ACBRecf para impressoras (Não Fiscal) , vc pode utilizar comandos ESC do próprio Delphi ou outra linguagem que vc utiliza para desenvolvimento . No Delphi uso o AssignFile na porta . Entre em contato com o fabricante Dataregis para saber os comandos ESC deste modelo para Acionar a Gaveta , um exemplo abaixo mostra como Acionar gavetas com alguns modelos de Impressoras Não Fiscal . procedure AbreGaveta ; var Print : textfile ; begin AssignFile(Print , PortaDaImpressora); Rewrite(Print ); if COMANDOABERTURAGAVETA = '1' then Writeln(Print ,chr($1B)+'p'+chr($0)+chr($25)+chr($250)); // Impressora EPSON if COMANDOABERTURAGAVETA = '2' then Writeln(Print ,#027+'v'+#140); // Bematech if COMANDOABERTURAGAVETA = '3' then begin Writeln(Print ,#27 + '&' + '0' + #12 + #48); // MECAF / DIEBOLD / Abre a gaveta Writeln(Print ,#10 + #17); // MECAF / DIEBOLD / Corte de papel end ; if COMANDOABERTURAGAVETA = '4' then begin Writeln(Print ,#27 + 'p'); // Daruma Abre a gaveta Writeln(Print ,#27 + 'm'); // Daruma Corte de papel end ; closefile(Print) ; end ; // ...COMANDOABERTURAGAVETA = variavel publica do tipo String para setar qual parte do código eu quero executar , ou seja qual tipo de gaveta eu quero abrir . espero que ajude . Marcelo .

Se for Cupom Fiscal , abra o ECFteste do ACBr que esta no diretório Exemplos\ACBrECF, vai até o menu Relatórios e verifique como imprimir um Relatório Gerencial e demais comandos que o ECF utiliza . abraço .

Coloquei estas informações em um tópico ja discutido aqui no forum dia 29/04 mas vi que ninguem se manisteu e por isso estou colocando aqui em um novo tópico para os administradores verificarem pois ainda continua com um pequeno bug no trecho a seguir : {Descontos ISS} PosI := Pos('DS',RetCMD); // aqui esta o problema (sempre vai existir) if PosI > 0 then begin PosI := PosI + 5 ; {DS } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; Result := Result +'TotalDescontos = '+FormatFloat('#0.00',V)+ sLineBreak; ... esta posição do 'DS' normalmente sempre vai existir , pois uma parte da string de retorno o 'DS' sempre aparece , acredito que é o número de série da MFD , só não deu erro ainda porque por coicidencia normalmente o retorno das posições estão retornando Zero , futuramente se for um número maior ou caracteres alfa , com certeza daria pau . Minha solução foi : PosI := Pos('DS ',RetCMD); // um espaço na frente do S funcionou , e acabei colocando este espaço tambem nas demais opções como cancelamento , acrescimo , etc.. , já que na string de retorno tem um espaço na frente desses trechos base . Abraço a todos . Marcelo.

Oi Carlos , vc quer alterar o horario do ECF , é isso ?? : Se for isso vc só muda o horário do ECF em modo MIT ( Modo de Intervenção Técnica ), não simplesmente pelo seu aplicativo a qualquer momento mesmo após a redução Z . Agora se o caso seu é sincronizar o horario do micro com o do ECF , então é facil pega o horario do ECF com os comandos existentes no componente ACBRecf , e acerta o horario do micro com inumeras funções que vc encontra espalhadas ai pela net . forte abraço . Marcelo .

Saudações pessoal !, ainda continua com um pequeno bug no trecho a seguir que tambem corrigi no meu fonte aqui : {Descontos ISS} PosI := Pos('DS',RetCMD); // aqui esta o problema (sempre vai existir) if PosI > 0 then begin PosI := PosI + 5 ; {DS } V := V + StrToFloatDef(Trim(Copy(RetCMD,PosI,18)),0)/100; end; Result := Result +'TotalDescontos = '+FormatFloat('#0.00',V)+ sLineBreak; ... esta posição do 'DS' normalmente sempre vai existir pois na string de retorno o 'DS' aparece no no número de série da MFD , só não deu erro ainda porque por coicidencia normalmente o retorno das posições estão sendo Zero , futuramente ser for um número maior ou caracteres alfa , com certeza daria pau . Minha solução foi : PosI := Pos('DS ',RetCMD); // um espaço na frente do S funcionou , e acabei colocando este espaço tambem nas demais opções como cancelamento , acrescimo , etc.. Abraço a todos . Marcelo.