Всем привет. Помогите пожалуйста, ни как не могу разобраться.
Мне нужно сделать вывод в txt файл из одной таблицы oplat_va.
Смысл в следующем: из таблицы oplat_va выводятся все данные по конкретному производству за определенную дату, с перегоном в txt файл. После того как данные по этому производству заканчиваются, то после в этот же txt файл выводим данные по следующему производству. И так пока все производства не законьчатся.
Ниже мой программный текст, в Делфи сделал бы за 10 минут, а тут засада. Может я что то не так делаю? Вместо этого он мне выводит данные чисто по первому производству, а остальные игнорирует. Помогите пожалуйста срочно надо.

close all
select distinct kod_zakz,naim_zakz from oplat_va into table mm_mm.dbf
where (dtoc(data_nakl)='08/02/2007')
close all
set devi to file c:\test.txt
sele 20
use mm_mm.dbf alias mm_mm
go top in mm_mm
do while.T.
IF EOF()
exit
ELSE
store kod_zakz to k_z
store 1 to i
select * from oplat_va into table m_m_m.dbf
where oplat_va.kod_zakz=k_z.and.dtoc(data_nakl)='08/02/2007'
* sele 1
use m_m_m.dbf alias m_m_m
go top in m_m_m
@i,1 say ' (В/Т/И) О Т Ч Е Т Э К С П Е Д И Ц И И N '+str(no_o,3)
@i+1,1 say ' за '+dtoc(data1)
@i+2,1 say ' по пpоизводству '+m_m_m.kod_zakz+' '+m_m_m.naim_zakz
@i+3,1 say ' Куpс валюты 0.00'
@i+4,1 say ' ────────────────────────────────────────────'
@i+5,1 say ' Hомеp │ Hомеp │ Груз │ Вес │ Кол│ Станция │ Дорога | Таpиф |
@i+6,1 say ' вагона док-та
@i+7,1 say '---------------------------------------------------------------------------------- '
do while.T.
if eof()
exit
else
i=i+1
@i,1 say nomer_vag pict '999999999'
endif
skip in m_m_m
enddo
skip in mm_mm
ENDIF
enddo

foxpro/lan2.0
для доса
А че SQL-запросами ни как?
Если возможно, то хотелось бы узнать что с моими SQL-запросами не так?

Sergey Sizov
если делать по вашему тексту, то в итоге в текстовом файле получается:
Одна шапка с производством (заказчиком), которое является последней записью первого SQL запроса. И вместо нужных данных по этому производству за указанную дату, выдаются все записи из БД:


(В/Т/И) О Т Ч Е Т Э К С П Е Д И Ц И И N 267
по пpоизводству 22000 ПППО
Куpс валюты 0.00
─────────────────────────────────────────────────────── Hомеp │ Hомеp │ Груз │ Вес │ Кол│ Станция │ Дорога │ Таpиф │
вагона док-та ───────────────────────────────────────────────────────


67010629 22000
61367728 22000
62736335 22000
64744659 22000
52534435 09000
68268556 22000
62723523 22000
68677087 22000
68320340 22000
68323682 22000
68158344 22000
52518594 09000
68766450 22000
28066496 09000
26500595 09000
519410660 17000
и т.д.

alex11100
по вашему предложению получается так же одна шапка, но с производством (заказчиком), которое является ПЕРВОЙ записью первого SQL запроса. Поле номер вагона (nomer_vag) говорит что не известно и выглядит это так:

по пpоизводству 04000 СКП
Куpс валюты 0.00
────────────────────────────────────────────────── Hомеp │ Hомеp │ Груз │ Вес │ Кол│ Станция │ Дорога │ Таpиф │ Сбор за │ Ваг/
вагона док-та
───────────────────────────────────────────────────

04000
09000
20000
22000
И все