drezius

Claro, nada que um ctrl+barra de espaço não resolvesse. Obrigado

Olá, fiz a atualização para o Trunk2 e estou com um problema ao validar o XML. Quando compilo meu projeto o Delphi 7 acusa erro na linha "ACBrNFe1.NotasFiscais.Valida;" acusando Undeclared identifier para o comando "Valida". Essa parte do meu código foi escrita há uns cinco anos, pelo menos, e é provável que esteja desatualizada. Alguém pode me auxiliar em como fazer a validação? ... //VALIDA ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(vAux); ACBrNFe1.NotasFiscais.Valida; if MessageDlg('A NF-e é válida. Deseja EMITIR essa NF-e?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin //ENVIA ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(vAux); ACBrNFe1.Enviar(vNSU); ...

PROBLEMA RESOLVIDO. A solução foi trocar o comando de leitura do XML, onde eu usava LerXMLFromString passei a usar LerXML e funcionou. O que antes estava assim: ACBrNFeDANFERaveCB1.MostrarPreview := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica> ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento> ACBrNFe1.ImprimirEvento; Ficou assim: ACBrNFeDANFERaveCB1.MostrarPreview := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica> ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName);//<XML Evento> ACBrNFe1.ImprimirEvento;

Juliomar, qual unit acbr faz o carregamento do xml? Sobre a versão, uso Delphi 7.

Pra não abrir novo tópico eu volto nesse. Se vocês abrirem o XML verão que o cOrgao está lá, e que no retorno consta "<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>". Mas ao tentar imprimir aparece 'campo cOrgao nao informado'. Depurando pelo Delphi (7) noto que o sistema entra na função LerXml da pcnNFeR e chama o raise 'Não encontrei inicio do URI: Id=', mas a mensagem não aparece na tela, e em seguida vem o 'campo cOrgao nao informado'. Já atualizei e recompilei os fontes do ACBr. Meu código de impressão é ACBrNFeDANFERaveCB1.MostrarPreview := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica> ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento> ACBrNFe1.ImprimirEvento; 4214100811038100017355001000000262100000262011011002-procEventoNFe.xml

Alguma sugestão?

Senhores, boa tarde, Reativando o tópico, pois o problema persiste. Mudei o componente e agora estou usando o ACBrNFeDANFERaveCB, mas ao tentar imprimir continua retornando a mesma mensagem, "Campo cOrgao não informado". Segue XML em anexo. Aproveitando o tópico, percebi que a tag <verEvento> no XML da CCe não está recebendo a informação que passo via código. No XML da NFe mostra a versão correta do sistema, já na CCe aparece sempre 1.00. É assim mesmo? 4214050811038100017355001000000213100000213211011004-procEventoNFe.xml

Coloquei o componente ACBrDANFeRaveCB1 no meu projeto e percebi que ao contrário do ACBrDANFeRave1, o ACBrDANFeRaveCB1 não possui a propriedade 'RavFile' para selecionar qual arquivo .rav será usado. O ACBrDANFeRaveCB1 assume automaticamente o arquivo que usa?

Obrigado, André. Qual componente tem suporte para impressão de eventos?

Italojjr, boa tarde, Acho que estou com dificuldade no entendimento do procedimento de impressão. No meu projeto delphi eu tenho o componente ACBrNFeDANFERave1. O código de impressão é aquele descrito acima. E na minha pasta de reports tenho o arquivo "NotaFiscalEletronica.rav". Pelo jeito está faltando alguma coisa, mas não consegui entender ainda o que. Pode me esclarecer? Obrigado.

Estou passando pelo mesmo problema. Já fiz algumas pesquisas no fórum e em outras fontes na internet, sem sucesso. A mensagem "Campo cOrgao não informado" aparece quando pego o XML da CCe e tento imprimir. Segue abaixo o arquivo XML e também o código implementado. O código que escrevi foi baseado no artigo do Régys Silveira. http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/ Meu código: procedure TFNFe.btnImprimeCCeClick(Sender: TObject); begin OpenDialog1.Title := 'Selecione o XML da CCe'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := '*'+DM.cdsPedidoNUCHAVEACESSONFE.Text+'*.XML'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFeDANFERave1.MostrarPreview := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica> ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento> ACBrNFe1.ImprimirEvento; end; end; 4213110811038100017355001000004807100004807811011010-procEventoNFe.xml

Bom dia, Estou reativando essa discussão. Estou passando pelo mesmo problema e não consegui resolver. Já fiz algumas pesquisas no fórum e em outras fontes na internet, sem sucesso. A mensagem "Campo cOrgao não informado" aparece quando pego o XML da CCe e tento imprimir. Segue abaixo o arquivo XML e também o código implementado. O código que escrevi foi baseado no artigo do Régys Silveira. http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/ Meu código: procedure TFNFe.btnImprimeCCeClick(Sender: TObject); begin OpenDialog1.Title := 'Selecione o XML da CCe'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := '*'+DM.cdsPedidoNUCHAVEACESSONFE.Text+'*.XML'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFeDANFERave1.MostrarPreview := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica> ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento> ACBrNFe1.ImprimirEvento; end; end; 4213110811038100017355001000004807100004807811011010-procEventoNFe.xml

Kiko, problema resolvido. Agradeço a atenção.

Kiko, boa tarde, segue XML em anexo. 42130908110381000173550010000044441000044445-NFe.xml

Kiko, boa tarde, segue em anexo.