Daniel Simoes

Se o Exception seguir o fluxo normal, o próprio ACBr irá desfazer a alteração no INI... em: procedure TACBrECFVirtualClass.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); begin GravaLog( ComandoLOG ); if Estado <> estPagamento then raise EACBrECFERRO.create(ACBrStr('O Estado nao é "PAGAMENTO", não houve SubTotal')) ; if CompareValue(TotalPago, SubTotal, 0.001) < 0 then raise EACBrECFERRO.create(ACBrStr('Total Pago é inferior ao Total do Cupom')) ; Observacao := StringReplace( Observacao, #10, CRLF, [rfReplaceAll] ) ; try EnviaConsumidorVirtual; FechaCupomVirtual(Observacao, IndiceBMP); // <--- AQUI ocorrerá o Fechamento do TACBrECFVirtualSATClass fpEstado := estLivre ; GravaArqINI ; except LeArqINI; // <----- AQUI as alterações feitas no fechamento serão desfeitas, em caso de Exception raise; end ; end;

O problema está descrito na mensagem... trata-se de uma propriedade que não existe no seu Delphi... a solução não é difícil... basta abrir o formulário, ignorar os erros, e salvar novamente..

Enquanto não termino as demais implementações... se possível, por favor me auxilie nos testes com as Units abaixo...

Alexandre Marcondes, foi o primeiro (e único) a responder a meu Post... ele me ajudou MUITO, na organização das Ideias, dos fontes, e me passou os fundamentos básicos sobre o funcionamento de um Projeto de código aberto, como Repositório de Fontes, licenças de código, Source forge, etc... Muito obrigado Alexandre...

Lembrei disso hoje... e decidi procurar se o Post n.1 ainda existe... SIM, ele ainda está no Fórum da DevMedia, o qual eu frequentei por um bom tempo, e foi o espírito de cooperação dos usuários do fórum, que me motivou a criação do Projeto ACBr... Reparem no Post, que ainda não há menção do nome ACBr, e a ideia inicial, era fazer uma classe de Suportes a ECF (Emissor de Cupom Fiscal)... https://www.devmedia.com.br/forum/classe-para-acesso-direto-a-ecf-em-linux-windows/229474 Na abertura do último Dia do ACBr, eu menciono um pouco sobre a criação do Projeto... Classe para acesso Direto a ECF em Linux/Windows 03/05/2004 Ola, para todos.... Estou desenvolvendo uma Classe Multiplataforma para acesso direto a diversas Impressoras Fiscais. Na verdade o projeto ainda está engatinhando, mas já tive sucesso em Comunicação com a Bematech em Windows e Linux. Entretanto, como muitos programadores também necessitam ou já fazem acesso a ECF, resolvi usar a ideia de tornar isso um projeto OpenSource. P1 - Porque fazer mais uma biblioteca de acesso a ECF ? A ideia é fazer uma Classe que possa rodar em Linux / Windows. algo que nao existe hoje.... Alem de não exigir nenhuma DLL ou SO, a fim de evitar o ´inferno das DLL´s´ P2 - Como fazer acesso aos ECFs ? Como a classe deve rodar em Linux, fica descartado o uso de DLL´s... Todas as impressoras fiscais (pelo menos as que já programei) possuem manuais descrevendo os codigos de comandos e protocolos seriais. Atualmente acesso as impressoras: Bematech, Daruma, Schalter, Sweda, Mecaf (e compativeis) de forma direta, em DOS, usando a linguagem CLIPPER 5.02e.+Clipper Tools... O Executável não depende de nenhum arquivo externo ou device driver no CONFIG.SYS. A ideia é migrar as funçoes de Clipper para Delphi, usando um componente de acesso a Serial. P3 - Qual componente fará acesso a serial ? Dos que testei, apenas a classe SynaSer http://www.ararat.cz/synapse/ é multiplataforma (Kylix) P4 - Porque rodar em Linux ? Já pensou oferecer para os seus clientes uma solução de Aplicacação Comercial totalmente legalizada ? e sem pagar uma fortuna por isso ? Sem falar na estabilidade e segurança do Linux.... Qual usuário consegue apagar o sistema ? (alem do Root é claro Caracteristicas do projeto: - Deve ser OpenSource e com a distribuição dos fontes: - Deve ser Multi-plataforma (Windows ( CLX / VCL ) / Linux) - Nao deve depender de nehuma DLL ou SO. - Deve suportar as diferença entre os diversos modelos de ECF - As Classes Filhas devem tratar de forma transparente as pequenas diferenças na programaçao de Versoes diferente do mesmo Modelo de ECF. Ex: A classe TECFBematech deve ser capaz de trabalhar com todas as versoes da Bematech FI Vantagens do Projeto: - Total controle da Aplicação: Já vi DLL´s que simplesmente param o processamento do programa (Quem já homologou TEF discado, sabe o que eu quero dizer...) - Facil distribuição: Não precisa distribuir e instalar nenhuma DLL - Livre-se do Inferno das DLL´s Quando o usuário instala outro programa que usa a mesma DLL que você usa, porém em uma versão antiga (causando Bugs no seu programa) - Multiplataforma: Linux / Windows - Programação Limpa e Clara. Basta criar uma classe TECF com o modelo apropriado. O Codigo fonte sempre se refere a Classe criada, sem se preocupar com o Modelo Desvantagens do Projeto: - Se o hardware mudar, ficamos dependendo de novas informaçoes do fabricante, ou até mesmo de um modelo do equipamento para testes... - Geralmente as DLL´s incorporam novos Hardwares do mesmo fabricante.... Aqui teremos que implementar um novo filho da classe TECF para cada Hardware novo (somente se o novo hardware nao for compativel com o antigo) Estou lançando a ideia para ver a aceitação... Existe algum disposto a colaborar ? Posso enviar os fontes por e-mail para que estiver interessado... Em breve farei uma pagina para download do projeto... (Ou se alguem estiver disposto a fazer... ) A ser desenvolvido: - Terminar a implementação da Classe TECFBematech - Implementar as demais Classes (Daruma, Schalter, Sweda, Mecaf) - Criar Classe para Manupilação de TEF Discado para interagir com TECF Na verdade, nunca fiz nenhum projeto OpenSource... Gostaria de sugestões... Duvidas: - Como / Onde hospedar o projeto ? - Como cordernar ?.... - Como fica a questão legal de OpenSource ? É preciso registrar isso em cartório ? Ps: Srs Moderadores, desculpe postar essa msg em 2 áreas, mas acredito que seja do interesse...

Você marcou a opção de Remover instalações do ACBr anteriores ? (isso sim é bastante demorado) Marque a opção para usar o CFG.. isso evita problemas com LibPaths muito longos

Não desenvolvemos nada nesse sentido nos ... e não está na lista de tarefas recentes...

Consegui implementar no componente ACBrPosPrinter os métodos: procedure ImprimirBMP(ABMPStream: TStream); overload; procedure ImprimirBMP(ArquivoBMP: String); overload; procedure ImprimirLogo(AKC1: Integer = -1; AKC2: Integer = -1; AFatorX: Integer = -1; AFatorY: Integer = -1); procedure GravarLogo(ABMPStream: TStream; AKC1: Integer = -1; AKC2: Integer = -1); overload; procedure GravarLogo(ArquivoBMP: String; AKC1: Integer = -1; AKC2: Integer = -1); overload; procedure ApagarLogo(AKC1: Integer = -1; AKC2: Integer = -1); Não usei o formato de Download indicado no artigo (column format), pois ele parece ser antigo,e extremamente confuso... Estou usando o comando GS 8 L, função 112, que utiliza a imagem em "raster format", que é mais natural para conversão de um BMP monocromático... http://www.nonov.io/convert_bmp_to_ascii Ainda falta implementar uma "Tag", para permitir a impressão de uma Imagem em disco (por exemplo)... devo subir tudo em breve...

provavelmente você precisa preencher com zeros a esquerda, os números da Inscrição Estadual, até obter um tamanho de 12 dígitos

Experimente ainda, configurar "Espaco entre Linhas", para 40... (veja a economia de papel)

Já geramos o QRCode, na impressão em Fortes Report e Fast... optamos por usar uma Unit simples, de terceiros... ela está em: http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/Terceiros/DelphiZXingQRCode/ACBrDelphiZXingQRCode.pas (fiz pequenos ajustes, em relação a Unit original) Humm.. só agora notei que estamos falando da mesma Unit..

Estou lendo novamente o artigo... http://web.archive.org/web/20141207201042/http://nicholas.piasecki.name/blog/2009/12/sending-a-bit-image-to-an-epson-tm-t88iii-receipt-printer-using-c-and-escpos/ Vou tentar implementar algo... Não me agrada o ACBrPosPrinter não ser capaz de subir um Logo para a Impressora...

Tentou um contato com o Fornecedor ou distribuidor ? Lembro que a primeira geração de Impressoras da Elgin (I9), também não suportava QRCodes com mais de 255 caracteres... Notifiquei isso ao fabricante, e o mesmo acionou o suporte de seu fornecedor de Firmware... que em pouco tempo, disponibilizaram um novo firmware, com a correção para a impressão do QRCode acima de 255 chars

Não tive tempo... mas acho que isso seria um uso errado dessa função... pois seria muito lento... Veja em nossa área de equipamentos testados, que existem vários modelos de impressoras portáteis, no mercado nacional, com suporte a QRCode por Esc/Por https://www.projetoacbr.com.br/forum/forum/63-equipamentos-testados/

Configure ACBrPosPrinter.EspacoEntreLinhas, para valores entre 30 e 60... O ideal é deixar isso configurável no sistema, pois pode variar por impressora

Notei que o mesmo problema, poderia ocorrer no DANFCe em Fortes Report... e apliquei alguns ajustes...

Enviei um possível ajuste para o SVN... rev: 16290

A mensagem de erro é proveniente da DLL do fabricante... Você deve copiar a última versão, da DLL fornecida pelo fabricante, para a mesma pasta do ACBrMonitorPLUS E configurar o ACBrMonitorPLUS, para carrega-la...

Por favor estude os fontes dos Projetos Demo... Veja a pasta: \ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi

Tentei reler o tópico, para verificar se poderia haver algum efeito colateral, relacionado as modificações implementadas, para a impressão de infoAdProd, mas fiquei perdido, e parece que há alguns outros relatos não relacionados as mudanças promovidas para o controle da Impressão de InfoAdProd... Vou fechar o tópico.. se notarem algum problema, favor abrir novo tópico e anexar as evidências...

Ok... já no SVN.. rev: 16289

Qual é a marca/modelo da Impressora ? Provavelmente ela instala um Driver na USB, para emular uma COM virtual... Em alguns casos, é necessário desativar o recurso de economia do Windows, para USB...

Acho que esse equipamento não tem sensor de pouco papel... (não tenho certeza) Uma saída, seria modificar a sua rotina, para informar qual deve ser a etiqueta inicial...

esse método seria acessível apenas por código e não por Tags Tente obter o manual de EscPos da Impressora para verificar se há alguma diferença no comando a ser enviado

Você deve estar tentando ler o Status da Impressora, mas isso só funciona se a porta for COM ou TCP