https://forum.foxclub.ru/index.php RU Wed, 10 Jun 2026 15:09:13 +0300 Wed, 10 Jun 2026 15:09:13 +0300 FoxClub Forums Phorum 5.1.25 60 https://forum.foxclub.ru/read.php?26,895364,895364#msg-895364 Гулин Федор Блатной
но автора не помнил
меня сильно впечталило - там фактически автобиография
....

случайно на форуме нашел кто именно
https://ru.wikipedia.org/wiki/%D0%9C%D0%B8%D1%85%D0%B0%D0%B8%D0%BB_%D0%94%D1%91%D0%BC%D0%B8%D0%BD

https://books.google.de/books/about/%D0%91%D0%BB%D0%B0%D1%82%D0%BD%D0%BE%D0%B9_%D0%91%D0%BB%D0%B0%D1%82%D0%BD%D0%BE%D0%B9_%D0%A2%D0%B0%D0%B5%D0%B6%D0%BD.html?id=L8GaEQAAQBAJ&redir_esc=y

зы оказалось трилогия - обязательно посмотрю оставшиеся 2]]> https://forum.foxclub.ru/read.php?26,895364,895364#msg-895364 Wed, 10 Jun 2026 15:09:13 +0300 https://forum.foxclub.ru/read.php?17,895359,895359#msg-895359 ry
[attachment 37441 _2026-06-10_114231256.png]

В разных браузерах так, на мобильном не проверял]]> https://forum.foxclub.ru/read.php?17,895359,895359#msg-895359 Wed, 10 Jun 2026 11:43:06 +0300 https://forum.foxclub.ru/read.php?29,895358,895358#msg-895358 glaz58 [code]Fputs(ifp,'<table border="1" cellspacing="0" cellpadding="1" width="100%"><tbody>')
Fputs(ifp,'<tr><th rowspan="2" align="center">№№ поз. сметы<th rowspan="2" align="center">Шифр расц.<th rowspan="2" align="center" >Наименование работ и затрат')
Fputs(ifp,'<th rowspan="2" align="center">Единица измерения')
Fputs(ifp,'<th colspan="3" align="center">Количество<th colspan="5" align="center">Сметная стоимость, руб.')
Fputs(ifp,'<tr><th align="center">на единицу измерения<th>Коэфф-ты<th>Всего с учётом коэфф-тов<th>на единицу измерения в базисном уровне цен<th>индекс<th>на единицy измерения в текущем уровне цен<th>коэффици- енты<th>всего в текущем уровне цен')
Fputs(ifp,'<thead>')
Fputs(ifp,'<tr><th align="center">1<th align="center">2<th align="center">3<th align="center">4<th align="center">5<th align="center">6<th align="center">7')
Fputs(ifp,'<th align="center">8<th align="center">9<th align="center">10<th align="center">11<th align="center">12')
Fputs(ifp,'</thead>')[/code]]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895358,895358#msg-895358 Wed, 10 Jun 2026 10:30:31 +0300 https://forum.foxclub.ru/read.php?26,895355,895355#msg-895355 _vit
[video]https://vk.com/wall473586652_2479[/video]]]> https://forum.foxclub.ru/read.php?26,895355,895355#msg-895355 Tue, 09 Jun 2026 23:05:33 +0300 https://forum.foxclub.ru/read.php?26,895352,895352#msg-895352 my https://forum.foxclub.ru/read.php?26,895352,895352#msg-895352 Tue, 09 Jun 2026 10:18:59 +0300 https://forum.foxclub.ru/read.php?29,895313,895313#msg-895313 sphinx Генератор-то отличный, устраивает, но некоторые отчеты стали выводиться крайне медленно. А что там ускоришь, весь движок зашит в DLL...]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895313,895313#msg-895313 Thu, 04 Jun 2026 10:57:40 +0300 https://forum.foxclub.ru/read.php?29,895286,895286#msg-895286 PavlikPavlikovich У кого был опыт работы с драйвером Штрих 5.25?
У меня сейчас стоит 5.17. Ставлю 5.25. И при обращении к кассе. vfp падает без каких либо ошибок в течении минуты. Точное время не засекал. примерно секунд через 40. Просто закрывается и всё. Даже вот после такого простого обращения.
Ставлю обратно 5.17 и всё ОК. Но для работы с маркировкой мне нужен 5.25
[code]ecr = CREATEOBJECT("AddIn.DrvFR")
ecr.portnumber = 5
ecr.PASSWORD = "30"

