Importação de lote de xml SAT

[EvertonGoncalves]

Boa tarde.

É possível acessar um site do estado de São Paulo e baixar os xmls dos SAT emitidos, porem esses xmls vem em um arquivo único com vários XML.

Gostaria de saber se é possível a importação desse lote de xml usando o componente ACBrSAT, para importações de arquivos únicos já utilizo.

[Daniel Simoes]

Acho que não há nada pronto para isso...

Talvez usando algo semelhante ao trecho de código abaixo, seja possível implementar algo...
 

function TConsultarSATWS.TratarResposta: Boolean;
begin
  FPRetWS := Trim(ParseText(SeparaDados(FPRetornoWS, 'CfeConsultarLotesResult')));

  FConsultaRet.Leitor.Arquivo := FPRetWS;
  FConsultaRet.LerXml;

  Result := (FPRetWS <> '');
end;    

 

[EvertonGoncalves]

Em 20/01/2021 at 18:59, Daniel Simoes disse:

Acho que não há nada pronto para isso...

Talvez usando algo semelhante ao trecho de código abaixo, seja possível implementar algo...
 

function TConsultarSATWS.TratarResposta: Boolean;
begin
  FPRetWS := Trim(ParseText(SeparaDados(FPRetornoWS, 'CfeConsultarLotesResult')));

  FConsultaRet.Leitor.Arquivo := FPRetWS;
  FConsultaRet.LerXml;

  Result := (FPRetWS <> '');
end;    

 

Existe algum método para quebrar o o bloco com vários xmls dentro.

[Daniel Simoes]

Referente a esse assunto, enviamos ao SVN, as seguintes modificações, no Commit [r23338]

25/10/2021
-- ACBrSAT, pcnCFe, pcnCFeCanc --
[+] Adicionado novo método:
    function LerLoteCFe(const AFileName: String; AGravarXml: Boolean = True): boolean;
    Que permite processar um XML com Lote de CFe ou CFeCanc, retornados pela
    Consulta de Lote, do Portal COMSAT
    Adicionada as propriedades "LoteCFe" e "LoteCFeCanc", que conterão a lista de
    documentos, após a chamada de "LerLoteCFe"
    (por:  Italo Giurizzato Junior e DSA)