Daniel Simoes

Vc precisa compilar e Instalar o ACBrComum e todos os pacotes que dependem dele...

Obrigado pelo seu trabalho de correção da Unit VSPague... prometo que assim que possível analisarei-a com mais calma...

Para que o TEFD saiba que houve pagamento em dinheiro, é necessário que vc informe o valor correto em OnInfoECF... No demo temos: ineSubTotal : RetornoECF := FloatToStr( ACBrECF1.Subtotal-ACBrECF1.TotalPago ) ;[/code] Se vc não enviou as Formas de pagamento para o ECF, ou seja, se vc bufferiza os pagamentos, a função acima obviamente não funcionaria... Mas nesse caso, cabe ao programador calcular o valor já pago, e informar apenas o Restante para o parâmetro RetornoECF

Verifique a versão do seu FPC... Vc precisará da versão 2.5.1

Vc está fazendo acesso anônimo ? http://acbr.sourceforge.net/drupal/?q=node/37

provavelmente vc tem uma versão da Unit Libeay32.pas (do Marco Ferrante) desatualizada... use o Ctrl-Click na função acima e veja onde o Delphi abre... Se não resolver, simplesmente comente a linha a cima.. para vc não fará diferença alguma...

O Log é estruturado da seguinte maneira: -- 10:07:51 24/01/2011 Ativar (Comando enviado para o ACBrECF, com todos os parâmetros,quando existirem) TX -> [STX][4][0][28][19]/[0] (Dados transmitidos para o ECF, de acordo com a sintaxe do Protocolo do mesmo) 10:07:51 RX [/code] Ou seja, no seu log deveria ser legível a palavra "Suprimento" em Comando Enviado... Note tb que não há nenhuma msg de erro no trecho de log enviado... - Enquanto o ECF estiver bloqueado porque a Red.Z está pendente, nenhum outro comando será aceito... - A Red.Z bloqueia o dia de movimento corrente... e não o anterior... O ECF bloqueia a operação caso ela não seja emitida... - O jeito que o seu cliente optou por trabalhar, emitindo a red.Z no dia seguinte pode dificultar a conferência de caixa (alguém pode efetuar vendas com o caixa fechado) e a obtenção dos Dados da Red.Z para geração dos arquivos do PAF-ECF

Esse package é do Lazarus e não do ACBr... Experimente reconstruir o seu Lazarus com: Tools -> Configure Build Lazarus -> Clean Up + Build All

Oi JNP, já está feito Atualmente o ACBrRFD e ACBrPAF fazem uso do ACBrEAD para assinar os arquivos

SIM... Veja no Demo... ACBrTEFD.MultiplosCartoes

Obrigado a todos pelo retorno... O ACBrEAD (e seu Demo) já estão no SVN... Qualquer problema favor reportar..

Oi Ivan... já baixei sua Unit... vou analisar e volto a postar... Muito obrigado pela sua colaboração...

Tópico trancado... Evite tópicos repetidos... Continue em: viewtopic.php?f=12&t=925

Olá pessoal... Acabei de enviar uma modificação no SVN que pode ser uma possível correção para esse caso... Por favor testem em D7 e tb nos mais novos D2010/XE

Veja esses links: http://www.forumweb.com.br/foruns/topic/76037-acbrnfp/ http://www.forumweb.com.br/foruns/topic ... -paulista/ http://www.forumweb.com.br/foruns/topic ... rvice-nfp/ Esses fontes não foram para o ACBr porque são dependentes de Units do Delphi... e não são multi-plataforma...

Olá José Luís Schiavo, Muitíssimo obrigado pela sua colaboração... Estive analisando os fontes... 1 - O método: ImprimirBarras recebeu uma sobrecarga apenas por causa da mudança dos Parâmetros: LarguraBarraLarga, LarguraBarraFina: Char -> String... Acho que podemos modificar o método original, pois não quebraria as aplicações existentes uma mudança de Char para String... e tratamos nas classes já existente usando algo como: LarguraBarraLarga[1]. 2 - O que vem a ser: VerticalY1, HorizontalX1, VerticalY2, HorizontalX2 no método ImprimirCaixa ? (porque precisamos de Y1 e Y2 e X1 e X2 ?) 3 - AvancoEtq e EspacoEtq não seriam a mesma coisa ? Essa impressora não lê o GAP da etiqueta ? 4 - O Parâmetro Resolucao do método Imprimir, parece estar mais relacionado ao Espaço da etiqueta do que com a Resolução... pois ele não compoem a String do comando enviado... Ele só ocorre em: if Resolucao = 0 then Resolucao := 203; // 203 dpi = padrão if Resolucao = 203 then begin if EspacoEtq EspacoEtq := 16; end else begin // 300 dpi if EspacoEtq EspacoEtq := 18; end; [/code] 5 - Notei alguns inconsistências de validação como por exemplo: [code] if (Vertical 999) then Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 762 para Vertical')); O máximo é 762 ou 999 ?

Entendo... desculpe-me se pareci rude... mas o Nick não é comum.... por favor tente usar uma Assinatura com a sua identificação profissional... Isso com certeza trará mais credibilidade para você... Tente esse programa: http://www.djsystem.com.br/djnfp-envio- ... -lote.html

Acho que um mínimo de procedimento é necessário quando tenta se manter um forum sério... Qual a finalidade (ou vantagem) desse anonimato ? Por favor corrija o Nick ou terei que excluir...

Mande o LOG... nele tem a mensagem correta do Erro...

Prezado.... como você espera ser levado a sério com um Login chamado "Ninguem" ?? (por favor tente corrigir isso)

Isso é uma característica do ECF... tudo que o ACBrECF faz é ler o retorno do ECF... (Veja no LOG gerado pelo ACBrECF)

Vc deve sempre usar ACBrECF.Ativar... Provavelmente a DLL do fabricante está prendendo a porta serial... Evite usar chamadas estáticas a DLL nos seus fontes...

Sem o LOG não há como analisar... basta você escrever um nome de arquivo na propriedade: ACBrECF.ArqLOG

Esse manual, descreve como instalar o programa do D-TEF e um Client para emular um TEF discado... SIM, é possível criar uma nova classe baseada em ACBrTEFDClass (TEF discado)... mas sinceramente, acho que não vale o esforço. A troca de arquivos TXT sempre será mais lenta... e não será sua aplicação que terá todo o controle do TEF... A instalação/configuração no usuário tb é mais complicada O ACBrTEFD já é compatível 2 TEFs dedicados... SiTEF (homologado) e V&SPague (quase homologado)... ambos com acesso direto, ou seja, sem troca de arquivos TXT. O custo de ambos é bem acessível (de 200,00 a 300,00 por mês)... entre em contato com a Dataregis para saber mais sobre o FastTEF (SiTEF) http://www.dataregis.com.br/solucoes_tef.shtml http://www.vespague.com.br/ Deve haver alguma documentação mais completa do D-TEF, que descreva o acesso direto (sem a necessidade do client, e sem troca de TXT)... isso sim seria interessante...

Flávia... o ECFTeste não envia nenhum MD5 no final... Verifique se isso não foi programado no ECF pelo método "Utilitários -> Identificar PAF".. se for o caso, use a mesma função para programar outra coisa