Daniel Simoes

Use o proprio arquivo de resposta (SAI.TXT) o a resposta do Socket... pegue toda a String que vem depois de "ERRO: "

Sim, é "ECF." ... Atualize o seu ACBrMonitor...

Você não infomou a Marca e Modelo do ECF, qual programa está usando, etc, etc... Dificilmente alguem conseguirá lhe ajudar...

Oi Robson, Acho que funcionaria.. Os problemas são: - A programação não é persistente... Ou seja, a cada re-Ativação teria que programar novamente.. - Funcionaria desta maneira apenas para este modelo... o usuário não teria o mesmo funcionamento quando trocasse de Marca de ECF...

Por favor... atualize seus fontes... você está com uma Unit completamente defasada... Veja a Unit atual... http://acbr.svn.sourceforge.net/viewvc/ ... iew=markup

Você tem acesso aos fontes do ACBr ? Experimente alterar em ACBrECFFiscNET.pas, linha 1315 para: with FiscNETComando do begin if fsComandoVendeItem = '' then NomeComando := 'VendeItem' else NomeComando := fsComandoVendeItem ; AddParamInteger('CodAliquota',CodAliq) ; AddParamInteger('CodDepartamento', 0); AddParamString('CodProduto',LeftStr(Codigo,48)); AddParamString('NomeProduto',LeftStr(Descricao,200)); AddParamDouble('PrecoUnitario',ValorUnitario); AddParamDouble('Quantidade',Qtd); AddParamString('Unidade',Unidade); end ; EnviaComando ; [/code]

Apenas em intervenção técnica. Nas antigas matriciais isso pode ser feito fora da Intervenção

Porém há algo estranho... ele está entendendo que todo o conteudo do arquivo é apenas um unico comando... veja: Crie um ENT.TXT no Bloco de Notas, semelhante ao seu ENTBoleto1.ini, salve-o na pasta de monitoramento e verifique o resultado...

O ECF retornou 0 para a consulta de Arredondamento... e segundo o manual: Ou seja, este ECF está programado para efetuar o Arredondamento segundo a ABNT... Pelo que entendi você deseja desconsiderar a programação do ECF e forçar um Truncamento com o envio da Informação do Departamento na Venda de Item, certo ?

Até onde eu sei isso não existe... Você precisa levar um PinPad... compre um, você sempre precisará dele para testes...

Tentamos evitar ao máximo comandos com nomes similares... Acho que isso é uma grande falha das DLLs de ECFs, pois confundem muito o usuário... A questão do departamente poderia ser resolvida com um novo Parâmetro, no final da lista já existente, com o valor default = -1 por exemplo... 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... Ou seja, se ele informa para o ACBr que fará o Truncamento... é isso que esperamos dele na Venda de Item... Por favor anexe o LOG gerado pelo ACBrECF

Humm.. agora que reparei o erro de sintaxe no SAI.TXT... Como está o ENT.TXT que você está gerando ?

Puxa vida... você levou a sério mesmo o que falei... Bom, não sou a pessoa mais inidicada para lhe ajudar nessa tarefa burocrática... em nossa empresa temos uma funcionária dedicada apenas para isso, tamanho é o trabalho que isso gera... Mas está tudo lá no site... Você não precisa pagar carta fiança ao Banco... basta assinar os documentos solicitados...

Obrigado Marcio, Acho que no fim eu já estava com a versão correta... comparando com a sua atual, vi apenas as minhas modificações...

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 ?