Olá boa tarde, anda na luta tive uma evolução consegui enviar pelo metodo enviar mas tive que comentar um bloco ao ler o xml de retorno esta dando erro na leitura da data.
function TretEnvLote.LerXml_ABRASF: Boolean;
var
i: Integer;
iNivel: Integer;
Ok: Boolean;
xData: string;
begin
try
Result := True;
infRec.FNumeroLote := Leitor.rCampo(tcStr, 'NumeroLote');
infRec.FProtocolo := Leitor.rCampo(tcStr, 'Protocolo');
// Alguns provedores retornam apenas a data, sem o horário
if Length(Leitor.rCampo(tcStr, 'DataRecebimento')) > 10 then
begin
{ if FProvedor = proSmarAPDv23 then
begin
xData := Leitor.rCampo(tcstr, 'DataRecebimento');
infRec.FDataRecebimento := StrToDate(Copy(xData, 1, 10)) +
StrToTime(Copy(xData, 12, 8));
end
else }
infRec.FDataRecebimento := Leitor.rCampo(tcDatHor, 'DataRecebimento');
end
else
infRec.FDataRecebimento := Leitor.rCampo(tcDat, 'DataRecebimento');
Agora estou na luta para cancelar estou recebendo a msg:
Erro: Erro no script NFENotaFiscalWSEnviarCanc: javax.xml.crypto.URIReferenceException: com.sun.org.apache.xml.internal.security.utils.resolver.ResourceResolverException: Cannot resolve element with ID pedidoCancelamento_32952783000108911171075