76

(10 replies, posted in Russian)

выч. поле

77

(10 replies, posted in Russian)

поправил, не учел ссылку на таблицу)) Спасибо!!

78

(10 replies, posted in Russian)

Вы уверены, что рез в днях? Очень уж большой)

Все справился))) и Спасибо!!

при щелчке на Grid.

          SQLExecute('UPDATE zDoc SET PicDpc_filename ="'+addDocZakaz.DBImage1.dbFileName+'" WHERE (id = '''+ IntToStr(DocsZakaz.TableGrid1.dbItemID) + ''')');

После исправления выдал ошибку: JPEG error #53

Данная конструкция не работает

          SQLExecute('UPDATE zDoc SET PicDpc ="'+addDocZakaz.DBImage1.dbFileName+'" WHERE (id = '''+ IntToStr(DocsZakaz.TableGrid1.dbItemID) + ''')');

Посоветуйте в чем дело. Спасибо.

83

(2 replies, posted in Talks about all)

Есть таблица со связным полем. Показываю ее в Grid, Форму показа открываю кнопкой, в этом Grid указываю показывать только дочернии записи и "о чудо" ничего не происходит. Сыпется все подряд. Даже принудительный фильтр:

     // Фильтрация по id заказа
     ziZiltr :='(zDoc.id_zakaz = "' + IntToStr(FormMenager.TableGrid1.dbItemID)+'")';

     DocsZakaz.TableGrid1.dbFilter := zFiltr;

не помогает. В чем может быть дело?

84

(10 replies, posted in Russian)

procedure Form1_Image1_OnClick (Sender: string);
begin
   OpenFile(imgFile);
end;

Не открывает.

85

(10 replies, posted in Russian)

Как в ВЫЧИСЛЯЕМОЕ ПОЛЕ передать значение переменной? В моем случае - это ставка рефенансирования ЦБ.

86

(10 replies, posted in Russian)

Да, все стало на свои места!

А как теперь именя путь к этому файлу, по клику на рисунке, показывать его в просмоторщике рисунков ВИНДЫ?

87

(10 replies, posted in Russian)

И как такую операцию совершить в вычисляемом поле?

date()-поле типа дата

НЕ РАБОТАЕТ.

88

(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

(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

(10 replies, posted in Russian)

Вы же видите, что происходит за двоение первых двух папок (почему-то???), путь в ошибке и путь внизу на форме.

91

(10 replies, posted in Russian)

Проект оч большой. Все шаги я описал выше. Ошибку победил следующим исправлением:

         Delete(imgFile, 1, 19); // удаляем 19 позиций задвоения ошибка программ

Но это оч не красиво!

92

(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;

;

на сервере выдает ошибку:


Происходит за двоение в пути к файлу!

Прочитал всю Вашу беседу, столкнувшись с похожей ситуацией, но ничего не понял! Как я могу убрать скрипт, если в нем у меня реализовано уже много что! Проблема проста: Есть заявки по которым заводятся счета. Нужно вывести все счета по всем заявкам в один грид и по нажатию по строчке показывать счет.

В моем примере дополнительной кнопки быть не должно. Фильтрация должна происходить при выборе месяца в списке.

При двойном щелчке, для редактирования выдает ошибку!! Нет поля  status?

Здравствуйте. Столкнулся с проблемой:  необходимо производить вычисления в вычисляемом поле в зависимости от условия, в моем примере это статус документа. Если он равен "в рабрте" то вычисляемое поле должно заполняться, иначе если статус "проект" - то должно оставаться нулевым. Спасибо.

97

(6 replies, posted in Russian)

он довольно громоздкий и еще сыроват. Доведу до ума и обязательно выложу.

Да, заработало. Спасибо. Что только не перепробывал))

Добрый день! А как это сравнение применить в Фильтре GRID.
дата в виде текста представляет собой   

p1:="01.10.2016";

periodFiltr:='date(oSchetData) < StrToDate('+p1+')';

FormFinans.TableGrid2.dbFilter:=periodFiltr;

Выдает ошибку !!!

В строке
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+'""))';
не ругается, но и фильтровать не хочет.