peterson161

Primeira coisa: Você deve executar "instala.bat" como Administrador e verificar se está utilizando a versão correta das DLL's (32 ou 64). Caso o problema persista, veja isso: Erro mais comum: WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - <Signature xmlns=”http://www.w3.org/2000/09/xmldsig#”><SignedInfo><CanonicalizationMethod Algorithm=”http://www.w3.org/TR/2001/REC-xml-c14n-20010315″/><SignatureMethod Algorithm=”http://www.w3.org/2000/09/xmldsig#rsa-sha1” /><Reference URI=”#”> –URL:https://www.scan.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx – SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 Caso você tenha um certificado A3 parecido com um pendrive, esse erro pode não surgir, mas no caso do certificado padrão A3 similar a um cartão de crédito, esse erro pode ser comum quando unirmos Windows 7 + IE8. Classe não registrada Solução: Copiar as dlls capicom’s para o system32 do cliente e registrar, para registrar use o comando em Iniciar >> executar e digite: regsvr32 nomedadll.dll Certificado não encontrado Solução: Não estavam corretos os dados de numero de série e senha do certificado Erro no suporte a canais seguros Solução: Dll capicom.dll para windows 7, a do windows xp = 500kb, a do windows 7 505kb. Procure na internet a dll capicom.dll para windows 7 ela tem 5 kb maior que a do XP. Não se esqueça de copiar para o System32 e registrar. Iniciar >> Executar e Digite: regsvr32 c:\windows\system32\capicom.dll regsvr32 c:\windows\system32\msxml5.dll Reinicie o computador. Caso não funcione, verifique o conteúdo abaixo: Tente seguir o passo a passo abaixo: http://www.certisign.com.br/suporte/utilitarios-criptograficos/aic Usuários dos Windows Vista e IE 8.0 O Windows Vista e o navegador Internet Explore 8.0, possui diretrizes de segurança específicas que modificam o fluxo padrão de solicitação de um certificado digital baseado na estrutura ICP-Brasil. Em seu novo sistema operacional, a Microsoft alterou o processo com o qual os sistemas e aplicações de certificação digital trabalhavam até então. Assim, um certificado digital Certisign não pode ser emitido através do Windows Vista e do navegador Internet Explore 8.0 Para que o seu certificado digital seja gerado corretamente, o processo de emissão deverá ser realizado com o uso de um dos seguintes sistemas operacionais e navegadores: * Windows 2000 com Service Pack 4 instalado (SP4), através do Internet Explorer 6.0 ou 7.0; * Windows XP com Service Pack 2 instalado (SP2 ou superior), através do Internet Explorer 6.0 ou 7.0. Informamos que essa particularidade atinge exclusivamente o processo de emissão de seu certificado digital. Uma vez emitido nos ambientes descritos acima, é possível utilizá-lo em qualquer sistema operacional que possua suporte à certificação digital, incluindo o próprio Windows Vista e o navegador Internet Explore 8.0.

cdsItens: TClientDataSet; Está dentro do Danfe em QuickReport. Esta propriedade existe no QR5. Tente atualizar a sua versão do QR em http://www.filecrop.com/QuickReport-5-delphi-7.html e compile seu projeto novamente.

Desculpe a demora. Alterações conferidas e enviadas para o SVN - Revisão 4924.

Tente assim: sData := FormatDateTime('YYYY', qryNFe.FieldByName('DATA_EMISSAO_NF').Value) + FormatDateTime('MM', qryNFe.FieldByName('DATA_EMISSAO_NF').Value); sCaminho := ACBrNFe1.Configuracoes.Arquivos.PathNFe + '\' + sData + '\'; sNota := qryNFe.FieldByName('CHAVE_NFE').Value + '-nfe.xml'; ACBrNFe1.NotasFiscais.LoadFromFile(sCaminho + sNota);

Por favor, poste um trecho de seu código para vermos como você está enviando e recuperando o retorno.

