[delphi-br] Gerar Arquivo .txt

MarcioCC Tue, 04 Sep 2007 14:16:57 -0700

 Pessoal é o seguinte to tentando gerar um arquivo texto entre uma tabela Pai e 
Filha (Master/Detail) da seguinte maneira:


AssignFile(F,'C:\GerConv\DrogariaNovaCampina.txt');
Rewrite(F);
TabGlobal.DTB_LOTE.First;
While not TabGlobal.DTB_LOTE.Eof do
    begin
    StrLinhaLote := 
(TabGlobal.DTB_LOTE.CONSTANTE.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_LOTE.Conteudo)+FormatFloat('00000',campointeiro)+IntToStr(campointeiro2)+Formatfloat('000',campointeiro3)+FormatFloat('000',campointeiro4)+IntToStr(campointeiro5)+FormatFloat('00',campointeiro6)+FormatFloat('00',campointeiro7)+FormatFloat('00000000',campointeiro8)+IntToStr(campointeiro9)+IntToStr(campointeiro10)+(TabGlobal.DTB_LOTE.TOTAL_REG_INFO.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_MATR_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_EV_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_UN_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.FILLER.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_1.Conteudo);
      Writeln(F, strLinhaLote);
      TabGlobal.DTB_MOV_ITENS.First;//adicionei agora
     // TabGlobal.DTB_LOTE.next; //tirei agora
         /// TabGlobal.DTB_MOV_ITENS.next;
         // TabGlobal.DTB_MOV_ITENS.First;
     While not TabGlobal.DTB_MOV_ITENS.Eof do
     begin
     strLinhaMov_Item := (TabGlobal.DTB_MOV_ITENS.CONSTANTE.Conteudo) +
                         (TabGlobal.DTB_MOV_ITENS.CONST_LOTE.Conteudo) +
                         FormatFloat('00000',campointeiro11)+
                         IntToStr(campointeiro12) +
                         Formatfloat('000',campointeiro13) +
                         FormatFloat('000',campointeiro14) +
                         (TabGlobal.DTB_MOV_ITENS.COD_CAT_SAL.Conteudo) +
                          FormatFloat('00',campointeiro16) +
                             FormatFloat('00',campointeiro17) +
                         FormatFloat('00000000',campointeiro18) +
                            IntToStr(campointeiro19) +
                             IntToStr(campointeiro20) +
                        FormatFloat('00000000',campointeiro21) +
                              IntToStr(campointeiro22) +
                              FormatFloat('000000',campointeiro23) +
                           FormatFloat('00000000000',campointeiro24) +
                           (TabGlobal.DTB_MOV_ITENS.FILLER.Conteudo) +
                            (TabGlobal.DTB_MOV_ITENS.CONSTANTE_FIM.Conteudo);
       Writeln(F, strLinhaMov_Item);
        TabGlobal.DTB_MOV_ITENS.next;
       ///TabGlobal.DTB_LOTE.next;
      end;
        TabGlobal.DTB_LOTE.next;
          end;
      CloseFile(F);
          end;

Ta gerando tudo certinho mais ta acontecendo o seguinte nos dados inclusos no 
.txt:

"mvtolote0004410020010072007000004571900000000000000000000000000000000000000000000000000000000000"
"mvtolote0001620020010000000000457190000098946500000000000000000"
"mvtolote0004410020010072007000004571900000000000000000000000000000000000000000000000000000000000"
"mvtolote0001620020010000000000457190000098946500000000000000000"

Tenho 2 registros na tabela pai e 2 registros na tabela filha sendo eles:
TABELA PAI     = 00044 e 00045
TABELA FILHA = 00016 e 00017

Notem que ta duplicando o registro pai e filha da tabela,e os registros 00045 e 
00017 não estão vindo , o que estou fazendo de errado por favor me ajudem ...

JESUS TE AMA !!!


--------------------------------------------------------------------------------

MarcioCC®
**************
Itabyte Tecnologia® - www.itabyte.com
Analista/Programador - For Delphi
MSN : [EMAIL PROTECTED]
SKYPE : itabytetec
Fone : 15-3524-1946



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

[delphi-br] Gerar Arquivo .txt

Responder a