Daniel Simoes

Sim... acho que podemos usar a popria propriedade "Arredonda" para sabermos se enviamos 1 ou 0... Em todo caso, preciso saber o que o seu ECF retorna para o Flag de Arredondamento... para entender porque ele se comporta de maneira diferente do esperado... Por favor anexe o LOG gerado pelo ACBrECF

A DLL da Daruma não gera un Log ? Se SIM, anexe-o aqui para analisarmos..

Obrigado pelas correções... já apliquei e enviei pro SVN...

Você pode usar a Carta Fiança... ou assinar um Termo onde você promete praticamente deixar todos os seus bens para o Fisco em caso de comprovação de fraude com o seu programa... eu optei por assinar o documento... A AFRAC está tentando derrubar todas as exigências absurdas de carta fiança nos estados...

Experimente apagar o .DPK e baixar novamente... aparentemente não há nada errado com ele... Pode ser que a IDE tenha feito alguma alteração nos fontes do seu DPK

Apliquei uma possível correção... Testei no D7 e no Lazarus e em ambos a acentuação foi exibida corretamente...

Finalmente consegui concluir a analise a comitar as suas modificações... Elas foram tantas, que mudei a versão do componente para 2.00 Tente modificar a Classe TACBrTEFDRespCliDTEF para fazer chamadas para a DLL usando o padrão já utilizado em todo o ACBr.. (PAnsiChar)... mas não pude testa-la pois não tenho o Gerenciados do TEF da Direção... então não sei se quebrei algo... Revisei os fontes em busca de memory leaks e fiz alguns ajustes para evitar Warnings e Hints... Por favor revise o código postado e veja se há algo errado...

Graças aos esforços de Isaque Pinheiro (ACBr) a Andreano Lanusse (Embarcadero) agora o Projeto ACBr é "Embarcadero Technology Partner"... Com isso, os administradores do ACBr podem ter acesso a diversas versões do Delphi, além de conhecer com antecipação as novas versões do Delphi a serem lançadas... Eu como fundador e administrador do ACBr considero essa uma imensa conquista para o ACBr e sua comunidade... Um reconhcimento da Empresa considerada por muitos como a "nave mãe" Nós administradores do ACBr, nos compremetemos com isso, a garantir a compatibilidade com as versões do Delphi desde a 7 a todas as novas a serem lançadas... Com acesso facilitado às novas versões do Delphi, como primeira tarefa, esperamos melhorar significativamente a facilidade de instalação do ACBr no mesmo...

Vamos fazer mais uma tentativa, por favor: function OrdenarDAVs(const ADav1, ADav2: Pointer): Integer; var Str1, Str2 : String ; begin with TACBrECFDAV(ADav1) do Str1 := DtoS( DtEmissao ) + Trim(Numero) ; with TACBrECFDAV(ADav2) do Str2 := DtoS( DtEmissao ) + Trim(Numero) ; if Str1 Result := -1 else if Str1 > Str2 then Result := 1 else Result := 0; end; [/code]

Observe o LOG de retorno do ACBrMonitor... deve vir algo como: ERRO: O ECF bla-bla retorno o seguinte erro: FALTA DE PAPEL basta você pegar o retorno do ACBr e exibi-lo...

o correto seria essa propriedade ser ReadyOnly... ela só nao o é, pois na Epson você pode informar o numero de Decimais de preço e qtd (independente do que foi gravado na lacração do ECF) A cada ACBrECF.Ativar, a quantidade de decimais atual, gravada no ECF, será lida... isso não ocorreu ?

Não compreendi o problema... O ACBrECF retorna o erro tal qual ele é informado pelo ECF... mas como o Regys falou, ele deve ser tratado em blocos Try/Except

Sim... mas alguns ECFs só permitem a identificação do Cosumidor no Cabeçalho

