Marcelo Bill

Bom dia Regys e demais companheiros Não sei como voce fez o seu teste, mas nem sempre a forma que se faz por ai é igual a que é necessária por arqui, bom mas isso não vem ao caso agora, o importante é que consegui resolver o problema usando uma função acho que do acbr For i:=0 to dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento:=FormatFloat('00',dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml:=ConverteXMLtoUTF8(dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML); Era somente isso que eu queria e tentei explicar desde o inicio, o XML quando abria no navegador aparecia que estava com falhas, na realidade é porque no XML contem palavras acentuadas e o componente não retornava o XML com cabeçalho de UTF8. Obrigado a quem me ajudou Bom dia a todos

Boa Regys, Mas me responde como adiciono o cabeçalho, visto que estou pegando esse conteúdo da XMLEvento que vem do componente ? Seu eu fizer isso, acredito que vai ser uma baita gambiarra For i:=0 to acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento := FormatFloat('00',acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml :='<?xml version="1.0" encoding="UTF-8"?>'+acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento.XML;

Pessoal acho que o problema nesse XMLEvento está na acentuação do Texto do Retorno onde diz: </X509Certificate> </X509Data> </KeyInfo> </Signature> </evento> <retEvento versao="1.00"> <infEvento><tpAmb>2</tpAmb> <verAplic>SP_EVENTOS_PL_100</verAplic> <cOrgao>35</cOrgao> <cStat>135</cStat> <xMotivo>Evento registrado e vinculado a NF-e</xMotivo> <chNFe>35151068050350000104550010000000021000000024</chNFe> <tpEvento>110110</tpEvento> <xEvento>Carta de Correção registrada</xEvento> <nSeqEvento>2</nSeqEvento> <CNPJDest>03679163000130</CNPJDest> <dhRegEvento>2015-10-17T12:09:47-03:00</dhRegEvento> <nProt>135150004820391</nProt> </infEvento> </retEvento> </procEventoNFe> Pois, editei o XMLEvento no bloco de notas e fui acertando as posições até onde ele informava o erro ao abrir no navegador, então deixei esse texto em negrito da seguinte forma, "<xEvento>Carta de Correcao registrada</xEvento>" , tirei o acento, e depois salve o texto como xml novamente, pasmem, o xml abriu normalmente no navegador, agora não sei se procuro um POG para resolver ou se voces podem me auxiliar quanto a esse problema.

Bom dia Seguinte, desculpe se não fui claro, é fato, realmente lendo o post desde o incio, acabei misturando as duvidas, porém são dúvidas que se resolvidas em uma delas, as demais também serão resolvidas, então vamos fazer o seguinte: apaga tudo que perguntei acima e vamos começar do zero. Infelizmente não consigo fazer um passo a passo usando o demo, pois no demo não tem a possibilidade de fazer conforme o que estou precisando, mas vou tentar explicar passo a passo. Primeiro: a) Quando faço um evento CC-e, consigo enviar normalmente; b.) Após o envio, uso a opção vXML:=acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; para capturar o conteúdo do XMLEvento para salvar no Banco de dados; c) Neste momento, eu consigo imprimir o Evento com os comandos abaixo o que ocorre normalmente, ou seja é impresso. With acbrNFe do begin if qEvento.fieldByName('XML').AsString<>'' then begin EventoNFe.Evento.Clear; EventoNFe.LerXMLFromString(qEvento.fieldByName('XML').AsString); ImprimirEvento; end else begin Showmessage('XML não Existe no Banco de Dados'); end; end; d) Bom, até ai, eu já tenho o XMLEvento armazenado no banco de dados conforme o campo qEvento.FieldByName('XML').AsString e) Agora, eu preciso salvar esse XMLEvento que foi gravado no bando de dados para um arquivo externo, cujo, possa ser enviado tando para o destinatário como para o contador no final do mês. só que o conteúdo do XMLEvento que foi salvo conforme letra {b} acima, se eu tentar copia-lo ou salva-lo como arquivo, ao tentar verificar seu conteúdo utilizando um navegador ocorre um erro dizendo que o XMLEvento está mal formado conforme foi Postado segunda às 23:44 Segundo: Consulta NFE Supondo que tenha ocorrido alguma impossibilidade de eu salvar no banco de dados o XMLOriginal no momento do Envio e ou salvar o XMLEventoOriginal no momento do EnvioEvento, venho expor: a) Neste caso, Executo uma Consulta e faço uso dos comandos abaixo: acbrNFe.NotasFiscais.Clear; if qNota.FieldByName('xml').AsString<>'' then begin acbrNFe.NotasFiscais.LoadFromString(qNota.FieldByName('xml').AsString); end else begin Função_GerarXML; acbrNFe.NotasFiscais.Assinar; end; acbrNFe.WebServices.Consulta.NFeChave := qNota.FieldByname('DANFE').AsString; acbrNFe.WebServices.Consulta.Executar; VarRetorno := acbrNFe.WebServices.Consulta.cStat; b.) Para Capturar o Retorno do conteúdo da XML da Nota eu utilizo vXML := acbrNFe.NotasFiscais.Items[0].XML; c) Agora, devido a essa nota conter Eventos vinculados a ela, fiz um For para percorrer todos os eventos vinculados a nota conforme os comandos abaixo: For i:=0 to acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento := FormatFloat('00',acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml := acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento.XML; d) Com os comandos acima, eu tenho a possibilidade de Salvar o conteúdo do XML da nota no banco de dados e ou o conteúdo do XMLEvento no banco de dados, bem como, se eu quiser imprimir o evento depois disso, também consigo imprimir normante conforme a letra {c} acima, no entanto se eu tentar copia-lo ou salva-lo como arquivo, ao tentar verificar seu conteúdo utilizando um navegador ocorre um erro dizendo que o XMLEvento está mal formado conforme foi Postado segunda às 23:44 É só isso que estou tentando dizer, veja, não estou dizendo que o componente tem erros, e sim tentando perguntar a voces se o que estou executando está correto dentro daquilo que estou desejando fazer, visto que ocorre essa dificuldade. Pois, ao enviar o XMLEvento para o destinatário, o mesmo reclama que não consegue abrir o XMLEvento que foi enviado para ele. Espero que agora eu tenha descrito o problema de uma maneira geral. abraço a todos

