marcelo morini

Vou tentar

Acabei de atualizar a versão do ACBr no Delphi 7, da 2 para a 3, deletei todos os arquivos do diretório do Tortoise, baixei tudo novamente, apaguei todas as entradas dos diretórios na Library, desinstalei o Componente antigo, utilizei o Batch apagarAcbr e refiz a instalação. Instalou perfeitamente sem nenhum erro, porém ao abrir o aplicativo de Exemplo e tentar compilar aparecem vários erros: - unit pcnNfeW > função TNFeW.GerarXml > GerarChave Falta um parametro na função, o tpEmi, colocando qualquer numero funciona, porém não é o correto. - Na mesma função nfe.Ide.cNF := RetornarCodigoNumerico(nfe.infNFe.ID); a função requer 2 parametros, porém somente está especificado um depois na procedure TNFeW.GerarIde Gerador.wCampo(tcStr, 'B03', 'cNF ', 09, 09, 1, IntToStrZero(RetornarCodigoNumerico(nfe.infNFe.ID), 9), DSC_CNF); Novamente somente está especificado um parametro Depois mais abaixo aparece o erro [Error] pcnNFeW.pas(622): Undeclared identifier: 'DSC_CM3' Depois na Unit WebServices [Error] ACBrNFeWebServices.pas(489): Undeclared identifier: 'NFecabMsg' Com tantos erros assim de compilação, só posso concluir que fiz algo de errado na reinstalação

...

Interessante ... Eu repliquei, no meu sistema, praticamente o sistema demo do ACBR, e o numero de série do certificado fica no arquivo .INI, pois como tenho apenas um certificado por máquina, até então nunca deu erro. Utilizamos o certificado A3 e basta o cartão estar na leitora que ele ja fica ativo, por isso, penso eu, que a função GetCertificado dava certo ... vou tentar fazer um IF do numero de série do arquivo INI com o numero de série do componente para ver se consigo filtrar. E que eu quero fazer uma verificação simples tipo: Se certificado presente na máquinha então inicio Busca Notas Fiscais emitidas para o CNPJ se encontrar alguma nota então inicio salva no banco de dados para posterior envio do Manifesto fim fim senão não faz nada

Encontrei um novo método, mas também tem hora que funciona e tem hora que não funciona. ACBrNFe1.Configuracoes.Certificados.GetCertificado.Template.IsPresent; do tipo "WordBool" To tentando!

Xará ... dentro da função GetCertificado, quando o certificado não está presente, não está chegando até o final da procedure para exibir a mensagem: 'Certificado Digital não encontrado!' Ele exibe a mensagem: 'Erro ao criar a chave do CSP.' e passa normalmente sem o certificado. Isso começou a ocorrer após a reinstalação do ACBr para atualização no inicio do mês, até então eu sempre utilizei a função GetCertificado para parar a execução antes de entrar na procedure. Será que mudaram alguma coisa?

Bom dia ACBr ... Estou implementando uma função em meu sistema, a qual necessita executar apenas no terminal que estiver com o certificado A3 presente. Tenho revirado o fonte em busca da função, mas não estou conseguindo achar. Alguém sabe como faço? Antigamente bastava colocar essa linha que aparecia a mensagem de "Certificado digital ausente" ACBrNFe1.Configuracoes.Certificados.GetCertificado Porém não está mais funcionando. Vou fazer uma verificação a cada primeiro acesso do dia para fazer uma busca por NFe emitidas, assim monto a base de dados para posterior ciencia da operação.

Implementei o envio manual do email ... também super tranquilo com 3 componentes nativos do Delphi (IdSSLIOHandlerSocket, iDSMTP e iDMessage). Basta chamar o procedimento, setar os dados do emitente e remetente, anexar o XML e enviar. O envio email de cancelamento da NFe eu também faço da mesma forma do envio da autorização.

Uma dúvida sobre o envio do XML por email ao cliente ... Existe um procedimento semelhante ao da NFe "ACBrNFe1.NotasFiscais.Items[0].EnviarEmail()" ... ou deve ser implementado manualmente?

Galera. ACBr CCe Implementado, testado e confirmado. Algumas considerações aos que tem dúvidas: 1- A carta de correção eletrônica - CCe (Nota Técnica 2011.003) é de existencia APENAS DIGITAL (NÃO É IMPRESSA). Uma vez a CCe sendo ENVIADA com SUCESSO para a SEFAZ, ela se torna um EVENTO da NFe (que ficará "atrelada" à mesma) e poderá ser CONSULTADA através do Portal Nacional da NFe. 2- Uma NFe pode ter até 20 cartas de correção e a última emitida sempre substitui as anteriores, assim o emissor deve consolidar o texto na nova carta de correção. 3- Tem-se até 720 horas (30 dias) da autorização de uso da NFe para enviar cartas de correção. Sobre a impressão da Carta de Correção: 4- Não existe impedimento para emitir uma CCe para corrigir uma NFe de mercadoria que ainda não deu saída da empresa, contudo o procedimento mais adequado nesta situação é o cancelamento da NFe incorreta e a emissão de uma NFe com os dados corretos. 5- Não existe modelo ou layout de impressão da CCe, assim como inexiste o modelo impresso para a carta de correção em papel. Contudo a empresa pode criar no padrão que julgar conveniente. Os dados são simples para serem enviados e a maioria podem ficar fixos no código fonte ou em um arquivo .INI. O mais complicado de implementar é a lógica de habilitar e desabilitar os botões, o restante é super tranquilo. Em tempo, obrigado à equipe ACBr. At. Marcelo Morini Delphi Developer