João Paulo F. Bellucci

Daniel ficou muito legal a ideia parabéns! Não consegui fazer compilar com esse fontes, devo estar fazendo alguma coisa de errado, depois vou tentar com mais tempo. Se tiver alguma dica de como compilar esse trunk2 agradeço. Analisando o código verifiquei alguns problemas que passei aqui e vou te passar. function TACBrEscBematech.ComandoQrCode(ACodigo: AnsiString): AnsiString; var cTam1, cTam2: Integer; begin if (Length(ACodigo) > 255) then begin cTam1 := Length(ACodigo) mod 255; cTam2 := Length(ACodigo) div 255; end else begin cTam1 := Length(ACodigo); cTam2 := 0; end; with fpPosPrinter.ConfigQRCode do begin Result := GS + 'kQ' + // Codigo QRCode ETX + chr(12) + chr(LarguraModulo) + chr(ErrorLevel) + chr(cTam1) + chr(cTam2) + ACodigo; end; end; Sempre quando concatenar um AnsiString não é saudável deixar por conta da linguagem a conversão, pois o comando chr() retorna string e ao concatenar AnsiString com String o Delphi não esta fazendo legal isso, tive problemas na hora de fazer a homologação das impressoras aqui, e tinha hora que o qrCode não funcionava e verifiquei que o problema estava no comando chr() que vinha lixo dependendo do valor. Para solucionar deixei explicito a conversão AnsiString(chr()). []s

Legal ficou bem bacana vou baixar para testar.

Nova versão do componente com melhorias no código. ACBrESCPOS.zip

Obrigado.

Nova versão do componente com inicio de código ESCPOS para impressoras Bematech e adicionado parâmetro para permitir retirar acentos da impressão. ACBrESCPOS.zip

Obrigado. Podemos fazer um parametro de configuração para retirar a acentuação, mas aqui não tive problemas com isso pois configurando o code page funcionou perfeito. O único problema da Daruma é que o code page dela só da para ser configurado pelo programa de configuração dela.Já as outras impressoras é possível configurar via código.

Bom dia, Rogério. A impressora Bematech TH-4000 que você me enviou já esta funcionando só que ela tem uma problema no modo ESC/POS ela não possui o suporte para QRCODE pelo que pesquisei só o modelo TH-4200 ou seja essa impressora foi descontinuada então para poder utilizar ela somente em modo Gráfico usando o drive do windows que funcionou perfeitamente aqui nos testes.

Perfeito.

Pode trazer sim. Endereço: Rua Angelo Luvizotto, 146 Bairro: Centro Telefone: (15)3384-4544 É um prédio Azul e tem uma farmácia em baixo. É só entrar na Farmácia e pedir para falar com o João Paulo

Rogerio, Sou de Cerquilho, caso queira passar aqui para deixar a impressora estou a disposição.

Boa tarde. Sou de SP só que interior, se quiser despachar a impressora eu implemento sim sem problemas. Estou postando para o Daniel o que estou fazendo, ele deve estar analisando, ainda não tive nenhuma resposta. Mas as impressoras que postei aqui já estão funcionando Ok com essa implementações.

Só copiar a unit por cima e depois rodar o install. Ainda não testei com a Bematech estou esperando chegar uma aqui para poder homologar.

Bom dia. Notei que a nomenclatura do RegistroC800 - VL_MERC está errada no componente, no componente este campo se encontra com o nome de "VL_MESC". Já fiz a correção se quiser posso passar o fonte.

Bom dia. Bom dia. Se você enviar o e-mail de uma nota e depois você emite uma outra nota e manda imprimir com preview, e na tela do preview manda exportar para PDF não abre mais a caixa de dialogo de exportação do PDF, pois ao enviar o e-mail é usada a rotina acima que desliga o showdialog do PDF e não religa mais ela. Segue os passo para reproduzir o problema: 1 - ACBrNFe.NotasFiscais.Items[0].EnviarEmail(); 2 - ACBrNFe.NotasFiscais.Imprimir; Lembrando que esta marcada a opção de mostrar o preview. Na tela do preview manda exportar para PDF, você irá notar que não irá mais aparecer a caixa de dialogo de exportação do PDF.

