Deixa eu postar aqui como está o form e o codigo.
Uso igual sim ao do SVN. svn://svn.code.sf.net/p/acbr/code/trunk
procedure TForm1.btnManifDestConfirmacaoClick(Sender: TObject);
var
Chave, idLote, CNPJ: string;
lMsg: string;
begin
Chave:='41140781106957000119550010005481801807170610';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Chave da NF-e', Chave)) then
exit;
Chave := Trim(OnlyNumber(Chave));
idLote := '1';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Identificador de controle do Lote de envio do Evento', idLote)) then
exit;
CNPJ := '';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
exit;
ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
infEvento.dhEvento := now;
infEvento.tpEvento := teManifDestConfirmacao;
end;
ACBrNFe1.EnviarEventoNFe(StrToInt(IDLote));
with AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
begin
lMsg:=
'Id: '+Id+#13+
'tpAmb: '+TpAmbToStr(tpAmb)+#13+
'verAplic: '+verAplic+#13+
'cOrgao: '+IntToStr(cOrgao)+#13+
'cStat: '+IntToStr(cStat)+#13+
'xMotivo: '+xMotivo+#13+
'chNFe: '+chNFe+#13+
'tpEvento: '+TpEventoToStr(tpEvento)+#13+
'xEvento: '+xEvento+#13+
'nSeqEvento: '+IntToStr(nSeqEvento)+#13+
'CNPJDest: '+CNPJDest+#13+
'emailDest: '+emailDest+#13+
'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+
'nProt: '+nProt;
end;
ShowMessage(lMsg);
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.EnvEvento.RetornoWS);
// ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX
LoadXML(MemoResp, WBResposta);
end;