Embrati

Abri o exemplo em outro computador com XE10. Fiz o seguinte ajuste na configuração da impressão: ACBrSATExtratoFortes1.LarguraBobina := seLargura.Value; ACBrSATExtratoFortes1.Margens.Topo := seMargemTopo.Value ; ACBrSATExtratoFortes1.Margens.Fundo := seMargemFundo.Value ; ACBrSATExtratoFortes1.Margens.Esquerda := seMargemEsquerda.Value ; ACBrSATExtratoFortes1.Margens.Direita := seMargemDireita.Value ; ACBrSATExtratoFortes1.MostrarPreview := cbPreview.Checked; ACBrSATExtratoFortes1.ImprimeQRCode := true; ACBrSATExtratoFortes1.MsgAppQRCode := 'Consulte o QR Code pelo aplicativo "De olho na nota" disponível na AppStore (Apple) e PlayStore (Android)'; ACBrSATExtratoFortes1.Site := 'www.teste.com.br'; ACBrSATExtratoFortes1.SoftwareHouse := 'Sistema emissor CFe-SAT desenvolvido por EmpresaNome Fone EmpresaFone'; Todas as minhas dúvidas persitem: - Impressão da mensagem do QRCode não sai completa, como configuro ? veja pela imagem que ela esta sendo impressa no campo de retorno da SEFAZ e a mensagem esta cortada; - Impressão da mensagem no Simples Nacional não sai completa, como configuro ? A mensagem do simples esta aparecendo tb como retorno da sefaz e cortando; - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ? essa agora esta saindo eu não estava colocando o percentual; - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ? agora que informei o percentual, o mesmo esta sendo impresso item a item; - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ? - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ? - Quando enviamos e-mail para o cliente, no mesmo não esta anexando o PDF do cupom, tem como adicionar ? meu cliente gostaria dessa facilidade pois os clientes dele nem sempre esperam a digitação da venda e depois ele tem o trabalho de mandar entregar, se o sistema enviar por e-mail junto com o XML fica tudo resolvido.

Oi Daniel, obrigado pelo contato. Estou usando o FortesReport e não consigo usar o SAT teste porque da uma mensagem de erro ao abrir o projeto no delphi 7 "Error creating form: Identifier expected on line 7." - Impressão da mensagem do QRCode não sai completa, como configuro ? veja pela imagem que ela esta sendo impressa no campo de retorno da SEFAZ e a mensagem esta cortada; - Impressão da mensagem no Simples Nacional não sai completa, como configuro ? A mensagem do simples esta aparecendo tb como retorno da sefaz e cortando; - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ? essa agora esta saindo eu não estava colocando o percentual; - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ? agora que informei o percentual, o mesmo esta sendo impresso item a item; - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ? - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ? - Quando enviamos e-mail para o cliente, no mesmo não esta anexando o PDF do cupom, tem como adicionar ? meu cliente gostaria dessa facilidade pois os clientes dele nem sempre esperam a digitação da venda e depois ele tem o trabalho de mandar entregar, se o sistema enviar por e-mail junto com o XML fica tudo resolvido. A configuração da impressão que estou fazendo esta assim: Procedure AcbrSat_Imprimir(AcbrSat : tAcbrSat; CaminhoNomeArquivo, TipoVouC, FormularioVouI : string); var ACBrSatExtrato : TACBrSATExtratoFortes; aDevice : array[0..255] of char; aDriver : array[0..255] of char; aPort : array[0..255] of char; ahDMode : THandle; begin ACBrSatExtrato := TACBrSATExtratoFortes.Create(Application); AcbrSat.Extrato := ACBrSatExtrato; try if trim(SatImpressoraNome)<>'' then ACBrSATExtrato.PrinterName := SatImpressoraNome else begin Printer.GetPrinter(aDevice, aDriver, aPort, ahDMode); ACBrSatExtrato.PrinterName := aDevice; end; except end; ACBrSatExtrato.ImprimeQRCode := true; ACBrSatExtrato.LarguraBobina := 302; ACBrSatExtrato.Margens.Topo := 5; ACBrSatExtrato.Margens.Fundo := 5; ACBrSatExtrato.Margens.Esquerda := 5; ACBrSatExtrato.Margens.Direita := 5; ACBrSatExtrato.MostrarPreview := (FormularioVouI='V') or (SistemaRodandoComBaseDeTestes); ACBrSatExtrato.MostrarSetup := (FormularioVouI='V') or (trim(SatImpressoraNome)=''); ACBrSatExtrato.MsgAppQRCode := 'Consulte o QR Code pelo aplicativo "De olho na nota" disponível na AppStore (Apple) e PlayStore (Android)'; ACBrSatExtrato.Site := EmpresaSite; ACBrSatExtrato.SoftwareHouse := 'Sistema emissor CFe-SAT desenvolvido por '+ EmpresaNome + ' Fone ' + EmpresaFone; if (Emit_Loja > 0) and (FileExists(ExePath+'LogoLoja_'+StrZero(Emit_Loja,3)+'.jpg')) then ACBrSatExtrato.PictureLogo.LoadFromFile(ExePath+'LogoLoja_'+StrZero(Emit_Loja,3)+'.jpg'); if TipoVouC = 'V' then begin if trim(CaminhoNomeArquivo)<>'' then ACBrSAT.CFe.LoadFromFile(CaminhoNomeArquivo); ACBrSAT.ImprimirExtrato; end else begin if trim(CaminhoNomeArquivo)<>'' then ACBrSAT.CFeCanc.LoadFromFile(CaminhoNomeArquivo); ACBrSAT.ImprimirExtratoCancelamento; end; ACBrSatExtrato.Filtro := fiPDF; ACBrSatExtrato.NomeArquivo := 'Sat.PDF'; AcbrSat_EnviarEmail(ACBrSAT, TipoVouC); ACBrSatExtrato.Destroy; end;

