Глупые вопросы
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- ✯ Ветеран ✯
- Сообщения: 4984
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Глупые вопросы
Fetch - это частности, а я о принципе. Для работы с ООП нужно у себя в голове что-то переключить. И, чем раньше начать смотреть в эту сторону, тем лучше. И ООП рулит.
We are hard at work… for you.
Глупые вопросы
Я, может, что-то путаю, но мне кажется все эти менеджерА (их криэйты и пр.) генерятся шаблонами абц в случае, когда цепляешь конкретные таблицы, а не все скопом... и пока не осознал, так сказать, в пятничной расслабленности, как получать сцылки на файменеджеры... может, конечно, ниче сложного, но вот пока не вьехал. Можно пример?
-------------------------------
В истинном золоте блеска нет...
В истинном золоте блеска нет...
Глупые вопросы
Эээ... Ну, тема видимо оправдывает мои вопросы
-------------------------------
В истинном золоте блеска нет...
В истинном золоте блеска нет...
Глупые вопросы
что-то забыл как подключить файловый драйвер в проект (cw10)
те в процедуре у меня объявление
на которое линкер ругается:
Unresolved External DOS in xpt001.obj - D:\...\map\release\xpt.MAP:1
тыкался по меню но не нашел где добавить Ж(
те в процедуре у меня объявление
Код: Выделить всё
InFile FILE,DRIVER('DOS'),NAME(file_in),PRE(FIN),BINDABLE,THREAD
RECORD,PRE() !Input file
Buffer BYTE(1),DIM(65535)
END
END
Unresolved External DOS in xpt001.obj - D:\...\map\release\xpt.MAP:1
тыкался по меню но не нашел где добавить Ж(
-
- ✯ Ветеран ✯
- Сообщения: 4984
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Глупые вопросы
А словаря нет? Если в словаре файл есть, то драйвер автоматически в солюшен идёт.
We are hard at work… for you.
- Admin
- Администратор
- Сообщения: 3960
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Это если в словаре. А было написано: "в процедуре у меня объявление", так что все верно.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
- Admin
- Администратор
- Сообщения: 3960
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Еще можно в коде написать
PRAGMA('link(C%V%DOS%X%%L%.LIB)')
и драйвер подключится автоматом.
PRAGMA('link(C%V%DOS%X%%L%.LIB)')
и драйвер подключится автоматом.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
-
- ✯ Ветеран ✯
- Сообщения: 4984
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
Глупые вопросы
Подумал - может не знает, что можно в словаре файл объявить. Зачем это делать в процедуре? Логично - в словаре.
We are hard at work… for you.
- Admin
- Администратор
- Сообщения: 3960
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
Глупые вопросы
Логично. Но для разных мелких импортов я обычно прям в коде добавляю структуры. Может и не верно но так привык.
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Глупые вопросы
я старый кларионщик, просто у меня был большой перерыв - те последние проги у меня были писаны на CW55
касаемо данной задачки - она простая и я не хотел связываться с DCT
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Глупые вопросы
"Бьюсь" за минимальное время расчета, никто не сталкивался - как быстрее по времени считает: до условия какие-то проверки сделать и сравнивать уже по флагу результата или можно прямо в условии оставлять:
Код: Выделить всё
...
IF (CheckTimePeriod(T2:Date_O1,T2:T01,T2:Date_O3,T2:T03,EMP:DateWorkBegin,EMP:TimeWorkBegin,EMP:DateWorkEnd,EMP:TimeWorkEnd) = 1 AND loc:rep1 = 0 | !наш клиент?
AND T2:TimeCalcEnd = 0 AND EMP:Status = 0 AND EMP:SpeedCalcLoader > 0 AND EMP:DateCalcEnd = 0) |
OR (CheckTimePeriod(CHOOSE(DPT:TimeBegin >= (8640000 * 3 / 4),DPT:DateCalc - 1,DPT:DateCalc),DPT:TimeBegin,T2:Date_O3,T2:T03,EMP:DateWorkBegin,EMP:TimeWorkBegin,EMP:DateWorkEnd,EMP:TimeWorkEnd) = 1 AND loc:rep1 = 1 |
AND T2:TimeCalcEnd = 0 AND EMP:Status = 0 AND EMP:SpeedCalcLoader > 0 AND EMP:DateCalcEnd = 0)
...
-
- ✯ Ветеран ✯
- Сообщения: 1014
- Зарегистрирован: 08 Июль 2005, 6:48
- Откуда: Россия
- Поблагодарили: 1 раз
Глупые вопросы
Да, бывает по ходу дела надо добавить драйвер для поддержки формата, а в 10ке так все "перепланировали" в интерфейсе, то если только начинает кто с ней работать... - для сохранения нервной системы проще тут спросить