Страница 4 из 14
					
				Глупые вопросы
				Добавлено: 25 Сентябрь 2015, 14:22
				 kreator
				Fetch - это частности, а я о принципе. Для работы с ООП нужно у себя в голове что-то переключить. И, чем раньше начать смотреть в эту сторону, тем лучше. И ООП рулит.
			 
			
					
				Глупые вопросы
				Добавлено: 25 Сентябрь 2015, 23:40
				 Aragorn
				Я, может, что-то путаю, но мне кажется все эти менеджерА (их криэйты и пр.) генерятся шаблонами абц в случае, когда цепляешь конкретные таблицы, а не все скопом... и пока не осознал, так сказать, в пятничной расслабленности, как получать сцылки на файменеджеры... может, конечно, ниче сложного, но вот пока не вьехал. Можно пример?
			 
			
					
				Глупые вопросы
				Добавлено: 26 Сентябрь 2015, 12:14
				 Дед Пахом
				
			 
			
					
				Глупые вопросы
				Добавлено: 27 Сентябрь 2015, 1:17
				 Aragorn
				
			 
			
					
				Глупые вопросы
				Добавлено: 11 Ноябрь 2015, 19:52
				 SuperMax
				что-то забыл как подключить файловый драйвер в проект (cw10)
те в процедуре у меня объявление
Код: Выделить всё
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
тыкался по меню но не нашел где добавить Ж(
 
			
					
				Глупые вопросы
				Добавлено: 11 Ноябрь 2015, 19:55
				 Дед Пахом
				В Solution explorer, ветка File Drivers
			 
			
					
				Глупые вопросы
				Добавлено: 11 Ноябрь 2015, 20:00
				 SuperMax
				Спасибо! 
вот запрятали 

 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:12
				 kreator
				SuperMax писал(а): что-то забыл как подключить файловый драйвер в проект (cw10)
те в процедуре у меня объявление
 
А словаря нет? Если в словаре файл есть, то драйвер автоматически в солюшен идёт.
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:13
				 Admin
				kreator писал(а): Если в словаре файл есть, то драйвер автоматически в солюшен идёт.
 
Это если в словаре. А было написано: "в процедуре у меня объявление", так что все верно.
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:30
				 Admin
				Еще можно в коде написать
PRAGMA('link(C%V%DOS%X%%L%.LIB)')
и драйвер подключится автоматом.
			 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:31
				 kreator
				Admin писал(а): Это если в словаре. А было написано: "в процедуре у меня объявление", так что все верно.
 
Подумал - может не знает, что можно в словаре файл объявить. Зачем это делать в процедуре? Логично - в словаре.
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:34
				 Admin
				kreator писал(а): Логично - в словаре.
 
Логично. Но для разных мелких импортов я обычно прям в коде добавляю структуры. Может и не верно но так привык.
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:55
				 SuperMax
				kreator писал(а): Admin писал(а): Это если в словаре. А было написано: "в процедуре у меня объявление", так что все верно.
 
Подумал - может не знает, что можно в словаре файл объявить. Зачем это делать в процедуре? Логично - в словаре.
 

я старый кларионщик, просто у меня был большой перерыв - те последние проги у меня были писаны на CW55
касаемо данной задачки - она простая и я не хотел связываться с DCT
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 10:56
				 Ал
				"Бьюсь" за минимальное время расчета, никто не сталкивался - как быстрее по времени считает: до условия какие-то проверки сделать и сравнивать уже по флагу результата или можно прямо в условии оставлять:
 
Код: Выделить всё
... 
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)
...
 
			
					
				Глупые вопросы
				Добавлено: 12 Ноябрь 2015, 11:01
				 Ал
				Admin писал(а): kreator писал(а): Логично - в словаре.
 
Логично. Но для разных мелких импортов я обычно прям в коде добавляю структуры. Может и не верно но так привык.
 
Да, бывает по ходу дела надо добавить драйвер для поддержки формата, а в 10ке так все "перепланировали" в интерфейсе, то если только начинает кто с ней работать... - для сохранения нервной системы проще тут спросить 
