Painel de líderes

Resolvido... exclui a COM no gerenciador de dispositivos, reiniciei o micro e agora ta legal. Obrigado Sérgio

Estou compartilhando uma alteração que fiz no processamento do retorno PRÉ-CRÍTICA para ser enviado ao SVN. Fiz o seguinte: Quando recebo um arquivo de retorno PRÉ-CRÍTICA da CEF e tento processá-lo, o ACBrBoleto me retorna a seguinte mensagem: "ACBrBanco.ACBrBoleto.NomeArqRetorno +'não é um arquivo de retorno do '+ Nome". O que eu fiz foi analisar o arquivo PRÉ-CRÍTICA e retornar uma mensagem mais específica quanto às informações contidas nesse arquivo. O arquivo PRÉ-CRÍTICA retorna na posição 143 os seguintes status: 3 - Arquivo PRÉ-CRITICA PROCESSADO; 5 - Arquivo PRÉ-CRITICA REJEITADO; 5 - Arquivo PRÉ-CRITICA REJEITADO - W (posição 14) - Mostra qual o motivo da rejeição (no caso mostra o código que contém a descrição do motivo da rejeição que está contido no manual CNAB240 da caixa). Criei também um método para retornar o TACBrTipoOcorrencia passando o codOcorrencia. DÚVIDA: Por enquanto, trabalho apenas com a Caixa Econômica federal e estou na dúvida se alteração que fiz poderia servir para qualquer banco, dessa forma eu poderia transferir o tratamento que fiz no arquivo específico da CEF (ACBrBancoCaixa) para o arquivo Geral (ACBrBoleto). Att. Wagner Freitas ACBrBancoCaixa.pas ACBrBoleto.pas

Boa pegada... e a UnitTeste se comportou bem no Lazarus... Já está no SVN...

Eu pedi para um amigo testar no delphi seatle e também funciona, isso quer dizer que é um problema do delphi. Com isso em mente comparei as funções do Delphi XE com a do Delphi Seatle. Delphi XE function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended; var LFactor: Extended; begin LFactor := IntPower(10, ADigit); if AValue < 0 then Result := Trunc((AValue / LFactor) - 0.5) * LFactor else Result := Trunc((AValue / LFactor) + 0.5) * LFactor; end; Delphi Seatle. function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended; var LFactor: Extended; begin LFactor := IntPower(10.0, ADigit); if AValue < 0 then Result := Int((AValue / LFactor) - 0.5) * LFactor else Result := Int((AValue / LFactor) + 0.5) * LFactor; end; Como se trata de uma função do Delphi que é usada dentro do RoundABNT, para resolver meu problema eu criei uma Função SimpleRoundToEX igual ao do Delphi Seatle e inclui dentro da unit ACBrUtil, e passei a usar ela no lugar da SimpleRoundTo do Delphi. Eu não sei se essa seria a melhor opção para o projeto, mas rodei a UnitTestes é funcionou direitinho. Segue unit para analise. ACBrUtil.pas acbrutiltest.pas

Delphi XE5.

Bom dia Pessoal! Na programação, segui o exemplo do SAT, deixei um campo para alteração do parâmetro da versão do Layout, eu tambem estava com problemas de versão de Layout e foi apenas mudar o valor de 0.06 para 0.07 e funcionou perfeitamente.

Não tinha lido as regras ainda, mil perdões ! Depois de quebrar bastante a cabeça consegui resolver, reinstalei a dll CAPICOM manualmente, e alterei a versão do documento fiscal no programa. Obrigado pela atenção !!

A chave de acesso possui 44 posições e não 36 como está na imagem.

Bom dia. Muito obrigado, @Daniel Simoes e @Celso. Problema resolvido. Bom dia, @jorge andrade. Realmente não é obrigatório, mas... Vamos nos precaver não é?

Fique a vontade para propor melhorias nos fontes... Use as UnitTestes, para saber se não quebrou algo...

Bom dia, Fiz um update agora e vi que foram incorporadas as alterações, vou botar uma versão no cliente e testar, mas creio que não irá gerar problemas, visto que as alterações estão iguais as que eu tinha feito e já está em produção no cliente, qualquer inconformidade eu retorno. Obrigado!! Fernando Schulz.

Implementa ai no ACBr e disponibiliza a todos! anexa os fontes aqui que submetemos ao svn

Olá, Como o ContadorNf e o Lucas Cardoso da Silva, preciso saber se Web Service disponibilizado pela Sefaz RS para Baixar Extrato/XML através do Certificado Digital do contador vai ser incluído no ACBR. A SEFAZ RS criou Web Service para poder acessar as notas com o CNPJ do contador, sem que o mesmo esteja informado na tag autXML, pois no caso das notas de Compra, isto é praticamente impossível. Digamos uma empresa que vende para inúmeros clientes, ela teria que ter o CNPJ do contador de cada um de seus clientes para acrescentar no momento da emissão da NF-e. Só assim, as notas teriam esta tag preenchida com o CNPJ DO contador do cliente para que o mesmo pudesse efetuar o download, na prática não funciona. Ex. Um supermercado que compra de 30 fornecedores, teria que entrar em contato com estes 30 fornecedores e pedir que cada vez que emitissem uma NF-e informassem o CNPJ do contador do Supermercado. Só que estes 30 fornecedores vendem pra inúmeras outras empresas, teriam que manter no seu banco de dados, atualizado, o CNPJ do contador de cada um destes clientes. Isto não funciona. Então a Sefaz RS criou Web Service para Distribuição para ser usado pelos contadores, que ficará disponível através da URL: https://nfe-rs-integracao.sefazvirtual.rs.gov.br/ws/NfeIntegracao/NfeIntegracao.asmx . O Boletim está disponível no link: https://www.sefaz.rs.gov.br/Site/MontaArquivo.aspx?al=l_dwn_doc_ws_contab Por enquanto este Web Service está disponível apenas na Sefaz do RS, mas provavelmente em pouco tempo será disponibilizado para outras UF´s e então mais empresas precisarão utilizá-lo através do ACBR No aguardo....

Prezados, enviei o arquivo errado. Segue o correto, da solução criada baseado na sugestão do Lesf. Darlana pcnRetDistDFeInt.pas

Veja no diretório: ACBr\Projetos\EmuladorBalanca\