Guest Elieudo Posted October 21, 2004 Report Share Posted October 21, 2004 Thurma, preciso exportar dados para um arquivo txt e os dados estão em duas tabelas a saber: DUPLICATAS CD_DUPLICATA NR_DUPLICATA CD_NOTA_FISCAL VALOR VENCIMENTO NOTAS_FISCAL CD_NOTA_FISCAL NR_NOTA_FISCAL VALOR_MERCADORIA EMISSAO Essas duas tabelas estão relacionadas pelo CD_NOTA_FISCAL. Isto é uma DUPLICATA em N NOTAS FISCAIS. Preciso exportar assim: 000 NM_DUPLICATA VENCIMENTO VALOR NOTA_FISCAL1NOTA_FISCAL2 999 Vamos pegar como exemplo a duplicata 850777 no valor de 500,00 que vence dia 15/11/2004 que contém duas notas fiscais 777222 e 555444 O texto ficaria assim: 000 00850777 15112004 0000050000 00777222/00555444/00000000 999 Onde 000 significa o inicio da linha e 999 o fim dessa linha Os valores (nr duplicata, nota fical e valor) deverão aparecer com zeros à esquerda e a data no formato DDMMAAAA. E todos as colunas seriam separadas por espaços em branco (2 espaços). Alguém pode me ajudar? Um abraço a todos. Quote Link to comment Share on other sites More sharing options...
0 Graymalkin Posted October 21, 2004 Report Share Posted October 21, 2004 O que você não conseguiu fazer, especificamente?Abraços,Graymalkin Quote Link to comment Share on other sites More sharing options...
0 Guest Elieudo Posted October 21, 2004 Report Share Posted October 21, 2004 Graymalkin,Sou novo em vb. Consigo fazer uma tela de cadastros e coisas básicas.Mas para criar um arquivo texto com duas tabelas nunca fiz. Na verdade não fiz nem com uma tabela.Estou com uma situação que devo criar um programa em vb que exporte para um txt e que os dados estão em duas tabelas relacionadas (citadas no meu tópico).você tem algum exemplo prático?Ah, o meu banco é ORACLEDesde já agradeço.Elieudo Quote Link to comment Share on other sites More sharing options...
0 Graymalkin Posted October 22, 2004 Report Share Posted October 22, 2004 Bom, independente do banco de dados, se você souber percorrer todos os registros basta se basear no exemplo abaixo (que cria um arquivo texto e grava duas linhas no mesmo):n=freefile() open "arquivo.txt" for output as #n ? #n, "linha1", "texto1" ? #n, "linha2", "texto2" close #nOu seja, bastaria que ao invés de gravar as duas linhas acima, você fizesse um loop até o final da tabela, trocando o "linha1" e "texto1" pelos campos da tabela. Suponho que você esteja usando ADO, não? Se for, posso dar um exemplo mais completo.Abraços,Graymalkin Quote Link to comment Share on other sites More sharing options...
Question
Guest Elieudo
Thurma,
preciso exportar dados para um arquivo txt e os dados estão em duas tabelas a saber:
DUPLICATAS
CD_DUPLICATA
NR_DUPLICATA
CD_NOTA_FISCAL
VALOR
VENCIMENTO
NOTAS_FISCAL
CD_NOTA_FISCAL
NR_NOTA_FISCAL
VALOR_MERCADORIA
EMISSAO
Essas duas tabelas estão relacionadas pelo CD_NOTA_FISCAL. Isto é uma DUPLICATA em N NOTAS FISCAIS.
Preciso exportar assim:
000 NM_DUPLICATA VENCIMENTO VALOR NOTA_FISCAL1NOTA_FISCAL2 999
Vamos pegar como exemplo a duplicata 850777 no valor de 500,00 que vence dia 15/11/2004 que contém duas notas fiscais 777222 e 555444
O texto ficaria assim:
000 00850777 15112004 0000050000 00777222/00555444/00000000 999
Onde 000 significa o inicio da linha e 999 o fim dessa linha
Os valores (nr duplicata, nota fical e valor) deverão aparecer com zeros à esquerda e a data no formato DDMMAAAA.
E todos as colunas seriam separadas por espaços em branco (2 espaços).
Alguém pode me ajudar?
Um abraço a todos.
Link to comment
Share on other sites
3 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.