Daniel Simoes

Para D7 é melhor não usar UTF No Lazarus pode ser um problema da Zeos com o FPC, aqui uso a versão Zeos 6.6.6 (com pequenas correções) e FPC 2.6.0. Experimente usar a SqlDb que vem com Lazarus

É uma coincidência o erro ser o mesmo... o código das classes de ECF é totalmente diferente, sem falar nas DLLs de cada fabricante... Primeiro precisamos ter certeza de que você está instalando corretamente as DLLs do fabricante... isso pode ser feito sem os fontes do ACBr... Solicite para o fabricante o exemplo em Delphi (já compilado), instale as DLLs do fabricante e tente o uso da leitura de MFD nesse exemplo...

Anexe o LOG gerado pelo ACBrECF e ACBrTEFD, além de um roteiro passo a passo de como reproduzir o problema... Tratando-se de um módulo extra, acho que também é interessante informar o que é necessário instalar além da configuração padrão do SiTEF

Complicado eles não terem criado um campo específico para Desconto... O que ocorrerá quando houver Saque, e Desconto na mesma transação ? Apenas com o campo "transação_valor" não seria possível saber o que é Saque e o que é Desconto

Oi Crash, Estou tentando fazer um merge... em relação a mudança proposta em: Isso deve ocorrer mesmo que não seja aberto nenhum documento ? A mudança proposta parece mudar o fluxo das rotinas... por que não fazer apenas: if HouveImpressao or fCancelamento then FinalizarTransacao( (ImpressaoOk or fCancelamento), Resp.DocumentoVinculado );[/code] Isso também dispensaria a modificação seguinte Linhas: 1290 a 1300: Em relação a outra mudança proposta, na Linha 380: Pelo que pode analisar, se modificarmos para: [code] fpQtdLinhasComprovante := max( fpImagemComprovante1aVia.Count, fpImagemComprovante2aVia.Count ) Já seria suficiente... Você poderia repetir os testes com o código atual do SVN (faça um backup da sua Unit antes)

Vc precisa usar um utilitário do Fabricante para programar a LogoMarca Para mudar o nome do aplicativo no rodapé use o método: IdentificaPAF (ele está disponível no ECFTeste)

As classes de ECF tem código completamente diferente uma da outra.... provavelmente o problema é na sua lógica de programação Um problema desta naturaza não passaria desapercebido a centenas de desenvolvedores que usam o ACBrECF... (ninguém mais se queixou do mesmo problema), o que me leva a crer que o problema não é no código do ACBrECF... Por favor descreva o passo a passo sobre como reproduzir o problema usando o Demo ECFTeste...

O propriedade Desconto DEVE ser preenchida... senão o Cielo Premia não funciona... Verifique com o Suporte do V&SPague porque não está retornando o campo: transacao_valor_ajuste

Roger, Deve estar faltando alguma outra DLL complementar... Tente usando o Demo do próprio fabricante em Delphi... se não funcionar por favor entre em contato com eles...

Continua o mesmo erro "-1" ? Já tentou executar o programa como Administrador ? é muito complicado para nós tentar dar suporte da DLL do Fabricante.... (já que são várias) talvez a equipe de suporte do fabricante tenha sugestões melhores... Tente usar o Demo em Delphi do próprio fabricante...

Veja esse trecho do meu código: Procedure CalcRequisitoIX_MD5 ; Var wNumeroLaudo, wVersaoER, wPrincipalEXE : String ; Ini: TIniFile; begin with FrVenda.ACBrAAC1 do begin // Salvando as informações do Componente em Variaveis de Trabalho // with IdentPAF do begin wNumeroLaudo := NumeroLaudo ; wVersaoER := VersaoER ; wPrincipalEXE:= Paf.PrincipalExe.Nome; end ; AbrirArquivo; // Restaurando as Informações Originais do Componente, sobrepondo as do arquivo // with IdentPAF do begin NumeroLaudo := wNumeroLaudo; VersaoER := wVersaoER; Paf.Versao := VersaoDJPDV; Paf.PrincipalExe.Nome := wPrincipalEXE; // Lendo os parâmetros da Loja // Ini := TIniFile.Create( pIniParamsLoja ); try Paf.MinasLegal := Ini.ReadBool('PAF-ECF','MinasLegal',False); Paf.CupomMania := Ini.ReadBool('PAF-ECF','CupomMania',False); Paf.RealizaDAVNaoFiscal:= not Ini.ReadBool('PAF-ECF','BloqueiaDAVNaoFiscal',False); finally Ini.Free ; end ; Paf.RealizaDAVECF := True; Paf.RealizaPreVenda := True; Paf.DAVConfAnexoII := True; Paf.EmitePED := True; Paf.TransfDAV := False; Paf.TransfPreVenda := False; Paf.Linguagem := 'Lazarus/FreePascal'; Paf.SistemaOperacional := 'Windows XP ou Superior'; Paf.BancoDados := 'Firebird'; Paf.TipoFuncionamento := tpfParametrizavel; Paf.IntegracaoPAFECF := tpiNaoIntegra; end ; end ; with FrVenda.ACBrAAC1.IdentPAF.OutrosArquivos do begin Clear; Add( FrVenda.ACBrAAC1.IdentPAF.Paf.PrincipalExe.Nome ); Add('sqlite3.dll'); // Banco de Dados Sqlite Add('inpout32.dll'); // Acesso direto a Porta Paralela/AT Add('fbclient.dll'); // Client do FireBird Add('libeay32.dll'); // OpenSSL 0.9.8.1 Add('ssleay32.dll'); // OpenSSL 0.9.8.1 Add('msvcr71.dll'); // MSVisual C RunTime 7.1 Add('msvcr80.dll'); // MSVisual C RunTime 8.0 Add('CliSiTef32.dll'); // SiTEF Add('CliSiTef32I.dll'); // SiTEF Add('libseppemv.dll'); // SiTEF Add('BemaFI32.dll'); // ECF: Bematech Add('BemaMFD.dll'); // ECF: Bematech Add('BemaMFD2.dll'); // ECF: Bematech Add('sign_bema.dll'); // ECF: Bematech Add('BemaMFD2_MP4000THFI.dll'); // ECF: Bematech Add('swmfd.dll'); // ECF: Sweda Add('CONVECF.dll'); // ECF: Sweda Add('DarumaFrameWork.dll'); // ECF: Daruma Add('LeituraMFDBin.dll'); // ECF: Daruma Add('lebin.dll'); // ECF: Daruma Add('DLLG2.dll'); // ECF: DataRegis/TermoPrinter Add('DLLG2_Gerador.dll'); // ECF: DataRegis/TermoPrinter Add('HIME.dll'); // ECF: DataRegis/TermoPrinter ? Add('elgin.dll'); // ECF: Elgin Add('ATO17.dll'); // ECF: Elgin/Urano Add('leitura.dll'); // ECF: Elgin/Urano Add('InterfaceEpson.dll'); // ECF: Epson Add('djmonitor.exe'); end ; with FrVenda.ACBrPAF1 do begin PAF_N.NomeArquivo := 'executaveis.txt' ; Path := ExtractFilePath( ParamStr(0) ); SaveFileTXT_N( PAF_N.NomeArquivo ); end ; { Gravando o MD5 atual no Terminal } dml.sqlTerminal.Edit ; dml.sqlTerminal.FieldByName('MD5').AsString := FrVenda.ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 ; dml.PostTerminal ; end; [/code] Uma chamada a AbrirArquivo dentro de SaveFileTXT_N causaria a perda de algumas propriedades que defini após a Abertura do mesmo

