Amigos, boa noite.
Estou tentando trazer da base um XML em Blob para inutilizar a numeracao mas os campos para ACBrNFe1.WebServices.Inutiliza() estao todos em branco. Acredito esta usando o componente de forma errada. Poderiam me ajudar?
Obrigado a todos.
begin
NFCeCHAVE:= 'NFe' + trim(fdqCancVendaCHAVE_NFE.AsString);
with fdqXML do
begin
Close;
SQL.Clear;
SQL.Text:='select * from nfe_xml';
SQL.Add('where chave_nfe = :pChave');
Params[0].AsString:= NFCeCHAVE;
Open();
end;
if fdqXML.RecordCount = 0 then
begin
ShowMessage('Nfe' + fdqCancVendaCHAVE_NFE.AsString + '. Nota não encontrada' );
Abort;
end;
DmAcBr.ACBrNFe1.InutNFe.LerXMLFromString(fdqXMLARQUIVO_XML.AsAnsiString);
with DmAcBr.ACBrNFe1 do
begin
DmAcBr.ACBrNFe1.WebServices.Inutiliza(InutNFe.CNPJ, 'Cliente cancelou a compra.', InutNFe.ano, InutNFe.modelo, InutNFe.Serie, InutNFe.nNFIni, InutNFe.nNFFin);
end;
DmAcBr.ACBrNFe1.ImprimirInutilizacao;
end;