Bom dia Regys, Isaque, Italo, Daniel e demais companheiros Acho que vocês me deixaram de castigo Alguém poderia mandar uma palavra consolo para minhas dificuldades ? Obrigado

Regys Agora acho que consegui gerar o XML Eu estou fazendo assim: ####################################### procedure TF_NFE.acSincronizarXMLExecute(Sender: TObject); Var vRet:integer; vArquivo,vIdEvento,vTpEvento,vChave:String; vXml:string; zVenda:TZQuery; i:integer; begin if Permitido(dm.LoginCNPJ.AsString,'NFE_6')=False then begin //consultar Exit; End; zVenda:=TZQuery.Create(nil); zVenda.Connection:=dm.BD; Try if dm15.NFE.RecordCount>0 then begin if dm15.NFEDANFE.AsString='' then begin mBox('NF-e sem chave. Tente enviar novamente e depois sincronize','E',[mbok]); Exit; end; dm00.acbrNFe.NotasFiscais.Clear; if dm15.NFE.FieldByName('xml').AsString<>'' then begin dm00.acbrNFe.NotasFiscais.LoadFromString(dm15.NFE.FieldByName('xml').AsString); end else begin acGerarXML.Execute; dm00.acbrNFe.NotasFiscais.Assinar; end; dm00.acbrNFe.WebServices.Consulta.NFeChave := dm15.NFE.FieldByname('DANFE').AsString; dm00.acbrNFe.WebServices.Consulta.Executar; vRet:=dm00.acbrNFe.WebServices.Consulta.cStat; case vRet of 100,150:Begin Case vRet of 100:mBox('Autorizada ','I',[MBOK]); 150:mBox('Autorizada Fora do Prazo','I',[MBOK]); end; dm15.NFE.Edit; dm15.NFE.FieldByName('SITUACAO').AsString :='1'; //Validada dm15.NFE.FieldByName('DANFE').AsString :=dm00.acbrNFe.WebServices.Consulta.NFeChave; dm15.NFE.FieldByName('LOTE').AsInteger :=dm15.NFENOTA.AsInteger; dm15.NFE.FieldByName('PROTOCOLO').AsString :=dm00.acbrNFe.WebServices.Consulta.Protocolo; dm15.NFE.FieldByName('XML').AsString :=dm00.acbrNFe.NotasFiscais.Items[0].XML; dm15.NFE.Post; dm15.NFE.ApplyUpdates(-1); {Aqui o componente Consulta retorna todos os eventos ligados a NF-e} For i:=0 to dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento:=FormatFloat('00',dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.LerXml; vXml:=dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML; dm15.EventoConsulta.Close; dm15.EventoConsulta.Params.ParamByName('pNota').AsInteger :=dm15.NFE.fieldbyname('nota').AsInteger; dm15.EventoConsulta.Params.ParamByName('pSerie').AsString :=dm15.NFE.fieldbyname('Serie').AsString; dm15.EventoConsulta.Params.ParamByName('pIdEvento').AsInteger :=StrToInt(vIdEvento); dm15.EventoConsulta.Open; if dm15.EventoConsulta.RecordCount>0 then begin dm15.EventoConsulta.Edit; dm15.EventoConsulta.FieldByName('XML').AsString:= vXml; dm15.EventoConsulta.Post; dm15.EventoConsulta.ApplyUpdates(-1); end; end; End; 101,151,155:Begin ####################################### Entao, estou usando a linha em negrito para armazenar o conteudo do XML Evento na variavel vXML e posterior, gravar no banco de dados logo abaixo Segue anexo o que estou recebendo nessa vXml Desculpe se fui áspero em algumas palavras, sou um ser humano. abraço a todos a.xml