ecr.drawernumber=0 &&Номер денежного ящика
ecr.opendrawer() &&Открыть денежный ящик

ecr.disconnect() && просим драйвер закрыть соединение с кассой
relese ecr && удаляем объект из памяти VFP
ecr = NULL && обнуляем ссылку[/code]

причём на 5.17 у меня и без этого работало:
[code]ecr.disconnect() && просим драйвер закрыть соединение с кассой
relese ecr && удаляем объект из памяти VFP
ecr = NULL && обнуляем ссылку[/code]
Вычитал что это может быть причиной падения. Добавил. Но не помогло.]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895286,895286#msg-895286 Thu, 28 May 2026 09:20:00 +0300 https://forum.foxclub.ru/read.php?26,895271,895271#msg-895271 Vedmak https://forum.foxclub.ru/read.php?26,895271,895271#msg-895271 Mon, 25 May 2026 20:15:56 +0300 https://forum.foxclub.ru/read.php?29,895251,895251#msg-895251 danton1973 в программе на foxpro таблица открывается монопольно(эксклюзивно) на сервере windows. При попытке изменить структуру таблицы сервер может выдать сообщение, что файл занят кем-то другим. При этом команда USE как-бы зависает: Висит сообщение что таблица занята, нажмите ESC. Ошибка плавающая. Я пытаюсь поймать в мониторе ресурсов сервера: кто ещё подключён к таблице, но вижу только своё подключение. Причём, если в отладочном режиме при возникновении этой ошибки нажать ESC, затем Suspend, затем продолжить работу программы, то программа продолжит работу... Такое ощущение, что сервер долго не сбрасывает соединение с таблицей другого пользователя при его попытке отключить таблицу.
Пробовал повторить такое в ручном режиме. Работает штатно: программа работает без остановки, а в другой сессии выдаёт стандартное сообщение, что таблица открыто монопольно другим пользователем.]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895251,895251#msg-895251 Thu, 21 May 2026 07:38:13 +0300 https://forum.foxclub.ru/read.php?26,895192,895192#msg-895192 AndyNigmatec
Мы, даже не нюхавшие как говорится, но живущие в городе буквально по кирпичу разнесенном немчурой ранее... вобщем для нас этот праздник святой - так было и так будет.

С праздником товарищи!

Гитлер капутен дойчен капитулирен ... и никак иначе!]]> https://forum.foxclub.ru/read.php?26,895192,895192#msg-895192 Sat, 09 May 2026 01:10:19 +0300 https://forum.foxclub.ru/read.php?26,895179,895179#msg-895179 AndyNigmatec
Доб.: либо человеки сами деградируютЬ?]]> https://forum.foxclub.ru/read.php?26,895179,895179#msg-895179 Sat, 02 May 2026 23:25:09 +0300 https://forum.foxclub.ru/read.php?26,895165,895165#msg-895165 Vedmak
https://www.magnets.lv/en/magnets/par-mums

В России есть наверняка есть родственная затея?]]> https://forum.foxclub.ru/read.php?26,895165,895165#msg-895165 Thu, 30 Apr 2026 22:36:17 +0300 https://forum.foxclub.ru/read.php?29,895091,895091#msg-895091 OlegA Надо срочно внести изменения в проект и выложить новую версию. Нашли вроде бы данные проекта,
но при компиляции ЕХЕ файла размер выходит всего 500Кк вместо 2Мб у текущего файла.
Естественно при запуске стали вылазить ошибки.
1) Подключение к базе данных (FireBird). Ошибка что не загружена библиотека GDS32.DLL.
Проблема решается, если эту библиотеку положить рядом с ЕХЕ файлом. Но при этом текущий ЕХЕ файл (который 2Мб)
запускается нормально и подключается к базе без файла GDS32.DLL.
По всей видимости эта DLL находится внутри ЕХЕ файла, но команду которая выгружала бы эту библиотеку в текущий каталог не нашел, и при
запуске исходного ЕХЕ файл GDS32.DLL не появляется.
Собственно вопрос , как при подключении к FireBird, приложение должно понять что нужная библиотека находится внутри ЕХЕ файла,
я добавил эту библиотеку в проект через вкладку Other, создал заново ЕХЕ файл, он конечно вырос в размере, но ошибка не исчезла.
Может как-то по другому надо добавлять внешние DLL в проекты.
2) Возникают ошибки при обращении к объектах OCX файлов, если их положить рядом, то ошибка в программе уходит.
Тоже подразумеваю что эти OCX находятся внутри ЕХЕ файла, но как происходит к ним обращение тоже не понятно.

Ну и есть сомнение, то что нашли файлы с проектом, это есть последняя версия.
Буду признателен, за любой совет.]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895091,895091#msg-895091 Mon, 27 Apr 2026 07:22:53 +0300 https://forum.foxclub.ru/read.php?26,895080,895080#msg-895080 sphinx

Но форум помер окончательно. Жаль. Не говорите - мы не виноваты. Виноваты. Я один (или почти один) не могу сайт тащить. Да и выглядит глупо.

Модераторские полномочия прошу с меня снять. Некого модерировать. Полтора землекопа по праздникам знаковым? Вы серьезно. Да и не рвался в модераторы, согласился на предложение.

Считаю, что на своем посту недоработал, рапорт исполняю.

Читать сайт буду иногда.

Пожалуй это все.]]> https://forum.foxclub.ru/read.php?26,895080,895080#msg-895080 Sat, 25 Apr 2026 00:13:58 +0300 https://forum.foxclub.ru/read.php?26,895072,895072#msg-895072 Рыжик Наткнулась на комментарий от хорошего человека:
"
Глава Следственного комитета РФ Александр Бастрыкин поручил проверить цикл стихотворений писателя Григория Остера "Вредные советы" на сомнительные с педагогической точки зрения установки (c) ТАСС
Даже не знаю, что сказать. Думаю, следующим запретят "Чиполлино" - этот рассадник революционных настроений и недовольства властью.
"

Тут же быстренько нашла "из любимого" - года 3 в распечатанном варианте на родном холодильнике висело для поднятия настроения:
"
Если вы по коридору
Мчитесь на велосипеде,
А навстречу вам из ванной
Вышел папа погулять,
Не сворачивайте в кухню,
В кухне – твердый холодильник.
Тормозите лучше в папу.
Папа мягкий. Он простит.
"
:-D]]> https://forum.foxclub.ru/read.php?26,895072,895072#msg-895072 Thu, 23 Apr 2026 17:10:20 +0300 https://forum.foxclub.ru/read.php?26,895069,895069#msg-895069 sphinx
[b]Печать Grid в Excel[/b]
https://foxclub.ru/knowledgebase/pechat-grid-v-excel/

[b]Генератор отчетов в Exel (v 1.2)[/b]
https://foxclub.ru/knowledgebase/generator-otchetov-v-exel-v-1-2/

:hi: :beer:]]> https://forum.foxclub.ru/read.php?26,895069,895069#msg-895069 Thu, 23 Apr 2026 09:17:17 +0300 https://forum.foxclub.ru/read.php?26,895064,895064#msg-895064 Vedmak
Тут с клиентом в России начались ярые перебои связи в WhatsApp.
Это системное? Искать другие каналы?

Бизнес про ПО на АЗС. Всякие дела про обслуживание клиентских карт на колонке.

Какие варианты связи?]]> https://forum.foxclub.ru/read.php?26,895064,895064#msg-895064 Wed, 22 Apr 2026 23:05:22 +0300 https://forum.foxclub.ru/read.php?26,895063,895063#msg-895063 sphinx Поздравляю вас со знаменательной датой — днем рождения Владимира Ильича Ленина!
Его идеи о справедливости, равенстве и достойной жизни народа остаются актуальными и сегодня.
Желаю всем нам твердости духа, успехов в труде и уверенности в завтрашнем дне!

Ура, товарищи! :beer:]]> https://forum.foxclub.ru/read.php?26,895063,895063#msg-895063 Wed, 22 Apr 2026 13:07:46 +0300 https://forum.foxclub.ru/read.php?26,895044,895044#msg-895044 sphinx Светлая память...]]> https://forum.foxclub.ru/read.php?26,895044,895044#msg-895044 Mon, 13 Apr 2026 16:28:57 +0300 https://forum.foxclub.ru/read.php?29,895038,895038#msg-895038 GreyCat [code]SET CLASSLIB TO rvc ADDITIVE
WITH This
.oSes=CREATEOBJECT('d_rel') && экспортированная Dataenvironment формы
SET DATASESSION TO 2
.oSes.OpenTables()
.Refvar() && заполнение/обновление текстовых полей.
ENDWITH[/code]
Все работает. DATASESSION=2 DATASESSIONID=2. Текстовые поля заполнены, [b]а таблица - пустая[/b]. Никаких ошибок не выводит. Если оставить дефолтную DataSession непустую, то таблица выводится нормально, т.е. таблица хочет работать только с дефолтной DataSession. Кажется перепробовал все варианты - результат ноль. Может кто-нибудь подскажет как это обойти.]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895038,895038#msg-895038 Sun, 12 Apr 2026 14:35:49 +0300 https://forum.foxclub.ru/read.php?28,895037,895037#msg-895037 my
залил архив на github

https://github.com/HomeUserDeveloper/ddf

Попросил ИИ переписать эту утилиту используя язык Golang

https://github.com/HomeUserDeveloper/ddfgo]]> https://forum.foxclub.ru/read.php?28,895037,895037#msg-895037 Sat, 11 Apr 2026 21:39:40 +0300 https://forum.foxclub.ru/read.php?29,895010,895010#msg-895010 lili Уже несколько лет без проблем получаем информацию по API-запросу с некоего сайта:
Из программы API-запрос составляется так:
oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
fio = fam + '%20'+im+'%20'+ot
cUrl=’https://exampe.ru/api/’
lKey='…'
cUrl=cUrl+'/rupeps?search='
cUrl=cUrl+fio
cUrl=cUrl+'&api-key='+lKey

Все в ANSI-кодировке.
Даже сейчас, если я вставлю готовую значение строки cUrl в браузер, то получу нормальный результат.
Но с недавних пор при выполнении в программе:
rez=oHttp.open("GET",cUrl,.F.)
rez=oHttp.Send()
я получаю ошибку:
oHttp.ResponseText='URL contains non-ASCII characters that would produce control characters after encoding.'

Что могло повлиять на это? Теряюсь в догадках.]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,895010,895010#msg-895010 Wed, 08 Apr 2026 09:47:42 +0300 https://forum.foxclub.ru/read.php?26,894989,894989#msg-894989 AndyNigmatec
[quote]Женщины совершенно не понимают, почему мужчины обязаны каждый день на два раза прочитать все мировые новости и обсудить их на форумах. А мужчины поражаются, насколько женщины ограниченные существа и как они легкомысленно относятся к военному перевороту в Суринаме или обнаружению залежей лития в Кабо-Верде. А дело-то простое — это эволюционный «хвост» от времён, когда мы были всего лишь стайными саванными гоминидами.

Стая в 50-100 особей жила на открытой местности, где на неё мог легко напасть любой саблезубый лев или свора гиен. А вся полезная еда была подъедена в радиусе пары километров от стойбища. Поэтому самцы по очереди залезали на ближайший баобаб и всматривались в горизонт: нет ли откуда угрозы и не видно ли какой-нибудь самоходной вкусняшки. Обнаружив одно или другое, они хватали палки и камни и дружно мчались в указанном направлении, чтобы встретить врага как можно дальше от самок и детёнышей или не дать вкусняшке почуять запах костра.

А пока самец вёл наблюдение с вершины баобаба, его «половина» упорно пилила снизу: «Сколько можно висеть на ветке?! Быстро иди наломай саксаула, а то костёр скоро потухнет! И принеси воды — надо помыть младшую обезьянку, она обосралась. Слазь сейчас же, я сказала!!!».

Прошло 2 миллиона лет, человек переселился из саванны в города, завёл себе автомобили и смартфоны и перестал бегать от львов и за зебрами. Но инстинкты не пропьёшь. Поэтому мужики продолжают каждый день залезать на Интернет-баобаб, чтобы вглядеться вдаль: нет ли там опасности или корма для стаи. А жёны пилят лодырей снизу: «Закрой эти дурацкие новости и повесь мне полочку! Сейчас же!!!»
[/quote]]]> https://forum.foxclub.ru/read.php?26,894989,894989#msg-894989 Tue, 07 Apr 2026 12:36:03 +0300 https://forum.foxclub.ru/read.php?29,894932,894932#msg-894932 mila7 [code]* Один экземпляр VFP запускает другой экземпляр VFP командой:
oVFP=CreateO('VisualFoxPro.Application')
oVFP.visible=.t.[/code]

Переходим в новый экземпляр VFP и запускаем что-нибудь. Например:
[code] * Программа должна сама задать допустимое время работы:
_duration=2000
messageBOX("Процесс висит")[/code]

Переходим назад в первый экземпляр VFP и надо как-то аварийно снять второй экземпляр VFP через _duration секунд — переменная во втором VFP.
Начало кода в первом экземпляре очевидно такое:
[code]wait time oVFP.Eval("_duration")
oVFP.Quit()[/code]

Да, этот код работает.... Но терзают сомнения, что в реальном втором процессе, не с messageBOX(), а с чем-то произвольным, с запросами, расчетными циклами, может с какой-то возникшей ошибкой в программе, oVFP.Quit() может не сработать, а надо, чтобы процесс снялся наверняка..... Или не беспокоится, всё должно всегда завершатся нормально?]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,894932,894932#msg-894932 Wed, 01 Apr 2026 17:34:22 +0300 https://forum.foxclub.ru/read.php?45,894864,894864#msg-894864 akvvohinc
[color=Blue][b]Дано : M - порядковый номер матча плей-офф
Найти: R - порядковый номер раунда плей-офф, в котором игрался этот матч[/b][/color]

[b]ПОЯСНЕНИЯ:[/b]
Как известно, кубковая система соревнований обычно состоит из нескольких раундов.
В первом раунде команды, разделенные на пары, играют (2 в степени R-1) матчей, где R - общее количество раундов.
Победители матчей выходят в следующий раунд, где по той же схеме играют уже (2 в степени R-2) матчей, то есть с каждым раундом количество матчей уполовинивается, пока, наконец, в заключительном раунде (финале) не будет сыгран последний матч (2 в степени 0), определяющий победителя турнира.

[b]На примере ЧМ-2026:[/b]
1 раунд (1/16 финала) - 16 матчей с порядковыми номерами (1..16)
2 раунд (1/8 финала) - 8 матчей (17..24)
3 раунд (1/4 финала) - 4 матча (25..28)
4 раунд (1/2 финала) - 2 матча (29..30)
5 раунд (финал) - 1 матч (31)

Итого эта кубковая сетка состоит из 5 раундов и 31 матча.
[color=Gray](в реале еще играется матч за 3-е место, но эта задачка подразумевает лишь "правильные" сетки, аналогичные примеру выше).[/color]
[b]Задача относится к любой подобной кубковой сетке, то есть количество раундов в кубке может быть любым.[/b]

Понятно, что для любого порядкового номера матча можно назвать сетку, в которой этот матч будет играться в первом раунде.
Например, 117-й матч будет сыгран в первом раунде кубка, состоящего из 8 раундов, в первом раунде которого будет сыграно 2^7 = 128 матчей.

[color=Blue][b]Поэтому требуется найти раунд, отличный от первого, в котором может быть сыгран матч с заданным номером.[/b][/color]
Скажем, матч номер 11 может быть сыгран только во втором раунде кубка, состоящего из 4 раундов:
1. в 1 раунде 8 матчей (номера с 1 по 8)
2. во 2 раунде 4 матча (номера с 9 по 12)
То есть на вопрос о раунде для 11-го матча правильный ответ 2.

[color=Blue]Матчи с номерами, равными 2 в некоторой степени (1, 2, 4 и т.д.), не могут встретиться ни в каком раунде, кроме первого, поэтому в условии задачи M не может быть равно таким числам.[/color]

Автор самого простого (краткого, красивого) алгоритма (возможно, простой формулы) по мнению посетителей форума, будет объявлен чемпионом мира 2026! :bi:

(если условия вызывают вопросы, задавайте, уточню).]]> https://forum.foxclub.ru/read.php?45,894864,894864#msg-894864 Wed, 25 Mar 2026 15:09:26 +0300 https://forum.foxclub.ru/read.php?26,894856,894856#msg-894856 zhsoft
Встала проблема, связанная с ограничениями от "яблока", да и последний изредка начал глючить... Хотелось бы иметь что-то на Андроид, который будет валяться, как дублирующее устройство. Посему не хочется много на него тратить, однако нужно, что бы несложно на него сделать копию актуальных данных, приложений и фото из iPhone. Имел тот же разъем SIM, что у iPhone, желательно на чистом Андроид, а не эксклюзивными Китайскими ОС, ...

В теории он может несильно использоваться мной для работы... Это дублированный смартфон - не хотелось бы что бы он поддерживался много лет. Посоветуйте, пожалуйста что-то конкретное в пределах 15.000 рублей?]]> https://forum.foxclub.ru/read.php?26,894856,894856#msg-894856 Mon, 23 Mar 2026 12:29:34 +0300 https://forum.foxclub.ru/read.php?29,894822,894822#msg-894822 krin бывает, нужно вывести его с "Подождите..." под объектом, чаще комбобоксом, пока подтягиваются данные для его наполнения по настройкам пользователя.
или под autofillcombobox вывести "Значение не из списка", если юзер набирает не то.
решения с позиционированием были у нас в клубе, и на foxite, и в блогах. хорошего не встречал - с точным позиционированием и для разных условий.
таким и пользовался. не всегда хватало.
хорошее позиционирование должно работать на форме с любым титулом и без него; любым border; любым ShowWindow; с объектом в контейнере (про page знаете, кто сталкивался).
в январе было время - доработал, что есть, под это всё.
использую, устраивает. кому-то пригодится.

по интерфейсу.
окно WW может значительно больше, чем о нём принято думать. мне неизвестны попытки его перехвата, кроме своей. если кто знает, поделитесь.
и центрирование, и вывод под объектом обращаются к ф-и eWW() - Extended Wait Window.
вариант того же с normal Wait Window оставил. что получилось - скриншот examples1.png

недавно увидел, что в клубе обсуждали эту тему https://forum.foxclub.ru/read.php?29,667639,page=1
eWW() отвечает на часть вопросов. на другую часть тоже отвечает, при доработке (examples2.png). мне кажется это избыточным.

