Daniel Simoes

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

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

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 ?

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