mcola No meu sistema eu armazeno em tabela vinculada a venda tipo tblReceber e gravo a forma de pagamento selecionada, portanto no momento da impressao Case formapg.itemindex of 0:mpdinheiro; 1:mpCheque; 2:mpCartaoCredito; else mpOutros end;

Bom dia Regys Nossa, estou lutando pra trazer o XML, agora não consigo mais nem trazer o que estava meio quebrado como informei anteriormente, ta uma confusão na minha cabeça puxa, me da uma dica de como fazer o passo a passo na consulta de forma que eu possa tanto ter localmente os XMLs tanto da NFE quanto do Evento bem como, quais as propriedade que posso utilizar para obter o XML da NFE e do evento para armazenar em memoria, a fim de salvar no de dados. Só isso que preciso, no mais estou muito feliz. ####################################################### tipo: acbrnfe.consultar Retorno NomedoArquivo:=acbrnfe.consulta.retorno.nomedoarquivo xml:=acbrnfe.consulta.retorno.ConteudodoXMLOriginal Retorno dos Eventos For i:=0 to QtdeEventos do begin NomedoArquivoEvento:=acbrnfe.consulta.retorno.nomedoarquivo; xml:=acbrnfe.consulta.retorno.ConteudodoXMLOriginal end; ####################################################### Regys, tenho certeza que essa é a duvida de muitos outros e que as vezes, assim como eu, acaba fazendo uma POG pois não consegue usar os recursos fantasticos desse Componente chamado ACBR. Queria eu, poder trabalhar ao lado de voces e ter a condição de conhecimento sobre componente, ter a possibilidade de escrever sempre um passo a passo para todos os contribuintes do ACBR seja ele financeiro ou de desenvolvimento. Se voce não puder ajudar neste aspecto, espero que uma boa alma possa pelo menos dar umas dicas. abraço a todos