Uso Delphi 7 com Capicom. Para fazer um teste geral, eu desinstalei por completo o meu componente, deletei os bpl's, deletei a pasta ACBr, baixei tudo via SVN e substituí as units originais pelas que você postou. Instalou perfeitamente após três pequenas alterações bobas, porém ncessárias na unit 'ACBrNFeUtil.pas': 1.) Na linha 1296 faltava um ponto-e-vírgula; 2.) Na linha 1588 alterei a linha Tipo := NotaUtil.IdentificaTipoSchema(AStr,I); Para: Tipo := NotaUtil.IdentificaTipoSchema(XML,I); 3.) Na linha 2008, eu comentei // tkUString, porque a minha unit 'C:\Arquivos de programas\Borland\Delphi7\Source\rtl\common\TypInfo.pas' não contém este Type e ao invés de inserí-lo, preferi comentar a linha que fazia referência à ele. Depois verifique se estas alterações são corretas mesmo, por favor. Após eu ter feito estas alterações e instalado novamente o componente com as suas units, consegui emitir Carta de Correção e fazer cancelamento de notas fiscais normalmente. Por enquanto é isso. Obrigado pelo esforço e pela competência. Parabéns.

Leia este tópico: viewtopic.php?f=6&t=6356

Primeiro, limpamos o componente por segurança: ACBrNFe1.NotasFiscais.Clear; Depois vamos inserindo as notas selecionadas. As notas vão ficando armazenadas no componente: for cont := 0 to SelectedPedidos.Count - 1 do ACBrNFe1.NotasFiscais.LoadFromFile(SelectedPedidos.Strings[cont]) // <<== Caminho do arquivo XML // Aqui neste caso, você teria que concatenar uma string para formar o nome do arquivo XML referente ao [cont] Depois mandamos imprimir: ACBrNFe1.NotasFiscais.Imprimir;

Não sei se entendi corretamente o que você deseja, mas eu testei com o Danfe em Rave arquivo e funcionou assim: - Carreguei as notas desejadas no componente; - Utilizei ACBrNFe1.NotasFiscais.Imprimir; Se eu selecionava "preview", exibia o preview de todas de uma só vez; Se eu selecionava "printer", enviava todas para a impressora. Boa sorte.

Aparentemente tem uma falha nessa lógica. Veja: A primeira é nota é "cont 0" Você está mandando o preview ficar false se o cont for maior ou igual à 1. Então na primeira nota o preview está true e somente a partir da segunda é que fica false.

Um outra coisa que você pode fazer, é tentar utilizar outro componente Danfe para ver se o erro persiste. Pelo que você disse, creio que seja problema específico do Danfe.

Wilson, após as atualizações do Italo, eu testei aqui e funcionou perfeitamente, ok ?

Esta propriedade existe no QuickReport 5. Baixe a versão para Delphi 2007 em http://www.mediafire.com/?eg0nnod4z9z

Esta mensagem aparece porque você deve abrir o arquivo de origem ACBrNFeDANFeQR antes.

