[Resolvido]Exportar TXT

Socorro!!!


Estou desenvolvendo um sistema de Ponto Eletrônico que necessita exportar uma consulta para txt e que depois de exportado o arquivo saia com um layout exigido pelo MTE, preciso só de um empurrão para ter idéia de como se faz.


Alguem pode ajudar???

Obrigado...

Boa Noite

Se estiver usando o 2003/XP é simples. Clique com o botão direito do rato sbre a consulta e escolha a opção #Exportar#. Aqui encontra a opção exportar para txt; csv

Me desculpe não ter especificado, mas eu gostaria que isso fosse feito via vba, ou de forma automática, de forma que meu cliente não tenha que fazer muitos passos.

Obrigado pela atenção.

Abra um Módulo VBA no separador Módulos e cole:

Function Send2TextFile()
DoCmd.TransferText transfertype:=acExportDelim, _
specificationname:="NomedaTabela Export Specification", _
tablename:="NomeDaTabela", _
filename:="C:\Documents and Settings\nomedoficheiro.csv", _
hasfieldnames:=True
End Function

Depois corra o código com uma macro chamando a função

Na verdade, eu preciso colocar posição no layout, como é exigido pelo Ministério do Trabalho, em anexo segue o layout exigido, na verdade preciso saber como exportar o campo desejado de acordo com o layou. Segue em anexo o layou para que você possa analisar.

Obriado.

Pois é amigão, mas isso não é a minha especialidade. Exportar tudo bem, mas essas configurações não. Lamento. Pode ser que alguém aqui já tenha feito isso antes e o possa ajudar.

Ok, muito obrigado pela atenção...

e ai tem alguém que pode me ajudar?

Porque vc não cria um relatorio com este formato?

Sds,

É que se tipo o fiscal vir aqui e pedir os arquivos para levar, eles tem que estar nesse formato, e no relatório não tem como... ou tem?

Dá uma Olhada neste Exemplo do Mestre OsmarJr

É uma função que serve tanto para gerar um txt, bem como tem a escala pra vc trabalhar com entrelinhas e espaços.

Link

Sds,

Altair bom dia!

Aonde você conseguiu pegar o material sobre a legislação do MTB?

Olá Pablo,

Segue abaixo o link onde encontrei o material, e quanto a minha dúvida de exportar, vc poderia me dar uma idéia?

Link

Abraços

Altair o arquivo que você postou parecer ser somente o Header do arquivo pois somente irá constar os dados da empresa deve haver algo mais dentro do material que vc encontrou no MT onde esteja falando sobre as marcações em sí....
Agora você deverá ficar atento as novas exigências do MT referente as marcações...

Sim, mas acontece que o arquivo que postei foi só um exemplo do que preciso, estou lendo todas as exigências, por isso estou muito preocupado, pois são bastantes e além de tudo complicado. Mas mesmo assim quero desenvolver este sistema. E há essa necessidade de exportar o arquivo TXT no layout exigido.

Então vc deverá postar o restante dos layouts q o q vc enviou só é possível gerar a primeira linha (header) do arquivo..

Olá pablo,

Segue o anexo que vc me pediu.

Desculpe-me a pergunta, mas vc sabe ler o conteudo desse arquivo, ou seja a estrutura do layout?

Para ser sincero não sei não.

Na verdade acho que se fosse exportado em XML ficaria mais fácil, o que você acha?

Não é dificil a exportação, o negócio e ler o layout, se ter as informações que ele pede em seu banco de dados para poder se gerar os arquivos...

A estrutura do banco eu entendi como que tem que ser, entendi como que tem que ser os campos, formato, etc. O que "pega" mesmo a exportação com o layout que eles pedem.
Teria como vc me dar apenas um pequeno exemplo de como devo fazer? Agradeceria muito.

Bom dia Altair,

Tomei a liberdade de baixar o arquivo pra entender também do que se trata.

Pelo que eu entendi, o que eles querem é que vc gere arquivos txt com os campos das tabelas respeitando o tamanho dos mesmos.

Só não deu pra ver qual o delimitador que eles querem.

Geralmente é delimitado por virgulas.

Creio que não usa delimitador como a ",", acho que tem que respeitar mesmo é os tamanhos, trabalho em um escritório de contabilidade e aqui exportamos arquivos com formatos, tipo o do SINTEGRA e nele não a delimitador por ",". Nesse meu caso aqui é a mesma coisa, com certeza não irá usar delimitador por ",", basta respeitar os espaços, tenho um contato aqui que tem um sistema de vendas, no sistema dele ele exporta arquivos do SINTEGRA, vou ver se ele me ajuda um pouco a entender como funciona esse tipo de arquivo.