Valeu meu querido, agora voce deu uma nova luz, comentou da versão 7 blz vou testar e te falo obrigado

ok infelizmente agora ja não consigo mais testar, eu não tenho ECF, normalmente testo em meus clientes amanha farei isso logo cedo obrigado

Compilei o ECFTeste.EXE, agora eu executo-o e o mesmo fecha automaticamente. O que é isso voce pode me dizer ? em outros tempos li sobre isso, disseram que GBPSV.EXE o duro é tirar o bichinho, não sei se é isso

Ryan Negativo, fiz os testes usando DLLs do AcbrDLL com protocolounico=1 fiz os testes usando DLLs do AcbrDLL com protocolounico=0 fiz os testes usando DLLs do WinMFD2 com protocolounico=1 fiz os testes usando DLLs do WinMFD2 com protocolounico=0 fiz testes acima, somente dentro da pasta do aplicativo fiz testes acima, copiando os arquivos DLLs para System32 Infelizmente não rolou ele simplesmente da uma msg xBematech_FI_ArquivoMFDPath. Cod.: 0 - Erro de Comunicação ! Bom, pra não atrasar nenhum cliente, acabei tomando a liberdade de instalar o aplicativo do Fabricante, mas como o Daniel solicitou, ainda não estarei morto no assunto. Vou levar o ECFTeste para verificar se ocorre os mesmos problemas. obrigado pela ajuda abraço

Daniel em ambas Bematech - erro xBematech_FI_ArquivoMFDPath, Cod.: - 1 - Erro de Execução na Função Daruma - não dá msg de erro, porém não gera os arquivos da NFP como gerava antes um arquivo para cada dia Para Gerar os arquivos da NFP os quais são enviados para o portal da NFP O comando executado : acbrECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,'c:\teste'); No post anterior tem um log da Bematech talvez neste caso resolva algo, porem o da Daruma não sei realmente Lembrando que já atualizei as DLLs conforme o componente, deletei tudo que existia de Bematech e deixei somente as DLL/INI de Bema dentro da pasta do EXE reiniciei a maquina e a msg é acima obrigado

Daniel bom dia D7+FB+Capicom+3camadas Estou tentando gerar os arquivos da NFP em bemateck e o erro está indicando que ao assinar o arquivo retorna = 0 BemaFI32-20151013.log comentei a linha que gera a assinatura do EAD e fui tentar num cliente com Daruma, não deu erro nenhum procedure TACBrECF.PafMF_MFD_Cotepe1704(const DataInicial, DataFinal: TDateTime; const PathArquivo: String); begin Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMFD); //Self.AssinaArquivoComEAD(PathArquivo); end; porém não gerou os arquivos como gerava antes, ou seja um arquivo para cada dia. Tava funcionando tão bonitinho, o que aconteceu, isso foi depois que voces modificaram para acbrECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,vDestino); Alguma novidade, será que teremos que realmente baixar o aplicativo do fabricante pra fazer isso ? abraço BemaFI32-20151013.log

Olá Estou de volta, acabei de atualizar o acbr e tentei a mesma operação de consultar um NFE que contem 1 evento de alteração de endereço de entrega Após o retorno da consulta eu tento imprimir o evento e ele imprime normalmente, porém se eu tentar abrir o xml usando o navegador ele da a seguinte mensagem A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos XSL. Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. Caractere inválido encontrado no texto. Erro ao processar o recurso 'file:///D:/CLIENTES/HOMOLOGA/NFE/110110351510680503500... só que o texto que tem na CC-e é exatamente este "CORRECAO DO ENDERECO DE ENTREGA" ou seja, nenhum caracter especial, nenhum acento, nenhuma quebra de linha, enfim nada. Esse fato, está gerando um problema, quando mando enviar o xml de evento tanto ao destinatario quanto ao contador, pois eles não conseguem abrir ou importar o xml. abraço

