Bom dia,
Pois é. Notei que o componente não está carregando, portanto devo estar esquecendo alguma coisa:
procedure TfrmACBrNFe.btnDistrDFePorChaveClick(Sender: TObject);
var
xTitulo, cUFAutor, CNPJ, Chave: string;
begin
xTitulo := 'Distribuição DFe Por Chave';
cUFAutor := '';
if not(InputQuery(xTitulo, 'Código da UF do Autor', cUFAutor)) then
exit;
CNPJ := '';
if not(InputQuery(xTitulo, 'CNPJ/CPF do interessado no DF-e', CNPJ)) then
exit;
Chave := '';
if not(InputQuery(xTitulo, 'Chave da NF-e', Chave)) then
exit;
ShowMessage('Documentos antes: ' + ACBrNFe1.NotasFiscais.Count.ToString);
ACBrNFe1.DistribuicaoDFePorChaveNFe(StrToInt(cUFAutor), CNPJ, Chave);
ShowMessage('Documentos depois: ' + ACBrNFe1.NotasFiscais.Count.ToString);
MemoResp.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetWS;
memoRespWS.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetornoWS;
LoadXML(ACBrNFe1.WebServices.DistribuicaoDFe.RetWS, WBResposta);
end;
Nos ShowMessages acima retorna 0 antes e 0 depois. Mesmo retornando o arquivo que anexei acima contendo ele em base64.
Atenciosamente,