Consultar e Salvar o XML Assinado e com Protocolo

[kmkeila]

Caros Colelgas,

Sou nova no ACBr e no forum, alguem tem o código exemplo para me mandar,

de como Consultar um Xml e Salvar o arquivo assinado e com o protocolo e

não como esta no exemplo, ou seja, botoes separados, gostaria de um unico

código.

Estou confusa !!!!

Agradeço a todos !

Keila

[marcelo_sp]

Keila , consultar o xml onde ? Vc diz download do xml ? Seu sistema ja emite NFe ? explique melhor por favor !

[abarino]

Colega Keila,

Ve se é isso que precisa, copie parte do código do meu sistema, implementa ai :

ACBrNFe1.Configuracoes.WebServices.Visualizar := false ;

v_nomenfe := '' ; v_nomepdf := '' ; v_idnota := '' ;

// Pasta NFe

DecodeDate(dmnfe.QryPadraoNF_DT_EMISSAO.value, Ano, Mes, Dia);

v_pastames := formatfloat('00', mes) + inttostr(ano) ;

v_pastanfe := frmsistema.qryEMPRESASNFE_PATH.Value + v_pastames ;

if not DirectoryExists(v_pastanfe) then

ForceDirectories(v_pastanfe);

ActGerar_XMLNaoAssina.Execute ;

v_nomenfe := 'NFE'+ formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.value) + '-Proc.xml' ;

v_nomepdf := 'NFE'+ formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.value) + '.pdf' ;

ACBrNFe1.NotasFiscais.Clear;

ACBrNFe1.NotasFiscais.LoadFromString(fnfe) ;

ACBrNFe1.NotasFiscais.Assinar ;

ACBrNFe1.Consultar;

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS);

memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS);

LoadXML(MemoResp, WBResposta);

ACBrNFe1.NotasFiscais.Items[0].SaveToFile(v_pastanfe + '\' + 'NFE' + formatfloat('000000',dmnfe.QryPadraoNF_NUMERO.Value) + '-Proc.xml') ;

v_valnfe := ACBrNFe1.NotasFiscais.Items[0].XML ;

v_idnota := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe ;

If dmnfe.QryParamsNFeGERAPDF.Value = 'S' Then

Begin

ACBrNFe1.NotasFiscais.Clear ;

ACBrNFeDanfeRaveCB1.PathPDF := v_pastanfe ;

ACBrNFe1.NotasFiscais.LoadFromString(v_valnfe) ;

ACBrNFe1.NotasFiscais.ImprimirPDF;

If FileExists(v_pastanfe + '\' + v_idnota + '.PDF') then

RenameFile(v_pastanfe + '\' + v_idnota + '.PDF', v_pastanfe + '\' + v_nomepdf);

end;

try

QryGravaXML.Close ;

QryGravaXML.ParamByName('NF_ID').AsInteger := DMNFe.QryPadraoNF_ID.Value ;

QryGravaXML.ParamByName('NFEXML').AsString := v_valnfe ;

QryGravaXML.ExecSQL ;

except;

showmessage('Erro ao gravar XML !') ;

end;

[kmkeila]

Muito Obrigada, era isso mesmo, entendi e implementei no meu sistema.

Grata,