Olá pessoal, Passei a manhã inteira pesquisando no forum, mas não consegui chegar a nenhuma conclusão. Poderiam me ajudar por favor com as seguintes dúvidas: - Impressão da mensagem do QRCode não sai completa, como configuro ? - Impressão da mensagem no Simples Nacional não sai completa, como configuro ? - Informação da lei da transparencia não sai no extrato, coloco em dados adicionais ? - lei da transparencia precisa ser impressa item a item ou ela é calculada item a item e impressa somente o total no final ? - lei da transparencia precisa ser detalhada municipal, estadual e federal igual se faz na NFe ? - o componente possui o campo SoftwareHouse e Site mas ele não imprime nada, como configuro ?

Bom dia Pessoal, estou retomando o assunto pois a mensagem do QRCode e do simples Nacional não estão sendo impressas corretamente. Alguém sabe se é questão de configuração ? Os campos SoftwareHouse e Site tb não estão sendo impressos. Segue imagem que demonstra problema.

Bom dia galera. Encontrei esse blog, através de pesquisas aqui mesmo no ACBR, e nele o proprietário disponibiliza o código fonte de um projeto para acesso remoto, segue link. http://softwaresesources.blogspot.com.br/2015/10/acesso-remoto-em-delphi-allakore-remote.html#comment-form gostaria de saber se alguém já teve ou soube de alguém que teve alguma má experiencia com esse software, tipo invasão indevida, roubo de dados e etc. agradeço pela atenção.

