marcelo_sp

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.