Boa Tarde !
Estou realizando testes com ACBrNFe1.DistribuicaoDFe.
Segue em anexo o XML retornado com NF Encontrada - cStat = 138.
Porém, ao ler as informações da chave (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe) a mesma está em branco.
Pelo que observei, não está entrando no ponto abaixo do pcnRetDistDFeInt
if (Leitor.rExtrai(3, 'resNFe') <> '') then
begin
FdocZip.Items.FresNFe.chNFe := Leitor.rCampo(tcStr, 'chNFe');
FdocZip.Items.FresNFe.FCNPJCPF := Leitor.rCampo(tcStr, 'CNPJ');
if FdocZip.Items.FresNFe.FCNPJCPF = '' then
FdocZip.Items.FresNFe.FCNPJCPF := Leitor.rCampo(tcStr, 'CPF');
FdocZip.Items.FresNFe.FxNome := Leitor.rCampo(tcStr, 'xNome');
FdocZip.Items.FresNFe.FIE := Leitor.rCampo(tcStr, 'IE');
FdocZip.Items.FresNFe.FdhEmi := Leitor.rCampo(tcDatHor, 'dhEmi');
FdocZip.Items.FresNFe.FtpNF := StrToTpNF(ok, Leitor.rCampo(tcStr, 'tpNF'));
FdocZip.Items.FresNFe.FvNF := Leitor.rCampo(tcDe2, 'vNF');
FdocZip.Items.FresNFe.FdigVal := Leitor.rCampo(tcStr, 'digVal');
FdocZip.Items.FresNFe.FdhRecbto := Leitor.rCampo(tcDatHor, 'dhRecbto');
FdocZip.Items.FresNFe.FnProt := Leitor.rCampo(tcStr, 'nProt');
FdocZip.Items.FresNFe.FcSitNFe := StrToSituacaoNFe(ok, Leitor.rCampo(tcStr, 'cSitNFe'));
end;
Att
Leandro Vignoto
Retorno WS.xml
Italo, o que se pode fazer com relação a esse retorno compactado ? É algum componente para delphi que precisa ? Componente GZip ? Desenvolvimento de algorítimo ? Pesquisei algo sobre isso mas não cheguei a nenhuma conclusão. Att. Leandro