Ola Isaque, valeu pela resposta, porém encontrei uma outra forma de Salvar o XML em arquivo, afinal, eu tenho ele salvo no Banco, então nas interrogações acima eu fiz o seguinte. qEvento.FieldByName('xml').SaveToFile(tpEvento+Chave+IdEvento+'-procEventoNFe.xml'); Deu certinho. Testei o que voce respondeu mas infelizmente não fez absolutamente nada, estou definindo Salvar Evento, salvar aquivos, etcc.. ainda no mesmo assunto, porém em situação diferente. veja: Agora estamos falando da Consulta. Como eu faço a consulta da NFe cuja também não tenho nenhum problema, seguindo no caso de evento. Tenho uma nfe validada em (homologação) e junto dela tenho uma CC-e, tipo (alteração de dados da entrega), no portal está correto, tudo certinho. Supomos que por algum motivo, após o envio do evento, o sistema não tenha conseguido salvar o XML do evento no momento do envio, e como padrão, os clientes já se acostumaram enviar novamente até receber a mensagem de Duplicidade, bom neste caso, o cliente faz uma consulta, com a consulta, faço seguinte: Se no banco de dados não existir o xml gravado, mando gerar+validar+assinar e em seguida recebo a resposta do portal quanto a validade da xml, de outra forma, se a xml existir no banco, simplesmente digo ao sistema que a nfe é legal. Porém, seguindo adiante, eu ja li bastante que quando se faz a consulta, os xmls dos eventos também descem junto, o que eu não estou conseguindo fazer agora é essa junção do xml orginal com a resposta do SEFAZ, ou seja, quando mando salvar xml evento no banco o que consegui pegar pelo componente, parece ser um xml de evento todo quebrado. Veja, sei que não tem nada de errado no componente, é só um pedido de ajuda para ver se eu me sincronizo com as coisas. Veja a resposta que estou conseguindo, e se puder me auxiliar, de forma que eu consiga construir o XML do evento de forma completa, agradeço muito. O mais engraçado é que quando é o caso de cancelamento, ele traz certinho, mas quando CCe não to conseguindo trazer Veja como cancelamento faço assim: VarXml := acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML; como CC-e não funciona do mesmo jeito.. Bom, a ultima atualização que fiz foi dia 01/10/2015, vou atualizar novamente o componente pra ver o que acontece. abraços XMLEventoCapturadopeloComponente.bmp

Boa tarde pessoal D7+FB+3Camandas+Capicom Estou modificando minha aplicação para salvar os XMLs no banco e agora me surgiu uma grande duvida. Fiz o envio do evento, já consegui salvar no banco de dados, agora, vou mandar os XMLs ao contador, então estou fazendo o seguinte: Faço um looping na tabela de NFe e até ai tudo bem, com a NFe não estou tendo nenhum problema, mas dentro do looping da NFe eu faço a pesquisa para ver se essa nota tem algum evento, uma vez encontrado um ou mais evento, entro num segundo looping para passar por todos os eventos da nota, já consegui carregar o XML do banco para dentro do componente em eventos, o que está complicado agora é que uma vez que o evento esteja carregado com o xml de evento, não estou sabendo como fazer para gerar um arquivo XML/PDF do evento para poder anexar ao email que estou enviando ao contador. Ficou mais ou menos assim: vLista=TStringlist vLista.clear qNotas.Filtrados qEventos.Filtrados while not qNotas.eof do begin acbrNFe.NotasFiscais.Clear; acbrNFe.NotasFiscais.LoadFromString(qNotas.FieldByName('XML').AsString); acbrNFe.NotasFiscais.GravarXML(Path_NFe+qNotas.FieldByName('Danfe').AsString+'-nfe.XML'); acbrNFe.NotasFiscais.ImprimirPDF; if FileExists(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.pdf') then begin vLista.Add(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.pdf'); end; vLista.Add(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.xml'); qEventos.Pesquisar While not qEventos.eof do begin acbrNFe.EventoNFe.Evento.Clear; acbrNFe.EventoNFe.LerXMLFromString(qEventos.fieldByName('XML').AsString); ??? aqui como posso Salvar o XMLEvento que está carregado no componente ??? acbrNFe.ImprimirEventoPDF; if FileExists(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.PDF') then begin vLista.Add(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.PDF'); end; vLista.Add(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+qEventos.FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.XML'); qEventos.Next end; qNotas.next; End; Obrigado pela atenção