Configure a pasta onde salvar os arquivos de cancelamento: ACBrNFe1.Configuracoes.Arquivos.PathCCe := {Informe a pasta de salvamento}; ACBrNFe1.Configuracoes.Arquivos.Salvar := True; Após efetuar o cancelamento, o componente irá salvar o arquivo nesta pasta e você poderá enviá-lo para o destinatário, com o nome de [Chave de acesso-ProcCancNFe.xml] Aproveitando, já que está mexendo nisso, configure as outras pastas também: ACBrNFe1.Configuracoes.Arquivos.PathNFe := {Pasta onde serão salvas as notas fiscais autorizadas}; ACBrNFe1.Configuracoes.Arquivos.PathCan := {Pasta onde serão salvas as notas fiscais canceladas}; ACBrNFe1.Configuracoes.Arquivos.PathCCe := {Pasta onde serão salvas as cartas de correção}; ACBrNFe1.Configuracoes.Arquivos.PathInu := {Pasta onde serão salvos os pedidos de inutilização de faixa de numeração}; ACBrNFe1.Configuracoes.Arquivos.PathDPEC := {Pasta onde serão serão salvos os DPEC's}; ACBrNFe1.Configuracoes.Arquivos.Salvar := True; ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True;

Se você já tem o arquivo XML salvo no computador, pode fazer assim: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(Arquivo.XML); Se você tem o conteúdo do XML salvo no banco de dados, pode carregá-lo assim: var stStreamNF: TStringStream; begin stStreamNF := TStringStream.Create('Conteúdo do XML'); ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromStream(stStreamNF); end;

Na unit 'ACBrDANFeCBRaveRetrato.pas', a partir da linha 898, descomente este trecho: //if (Transp.Vol.Items[i].qVol <> 0) then Box([fsTop],PosX,YPos,20,aHeigthPadrao,'Quantidade',IntToStr(Transp.Vol.Items[i].qVol),taRightJustify); //else // Box([fsTop],PosX,YPos,20,aHeigthPadrao,'Quantidade','',taRightJustify); Box([fsTop,fsLeft],XPos,YPos,34,aHeigthPadrao,'Espécie',Transp.Vol.Items[i].esp,taCenter); Box([fsTop,fsLeft],XPos,YPos,50,aHeigthPadrao,'Marca',Transp.Vol.Items[i].marca,taCenter); Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Numero',Transp.Vol.Items[i].nVol,taCenter); //if (Transp.Vol.Items[i].pesoB <> 0) then Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Peso Bruto',NotaUtil.FormatFloat(Transp.Vol.Items[i].pesoB,NotaUtil.PreparaCasasDecimais(3)),taRightJustify); //else // Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Peso Bruto','',taRightJustify); //if (Transp.Vol.Items[i].pesoL <> 0) then Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Peso Líquido',NotaUtil.FormatFloat(Transp.Vol.Items[i].pesoL,NotaUtil.PreparaCasasDecimais(3)),taRightJustify,True); //else // Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Peso Líquido','',taRightJustify,True); Com isso, ele não vai mais inserir valor zero quando não tiver nada no XML

Por favor, poste seu XML e informe qual Danfe que você usa. Creio que todos os Danfes, nestes campos de volumes, exibem somente o conteúdo do XML.

Ou você pode informar o E-mail do emitente na propriedade 'Email' do componente Danfe.

Poste o XML gerado por favor.

Eu dei uma olhada no seu XML e como dito pelo Igor, está errado. Eu também trabalho com emitente Simples Nacional e segundo orientações de vários contadores e pesquisas na internet, para este tipo de regime tributário, deve-se colocar CST 99 para PIS e COFINS. Desta maneira, enquadra-se nas tags e . Nos dados adicionais você informou um valor de R$ 2,95 e alíquota de 17,00%. Do jeito que está, a conta não bate. Por ser Simples Nacional, considerei o valor de R$ 2,95 e alterei a alíquota para 5,00%. Também alterei o CSOSN para 101 (Tributada pelo Simples Nacional com permissão de crédito, que é o seu caso, segundo o XML). Desta maneira bate certinho. Segue trecho do seu XML alterado: - - - 0 101 5.00 2.95 - - 99 0.00 0.00 0.00 - - 99 0.00 0.00 0.00 Eu sempre faço assim em ambiente de produção e valida sem problemas.

Pelo que entendi, nesta máquina a sua aplicação funciona com o certificado da Caixa e com o da Certisign não, certo ? Sendo assim, seria interessante instalar o certificado da Certisign em outra máquina, para ver se dá o mesmo erro com a sua aplicação. Eu também uso certificado da Certisign e tive um problema similar ao seu, que foi solucionado após reinstalar o Windows, depois de eu ter constatado que o problema era com a máquina e não com a instação do certificado. Fiz esta constatação instalando o mesmo certificado em outra máquina e rodou perfeitamente. Assim eu tive certeza que o problema era com a instalação do Windows.

Tente instalar o certificado em outra máquina. Talvez o problema seja especifíco com o seu Windows.

O componente gera um XML separado para a carta de correção com o nome de: 1101103512056192272000010755000000003090161053680501-ProcEventoNFe.xml

Tente fazer igual à rotina do botão 'btnCarregarXMLEnviar' do Demo: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(dmg.NFEmpresaENVIO.AsString + '\' + vNotasFiscais[I].XMLName); ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.Enviar(1,True);