Coloque o next no final do loop e veja se vc consegue arrumar esse erro -----Mensagem original----- De: giuvany [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 23 de fevereiro de 2005 10:12 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Lote -ultimo Registro nao Pega
Seguinte pessoal esto escrevendo um arquivo de lote, Só que tenho um problema é que o ultimo registro não consigo inserir o lote Alguém pode me dar um help vejam o código abaixo: while not dm_principal.query1.Eof ---->PEGANDO REGISTRO DA TABELA(QUERY1) do begin Write(meutxt,''+completa_string(6,dm_principal.query1CRM.Value,'N')); --->>>>ESCREVENDO EM ARQUIVO Write(meutxt,''+completa_string(50,dm_principal.query1VALOR_TOTAL.Value,'S') ); --->>>>ESCREVENDO EM ARQUIVO crm_atual:=dm_principal.query1CRM.Value; CRM---->PEGANDO CRM ATUAL dm_principal.query1.Next; ----->PROXIMO REGISTRO if crm_atual<>dm_principal.query1CRM.Value then -------------->>>IF CRM_ATUAL<> DO PROXIMO VOU GRAVAR LOTE begin Write(meutxt,''+completa_string(50,dm_principal.Qry_Lotevalor_total.asstring ,'S')); ---------> ESCREVENDO VALOR TOTAL DE LOTE PARA CRM Writeln(meutxt); end; crm_atual:=dm_principal.query1CRM.Value; -----> ATUALIZA CRM_ATUAL END; Problema que no ultimo CRM ELE COMPARA SE CRM_ATUAL <> CRM MAS ISTO NÃO É AE ENTÃO ELE NÃO GRAVA O LOTE. Como então gravar o ultimo lote?? [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< 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] ou [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