Italo boa tarde Foi bastante claro. Só uma coisa, desde quando eu comecei a desenvolver NFe, na 2.00, quando a XML validada e apos cancelada, a mesma sofria alteração e na parte dos protocolos ficava registrado o cstat de retorno. Quando mudou o cancelamento por evento, juro a voce que não prestei mais a atenção nisto. E por isso hoje faço essa pergunta besta, pois realmente fiquei confuso. Estou tentando estruturar as pastas de armazenamento dos XMLs, mas surgiu tanta duvida nas propriedades do componente que não saberei nem por onde começar. Mas com essa informação, tomei a decisão de armazenar o XML no Proprio registro da NFe e demais registros no bd, pois assim não terei mais nenhuma dependência de arquivo fora do banco de dados. Isso me permitira efetuar acesso remoto sem nenhum problema, pois tem alguns clientes que adoram trabalhar em casa, a noite, de pijama... Fala sério, trabalhar a noite é coisa pra programador e não para empresário rsrsrsr. abraço meu querido, muito obrigado

Boa tarde pessoal Estou modificando meu sistema e tentando deixa-lo apto a funcionar o bd nas nuvens, porem, com isso, não vai ser possivel armazenar arquivos nas nuvens e somente o bd. Tenho percebido que o pessoal esta gravando XML no banco e que tem funcionado. Minha duvida em geral seria a seguinte: Quando uma XML é gerada, Assinada Enviada eu vou salvar no meu registro da minha Nota em questão, até ai blz Caso eu venha fazer um evento de cancelamento desta nota, precisarei salvar tambem o XML do Evento na tabela de eventos conforme o numero sequencial do evento e o XML da nota que havia sido vailidada acima tambem deverá ser regravado com a nova imagem do XML apos o cancelamento, é isso? Quais são as propriedades que me permitem Salvar e recuperar o arquivo.xml no e do bd ? obrigado

Boa tarde Ressuscitando o assunto, também estou com erro em um cliente quanto tento usar essa função para gerar o NFP impressora termica dm00.ECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,vDestino) aparentemente o erro ocorre quando vai gravar o arquivo xBematech_FI_ArquivoMFDPath Dll peguei as DLLs que estão no componente cujo atualizei a 5 dias Será que já surgiu alguma solução? Obrigado

Bom dia Daniel IDE Delphi SO XP NFE Nº 1 CCe Nº 1 Antes de mais nada muito obrigado pela paciencia. Já é madrugada, e eu não sai do lugar. Abri demo do acbrNFE ele deu um erro por falta de um componente que não me lembro qual é agora, mas, assim mesmo, copiei o projeto num novo projeto delphi, configurei igualzinho, agora a mensagem é "Rejeição: Versão dos Dados não suportada", visto isso lá por volta das 20:00, depois disso, já mudei a versão para 2, 3, 3.1 e nada, ai com o tempo fui percebendo que o Schema da CCe só existe na versão 1.00. Bom, estou testando enviar no ambiente homologação SP e com essas tentativas, o arquivo de 11-eve-soap.xml está sendo criado com Erro, é o que eu estou tentando lhe passar desde o princípio. Juntamente com esse, ele cria também o arquivo 11-ped-eve-soap.xml, o qual está aparentemente correto. O primeiro arquivo quando se tenta abrir usando o navegador, aparece erro na linha 1 coluna 645, conforme a imagem.jpg. Bom, hora vai hora vem, decidi atualizar o acbr, ai a coisa mudou de figura, lembrando que estou tentando enviar pelo ambiente de homologação. Após atualizar o componente e reconstruir o codigo fonte, tentei enviar e deu uma outra mensagem conforme a imagem2.jpg "Erro interno 12002, Erro Http: 4 Erro Requisição não enviada", então visto isso, decidi verificar o XML criado, usando o IE Imagem3.jpg, curioso, abrir a mesma XML com o crhome imgem4.jpg Bom meus clientes já estão aguardando essa correção a dois dias, então vou subir a atualização e rezar para que esse erro seja somente no ambiente de homologação. por hora ufa, acho que chega por hoje.