Qual a msg de Erro ?

Migrando para Lazarus ou Delphi XE, considere usar apenas UTF8 nos fontes e no Banco de Dados...

Deixe um componente ACBrEAD no mesmo form/datamodule onde você tem o ACBrECF e faça a associação do ACBrEAD nas propriedades do ACBrECF

Analisei que a mudança pode quebrar código de aplicações já existentes... O que ocorre é que muitos programadores (como eu), atribuem informações "fixas" para o ACBrAAC após a sua abertura... eu faço isso com as informações de: Laudo, Versão, ER... Lembro que na minha última homologação, argumentei com o homologador sobre isso... seria muito difícil, obrigar todos a substituir todos os arquivos AAC, de todas as aplicações, a cada novo lançamento de versão, devido o fato de ser necessário ler informações dos ECFs em operação antes de gerar o novo arquivo..

Leia novamente o tópico: "3.5. Repetindo parte dos testes", observe que no exemplo ele inicia no teste 3, usei esse procedimento, mudando o fato que digitei 28... mas em todo caso isso é uma questão a ser feita para o suporte técnico da NTK (produtora do Pay&Go)

CorrigeEstadoErro(ReducaoZ: Boolean); faz isso mesmo.... tente de todas as maneiras deixar o ECF livre IdentificaPAF pode variar de um ECF para outro... mas o ideal é programá-la apenas no inicio da sua aplicação... Eu chamo IdentificaPAF instantes antes de abrir o primeiro cupom, após a inicialização do aplicativo....

Deixe as DLLs do ECF única e exclusivamente na mesma pasta do seu .EXE (não deixe outras cópias em Windows32)

Ivan, O valor do Premia virá na propriedade "Desconto", veja a linha 575: else if Chave = 'transacao_valor_ajuste' then //---Valor retornado contendo o valor CIELO PREMIA fpDesconto := StringToFloatDef( Valor, 0 ) [/code] Existe algum outro campo diferente de [b]transacao_valor_ajuste[/b] para ser mapeado ? As suas mudanças podem comprometer toda classe ACBrTEFD, onde o Cielo Premia já está funcionando corretamente para o TEF discado e SiTEF Você programou o novo evento: OnComandaECFSubtotaliza ? (ele informará o desconto ou acréscimo necessário)

Ivan, As propriedades para o Cielo Premia ja fora criadas, veja o change-log.txt

É um impressora não fiscal ?

Por favor evite copiar o Log no tópico... ZIP o arquivo e anexe no tópico... (fica muito mais fácil de lê-lo) Notei algo muito estranho no seu LOG... Parece que você chamou ATIVAR no meio de uma Venda de Item

Só faltou informar qual o ECF Modelo e Versão... e qual a msg de erro...

Geralmente esse erro é uma mensagem do G.P. quando os arquivos intpos.001 estão dessincronizados... Feche o G.P. e limpe todas as pastas REQ e RESP de todos os sub-diretórios do G.P.

Não vejo vantagens em compilar uma aplicação Desktop (automação comercial) em 64bits... isso apenas diminuiria o numero de máquinas onde a aplicação pudesse ser instalada.... E aplicações Desktop não fazem um uso intensivo de processamento... No XE2, o Delphi usa o FreePascal para compilar em Mac e 64bits... será que continuará desta maneira ?