powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помощь от ВладимираМ
1 сообщений из 1, страница 1 из 1
Нужна помощь от ВладимираМ
    #32519082
Avral
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здраствуй ВладимирМ, вот опять мне нужна от тебя помощь или совет

дело происходит всетам же

большое спасибо за пример

тема: ПомогитеПожалуста...

сделал все работает... вот только есть одно но.. потребовалось еще одну пачку ввести и т.е. надо выкачать данные из еще одной таблицы, но
чтобы получалось примерно так

таблица Table1 в которую выкачиваю данные выглядит так

kod naim p296 p400
1 Медведь 124 100
1 Медведь 1000 100
1 Медведь 1 100
1 Медведь 100
1 Медведь 100
2 Зигзак 22
2 Зикзак 22222

а должна выглядеть так

kod naim p296 p400
1 Медведь 124 100
1 Медведь 1000 200
1 Медведь 1 300
1 Медведь 0 400
1 Медведь 0 500
2 Зигзак 22
2 Зикзак 22222


вот кодик... я никак не могу добить его, слава богу что хоть вставлять начал, а то и этого не было....

&&
select svod_glav
SCAN
SELECT p296
SCAN FOR p296.nnn=svod_glav.nnn
SELECT table1
APPEND blank
replace table1.nnn WITH p296.nnn
replace table1.kod WITH ALLTRIM(p296.kod)
replace table1.naim WITH ALLTRIM(p296.naim)
replace table1.mes WITH ALLTRIM(p296.mes)
replace table1.god WITH ALLTRIM(p296.god)
replace table1.p296 WITH p296.summe
ENDSCAN

&& Здесь смотрю если в пачке р296 записей меньше чем в
&& в пачке р400. то вставляю ноликами недастающие
&& и затем записываю в поле table1.p400 суммы из пачки р400
SELECT p400
SCAN
SELECT table1
IF p400.kod=table1.kod AND p400.naim=table1.naim
FOR nn=1 TO 2
SELECT table1
GO top
APPEND blank
REPLACE table1.nnn WITH p400.nnn
replace table1.kod WITH ALLTRIM(p400.kod)
REPLACE table1.naim WITH ALLTRIM(p400.naim)
replace table1.mes WITH ALLTRIM(p400.mes)
REPLACE table1.god WITH ALLTRIM(p400.god)
replace table1.p400 WITH 000000000000000.00
ENDFOR

SCAN FOR p400.nnn=svod_glav.nnn
SELECT table1
SCAN
replace table1.p400 WITH p400.summe
ENDSCAN
ENDSCAN
ENDIF

ENDSCAN

ENDSCAN
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помощь от ВладимираМ
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]