marciodc

Eu também obtive o mesmo erro. Será que não dá para utilizar o Lazarus para assinar/validar a NFe?

Minhas impressões iniciais (Não acessei todas as telas): 1. 500 requisições em 34,3 segundos para carregar a página inicial (internet de 30 Mbps). 2. Achei um pouco pesado para a internet. Provavelmente em uma intranet o funcionamento seja melhor. 3. Não funcionou no firefox.

Aqui em Maceió/AL o mercado para Delphi está cada vez mais restrito. São poucas software houses que ainda o utilizam. A maioria está migrando os sistemas de retaguarda para Java e mantendo somente o PDV em Delphi.

Olá Danilo. O Ticket Car que consta atualmente no ACBr é discado e foi descontinuado, não sendo mais suportado pela administradora. Atualmente as transações devem ser feitas pelo Sitef, mas a implementação do ACBr ainda não suporta totalmente o Ticket Car. Eu estou em processo de homologação com o pessoal da Software Express. Quando estiver tudo ok, envio os fontes para serem integrados ao ACBr. Como o Ticket Car utiliza praticamente as mesmas rotinas do Sitef, achei inviável criar um novo componente. Fiz algumas alterações na unit do Sitef, aproximadamente 10 linhas, para poder tratar os retornos do Ticket Car em um evento genérico que pode, inclusive, ser utilizado futuramente para outros cartões que venham a ser incluídos no Sitef. Em breve enviarei as alterações para análise da equipe do ACBr. Aproveito o momento para sugerir que seja incluído um aviso no ACBrTEFD que a unit ticketcar está deprecated e será removida posteriormente.

Antes de realizar as transações TEF desative a opção "Retentar" do ACBr ECF.

O programinha está funcionando. Não sei qual o motivo de você não conseguir utilizá-lo. Você poderia instalar o lazarus e executálo na IDE, assim poderia ver onde está o erro.

A implementação existente foi feita por mim e era utilizada com o gerenciador da própria ticketcar. Atualmente ela não tem mais um gerenciador próprio e não sei se o antigo ainda está em funcionamento nos clientes que já tinham contrato. Se ninguém utilizar, seria interessante remover o código do ACBr.

Alexsandro, não sei se você leu o tópico inteiro mas eu anexei em uma mensagem anterior um exemplo (executável + fontes). Em todo caso, segue anexo uma versão mais atualizada. Unificador.zip

Estou homologando o Sitef essa semana e não tenho como fazer nos próximos dias. Mas se ninguém fizer até a próxima semana eu faço e envio o código.

Vou ficar devendo essa resposta. Realmente não lembro como estava setada.

De qualquer forma, faça seus testes. No meu caso, em uma das telas eu necessitava de atualizações frequentes do grid, o que me causou os problemas de ter que abrir e fechar a conexão com o banco para que a query respondesse, mas não quer dizer que você terá os mesmos problemas. Afinal, o seu uso pode ser diferente do meu. Apesar que recomendo o Zeos, pois até agora não me deu nenhum problema.

Lazarus 1.1 e FPC 2.6.1

Eu tive algumas experiências negativas com SQLdb, tais como lentidão, ter que fechar e abrir a conexão com o banco para poder a query retornar dados, além do fato de fechar todas as queries após cada commit. Por esse motivo mudei para a Zeos, que não tem me causado problemas.

Eu suponho que você não queira trabalhar com saque + desconto (3) e sim apenas desconto (2). Se for isso, vai ter que alterar o código fonte. Localize a procedure abaixo e altere de acordo com a sua necessidade. procedure TACBrTEFDClass.AdicionarIdentificacao; var TemIdentificacao : Boolean ; Operacoes : String ; begin TemIdentificacao := False; with TACBrTEFD(Owner) do begin if (Identificacao.NomeAplicacao + Identificacao.VersaoAplicacao <> '') then begin Req.Conteudo.GravaInformacao(701,000, Trim( Identificacao.NomeAplicacao + ' ' + Identificacao.VersaoAplicacao ) ) ; TemIdentificacao := True; end; if (Identificacao.RazaoSocial <> '') then begin Req.Conteudo.GravaInformacao(716,000, Identificacao.RazaoSocial ) ; TemIdentificacao := True; end; Operacoes := '1'; // 1 = Suporta Saque, 2 = Suporta Desconto if Assigned( OnComandaECFSubtotaliza ) and (not AutoEfetuarPagamento) then Operacoes := '3'; // 1 + 2 = Suporta Saque e Desconto if TemIdentificacao then Req.Conteudo.GravaInformacao(706,000, Operacoes ) ; end; end;

Eu utilizo o Zeos + Firebird e até agora tem atendido bem as minhas necessidades.

Tenta colocar a velocidade da porta para 9600bps. Aqui na empresa geralmente funciona nessa velocidade quando tempos problemas de conexão.

Durante o fechamento da venda mude para False a opção BloqueiaMouseTeclado do ACBrECF. Provavelmente é ele que está destravando após o fechamento do cupom.

Olá marcelo_sp, você tem razão quanto ao consumo de memória nesse caso de arquivos muito grandes. Mas uma empresa com 13 filiais provavelmente deve ter um ERP que centraliza tudo e que faz isso sem grande esforço, e se não tem deveria ter. Esse meu exemplo serve para as pequenas empresas. Na empresa da qual sou sócio, temos bem mais de 100 clientes em um mesmo segmento e nem 10% têm filiais, que geram arquivos com 2000 ou pouco menos de 3000 linhas, o que torna a unificação dos arquivos praticamente instantânea. Mas cada caso é um caso e deve ser avaliado com critério.

Eu não cheguei a baixar os fontes para análise, pois ele informa que utiliza banco de dados e o meu utiliza apenas os arquivos texto, gerando um novo arquivo.

Segue anexo um programa em Lazarus, com os fontes, que faz a unificação dos arquivos da matriz e das filiais. Não sei se vai servir para todos os perfis de empresa, e provavelmente vai necessitar de pequenos ajustes, mas unifica e valida o arquivo gerado. Unificador.zip Unificador.zip

Supondo que você já tem as rotinas para captura de abastecimentos, é necessário somente colocar mais uma função: function TSeuForm.Encerrante(RetornoBico: String):Double; var st : encerrante; begin try st := ConsultaEncerrante('L', RetornoBico); Result := st.Valor; except Result := 0; end; end;

ACBrTEFDClass

O problema está na linha 1130 fpTipoPessoa := ' '; <---- espaço Titar o espaço não funciona, pois a variável é do tipo AnsiChar (não aceita vazio) e está sendo utilizada em várias units (não é viável mudar o tipo). Para passar no teste eu fiz a seguinte alteração na linha 1545: if Trim(OldResp.TipoPessoa) <> '' then Req.TipoPessoa := OldResp.TipoPessoa;

Durante o processo de homologação o homologador questionou a existência do campo 006-000 no CNC de cartão (esse campo é exclusivo de cheque) e observei na unit ACBrTEFDClass que na linha linha 1130 (fpTipoPessoa := ' ';) está sendo setado um espaço na variável (procedure TACBrTEFDResp.Clear;). Fiz um tratamento rápido para passar no teste, mas agora quero fazer da forma correte. Existe uma forma de evitar que esse campo seja inserido no CNC? Se não existir, posso alterar os fonte e encaminhar o arquivo alterado. 000-000 = CNC 001-000 = 48176 002-000 = 000608 003-000 = 200 006-000 = 010-000 = AMEX 012-000 = 749888 022-000 = 15052012 023-000 = 132216 999-999 = 0

Entendido. Vou refazer as rotinas do meu PDV.