Valter de Sousa - IDEASyS Postado 15 Setembro, 2016 Compartilhar Postado 15 Setembro, 2016 Bom Dia,Quando tento pegar um xml retornado do .consultar atravez do aCBrNFe1.NotasFiscais[0].XMLAssinado; retorna o seguinte erro , tentando somente pelo CBrNFe1.NotasFiscais[0].XML; consigo,qual a diferença entre os dois e como resolver o erro? Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 15 Setembro, 2016 Moderadores Compartilhar Postado 15 Setembro, 2016 tente dar um showmessage nessa informação! se mostrar é erro no componente que está usando para salvar Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Agnaldo Prates Postado 15 Setembro, 2016 Compartilhar Postado 15 Setembro, 2016 Bom dia. Já experimentou UTF8Encode( ACbrNFe1.NotasFiscais[0].WebServices.Consulta.RetWS )? _____________ Prates, Agnaldo Link para o comentário Compartilhar em outros sites More sharing options...
Éva Cleidiane Coutinho Postado Há 21 horas Compartilhar Postado Há 21 horas (editado) Boa tarde, estou tendo um problema sobre a função de ACBrNFe1.NotasFiscais[0].XMLAssinado.... ACBrNFe1.NotasFiscais.LoadFromFile(sArquivoXML, false); ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais[0].XMLAssinado.... estou emitindo cupons em contingência, e quando pego XML de retorno, após assinado a tag tpEmis=9 fica tpEmis=1.... invalidando o XML... Além de retornar este xml assinado com a tag diferente, cria um outro xml, como se estivesse emitindo de forma normal.. atualizei a ACBR semana passada e começou isso.. reatualizei hoje e não mudou nada. Vou mandar o XML que carrego pro componente e depois o retorno dele, com o XML modificado... somente nessa tag e assinado, além do xml criado sem informações de contingência... 43240503157446000112650070000010111443270350-nfe.xml43240503157446000112650070000010119443270355-nfe ASSINADO.xml43240503157446000112650070000010119443270355-nfe SEMASSINATURA.xml Editado Há 21 horas por Éva Cleidiane Coutinho Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado Há 21 horas Moderadores Compartilhar Postado Há 21 horas 14 minutos atrás, Éva Cleidiane Coutinho disse: Boa tarde, estou tendo um problema sobre a função de Assinatura do XML... ACBrNFe1.NotasFiscais.LoadFromFile(sArquivoXML, false); ACBrNFe1.NotasFiscais.Assinar;CBrNFe1.NotasFiscais[0].XMLAssinado.... estou emitindo cupons em contingência, e quano odo peg XML de torno, após assinado a tag tpEmis=9 fica tpEmis=1.... o xml está com 9 e o componente está configurado também para isso? pois ao carregar o xml e passar false ele não vai gerar o xml ou corrigir ou modificar o mesmo. o xml gerado foi feito no ACBrNFe também? esse tópico é um pouco antigo 2016. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Éva Cleidiane Coutinho Postado Há 20 horas Compartilhar Postado Há 20 horas 11 minutos atrás, Juliomar Marchetti disse: o xml está com 9 e o componente está configurado também para isso? pois ao carregar o xml e passar false ele não vai gerar o xml ou corrigir ou modificar o mesmo. o xml gerado foi feito no ACBrNFe também? esse tópico é um pouco antigo 2016. Geramos o XML fora do componente e este arquivo que 'não está assinado' é o que mandamos pro componente, a unica coisa que o componente teria que fazer, ao meu ver era assinar. Nós pegávamos o rertono do .XMLAssinado e gravamos um novo arquivo assinado, e nesse retorno a tag está modificada, isso que achei estranho... Não configuramos isso no componente pois não é ele quem faz. Parou de funcionar após a atualização, pelo que percebi. será que foi modificado algo ? Acompanhei a função "function NotaFiscal.GerarXML: String;" da uses 'ACBrNFeNotasFiscais' que seria as configuraçoes populadas pelo XML e o campo FormaEmissão está do tipo normal... já está errado aqui, pois não passo nada, só pegaria do XML FNFeW.tpEmis := Configuracoes.Geral.FormaEmissao Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado Há 20 horas Moderadores Compartilhar Postado Há 20 horas sim lembrando que o componentre precisa estar configurado para o ambiente de contigencia mesmo assim Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Éva Cleidiane Coutinho Postado Há 6 horas Compartilhar Postado Há 6 horas 13 horas atrás, Juliomar Marchetti disse: sim lembrando que o componentre precisa estar configurado para o ambiente de contigencia mesmo assim Bom dia.. Sim mas é isso que eu quero dizer.. Não mexiamos em nada disso antes.. Tenho um executavel de marco que está funcionando, só passamos o XML para o componente e pegamos o XML Assinado para criar um novo arquivo, e isso funcionva. Por isso pergunto, sabes se foi alterado alguma coisa? Link para o comentário Compartilhar em outros sites More sharing options...
Éva Cleidiane Coutinho Postado Há 5 horas Compartilhar Postado Há 5 horas Esta configurtação (ACBrNFe1.Configuracoes.Geral.Salvar := True) estava sempre salvando, os xmls gerado pela ACBR, isso tiramos também, só em alguns casos estamos gravando, mas isso não me parece algo que interferiria... Configuramos o componente assim, estando em contingência ou normal.. Se for cupom acrescentamos essas duas linhas: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; e de padrão é o resto... ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; If Trim(TAB_EMPRES.FieldByName('FLAG_ACBR_TLS12').AsString)='S' then ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := TAB_EMPRES.FieldByName('CERTIFICADO_NROSERIE').AsString; ACBrNFe1.Configuracoes.Certificados.VerificarValidade :=True; ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := IfThenSV(TAB_EMPRES.FieldByName('FLAG_NFE_SEPARARPORMES').AsString='S',TRUE,FALSE); ACBrNFe1.Configuracoes.Arquivos.SepararPorCNPJ := False; ACBrNFe1.Configuracoes.Arquivos.PathSalvar := sPath; ACBrNFe1.Configuracoes.Arquivos.PathNFe := sPath; If Trim(TAB_EMPRES.FieldByName('PATH_SCHEMAS_NFe').AsString)='' then ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(ParamStr(0))+'SchemasNFeACBr\' Else ACBrNFe1.Configuracoes.Arquivos.PathSchemas := Trim(TAB_EMPRES.FieldByName('PATH_SCHEMAS_NFe').AsString)+'\'; PathMensal := ACBrNFe1.Configuracoes.Arquivos.GetPathNFe(0); if TRIM(PathMensal)='' then BEGIN PathMensal:=sPath; END; If Trim(TAB_EMPRES.FieldByName('PATH_INI_ACBR').AsString)='' then spathini := ExtractFilePath(ParamStr(0))+'ArqINIACBr\' Else spathini := Trim(TAB_EMPRES.FieldByName('PATH_INI_ACBR').AsString)+'\'; if not FileExists(spathini+'Cidades.ini') then spathini := ExtractFilePath(ParamStr(0))+'ArqINIACBr\'; ACBrNFe1.Configuracoes.Arquivos.PathSalvar := PathMensal; ACBrNFe1.Configuracoes.Arquivos.Salvar := True; if (bnaosalva) then ACBrNFe1.Configuracoes.Geral.Salvar := True else ACBrNFe1.Configuracoes.Geral.Salvar := False; ACBrNFe1.Configuracoes.WebServices.Salvar := false; ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(baux, TAB_EMPRES.FieldByName('NFe_AMBIENTE').AsString); ACBrNFe1.Configuracoes.WebServices.Visualizar := false; ACBrNFe1.Configuracoes.WebServices.UF := TAB_EMPRES.FieldByName('UF').AsString; //Flag para exibir mensagens de log da acbr If Trim(TAB_EMPRES.FieldByName('ACBR_FLAG_VERLOG').AsString)='S' then ACBrNFe1.Configuracoes.WebServices.Visualizar := True; //Set de timeout para os envios da ACBR ACBrNFe1.Configuracoes.WebServices.TimeOutPorThread := True; If TAB_EMPRES.FieldByName('ACBR_TIMEOUT').AsInteger > 0 then ACBrNFe1.Configuracoes.WebServices.TimeOut := TAB_EMPRES.FieldByName('ACBR_TIMEOUT').AsInteger else ACBrNFe1.Configuracoes.WebServices.TimeOut := 10000; ACBrNFe1.Configuracoes.WebServices.TimeZoneConf.ModoDeteccao := tzManual; if TAB_EMPRES.FieldByName('TZD').AsString = 'N' then ACBrNFe1.Configuracoes.WebServices.TimeZoneConf.TimeZoneStr := '-03:00'; if TAB_EMPRES.FieldByName('TZD').AsString = 'S' then ACBrNFe1.Configuracoes.WebServices.TimeZoneConf.TimeZoneStr := '-02:00'; ACBrNFe1.Configuracoes.Geral.RetirarAcentos:=true; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; if TAB_EMPRES.FieldByName('VERSAONFE').AsString='3.10' then ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; if TAB_EMPRES.FieldByName('VERSAONFE').AsString='4.00' then ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.Configuracoes.Geral.IdCSC:=TAB_EMPRES.FieldByName('IDTOKEN').AsString; ACBrNFe1.Configuracoes.Geral.CSC:=TAB_EMPRES.FieldByName('CSC').AsString; ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := True; ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; E então, passamos o arquivo para o componente, como comentei na primeira postagem ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(sArquivoXML, false); ACBrNFe1.NotasFiscais.Assinar; Result := ACBrNFe1.NotasFiscais[0].XMLAssinado; Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora