Ir para conteúdo
  • Cadastre-se

dev botao

Recuperar dados e arquivo XML pelo DOCZip


mmcamilo
Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1645 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde PessoALL...

Tem uma empresa com a seguinte situação... Por imprudência do usuário, todos os arquivos XML de 2 anos pra cá foram excluídos, pra variar não existe backup mas olhando o banco de dados deles tem um campo numa tabela específica que possui as informações compactadas do DOCZip, então pensei que se tivesse como carregar o DOCZip no componente novamente, poderia tentar gravar esses arquivos XML de novo. Alguém teria uma idéia se é possível carregar ou já descompactar direto o DOCZip sem passar pelo processo natural do ACBRNFe, quando usamos o WebService ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[0].XML.  Pelo jeito gravavam o campo infZip ao invés do campo XML... Vai entender... 

Desde já agradeço a ajuda.

Márcio

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
30 minutos atrás, mmcamilo disse:

Alguém teria uma idéia se é possível carregar ou já descompactar direto o DOCZip sem passar pelo processo natural do ACBRNFe

Já estudou o fonte do ACBr que faz essa conversão?

Na unit pcnRetDistDFeInt.pas tem o código:

StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
FdocZip.Items[i].FInfZip := StrAux;
StrDecod := UnZip(DecodeBase64(StrAux));

Na terceira linha você deve ter o XML. Basta adaptar para o teu caso.

  • Curtir 2
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

32 minutos atrás, BigWings disse:

Já estudou o fonte do ACBr que faz essa conversão?

Na unit pcnRetDistDFeInt.pas tem o código:


StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
FdocZip.Items[i].FInfZip := StrAux;
StrDecod := UnZip(DecodeBase64(StrAux));

Na terceira linha você deve ter o XML. Basta adaptar para o teu caso.

Acabei de ver aqui, realmente você tinha razão, deu certinho. Muito Obrigado. 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

  • Curtir 2
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1645 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.