Есть такая задача - импортировать в Кадры фотографии сотрудников.
Фотки в формате jpg лежат во внешнем файле. Подготовка формата файла и задания способа идентификации фоток (например по табелю) - не проблема.
Вопрос в том, как сделать перенос?
Галактика 7.11 под MS-SQL
VIP и SQL - в наличии
Импорт фотографий в карточки сотрудников
Модераторы: m0p3e, edward_K, Модераторы
Думаю, где-то так
PATH - путь к файлам с фотографиями сотрудников, причем называться файлы должны по табельному номеру сотрудника.
Код: Выделить всё
create view vFoto
as
select * from Persons, Appendix
where
((
Persons.Nrec == Appendix.Person and
1 == Appendix.ObjBlock and
200 == Appendix.ObjType
));
loop Persons
{
if GetFirst Appendix <> tsOK
{
ClearBuffer(#Appendix)
Appendix.Nrec := 0;
Appendix.Abstract := 'Фотография';
Appendix.Person := Persons.Nrec;
Appendix.ObjBlock := 1;
Appendix.ObjType := 200;
insert current Appendix;
}
if isValid(Appendix)
if ImportFileToMemo(Appendix.contents, PATH+persons.tabnmb+'.jpg',false) = false
delete current Appendix;
}
-
- Местный житель
- Сообщения: 702
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Украина, Запорожска яобласть, г.Днепрорудный
Добрый день. Ми импортировали фото сотрудников, с помощью внедренцев, но только в формате bmp, иначе не получалось, чтоб фото было видно в карточке(это было еще в 5.74). Потом переходили на 5.84 и на 7.11(сейчас) и в обоих случаях в конверторе мемо-поле размером более 40кБ не конвертировалось нормально, т.е. если фото было до 40, то после конвертации его видно в карточке, если более, то нет. Приходится опять делать импорт фото.