Daniel Simoes

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...

Infelizmente isso não é nossa prioridade no momento... Tem muita coisa na fila... NFe 3.0, SAT, etc... Qual foi o problema com o LazSendMail ? Já tentou suporte na lista do mesmo ? Mais uma opção de linha de comando: http://glob.com.au/sendmail/

Provavelmente você está fazendo consultas pelo status da NFe em um período muito curto de tempo, e o Sefaz está bloqueando (temporariamente) os IPs de aplicações que agem dessa maneira... pois isso causa uma sobrecarga no Servidor do Sefaz (semelhante a um ataque D.O.S)

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 ?