выч. поле
77 2016-12-02 11:07:58
Re: Опять вопрос по Дате (10 replies, posted in Russian)
поправил, не учел ссылку на таблицу)) Спасибо!!
78 2016-12-02 11:02:59
Re: Опять вопрос по Дате (10 replies, posted in Russian)
Вы уверены, что рез в днях? Очень уж большой)
79 2016-12-02 10:19:17
Re: Как добавить файл изображения в БД используя срипт. (4 replies, posted in Talks about all)
Все справился))) и Спасибо!!
80 2016-12-02 10:11:12
Re: Как добавить файл изображения в БД используя срипт. (4 replies, posted in Talks about all)
при щелчке на Grid.
81 2016-12-02 10:09:49
Re: Как добавить файл изображения в БД используя срипт. (4 replies, posted in Talks about all)
SQLExecute('UPDATE zDoc SET PicDpc_filename ="'+addDocZakaz.DBImage1.dbFileName+'" WHERE (id = '''+ IntToStr(DocsZakaz.TableGrid1.dbItemID) + ''')');
После исправления выдал ошибку: JPEG error #53
82 2016-12-02 09:20:09
Topic: Как добавить файл изображения в БД используя срипт. (4 replies, posted in Talks about all)
Данная конструкция не работает
SQLExecute('UPDATE zDoc SET PicDpc ="'+addDocZakaz.DBImage1.dbFileName+'" WHERE (id = '''+ IntToStr(DocsZakaz.TableGrid1.dbItemID) + ''')');
Посоветуйте в чем дело. Спасибо.
83 2016-12-02 09:14:07
Topic: Опять связные списки (2 replies, posted in Talks about all)
Есть таблица со связным полем. Показываю ее в Grid, Форму показа открываю кнопкой, в этом Grid указываю показывать только дочернии записи и "о чудо" ничего не происходит. Сыпется все подряд. Даже принудительный фильтр:
// Фильтрация по id заказа
ziZiltr :='(zDoc.id_zakaz = "' + IntToStr(FormMenager.TableGrid1.dbItemID)+'")';
DocsZakaz.TableGrid1.dbFilter := zFiltr;
не помогает. В чем может быть дело?
84 2016-12-02 05:40:56
Re: ошибка в работе DBImage1 (10 replies, posted in Russian)
procedure Form1_Image1_OnClick (Sender: string);
begin
OpenFile(imgFile);
end;
Не открывает.
85 2016-12-01 22:01:40
Re: Опять вопрос по Дате (10 replies, posted in Russian)
Как в ВЫЧИСЛЯЕМОЕ ПОЛЕ передать значение переменной? В моем случае - это ставка рефенансирования ЦБ.
86 2016-12-01 21:42:08
Re: ошибка в работе DBImage1 (10 replies, posted in Russian)
Да, все стало на свои места!
А как теперь именя путь к этому файлу, по клику на рисунке, показывать его в просмоторщике рисунков ВИНДЫ?
87 2016-12-01 21:27:35
Re: Опять вопрос по Дате (10 replies, posted in Russian)
И как такую операцию совершить в вычисляемом поле?
date()-поле типа дата
НЕ РАБОТАЕТ.
88 2016-12-01 19:47:21
Topic: Опять вопрос по Дате (10 replies, posted in Russian)
Никак не получается вычислить значение даты:
procedure FormFinans_TableGrid4_OnCellClick (Sender: string; ACol, ARow: Integer);
var
dd_count: TDateTime;
dd: string;
begin
// Расчет ПЕНИ
dd:= SQLExecute('SELECT zDataIsp FROM zakaz WHERE (id = ''' + IntToStr(FormFinans.TableGrid4.dbItemID) + ''')');
ShowMessage (dd);
dd_count:=Date(dd);
ShowMessage (dd_count);
FormFinans.Edit2.Text:= IntToStr(DaysBetween(Now,dd_count));
end;
Нужно в Edit записать количество дней между текущей датой и датой из базы.
Такая конструкция ругается на несоответствие форматов.
89 2016-12-01 11:07:29
Re: ошибка в работе DBImage1 (10 replies, posted in Russian)
загружаю изображение в рисунок:
procedure FormFinans_TableGrid5_OnClick (Sender: string);
var
imgFile: string;
begin
FormFinans.Image1.Picture.LoadFromFile('');
// узнаем имя файла на диске
imgFile := SQLExecute('SELECT zObrabotka.docCopyPic_filename FROM zObrabotka WHERE id='+IntToStr(FormFinans.TableGrid5.dbItemID) );
if imgFile<>'' then
begin
Delete(imgFile, 1, 19); // удаляем 19 позиций задвоения ошибка программ
FormFinans.Image1.Picture.LoadFromFile( imgFile );
end
else
FormFinans.Image1.Picture.LoadFromFile('Рисунки\doc_load.jpg');
end;
свойство CopyTo у этого компонента ОТСУТСТВУЕТ. А ошибка повторяется.
Внутри проекта много коммерческой информации, а без файла базы данных работать отказывается. Скорее всего из-за перезаполнения справочников которые тоже висят в основном файле базы данных.
90 2016-12-01 11:03:17
Re: ошибка в работе DBImage1 (10 replies, posted in Russian)
Вы же видите, что происходит за двоение первых двух папок (почему-то???), путь в ошибке и путь внизу на форме.
91 2016-12-01 11:00:26
Re: ошибка в работе DBImage1 (10 replies, posted in Russian)
Проект оч большой. Все шаги я описал выше. Ошибку победил следующим исправлением:
Delete(imgFile, 1, 19); // удаляем 19 позиций задвоения ошибка программ
Но это оч не красиво!
92 2016-11-30 10:46:23
Topic: ошибка в работе DBImage1 (10 replies, posted in Russian)
При выполнении этого кода
imgFile := SQLExecute('SELECT zObrabotka.docCopyPic_filename FROM zObrabotka WHERE id='+IntToStr(FormFinans.TableGrid5.dbItemID) );
if imgFile<>'' then
begin
Delete(imgFile, 1, 1); // удаляем первый слешь
FormFinans.Label6.Caption := imgFile;
FormFinans.DBImage1.dbFileName := imgFile;
FormFinans.DBImage1.Picture.LoadFromFile( imgFile );
end;
;
на сервере выдает ошибку:
Происходит за двоение в пути к файлу!
93 2016-11-29 12:44:12
Re: Несколько файлов (Save file in database) (13 replies, posted in Russian)
Прочитал всю Вашу беседу, столкнувшись с похожей ситуацией, но ничего не понял! Как я могу убрать скрипт, если в нем у меня реализовано уже много что! Проблема проста: Есть заявки по которым заводятся счета. Нужно вывести все счета по всем заявкам в один грид и по нажатию по строчке показывать счет.
94 2016-11-29 11:59:51
Re: Фильтр в Grid по вхождению даты в выбранный месяц (4 replies, posted in Russian)
В моем примере дополнительной кнопки быть не должно. Фильтрация должна происходить при выборе месяца в списке.
95 2016-11-29 11:54:24
Re: Вычисляемые поля по условию (3 replies, posted in Russian)
При двойном щелчке, для редактирования выдает ошибку!! Нет поля status?
96 2016-11-24 12:05:35
Topic: Вычисляемые поля по условию (3 replies, posted in Russian)
Здравствуйте. Столкнулся с проблемой: необходимо производить вычисления в вычисляемом поле в зависимости от условия, в моем примере это статус документа. Если он равен "в рабрте" то вычисляемое поле должно заполняться, иначе если статус "проект" - то должно оставаться нулевым. Спасибо.
97 2016-11-24 12:00:40
Re: Проверка на дубликаты (6 replies, posted in Russian)
он довольно громоздкий и еще сыроват. Доведу до ума и обязательно выложу.
98 2016-11-08 16:16:16
Re: Сравнение даты вида dd.mm.yyyy из ячейки типа ТЕКСТ с текущей датой (8 replies, posted in Russian)
Да, заработало. Спасибо. Что только не перепробывал))
99 2016-11-08 05:38:04
Re: Сравнение даты вида dd.mm.yyyy из ячейки типа ТЕКСТ с текущей датой (8 replies, posted in Russian)
Добрый день! А как это сравнение применить в Фильтре GRID.
дата в виде текста представляет собой
p1:="01.10.2016";
periodFiltr:='date(oSchetData) < StrToDate('+p1+')';
FormFinans.TableGrid2.dbFilter:=periodFiltr;
Выдает ошибку !!!
100 2016-11-06 17:26:20
Re: Фильтр в Grid по вхождению даты в выбранный месяц (4 replies, posted in Russian)
В строке
periodFiltr:='(date(oSchetData)>=date('+p1+')) AND (date(oSchetData)<date('+p2+'))';
Ругается на синтаксическую ошибку возле ".2016".
Значение р1 = '01.10.2016'
Если поставить еще дополнительные кавычки:
periodFiltr:='(date(oSchetData)>=date(""'+p1+'"")) AND (date(oSchetData)<date(""'+p2+'""))';
не ругается, но и фильтровать не хочет.