André Ferreira de Moraes

igmaster2000 outro tópico sobre o mesmo assunto? Vc já foi alertado várias vezes, caso continue insistindo em abrir tópicos sobre o mesmo assunto seremos obrigado a excluir sua conta.

Programe o evento OnMsgPoucoPapel para destravar o teclado ou coloque -1 na propriedade ACBrECF1.MsgPoucoPapel para desabilitar a msg de pouco papel ou ainda no evento OnMsgPoucoPapel faça exibir uma mensagem num local que o usuário não precise clicar em OK, apenas informe que o papel está acabando.

Veja as propriedades abaixo: AcbrNFe1.WebServices.ConsNFeDest.PathArqEnv; AcbrNFe1.WebServices.ConsNFeDest.PathArqResp;

No Delphi, vá no menu "Project" e escolha a opção "Build ..." onde os ... é o nome do seu projeto e veja se o problema é resolvido. Caso o problema ainda ocorra, abra todos os formulários do seu projeto e veja em qual está ocorrendo o problema.

Como vc já viu em diversos posts q vc mesmo comentou, sua pasta schemas não está atualizada, e não adianta falar q já atualizou pq esse erro só ocorre qdo os schemas estão desatualizados. Baixe os schemas do site da NFe e atualize sua pasta - http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=/fwLvLUSmU8=

Falam que é, mas ninguém fiscaliza e nem obriga o uso, então...

Use a BUSCA antes de postar -

J := 1; for I:= 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count-1 do begin if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.chNFe) <> '' then begin Cmd.Resposta := Cmd.Resposta+sLineBreak+ '[RESNFE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+ 'NSU=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.NSU+sLineBreak+ 'chNFe=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.chNFe+sLineBreak+ 'CNPJ=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.CNPJCPF+sLineBreak+ 'xNome=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.xNome+sLineBreak+ 'IE=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.IE+sLineBreak+ 'dEmi=' +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.dEmi)+sLineBreak+ 'tpNF=' +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.tpNF)+sLineBreak+ 'vNF=' +FloatToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.vNF)+sLineBreak+ 'digVal=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.digVal+sLineBreak+ 'dhRecbto='+DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.dhRecbto)+sLineBreak+ 'cSitNFe=' +SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.cSitNFe)+sLineBreak+ 'cSitConf='+SituacaoManifDestToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resNFe.cSitConf)+sLineBreak; J := J + 1; end; end; J := 1; for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.chNFe) <> '' then begin Cmd.Resposta := Cmd.Resposta+sLineBreak+ '[RESCANC'+Trim(IntToStrZero(J,3))+']'+sLineBreak+ 'NSU=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.NSU+sLineBreak+ 'chNFe=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.chNFe+sLineBreak+ 'CNPJ=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.CNPJCPF+sLineBreak+ 'xNome=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.xNome+sLineBreak+ 'IE=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.IE+sLineBreak+ 'dEmi=' +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.dEmi)+sLineBreak+ 'tpNF=' +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.tpNF)+sLineBreak+ 'vNF=' +FloatToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.vNF)+sLineBreak+ 'digVal=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.digVal+sLineBreak+ 'dhRecbto='+DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.dhRecbto)+sLineBreak+ 'cSitNFe=' +SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.cSitNFe)+sLineBreak+ 'cSitConf='+SituacaoManifDestToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCanc.cSitConf)+sLineBreak; J := J + 1; end; end; J := 1; for i := 0 to AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1 do begin if Trim(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.chNFe) <> '' then begin Cmd.Resposta := Cmd.Resposta+sLineBreak+ '[RESCCE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+ 'NSU=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.NSU+sLineBreak+ 'chNFe=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.chNFe+sLineBreak+ 'dhEvento=' +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.dhEvento)+sLineBreak+ 'tpEvento=' +TpEventoToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.tpEvento)+sLineBreak+ 'nSeqEvento='+IntToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.nSeqEvento)+sLineBreak+ 'descEvento='+AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.descEvento+sLineBreak+ 'xCorrecao=' +AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.xCorrecao+sLineBreak+ 'tpNF=' +tpNFToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.tpNF)+sLineBreak+ 'dhRecbto=' +DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[i].resCCe.dhRecbto)+sLineBreak; J := J + 1; end; end;

Sem o LOG fica difícil saber qual pode ser o problema.

Então pesquise melhor, pois já existem diversos tópicos sobre o mesmo assunto. Vc pode continuar usando o comando NFe.CancelarNFe que o próprio ACBrNFeMonitor internamente faz o envio via evento ou usar diretamente o comando NFe.EnviarEvento, não me lembro se nesta versão 0.7.7.1 já está funcionando para o PR o cancelamento por evento, pois como sempre foi um dos últimos estados a implementar, mas na última versão disponibilizada pelo Isaque é certeza que está funcionando.

Paulo, Dúvida nova, tópico novo, leia as regras do fórum -

Mude as linhas de configuração para depois de configurar o modelo do ECF(Depois da linha ACBrECF.Modelo := TACBrECFModelo(GetIndiceECF(dtmECF.cdsECFMODL_ECF.AsString)) .

Poste a mensagem de erro COMPLETA.

Não sei se usar um campo do tipo inteiro para um valor de 115200 é a melhor opção, debugue e verifique como está ficando a propriedade BAUD após a atribuição feita na linha ACBrECF.Device.Baud := cdsECFVELOCIDADE.AsInteger;

Está sendo validado normalmente no site https://www.sefaz.rs.gov.br/nfe/NFE-VAL.aspx falta apenas a assinatura.

Seu primeiro comando ATIVAR está com a velocidade 9600 e no segundo 115200, configure o componente para desde o primeiro comando usar como velocidade 115200.

Implementei no ACBrNFeMonitor o comando NFe.Versao, que irá responder conforme o exemplo abaixo: NFe.Versao OK: 0.8.0b Os fontes já estão no SVN.

Tente adiantar a hora do computador e fazer o teste, ou use o comando NFE.ENVIAREVENTO diretamente e informe a hora manualmente.

Vc tentou instalar o pacote ACBrSerial.dpk no Delphi 5? Quais foram os erros?

Como o Juliomar já respondeu, basta baixar a última versão do ACBrNFeMonitor, que já estão implementados os comandos do CTe. Acesse a área de downloads - http://www.projetoacbr.com.br/forum/index.php?/files/category/1-utilit%C3%A1rios-acbrsac/ baixe a última versão e faça os testes.

Na Nota técnica referente aos eventos diz pra usar 91 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=bUBJ/PmtKQo= De qualquer forma, se vc informar o cOrgao no momento que está preenchendo as propriedades do evento, o componente não cairá nesse IF.

O SEFAZ NUNCA devolve a tag signature na consulta da situação da nota. A assinatura é gerada antes do envio, basta vc salvar o XML antes de enviar e atualizá-lo com as informações de autorização qdo acontecer algum problema na obtenção da resposta da autorização de uso.

Vc tem alguma NFe emitida para seu CNPJ em ambiente de homologação?

Vc está usando o DANFe em Rave e copiou o arquivo pra FastReport e quer q funcione?