bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Copiar e zipar arquivos Xml

Copiar e zipar arquivos Xml

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 


 

Usuário Silva:

Boa noite!

Minha aplicação gera arquivos XML, que corresponde a cada nfe emitida e que são salvos na pasta NFe.  Gostaria, que no início de cada mês,  estes arquivos fossem compactados e enviados para a Contabilidade.

Suporte:

Silva, para compactar você pode utilizar o aplicativo WINRAR, executado pelo comando Shell do Access.  Exemplo:

Faça o login aqui para ter acesso ao código.

Basta informar o nome do arquivo RAR e o nome do arquivo XML a ser compactado. Exemplo:

call fncZipar("e:\RedeAccess\Avelino\NfeXml.rar","e:\redeaccess\avelino\Nfe2101.xml")

No seu projeto, crie uma programação que realize um loop, para ir inserindo os arquivos XML no arquivo RAR.  Vamos supor que você tenha as notas de 2100 a 2130 para zipar:

Dim k
For k = 2100 to 2130 
    call fncZipar("e:\RedeAccess\Avelino\NfeXml.rar","e:\redeaccess\avelino\Nfe" & k & ".xml")
next

Usuário Silva:

Grato, Avelino!

Peço ajuda em mais uma coisa: como fazer um loop pela tabela notas_fiscais, sabendo quais são a do período pesquisado e assim, selecionar os XML correspondentes?

Suporte:

Silva, utilize o Recordset.  Algo assim:

Faça o login aqui para ter acesso ao código.

Usuário Silva:

Avelino, tentei aqui, mas deu algum erro.   Até aparece ele fazendo a varredura e zipando (pelo menos exibe a tela do winrar - tirei a invisibilidade), porém, não grava nada na pasta onde teria que estar zipado.  Não gera o arquivo zipado!

Suporte:

Silva, segue um exemplo para você testar. Descompacte numa pasta de teste.  Abra o formulário frmTeste e clique no botão.  Caso esteja tudo OK, irá compactar os arquivos XML que se encontram na pasta.

Nota: na função fncZiper() tem que saber aonde esta instalado o seu WINRAR.  Se em "Program Files" ou se em "Program Files(86)".

Download

Usuário Silva:

Resolvido. Muito obrigado!

Só um adendo, Avelino: o erro ocorreu devido a minha pasta ter espaço entre os nomes: "XML<espaço>AUTORIZADO", pois quando coloco "XML_AUTORIZADO" ele funciona. Tem como o código reconhecer este espaço?

Suporte:

Silva, utilize o chr(34) para delimitar o nome com Aspas. Parte em vermelho.

Faça o login aqui para ter acesso ao código.

Usuário Silva:

Perfeito Avelino!

 


 

 


Não há comentário

Envie seu comentário: