danielqualhato

Olá a todos! estou tentando carregar os dados do xml de uma NFe, porem, a tag serie sempre retorna o modelo do documento e não a serie da mesma. Estou usando esse procedimento: Serie := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie; desde já muito obrigado a todos pela atenção!

Pessoal, Voltou tudo normal agora. certamente era erro no servidor da sefaz! Muito obrigado a todos pela força!

Bom dia Marcos Oliveira! Estou desconfiado que seja instabilidade no ambiente de homologação. Você chegou a fazer testes em produção? acredito que teremos que aguardar!

Mas não seria pelo endereço de entrega? -<entrega> <CPF>89022580172</CPF> <xLgr>RUA PEDRO GOMES DE BRITO</xLgr> <nro>204</nro> <xBairro>SAO SEBASTIAO</xBairro> <cMun>1504208</cMun> <xMun>MARABA</xMun> <UF>PA</UF> </entrega>

Pois é, que no meu caso estão certos, pois, sou de GO e estou fazendo teste de venda interestadual para o PA. então coloquei o cfpo 6102. Deve ser problema na sefaz mesmo, vou aguardar! Muito obrigado pela força de vocês!

Olá Rafael! Obrigado pela força ai cara. eu corrigi aqui, mais o problema ainda insiste. Segue xml corrigido! 52180613550745000176550010000000551000001378-nfe.xml

Olá Felipe, bom dia! obrigado pela força! eu já havia corrigido isso também. acabei de enviar novamente com a nat. op. mas o erro ainda permanece. Estou desconfiado que é instabilidade no ambiente de homologação da sefaz de Goiás 52180613550745000176550010000000551000001378-nfe.xml

Olá pessoal da comunidade! procurei algo relacionado no fórum mas não encontrei, do nada começou dar rejeição com a mensagem "Rejeição: campos do grupo fatura não informados". estranho que no meu xml os campos aparecem segue xml para vocês darem uma analisada. 52180613550745000176550020000000701000001370-nfe.xml

Bom dia! Juliomar, a sequência de código que estou usando é essa: Gerar e assinar XML if dmdados.GerarNFe(tbl_saidasSAI_ID.AsInteger, false, false) then begin // comandos para gerar arquivo XML dmdados.ACBrNFe1.NotasFiscais.Assinar; dmdados.ACBrNFe1.NotasFiscais.Items[0].GravarXML(); sArquivoXML := dmdados.ACBrNFe1.NotasFiscais.Items[0].NomeArq; if sArquivoXML <> '' then sGerado := true; // grava o arquivo XML try if dmdados.Dados_Pedido(ds_saidas.DataSet.FieldByName('SAI_ID').AsInteger)then begin dmdados.GravaArquivoXML(Copy(dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4,Length(dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)), UTF8Encode(dmdados.ACBrNFe1.NotasFiscais.Items[0].xml), dmdados.tbl_saidas.FieldByName('NUMERO_DOC').AsString); end; finally dmdados.tbl_saidas.Close; end; Validar e Enviar XML // executa validação do arquivo dmdados.ACBrNFe1.NotasFiscais.Validar; ErroValidacao := false; // enviar ao portal dmdados.ACBrNFe1.Enviar(EdtNumLote.Text, false, true); // aChaveNfe := dmdados.ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe; aProcolo := dmdados.ACBrNFe1.NotasFiscais[0].NFe.procNFe.nProt; // grava chave NFe if aChaveNfe <> '' then begin if dmdados.Dados_Pedido(ds_saidas.DataSet.FieldByName('SAI_ID').AsInteger)then begin dmdados.GravaChaveNFEPedido(aChaveNfe, aProcolo, aRecibo, EdtNumLote.Text, dmdados.tbl_configFORMA_EMISSAO.AsInteger); // salva com protocolo de autorização dmdados.GravaArquivoXML(aChaveNfe, UTF8Encode(dmdados.ACBrNFe1.NotasFiscais.Items[0].xml), dmdados.tbl_saidas.FieldByName('NUMERO_DOC').AsString); // sArquivoXML := ''; FechaMensagem; ShowMessage('NFe Enviada com sucesso:' + #13 + #10 + 'Chave: ' + aChaveNfe + #13 + #10 + 'Protocolo: ' + aProcolo); Fazer Consulta da NFe pelo XML dmdados.ACBrNFe1.Consultar(vChave); if dmdados.ACBrNFe1.WebServices.Consulta.cStat = 100 then begin dmdados.ACBrNFe1.NotasFiscais[0].GravarXML; // grava o arquivo XML try if dmdados.Dados_Pedido(ds_saidas.DataSet.FieldByName('SAI_ID').AsInteger)then begin dmdados.GravaArquivoXML(Copy(dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4,Length(dmdados.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)), UTF8Encode(dmdados.ACBrNFe1.NotasFiscais.Items[0].xml), dmdados.tbl_saidas.FieldByName('NUMERO_DOC').AsString); end; finally dmdados.tbl_saidas.Close; end; Eu já olhei os exemplos do SVN, aparentemente estou seguindo a mesma linha de raciocínio.