Se caso tiver mais alguma idéia ai, favor me ajudar. Se precisar de algo é só falar.

Muito obrigado.


Agradeço pela sua atenção

Vc pode criar um arquivo texto delimitado por espaços criando um SCHEMA.INI

Veja este artigo do Macoratti

Ai é só criar os campos com largura fixa.

Sds,

Acho que era isso que eu estava precisando, vou testar aqui e depois lhe retorno, valeu cara, muito obrigado, até a próxima.

Migão, tive fazendo uma pesquisa no MT dê uma olhada nesse link...
http://www.mte.gov.br/pontoeletronico/default.asp
Parece equipamento que vá efetuar o controle de ponto deverá ser homologado....

Depende, equipamentos sim, mas sistemas desenvolvidos basta apenas assinar um termo de responsabilidade. No material que li o MT permite que a empresa crie eu proprio sistema de ponto, desde que assinem um termo de responsabilidade.

E alguém sabe como exportar para txt via vba, com largura fixa?

Amigão, o primeiro link que te passei do OsmarJr faz isso

Dá uma olhada no codigo.

Sds,

Bom dia,

Olha na verdade esse exemplo ainda não funciona do jeito que eu preciso, em anexo segue um script que tenho, mas ele não exportar com largura fixa, nele tem como colocar espaço, mas não largura, gostaria de saber como que faço para colocar largura nele, e definir o tamanho de cada campo.

Dim DB As DAO.Database
Dim RSP As DAO.Recordset
Dim strSQL As String
Dim Sai As String

Set DB = CurrentDb

strSQL = "SELECT cod_funcionario, entrada_turno1, saida_turno1, entrada_turno2, saida_turno2 from tbentrada"
Set RSP = DB.OpenRecordset(strSQL)
strSQL = Application.CurrentProject.path
Open strSQL & "\Teste.txt" For Output As #1

Print #1, Sai
With RSP
.MoveFirst
Do While Not .EOF
Sai = Space(5) & (RSP!cod_funcionario) & Space(5) & (RSP!entrada_turno1) & Space(5) & (RSP!saida_turno1) & Space(5) & (RSP!entrada_turno2) & Space(5) & (RSP!saida_turno2)
CtaItens = CtaItens + 1
Print #1, Sai
.MoveNext
Loop
End With
MsgBox "Exportado com Sucesso, verifique junto ao banco..."

Set DB = Nothing
Set RSP = Nothing
Close #1
Exit Sub
End Sub


Agradeço a ajuda.

Tente usar o format para definir o tamanho...
Lay out Código Funcionário = 0000000000
vc coloca Format(RSP!cod_funcionario,"0000000000")
Que daí te retornará:
0000000001
0000000002
...
0000000123
Daí com os outros campos a mesma coisa de acordo com sua necessidade...
E onde ouver necessidade vc tb usa o replace, para tirar os : das horas por exemplo...
Esse é o caminho das pedras....

pequei este exemplo pela net ve se ajudar imptxt
um abraço
luizimptxt

Dai Altair, Blz?

Que tal criar uma especificação de exportação usando o assistente?


Exportar tabela para txt largura Fixa:

1 - Criar a Tabela com os campos Etc.

2 - Clique na tabela com o botão direito do mouse e em Exportar.

3 - Selecione na cx Salvar como tipo e procure por(*.txt;*.csv;*.tab;*.asc)

4 - Selecione o arquivo txt que vc vai fazer a exportação.

5 - Irá abrir outra cx de dialogo, onde vc deve selecionar largura fixa, e em seguida clique em avançado.

6 - Abrirá outra cx de dialogo com uma Tabela Informações do Campo, onde terá nome do campo, iniciar e largura.

7 - Preencha o nome dos campos, O n° da posição onde inicia e a largura do mesmo.

8 - Apos todos especificados, clique no botão Salvar Como. Abrirá uma cx onde vc vai colocar o nome da especificação.Ex: MinhaExportacao.

9 - Crie um formulario com um botão para inserir o seguinte código:

Private Sub SeuBotao_Click()
DoCmd.TransferText acExportFixed, "MinhaExportacao", "MinhaTabela", "C:\CaminhoCompleto\NomedoArquivoTexto.txt"
End Sub

Sds,

Olá Charles,

Cara melhor imposssível, era exatamente o que precisava, muito obrigado pela ajuda. Fico te devendo essa. Muito obrigado.

Abraços.

Valeu Jovem,

Sucesso no seu trabalho.

Sds,