USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  arquivo texto
Elieudo
não registrado
Postada em 14/05/2004 09:15 hs   
como faco para gerar um arquivo texto a partir de duas tabelas?
As tabelas: CLIENTES e NOTAS_FISCAIS.
Da tabela de clientes vou pegar o NOME_CLIENTE e COD_CLIENTE
Da tabela de notas_fiscais vou pegar o NR_NF, DT_EMISSAO e VLR_NF
Uso identificacoes para as linhas, onde:
000 e' o cabecalho do arquivo e so' e' listado uma vez
001 e' o dado do cliente. Listado a cada cliente
002 e' o dado da nota fiscal. Listado a cada nova nota daquele cliente
999 e' o fim do arquivo. Com totais.
Ficaria assim:
000 CABECALHO DE INTERCAMBIO 01052004 <--essa e' a 1a. linha
001 IND E COM DE ALIMENTOS S/A 0020      <--essa e' a linha do cliente
002 003334 25042004 000050056               <--dados da nota fiscal
002 003334 27042004 000098536
001 COMERCIO DE TECIDOS LTDA   0051
002 002189 02032004 000056421
999 00000000000000000000000000000000 <--ultima linha (totais)
 
Alguem pode me ajudar?
 
Um abraco a todos.
     
Waldirjr
POÇOS DE CALDAS
MG - BRASIL
Postada em 14/05/2004 09:50 hs            
Cara, quando precisei fazer isso tive de fazer 'na unha'
+/- assim:
 
intArquivo = FreeFile
Open App.Path & IIf(Right$(App.Path, 1) = "", "", "") & _
     "Relatorio.Txt" For Output As #intArquivo
     Print #intArquivo, "000" & strCabecalho
Close #intArquivo
depois faz uma consulta SQL do Cliente e um Do While para os Produtos/Cliente da Nota Fiscal e dah um PRINT pra cada no .Txt 
 
Qualquer coisa Post
 
Te +
 

________________________

Té +

Que NIMB role bons Dados! Emoções

TÓPICO EDITADO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página