Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
Привет всем. Нужна помощь в решении задачки на foxpro. Суть в чем. У некоторых наших сотрудников сейчас началась сесия, типа програмирование у них зачет. Конечно с задачками они прошли в наш отдел. Сам я в факспро не селен, больше работаю с аксесом и скл сервером. Так что прошу вашего хелпа. Нужно запрограмировать небольшую процедурку которая бы выбирала значения конкретного поля из одной таблицы которых нет в другой. Если конкретней, то есть две таблицы ostat.dbf и rasxd.dbf, в первой сохранен типа склад предприятия (коды запасных частей п тп.) в другой расход(код, дата колличество) этих деталей. так вот задача заключается в том что нужно выбрать с первой те детали которые не были в обороте за конкретный период времени. В скл это так create procedure select_ostat @startdata as datetime, @enddata as datetime as select ware_code from ostat ----(в случае таблицы) where ware_code not in (select ware_code from rasxd where prod_date>=@startdate and prod_date<=@enddate ) go ) помогите написать это на фокспро для дос. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 09:50 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
В FoxPro это так же Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. Префикс "m." можно и не писать. Это просто указание FoxPro, что данное имя это именно имя переменной, а не что-нибудь другое. Правда такой запрос будет выполняться достаточно медленно, но это уже другой вопрос. Ну, и вместо больше/меньше можно использовать BETWEEN ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 10:05 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
На Украине хотя-бы досовскому фоксу студентов учат... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 10:10 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
сморти там у них есть такой пример( я немного спростил). procedure ind32 set date german clear use ostat.dbf calculate sum (cena*ostk) to sum @115,2 say str(summ,9,2) return Говорят что это на фокс про. Так вот нужно приблизительно тоже самое но что бы оно получало с потока ввода даные про дату (короче что бы программа спрашивала значения даты) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 10:22 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
Учат то учат, но я не пойму для чего это бухгалтеру. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 10:24 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
Я уже не очень помню команды FPD, поэтому могу что-то напутать. Примерно это будет выглядеть так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. Далее все как и раньше с использованием измененных пользователями значений переменных FromDate и ToDate. Можно еще организовать проверки введенных значений, но это пусть они сами копаются. Да, в функции CALCULATE есть опция FOR, где и можно задать нужные ограничения CALCULATE SUM(cena*ostk) TO summ FOR BETWEEN(prod_date,m.FromDate,m.ToDate) Правда, в команде CALCULATE нельзя писать подзапросы ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 10:51 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
В этом примере мы вычисляли и выводили число, а как выбрать набор кодов с и вывести его на экран? Как сюда приткнут скл запрос или можна по другому? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 11:04 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
После команды READ выполняешь запрос SELECT ... FROM ... WHERE ... ; INTO CURSOR result PRIVATE i i=0 select result SCAN * Номер строки i=i+1 @i,1 SAY result.Field1 @i,20 SAY result.Field2 ... ENDSCAN или так, если позиционррование по столбцам не нужно: select result SCAN ?result.Field1,result.Field2,result.Field3, ... ENDSCAN А вообще, посоветуй купить книгу Попова А.А. по программированию в Fox2x там все это достаточно хорошо и подробно написано. Книга многократно переиздавалась, так что найти ее не проблема. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 11:22 |
|
||
|
помогите новичку
|
|||
|---|---|---|---|
|
#18+
Да я не собираюсь програмировать на фокс про, сейчас так точно, но чем жизнь не шутит. Спасибо за помощь. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.04.2004, 11:45 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32489271&tid=1596764]: |
0ms |
get settings: |
7ms |
get forum list: |
20ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
47ms |
get topic data: |
12ms |
get forum data: |
4ms |
get page messages: |
65ms |
get tp. blocked users: |
2ms |
| others: | 230ms |
| total: | 393ms |

| 0 / 0 |
