Represinfo Web

pessoal boa noite! pesquisei aqui no forum como fazer o download dos arquivos xml de NFe encontrei vários exemplos seguindo-os consigo listar todas as notas mas ao fazer o download dos xml, baixa apenas o resumo, alguém pode me dar uma mãozinha? vou postar abaixo como estou fazendo. if DM_GERA_NFE.qry_filialtipo_certificado.Value = 'A1' then begin F_Principal.NFe.Configuracoes.Geral.SSLLib := libOpenSSL; F_Principal.NFe.Configuracoes.Certificados.ArquivoPFX := DM_GERA_NFE.qry_filialcaminho_cert.AsString; F_Principal.NFe.Configuracoes.Certificados.Senha := DM_GERA_NFE.qry_filialsenha_cert.AsString; F_Principal.NFe.Configuracoes.Certificados.NumeroSerie := DM_GERA_NFE.qry_filialnserie_cert.AsString; F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ; end else begin F_Principal.NFe.Configuracoes.Geral.SSLLib := libWinCrypt; F_Principal.NFe.SSL.NumeroSerie := DM_GERA_NFE.qry_filialnserie_cert.AsString; F_Principal.NFe.SSL.Senha := DM_GERA_NFE.qry_filialsenha_cert.AsString; F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ; end; F_Principal.NFe.Configuracoes.WebServices.IntervaloTentativas := 20000; while not CDS_Destinadas.Eof do begin F_Principal.NFe.EventoNFe.Evento.Clear; with F_Principal.NFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := CDS_Destinadas_CHAVE.AsString; infEvento.CNPJ := CDS_Destinadas_CNPJ.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestCiencia; end; F_Principal.NFe.EnviarEvento(StrToInt('1')); F_Principal.NFe.DistribuicaoDFePorChaveNFe(UFtoCUF(DM_GERA_NFE.qry_filialuf_filial.AsString),DM_GERA_NFE.qry_filialcnpj_filial.AsString,CDS_Destinadas_CHAVE.AsString); with F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt do begin if cStat = 138 then begin DecodeDate(CDS_Destinadas_DTEMISSAO.Value, ano, mes, dia); case mes of 1: mes1 := 'JANEIRO'; 2: mes1 := 'FEVEREIRO'; 3: mes1 := 'MARCO'; 4: mes1 := 'ABRIL'; 5: mes1 := 'MAIO'; 6: mes1 := 'JUNHO'; 7: mes1 := 'JULHO'; 8: mes1 := 'AGOSTO'; 9: mes1 := 'SETEMBRO'; 10: mes1 := 'OUTUBRO'; 11: mes1 := 'NOVEMBRO'; 12: mes1 := 'DEZEMBRO'; end; pasta_dfe_nfe := ExtractFilePath(Application.ExeName)+'XML_NFE\DFe\'+SoNumero(DM_GERA_NFE.qry_filialcnpj_filial.AsString)+'\COMPRAS\'+IntToStr(ano)+'\'+ mes1; F_Principal.NFe.Configuracoes.Arquivos.PathSalvar := pasta_dfe_nfe; if not DirectoryExists(pasta_dfe_nfe) then ForceDirectories(pasta_dfe_nfe); for i := 0 to docZip.Count - 1 do begin if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml) begin XML := docZip.Items.XML; ArqXML := TStringStream.Create(XML); XMLDocument1.LoadFromStream(ArqXML); XMLDocument1.Active; XMLDocument1.SaveToFile(edt_local_download.Text+CDS_Destinadas_CHAVE.AsString+'.xml'); end; end; end; end; CDS_Destinadas.Next; end; application.MessageBox('Download realizado com sucesso!','Atenção',MB_OK+MB_ICONINFORMATION); end;

Geste estou tentando fazer A DFe de xml de NFe! COMEÇA A FAZER NORMALMENTE E LOGO DÁ ESSE ERRO DA IMAGEM POSTADA EM ANEXO; SEGUE O CODIGO Q ESTOU USANDO...: LEMBRANDO QUE COMEÇA A FAZER E AS VEZES ESSE ERRO APARECE NO INICIO E AS VEZES NO FINAL DO PROCESSO! SEGUE O CODIGO...: NSU := 0; repeat NSU := NSU + 1; F_Principal.NFe.DistribuicaoDFe(UFtoCUF(DM_GERA_NFE.qry_filialuf_filial.AsString), DM_GERA_NFE.qry_filialcnpj_filial.AsString, '', IntToStr(NSU)); MaxNSU :=strtoint(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU); if F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin j := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1; with RxProgress1 do begin Min := 0; Max := MaxNSU; Visible := true; end; for i := 0 to j do begin if F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe <> '' then begin case F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of snAutorizado: situacao := 'A'; snDenegado: situacao := 'D'; snCancelado: situacao := 'C'; end; with Grid_nfe do begin if Addrow then RowCount := RowCount + 1; Objects[0,RowCount] := CheckBox1; // Cells[0,RowCount-1] := NovoCheckBox; // -> checkbox Cells[1,RowCount] := Situacao; // -> situacao Cells[2,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe; Cells[3,RowCount] := Copy(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe, 26, 9); Cells[4,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.CNPJCPF; Cells[5,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome; Cells[6,RowCount] := floattostrf(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF,ffnumber, 12,2); Cells[7,RowCount] := datetostr(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi); AddRow := True; RxProgress1.Position := RxProgress1.Position + 1; RxProgress1.Update; end; ult_nsu := strtoint(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU); Inc(vqtde_importados); end; end; if vqtde_importados > 0 then lbl_qtde_nfe.Caption := IntToStr(vqtde_importados); lbl_qtde_nfe.Update; end; until (F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU = IntToStr(MaxNSU)); application.MessageBox('Busca Realizada com Sucesso!','Atenção',MB_OK+MB_ICONINFORMATION);

Resolvido era isto mesmo.... muito obrigado

SIM! está atualizado... atualizei hoje inclusive...

pessoal boa tarde... estou recorrendo ao forum porque estou desenvolvendo um CTe Mod. 57 e estou recebendo a seguinte Rejeição: 599 Rejeição: Não é permitida a presença de caracteres de edição no inicio/fim da mensagem ou entre as tags da mensagem sei.. que ja foi postado no forum sobre este assunto eu seguir os procedimentos mais o problema persiste. Tentei usando versões 2.0 / 3.0, atualizei o acbr (cheguei a apagar toda a biblioteca e instalar novamente)... ao gerar o xml o mesmo é Assinado e Validado normalmente... não sei mais o que fazer pesquisei no google e nada.... ALGUEM PODE ME SOCORRER? SEGUE EM ANEXO O ARQUIVO XML QUE ESTOU GERANDO E TRANSMITINDO 1-env-lot.xml 15170926754104000185570010000000031000000030-cte.xml 153001333629327-pro-rec.xml

sim é NFCe! CONSUMIDOR FINAL. a venda é para o mesmo UF. estou fazendo conforme o DEMO.: with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end; // partilha do icms e fundo de probreza Total.ICMSTot.vFCPUFDest := 0.00; Total.ICMSTot.vICMSUFDest := 0.00; Total.ICMSTot.vICMSUFRemet := 0.00; segue o XML em anexo... fico agradecido pela ajuda! 15160311166085000107650010000000041000000043-nfe.xml

Gente... estou boiando tambem!! estou com o mesmo problema no estado do PA.... eu já atualizei tudo e continua o problema! onde faço esta auteração sugerida: Gerador.wCampo(tcDe2, 'W04c', 'vFCPUFDest ', 01, 15, 0, nfe.Total.ICMSTot.vFCPUFDest, DSC_VICMS);