Boa tarde Juliomar Pensei que havia solucionado o problema, mas, infelizmente o problema ainda persiste. Segue em anexo arquivos xml para ver se está tudo certo 52170501476873000138550010000000371000001493_-nfe.xml 52170501476873000138550010000000371000001493-nfe.xml

Boa noite Juliomar Valente, você tinha toda razão. Realmente era problema de data e hora. Problema resolvido, graças a sua grande ajuda. Meu muito obrigado e felicidades para você.

Boa noite Juliomar, Obrigado pelo retorno! acredito que não seja esse o problema. Pois, mesmo usando um xml autorizado pela sefaz apresenta as mesmas mensagens de erro. Ou sera que estou falando besteira? chequei a verificar data e hora e ambas estão iguais

Olá pessoal Apesar de encontrar vários tópicos sobre o assunto, não tive sucesso algum. Por isso venho através deste pedir ajuda aos mais experientes e entendidos sobre o assunto. Pessoal, meu problema é o seguinte: a casos que enviamos uma NFe e a mesma retorna erro com o servidor, quando vou tentar novamente, recebo o retorno de duplicidade de NFe. Pesquisando aqui no fórum, vi que basta carregar o componente com o XML que foi salva e assinada e depois mandar consultar a mesma. Porem, se eu mando carregar o XML com esse comando: dmdados.ACBrNFe1.Consultar; da esse erro: se eu uso esse comando: dmdados.ACBrNFe1.Consultar(vChave); ou seja, passando a chave do XML, a consulta é feita com sucesso e recebo o retorno cStat = 100, falando que a consulta foi feita com sucesso. Porem, o XML não atualiza, e se mando imprimir não faz nada e se manda salvar o XML da esse erro: Segue o Código que estou usando: dmdados.ACBrNFe1.NotasFiscais.Clear; dmdados.ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); dmdados.ACBrNFe1.Consultar(vChave); ShowMessage(dmdados.ACBrNFe1.WebServices.Consulta.Protocolo); dmdados.ACBrNFe1.NotasFiscais.Items[0].GravarXML; dmdados.ACBrNFe1.NotasFiscais.Imprimir; Se alguém puder me ajudar ficarei muito grato.

Olá Jean Eu estava com os dois danfes, um para NFe e outro para NFc-e. Tirei um e deixei somente o danfe NFc-e e setei a propriedade manualmente em tempo de dezine e funcionou. Provavelmente seja isso que você disse mesmo. Mas muito obrigado. Tudo de bom.

Pessoal estou fazendo uns teste para emissão de NFc-e em mode Homologação e na hora de imprimir o danfe imprime no formato de NF-e. Alguem sabe me dizer o que pode ser? seque fonte de configuração do componente acBrNFe e Anexo do danfe // Repassa Dados para componente AcBrNFe {$IFDEF ACBrNFeOpenSSL} ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := tbl_configCERTIFICADO.AsString; ACBrNFe1.Configuracoes.Certificados.Senha := tbl_configSENHA_CERTIF.AsString; {$ELSE} ACBrNFe1.Configuracoes.Certificados.NumeroSerie := tbl_configNUMERO_SERIE.AsString; {$ENDIF} ACBrNFe1.Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK,IntToStr(tbl_configFORMA_EMISSAO.AsInteger)); if tbl_configSALVAR_ARQUIVO.AsString = 'S' then ACBrNFe1.Configuracoes.Geral.Salvar := true else ACBrNFe1.Configuracoes.Geral.Salvar := false; ACBrNFe1.Configuracoes.Arquivos.PathSalvar := tbl_configPATH_ARQUIVO.AsString; // modelo ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; if tbl_configTIPODOCFISCAL.AsInteger = 1 then begin ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := true; ACBrNFe1.Configuracoes.Geral.IdCSC := tbl_configCONF_IDCSC.AsString; ACBrNFe1.Configuracoes.Geral.CSC := tbl_configCONF_CSC.AsString; end; // versão case tbl_configVERSAO_NFE.AsInteger of 0: begin ACBrNFe1.Configuracoes.Geral.VersaoDF := ve200; ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\V200'; end; 1: begin ACBrNFe1.Configuracoes.Geral.VersaoDF := ve300; ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\V300'; end; 2: begin ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName)+'Schemas\NFe'; end; end; ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := true; ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%'; // WebServices ACBrNFe1.Configuracoes.WebServices.UF := tbl_configUF_NFE.AsString; ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(OK,IntToStr(tbl_configAMBIENTE.AsInteger+1)); ACBrNFe1.Configuracoes.WebServices.Visualizar := True; ACBrNFe1.Configuracoes.WebServices.ProxyHost := tbl_configHOST.AsString; ACBrNFe1.Configuracoes.WebServices.ProxyPort := tbl_configPORTA.AsString; ACBrNFe1.Configuracoes.WebServices.ProxyUser := tbl_configUSUARIO_NFE.AsString; ACBrNFe1.Configuracoes.WebServices.ProxyPass := tbl_configSENHA_NFE.AsString; //Configuração do Danfe ACBrNFeDANFeRL1.ACBrNFe := ACBrNFe1; //ACBrNFeDANFeRL1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFeRetrato_Basic.fr3'; ACBrNFeDANFCeFortes1.PathPDF := tbl_configPATH_ARQUIVO.AsString; ACBrNFe1.DANFE.Sistema := ExtractFileName(Application.ExeName); ACBrNFe1.DANFE.Usuario := tbl_usuLogadoUSU_NOME.AsString; ACBrNFe1.DANFE.Impressora := 'Laser'; ACBrNFe1.DANFE.MostrarPreview := True; ACBrNFe1.DANFE.NumCopias := 1; ACBrNFe1.DANFE.Fax := ''; ACBrNFe1.DANFE.Email := tbl_configCONF_EMAIL.AsString; ACBrNFe1.DANFE.Site := tbl_configCONF_SITE.AsString; ACBrNFe1.DANFE.ImprimirDescPorc := True; ACBrNFe1.DANFE.Logo := tbl_configLOGOMARCA.AsString; ACBrNFe1.DANFE.PathPDF := tbl_configPATH_ARQUIVO.AsString; if sPAFNFCe = 1 then // NFc-e ACBrNFeDANFCeFortes1.TipoDANFE := tiNFCe else ACBrNFeDANFCeFortes1.TipoDANFE := tiRetrato; 52160912328999000181650010000002891000002892.pdf

Pessoal problema resolvido. Podem fechar o Post

Pessoal já faz alguns dias que venho tendo problemas com a instalação do ACBr no delphi xe7. Já tentei de tudo, busquei ajuda em outros tópicos, até formatei minha maquina duas vezes, faço a atualização do ACBr via SVN mas ainda não tive sucesso na instalação. o arquivo log do ACBr está ai para vocês darem uma olhada. Quem puder me ajudar ficarei muito agradecido. Desde já meus muito obrigado! Obs: estou usando windows 8 64 bits. log_Delphi_XE7.txt