Encontrei um BUG gerado depois de enviar e-mail da NFe, que qualquer nota que tetar ver o Preview, e clicar no botão exportar para PDF não aparecia a caixa de dialogo de exportação do PDF. Para solucionar tive que fazer a alteração no código. ACBrNFeDANFEFR.pas Adicionei o código "FdmDanfe.frxPDFExport.ShowDialog := True;" voltar o ShowDialog nas duas funções a baixo: procedure TACBrNFeDANFEFR.ImprimirDANFEPDF(NFE: TNFe); const TITULO_PDF = 'Nota Fiscal Eletrônica'; var I: Integer; begin if PrepareReport(NFE) then begin FdmDanfe.frxPDFExport.Author := Sistema; FdmDanfe.frxPDFExport.Creator := Sistema; FdmDanfe.frxPDFExport.Producer := Sistema; FdmDanfe.frxPDFExport.Title := TITULO_PDF; FdmDanfe.frxPDFExport.Subject := TITULO_PDF; FdmDanfe.frxPDFExport.Keywords := TITULO_PDF; FdmDanfe.frxPDFExport.ShowDialog := False; for I := 0 to TACBrNFe(ACBrNFe).NotasFiscais.Count - 1 do begin FdmDanfe.frxPDFExport.FileName := PathPDF + StringReplace(UpperCase(FdmDanfe.NFe.infNFe.ID),'NFE','', [rfReplaceAll, rfIgnoreCase]) + '-nfe.pdf'; FdmDanfe.frxReport.Export(FdmDanfe.frxPDFExport); end; //Volta o ShowDialog para ser exibido na tela Preview FdmDanfe.frxPDFExport.ShowDialog := True; end; end; procedure TACBrNFeDANFEFR.ImprimirEVENTOPDF(NFE: TNFe); const TITULO_PDF = 'Eventos Nota Fiscal Eletrônica'; var NomeArq: String; begin if PrepareReportEvento then begin FdmDanfe.frxPDFExport.Author := Sistema; FdmDanfe.frxPDFExport.Creator := Sistema; FdmDanfe.frxPDFExport.Producer := Sistema; FdmDanfe.frxPDFExport.Title := TITULO_PDF; FdmDanfe.frxPDFExport.Subject := TITULO_PDF; FdmDanfe.frxPDFExport.Keywords := TITULO_PDF; FdmDanfe.frxPDFExport.ShowDialog := False; { NomeArq := TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.chNFe; NomeArq := NomeArq + '-' + TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.TipoEvento; NomeArq := NomeArq + '-' + IntToStr(TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.nSeqEvento); } { NomeArq := TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.TipoEvento; NomeArq := NomeArq + TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.chNFe; } // NomeArq := Copy(TACBrNFe(ACBrNFe).EventoNFe.Evento.Items[0].InfEvento.id, 3, 52); NomeArq := StringReplace(TACBrNFe(ACBrNFe).EventoNFe.Evento.Items[0].InfEvento.id, 'ID', '', [rfIgnoreCase]); FdmDanfe.frxPDFExport.FileName := PathWithDelim(Self.PathPDF) + NomeArq + '-procEventoNFe.pdf'; FdmDanfe.frxReport.Export(FdmDanfe.frxPDFExport); //Volta o ShowDialog para ser exibido na tela Preview FdmDanfe.frxPDFExport.ShowDialog := True; end; end; ACBrNFeDANFEFR.zip

Encontrei um erro ortográfico no cupom de cancelamento. Na linha: "DADOS DO CUMPOM FISCAL ELETRÔNICO CANCELADO" a palavra "CUMPOM" tem que ser alterada para "CUPOM".

Segue o componente homologado com impressoras Epson (modelo testado TM-T88IV) ACBrESCPOS.zip

Segue o arquivo com a validação de cancelamento Registro C800. ACBrEFDBloco_C_Class.zip

Acredito que a primeira seja mais interessante, pois deixaríamos a geração do layout de acordo com o validador, não dependendo de fazer isso pelo código próprio. Caso queira posso fazer essa modificação e enviar aqui.

Estou gerando os registros para CFe-SAT C800 e estou tendo problemas com campos que não devem ser preenchidos quando o cupom esta cancelado. Mesmo não colocando valores o componente joga valores no campo e o validador do SEFAZ não aceita. Exite solução para este problema?

Daniel, segue mais melhorias no componente, com funcionamento total do cupom para impressora Daruma, assim que chegar as impressoras Epson aqui também vou fazer a homologação delas no componente. Qualquer dúvida estou a disposição. ACBrESCPOS.zip

É isso ai, não existe segredo para se criar um gerenciador, fiz basicamente isso com o meu.

Daniel, fiz mais melhorias pega essa nova versão dai depois você me avisa. ACBrESCPOS.zip ACBrESCPOS.zip

Exatamente usei o dadasnap, o mês que vem vou colocar em produção, ficou bem rápido, tenho o SAT DIMEP aqui e os teste em questão de velocidade ficou bem rápido não teve diferença para uso local e uso em compartilhamento. Eu mando as informações para meu gerenciador do SAT ele retornar se o cupom foi emitido ou cancelado com sucesso e depois finalizo a venda. O componente SAT ficou muito bom com ele você consegue fazer as duas coisas, deixar local ou desenvolver um gerenciador para atender clientes que queiram compartilhar o SAT, a única coisa que você terá que fazer é controlar as filas de requisições no seu gerenciador. Mas como o Daniel falou em caso de problema da rede seu cliente irá ficar sem vender, mais isso é uma opção que o cliente tem que estar ciente.

Já fiz o desenvolvimento do meu gerenciado de SAT, foi bem tranquilo, controlo a fila de requisições do PDV e devolvo para eles os resultados. Utilizei protocolo RESTful para fazer a comunicação entre o PDV e o gerenciador de SAT o que facilitou bastante. No que puder ajudar estou a disposição.