Olá Pessoal, Estou com dificuldade em configurar o componente da NFe. Estou conseguindo emitir e gerar cópias, porém as demais pastas ainda não estão 100% pois não consigo entender algumas opções. Seguem minhas configurações comentadas com as informações que consegui reunir até agora e logo na sequencia a minha dúvida. // seta caminho do repositório de arquivos fiscais NFe2.Configuracoes.Arquivos.PathSalvar := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // arquivos de troca com o webservice NFe2.Configuracoes.Arquivos.PathNFe := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // xml´s das NFe´s NFe2.Configuracoes.Arquivos.PathEvento := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // Canc, CCe e etc NFe2.Configuracoes.Arquivos.PathInu := QryConfig.fieldbyname('CaminhoRepositorio').AsString; // Inutilização // salva arquivos Enviados / recebidos Webservice NFe2.Configuracoes.WebServices.Salvar := true; //Se True cria uma estrutura de pastas para separar os XML por CNPJ do Emitente. NFe2.Configuracoes.Arquivos.SepararPorCNPJ := true; // Se True cria uma estrutura de pastas para separar os XML por Modelo (55 e 65). NFe2.Configuracoes.Arquivos.SepararPorModelo := true; // Se True adiciona sub-pastas dentro da pasta Evento NFe2.Configuracoes.Arquivos.AdicionarLiteral := true; // Se True se baseia pela data de Emissão. NFe2.Configuracoes.Arquivos.EmissaoPathNFe := true; //Se True cria uma estrutura de pastas AnoMes ao Path NFe2.Configuracoes.Arquivos.SepararPorMes := true; //EMBRATI => Qual a diferença entre EmissaoPathNFe e SepararPorMes ?? // NFe2.Configuracoes.Geral.Salvar := true; //Se True salva os arquivos XML referente aos diversos documentos (nfe, cce, cte, etc) NFe2.Configuracoes.Arquivos.Salvar := true; //EMBRATI => salvar o que especificamente? qual a diferença entre Geral.Salvar e Arquivos.Salvar ? // configura se componente criara pastas separadas para cada evento NFe2.Configuracoes.Arquivos.SalvarEvento := true; //Se True salva as NF-e processadas, ou seja com protocolo de Autorização ou Denegação. NFe2.Configuracoes.Arquivos.SalvarApenasNFeProcessadas := true; //EMBRATI => quando abro a pasta o xml esta la, mesmo que a NFe seja rejeitada. NFe2.Configuracoes.Geral.AtualizarXmlCancelado := true; //EMBRATI => o xml da emissão, que teoricamente não pode ser alterado, é atualizado com o cancelamento da nfe? // configura caminhos dos xml's de emissao e cancelamento para consulta CaminhoArquivoEmissao := QryConfig.fieldbyname('CaminhoRepositorio').AsString+ QryConfig.fieldbyname('EmitCNPJ').AsString+ '\NFe\'+ OrganizaAnoMes(QryConfig.fieldbyname('NFDataEmissao').AsDatetime) +'\NFe'; CaminhoArquivoCancelamento := QryConfig.fieldbyname('CaminhoRepositorio').AsString+ QryConfig.fieldbyname('EmitCNPJ').AsString +'\NFe\' +OrganizaAnoMes(QryConfig.fieldbyname('NFDataEmissao').AsDateTime); //EMBRATI => quais opções de getpath existem para eu recuperar os arquivos ? // nome dos arquivos para carregamento do XML NomeArquivoEmissao := QryConfig.fieldbyname('NFNomeArquivoNFe').AsString; NomeArquivoCancelamento := QryConfig.fieldbyname('NFNomeArquivoNFeCancelada').AsString;

bom dia, estou com essas mesmas dúvidas, onde vc encontrou as respostas ?

vi sua resposta em outro post... obrigado. Daniel Simoes Fundador Fundadores 2.245 10.794 posts LocalizaçãoTatuí - SP Postado March 28 É isso mesmo... o SAT lê os dados da Empresa, direto do servidor do SEFAZ, no momento da Ativação do mesmo... Curtir Citar []s Daniel Conheça o Projeto ACBr - Automaçao Comercial Brasil DJSystem a Loja Patrocinadora do ACBr

Primeiramente, muito obrigado pelo rápido retorno. Esses dados são preenchidos pelo aparelho, mas na ativação também não foi informado isso. Por acaso ele busca do cadastro da empresa na SEFAZ ?

Boa tarde pessoal... Desculpem a ignorância, mas realmente não consegui entender como alterar o nome e o endereço do emitente... abaixo seguem únicas informações que achei, quais são os demais campos ? // emitente Config.emit_CNPJ := SatHomologacaoEmitenteCnpj; Config.emit_IE := SatHomologacaoEmitenteIE; if trim(SatHomologacaoEmitenteIM)<>'' then Config.emit_IM := SatHomologacaoEmitenteIM;