Experimente modificar a function OrdenarDAVs para: function OrdenarDAVs(const ADav1, ADav2: Pointer): Integer; begin if (TACBrECFDAV(ADav1).DtEmissao (TACBrECFDAV(ADav1).Numero Result := -1 else if (TACBrECFDAV(ADav1).DtEmissao > TACBrECFDAV(ADav2).DtEmissao) and (TACBrECFDAV(ADav1).Numero > TACBrECFDAV(ADav2).Numero) then Result := 1 else Result := 0; end; [/code]

Tentou atualizar os fontes ?? ... procure por essa mensagem nos fontes da classe FiscNet... nem mesmo ela existe...

Essa propriedade apenas Indica se oECF está ou não em horário de Verão... Você só pode sair do horário de verão uma hora após o último documento emitido...

Oi Marcio, Obrigado pelas respostas... Você poderia me enviar a Unit ACBrTEFDTicketCar.pas atualizada ? acredito que a minha não seja a última versão...

Bom na verdade... ninguem usa este arquivo... nem mesmo o fisco... nunca vi um fiscal chegar em um PAF-ECF e pedir um ou outro arquivo... Isso é coisa para "Ingles ver"... Não existe nem mesmo validador para esses arquivos...

Acredito que não tenha este problema... pelo que notei ele procura pelo nome do dispositivo USB... (que sempre será o mesmo) Informações sobre drivers e aplicativos (FBIII).7z

Apliquei a modificação de para ... apesar de serem Tags com finalidades diferentes, a Tag provavelmente não funcione corretamente em vários modelos... sendo mais seguro usar ou até memso o proposto... Apenas não compreendi porque você precisou comentar a linha abaixo ? //DAVsEmitidos.Ordenar;

Acho muito deselegante a maneira como este tópico vem se desenvolvendo... Será que vocês acham que tem o direito de nos exigir uma verificação / correção ??? Todo o ACBr é OpenSource, e mantido por voluntários... Sua contribuição provavelmente é muito importante... mas isso não lhe dá o direito de exigir que ela seja analisada e aplicada no tempo que você ache conveniente... Se ninguem lhe respondeu, muito provavelmente é porque todos estão ocupados com outros assuntos do ACBr ou de suas próprias empresas...

Provavelmente seu ACBr está desatualizado... abra a Unit ACBrECFFiscNet.pas e veja no método: ArquivoMFD_DLL que não há esta mensagem...

Oi Marcio, Algumas dúvidas sobre os arquivos das novas classes... * Em ACBrTEFDBanese.pas linha 610... temos um Sleep(1000), que aprentemente está sem necessidade... pois ele está depois da leitura da Resposta... Posso remove-lo ? * Em ACBrTEFDClass.pas linha: 2471... fiquei com receio de aplicar o seguinte bloco: { Se é Multiplos Cartoes, e ainda Resta SALDO deve enviar um CNF } //if MultiplosCartoes and (RespostasPendentes.SaldoRestante > 0) then if ((MultiplosCartoes = True)and (RespostasPendentes.Count (NumeroMaximoCartoes = 2)) then [/code] Qual a finalidade desta modificação ? Fizemos algumas modificações nesse método... que acho que podem funcionar corretamente em todas as classes sem essa modificação... * Linha: 2534... vi que você comentou o bloco abaixo: [code] //if MultiplosCartoes and (NumeroMaximoCartoes > 0) and // Tem multiplos Cartoes ? // (Valor RespostasPendentes.SaldoRestante) and // Valor é diferente do Saldo Restante a Pagar ? // ((NumeroMaximoCartoes - RespostasPendentes.Count) // raise Exception.Create( ACBrStr( 'Multiplos Cartões Limitado a '+ // IntToStr(NumeroMaximoCartoes)+' operações.'+sLineBreak+ // 'Esta Operação TEF deve ser igual ao Saldo a Pagar' ) ); Mas acho importante mante-lo.... Notei alguns Warnings para a Unit: ACBrTEFDTicketCar.pas... [Warning] ACBrTEFDTicketCar.pas(667): Variable 'FechaGerencialAberto' might not have been initialized [Warning] ACBrTEFDTicketCar.pas(653): Variable 'HouveImpressao' might not have been initialized E olhando nos fontes, essas váriaveis locais realmente nunca foram inicializadas... A Unit ACBrTEFDTicketCar.pas está operacional ? Porque nessa Unit, a classe não pode ser herdada de: TACBrTEFDClass ?

Imaginei que você já soubesse...

Veja as funções PAFMF_*... elas fazem (quase) tudo que é necessário para o Menu Fiscal do PAF-ECF