всё по работе с WW собрано в одной eww_bind.prg, там в начале - как пользоваться. и есть в примерах test_eww.prg, test_*.scx]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,894822,894822#msg-894822 Thu, 19 Mar 2026 15:48:47 +0300 https://forum.foxclub.ru/read.php?29,894784,894784#msg-894784 glaz58 [code]
Select 10
curstrsm=Recno() && запомнить положение в таблице
cntispr=0 && счётчик исправлений
Scan && первый проход - исправить шифры
Do Case
Case Left(shifr,4)='ГЭСН' And Isdigit(Substr(shifr,5,1))
Replace shifr With 'Е'+Substr(shifr,5)
cntispr=cntispr+1
Case Left(shifr,5)='ГЭСНр'
Replace shifr With 'Е'+Substr(shifr,6)
cntispr=cntispr+1
Case Left(shifr,5)='ГЭСНм'
Replace shifr With 'Ц'+Substr(shifr,6)
cntispr=cntispr+1
Case Left(shifr,5)='ГЭСНп'
Replace shifr With 'П'+Substr(shifr,6)
cntispr=cntispr+1
Case Left(shifr,6)='ГЭСНмр'
Replace shifr With 'Р'+Substr(shifr,7)
Case Left(shifr,5)='ФСБЦ-'
Replace shifr With 'С'+Substr(shifr,6)
cntispr=cntispr+1
Case Substr(shifr,3,1)='.' And Substr(shifr,5,1)='.' And Substr(shifr,8,1)='.' And Substr(shifr,11,1)='-' And Len(Alltrim(shifr))=15
Replace shifr With 'С'+Alltrim(shifr)
cntispr=cntispr+1
Case 'Погрузка' $ naim Or 'Перевозка' $ naim
Replace shifr With 'А'+Alltrim(shifr)
cntispr=cntispr+1
Endcase
Endscan
Scan && "аккуратно" взять значения из gesnnaim и занести в смету, помножив на коэф-ты (которые импортировались)
v_shifr=Alltrim(shifr) && это уже исправленный шифр
Select 1
Set Order To shifr
Seek v_shifr
If Found()
***** далее "аккуратно" ...
v_osn_zarp=osn_zarp*smetarab->k_trud
v_expl_mech=expl_mech*smetarab->k_meh
v_zarp_mech=zarp_mech*smetarab->k_trud
v_mtrls=mtrls*smetarab->k_mtr
Select 10
Replace osn_zarp With v_osn_zarp, expl_mech With v_expl_mech, zarp_mech With v_zarp_mech, mtrls With v_mtrls
Replace pr_zatr With osn_zarp+expl_mech+zarp_mech+mtrls
Endif
Endscan
If cntispr>0
Messagebox(Alltrim(Str(cntispr))+' строк',0,'Исправлено')
Changes=.T.
Thisform.label10.Visible=.T.
Else
Messagebox('',0,'Нечего исправлять')
Changes=.F.
Thisform.label10.Visible=.F.
Endif
Keyboard '{F2}'
Go curstrsm && возврат на строку сметы, на которой стояли
Thisform.grid1.column11.SetFocus
[/code]
В самом конце программы есть [color=Blue]IF[/color] в котором есть [color=Blue]Messagebox[/color]. При выполнении этой программы (нажатием на кнопку на форме) выполнение вылетает с сообщением "[Window Title]
Microsoft Visual FoxPro 9.0

[Main Instruction]
Программа "Microsoft Visual FoxPro 9.0" не работает

[Content]
Возникшая проблема привела к прекращению работы программы. Windows закроет эту программу, а если есть известный способ устранения проблемы, уведомит вас об этом.

[Закрыть программу]"
Если [color=Blue]Messagebox[/color] убрать, то не вылетает. В других местах я часто применяю [color=Blue]Messagebox[/color] и никогда не вылетало. Что нужно сделать, чтобы не вылетало, или как по-другому показать значение переменной cntispr?]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,894784,894784#msg-894784 Thu, 12 Mar 2026 17:30:16 +0300 https://forum.foxclub.ru/read.php?29,894768,894768#msg-894768 DmitryKn
помогите, пожалуйста, с запросом.
Существует таблица :
[code]
id ngrope nquant nprice
1 2 5 10.21
2 2 1 10.22
3 4 2 15.00
4 2 3 10.30
5 4 2 15.00
6 3 4 9.00
7 3 7 9.03
8 3 8 9.05
[/code]

Не могу составить selet таким образом, чтобы в итоги попали только записи ngrope , в моем случае это 3 строки, при этом суммировалась бы nquant и определялась бы общая сумма по ngrope

т.е. итог должен выглядеть так:
[code]
ngrope nquant nsum
2 9 92.17
3 19 171.61
4 4 60.00
[/code]]]> Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,894768,894768#msg-894768 Wed, 11 Mar 2026 11:37:41 +0300 https://forum.foxclub.ru/read.php?29,894760,894760#msg-894760 ABB Visual Foxpro, Foxpro for DOS https://forum.foxclub.ru/read.php?29,894760,894760#msg-894760 Tue, 10 Mar 2026 18:34:15 +0300