Olá pessoal, sei que o assunto é antigo, mas estou precisando da tabela de tipos para PPLA e vi que estava no caminho https://acbr.svn.sourceforge.net/svnroot/acbr/tools/Argox/ mas esse URL não existe mais. Onde posso encontrar agora ? Obrigado pela atenção.

Migrei.... obrigado !!

Pessoal, boa tarde... O Difal não foi implementado no ACBR Trunk 1 ? Não consigo inserir os campos... Alguém pode ajudar por favor ?

boa tade, reativando o post... onde consigo o instalador do fortes reporte para o trunk 1 ?

Excelente, muito obrigado !!!!

Bom dia amigos, Sei que substituíram o Trunk pelo Trunk2 e que isso gerou diversas melhorias, porem ainda não adequei meu código para ele e preciso ainda usar o Trunk. Onde consigo a ultima versão funcional do Trunk, uma vez que o mesmo foi removido do SVN ?

Sérgio, muito obrigado pelo retorno. Vou passar essa informação ao cliente, mas me diz uma coisa, você tem preferencia por alguma das marcas ?! Seja por preço, facilidade de compra e de suporte, garantia, etc.

Prezados, bom dia. Gostaria de saber quais equipamentos SAT são compatíveis com o componente ACBR-SAT e qual o mais indicado por vocês, com relação a custo beneficio. Estou precisando desenvolver a integração no meu sistema, gostaria de saber também se alguém pode me dar uma consultoria sobre o assunto. Att. Fábio Salviano

Por gentileza, reconsidere... Esse layout pode ser muito utili para toda a comunidade que utiliza o QuickReport e posso ficar responsável por qualquer manutenção necessária nesse código. Trata-se de um layout simples, confira no anexo, que já atende ao padrão dos bancos e esta dentro de uma UNIT que já trabalha com o QuickReport. As Units AcbrBoletoFCQuickFR contam agora com o Filtro de PDF para salvar na visualização. Posso também arcar com o custo de adiciona-lo, pois me pouparia o retrabalho de adequar o fonte do ACBR toda vez que eu baixar a atualização. ACBrBoletoFCQuickFr.dfm ACBrBoletoFCQuickFr.pas ACBrBoleto.pas boleto.PDF

Boa tarde Montei um novo layout para boleto do QuickReport onde o mesmo permite a inclusão de um grande texto onde coloco o demonstrativo da cobrança. Por favor, alguém poderia adicionar esse novo layout para o SVN ? Ele já foi aprovado e esta em uso no Santander. Seguem Units atualizadas. agradeço pela atenção. ACBrBoleto.pas ACBrBoletoFCQuickFr.dfm ACBrBoletoFCQuickFr.pas

Bom dia... Estou precisando de um layout que possibilite um longo texto de detalhamento da cobrança, onde teríamos o recibo do sacado mais resumido na parte superior, depois um longo espaço para texto e por ultimo o boleto propriamente dito. Seria essa minha descrição o lFatura que vocês falam ? Vou desenvolve-lo usando esse parametro, vcs veem algum problema ? Passo os fontes assim que estiver pronto.

Bom dia... Acredito que tenha a ver com o campo Titulo.Carteira, onde você deve informar o código da carteira contratada no banco. Essa carteira é o que determina se será com registro ou sem, se será com protesto ou sem. Veja qual valor você esta colocando no campo e qual valor o banco determina que seja colocado para a forma como você deseja trabalhar.

Segui esses passos e deu tudo certo, MUITO OBRIGADO !!!

Desculpe, trata-se de desespero... Prazo vencido e código aparentemente ok, mas não da o resultado esperado... Vontade de jogar impressora pela janela... kkkkk Pode me ajudar ?

Olá, Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta. No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva. ----------------------------- | | | ---------------------------| | | | | | ----------------------------- Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta. Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq: AtivarACBrETQ; with ACBrETQ do begin ImprimirTexto(orNormal, 1, 1, 1, 0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO); Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar; end; Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm. Alguém pode me ajudar POR FAVOR ???