Daniel nao entendi muito bem o que disse qdo estar usando uma versao desatualizado acbrNFeServicos.ini, se puder esmiuçar o assunto, agradeço, independente disso, vou usar meu certificado eletronico em ambiente de homolagação e simular envio de notas e em seguida enviar a carta CCe Vamos lá, a luta madrugada a fora novamente.

Daniel, desculpe se não me expressei corretamente, mencionei sobre os schemas pois a msg se tratava do assunto, então quiz dar uma posição do que ja havia sido feito e que ainda não tinha resolvido. Tentei explicar que o meu problema inicial e atual é:"493 Rejeição : Evento não atende o Schema XML específico" E conforme voce ja me orientou, ja adicionei suas dicas no sistema, porém o erro continua, realmente não sei o que fazer. Só lembrando que isso ocorreu depois da migração para o trunk2, já tentei localizar as alterações ocorridas no trunk2 dentro da pasta do componente, mas também não estou encontrando, esse é o motivo de estar assim desatualizado da informação. Veja como está a config no inicio da aplicação, quem sabe podes ver algo em que eu estaja pecando. -----------Config---------- NFe_Ambiente:=iif(dm.SETUP.FieldByName('AMBIENTE').Asstring='T',taHomologacao,taProducao); NFe_TipoDanfe:=iif(dm.SETUP.FieldByName('VISUALNFE').AsString='S',true,False); if dm.SetupVERSAOXML.AsString='' then begin dm.Setup.Edit; dm.SetupVERSAOXML.AsString:='3.1'; dm.Setup.Post; dm.Setup.ApplyUpdates(-1); end; case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of 0:cnfe.Configuracoes.Geral.VersaoDF:=ve200; 1:cnfe.Configuracoes.Geral.VersaoDF:=ve200; 2:cnfe.Configuracoes.Geral.VersaoDF:=ve300; 3:cnfe.Configuracoes.Geral.VersaoDF:=ve310; end; case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of 0:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200'; 1:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200'; 2:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve300'; 3:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve310'; end; if not DirectoryExists(cnfe.Configuracoes.Arquivos.PathSchemas) then begin cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas'; end; cnfe.Configuracoes.Certificados.NumeroSerie :=dm.EMPRESA.FieldByName('CERTIFICADO').AsString; cnfe.Configuracoes.WebServices.Ambiente :=NFe_Ambiente; cnfe.Configuracoes.Geral.SSLLib :=libCapicom; cnfe.Configuracoes.Geral.ModeloDF :=moNFe;{moNFe moNFCe} cnfe.Configuracoes.Geral.Salvar :=true; cnfe.Configuracoes.Arquivos.PathSalvar :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathNFe :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathInu :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathEvento :=LerINI('ACESSO','XMLNFE')+'Eventos'; cnfe.DANFE.PathPDF :=LerINI('ACESSO','XMLNFE'); cnfe.DANFE.TipoDANFE :=NFe_TipoDanfe; cnfe.DANFE.MargemDireita :=dm.SetupA023.AsFloat;//Margem Direira cnfe.DANFE.MargemEsquerda :=dm.SetupA024.AsFloat;//Margem Esquerda cnfe.DANFE.MargemSuperior :=dm.SetupA025.AsFloat;//Margem Superior cnfe.DANFE.MargemInferior :=dm.SetupA026.AsFloat;//Margem Inferior cnfe.Configuracoes.WebServices.UF :=dm.EMPRESAESTADO.AsString; cnfe.Configuracoes.WebServices.Visualizar :=NFe_TipoDanfe; cnfe.Configuracoes.WebServices.AguardarConsultaRet:=2000; cnfe.DANFE.Logo :=LerINI('ACESSO','MARCA'); DanfeRav.ImprimirTributosItem :=True; -------------- --------------Para Criar o Registro ------------ mBox = Semelhante messagebox ListaCCorrecao compo de acesso a tabela if mBox('Tem certeza de Gerar uma Carta de Correção?','Q',[mbsim,mbnao])=True then begin dm15.ListaCCorrecao.Append; dm15.ListaCCorrecaoNOTA.AsInteger :=dm15.NFENOTA.AsInteger; dm15.ListaCCorrecaoSERIE.AsString :=dm15.NFESERIE.AsString; dm15.ListaCCorrecaoEMISSAO.AsDateTime :=DataServidor; dm15.ListaCCorrecaoHORA.AsDateTime :=time; dm15.ListaCCorrecaoCHAVE.AsString :=dm15.NFEDANFE.AsString; dm15.ListaCCorrecaoCODUF.AsInteger :=dm.EmpresaCODUF.AsInteger; dm15.ListaCCorrecaoCNPJ.AsString :=dm.EmpresaCNPJ.AsString; dm15.ListaCCorrecaoTPEVENTO.AsInteger :=110110; dm15.ListaCCorrecaoIDEVENTO.AsInteger :=dm15.ListaCCorrecao.RecordCount+1; dm15.ListaCCorrecaoVERSAO.AsString :='1.00'; dm15.ListaCCorrecaoDESCEVENTO.AsString:='Carta de Correção'; dm15.ListaCCorrecaoCORRECAO.AsString :='Informações a serem alteradas'; dm15.ListaCCorrecaoCONDICAO.AsString :=F10Condicao.Text; dm15.ListaCCorrecao.Post; end; ----------------- ----------------Para Enviar----------- NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString; dm00.CNFE.EventoNFe.Evento.Clear; with dm00.CNFE.EventoNFe.Evento.Add do Begin infEvento.cOrgao := dm15.ListaCCorrecaoCODUF.AsInteger; infEvento.tpAmb := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao); infEvento.CNPJ := dm15.ListaCCorrecaoCNPJ.AsString; infEvento.chNFe := dm15.ListaCCorrecaoCHAVE.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dm15.ListaCCorrecaoIDEVENTO.AsInteger; infEvento.versaoEvento := dm15.ListaCCorrecaoVERSAO.AsString; infEvento.detEvento.xCorrecao := RemoveEspXml(dm15.ListaCCorrecaoCORRECAO.AsString); infEvento.detEvento.xCondUso := RemoveEspXml(dm15.ListaCCorrecaoCONDICAO.AsString); end; Try dm00.CNFE.EnviarEvento(StrToInt(NumeroLote)); except on E: exception do Begin Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString); mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]); End; end; ------------------ Daniel, agradeço mesmo sua atenção e a de todos deste portal, tomara que eu consiga receber uma boa noticia. Abraços Realmente não sei dizer o que está ocorrendo, porem, acima, postei o XML que está sendo gerado e o mesmo, só abre com erro no navegador, ou seja, ou eu estou apontando o schema pro lugar errado ou estou pegando schema errado na pasta do componente. (Acbr\Exemplos\ACBrDFe\ACBrNFe\Schemas);

IDE Delphi 7 S.O. são todos pois no momento são tres clientes que estao com o mesmo problema "493 Rejeição : Evento não atende o Schema XML específico" Nestes três tenho XP, W7 e W8 XP e W7 usam Certificado Cartao com leitora A3, W8 usa Token A3 UF webservice todos SP Desculpe, a minha IDE Delphi 7 e Meu Sistema Operacional XP

Daniel Já adicionei o acbrNFE.Configuracoes.Geral.SSLLib:=libCapicomDelphiSoap; já atualizei schemas; já removi os acentos da do texto da correção e da condição e até agora nada, veja esta gerando o XML com defeito. 1101103515096240430600016055001000000984100000984001-procEventoNFe.xml