Добрый вечер!
Но мне как раз и нужно записать данные в существующую таблицу. Просто как правило кнопка и нужна при количестве записей более 5.

Спасибо!!!
При выполнении Вашего совета условие работает, но только по одному условию.
А как заставить срабытывать при 2 условиях?
Когда ставлю: +' AND Specification.name='+frmScore.spec.Text - при выполнении дает ошибку на 2 (в комбо текст - Спецификация 2)
А если ставлю: +' AND Specification.name='+frmScore.spec.sqlValue - вроде выполняется без ошибок, но грид не заполняется.
Прикладываю проект, прошу посмотрите в чем я косячу.
Счет вызывается через основную форму - словарь (нижний правый угол) - вкладка счет

Добрый вечер!
Помогите со следующей проблемой, написан запрос который работает в SQLlitestudio, но при переносе данного запроса в процедуру запрос не выполняется а дает сообщения о ненахождении ключа условия.

INSERT INTO Ast (id_Nomenkl, number, price, NDS, id_score)
SELECT Specification.id_Nomenkl, specification.number, specification.price, specification.NDS, score.id
FROM specification
JOIN Dogovor ON Specification.id_Dogovor=dogovor.id
JOIN Score ON Score.id_Dogovor=Score.id
WHERE id_Dogovor='+frmScore.dogovor.sqlValue+' AND name='+frmScore.spec.sqlValue

Сообщение об ошибке:
ambuguous column name: id_Dogovor

Спасибо Derek!
Все заработало как надо.

Спасибо Derek!
С помощью Вашей подсказки работает, но только при открытии формы. А как сделать чтобы и обновлялось после каждого изменения в таблице?
Я думал что условие CHENGE работает на изменении, а не открытии формы.
Заранее спасибо!!!

Добрый вечер!
Подскажите как можно прописать в процедуре условие, если в 4 столбце дата больше 30 дней от текущей, цвет текста в строке окрашивается в синий цвет.
Попробывал сделать на основе окраски строк, не вышло, ведь тут нет условия значения ячейки.

procedure frmDic_TableGrid8_OnChange (Sender: TObject);
var
  i,c: integer;
   k,q: integer;
  YY, MM, DD: Word;
begin
     frmDic.TableGrid8.BeginUpdate;

     q := frmDic.TableGrid8.Columns.Count-1;
     c := frmDic.TableGrid8.RowCount - 1;
     for i := 0 to c do
     begin
             s := frmDic.TableGrid8.Cells[4,i];
             if ValidDate(s) then
                 if (StrToDate(s) - 30) > now then
                     for k := 0 to q do
                         frmDic.TableGrid8.Cell[k,i].TextColor := clNavy;
     end;

Добрый вечер!
Прошу помочь с проблемой отображения данных в гриде.
В приложенном проекте на основной форме 2 заявки, в которых есть привязка к счетам с разными исходными данными.
В случае с привязкой счета к договору все отображается правильно, но в случае когда счет без привязки к договору, почему-то ставится номер договора не соответствующий контрагенту и не отображается контрагент (должны быть поля номер договора, дата - пустые; контрагент согласно форме счета)
Правильно счета отображаются в словаре, вкладка счета. (таблица score)
Но на форму заявки они вносятся через форму addscore, к которой идет привязка договора через счет.
Проект приложил.

Добрый вечер!
Ситуация следующая. Есть договор и спецификация к нему. Когда я создаю счет, то хотелось бы посредством кнопки заполнять номенклатуру в счете исходя из выбранного номера договора и спецификации.
Если сделать просто копирование данных с таблицы спецификации посредствам SQL запроса, то нет привязки данных к счету.
Как это можно осуществить?
(поля которые копируются с таблицы спецификация "Specification" в таблицу "AST": id_Nomenkl, number, price, NDS)
А вот как потом заполнить поле id_score, ума никак не приложу.
Примерно тоже я попытался сделать в форме прихода frmADmission, но после копирования я не вижу в таблице номенклатуру.

Добрый день!
Спасибо огромное, работает. Оказывается было выбрано не правильное условие для процедуры)))
Можно попросить еще помочь с одной проблемой, как сделать чтобы по нажатию кнопки произошло заполнение номенклатуры в счете, согласно договора и спецификации.

Добрый вечер!
Вызов формы можно осуществить через кнопку словарь (нижний правый угол) и затем вкладка счет и кнопка button16.

Добрый вечер!
Я далеко не программист, и даже далеко до делитанта.
Ни одно из предложенных решений не помогает.
Вероятно я что-то упускаю, приложил проект. Может поможет решить мою проблему.
Форма счета вызывается через словарь.
Очень прошу помочь

Добрый вечер!
К сожаление введение в выбор столбца id, совершенно не решило проблему. Я честно сказать и до вопроса пробывал ставить id, но перед столбцом namе.

Добрый вечер!
Помогите разобраться в чем ошибка в скрипте процедуры следующего запроса:

procedure frmScore_ComboBox1_OnClick (Sender: TObject);
begin
    frmScore.ComboBox1.dbSQLExecute('SELECT name FROM Specification WHERE id_Dogovor='+frmScore.dogovor.sqlValue)
end

после нажатия на раскрывающийся список - пустота, хотя должно быть - спецификация 1

Добрый вечер!
Помогите решить следующую проблему. Есть форма с данными приходного документа в ней также присутствует grid с перечнем товаров (отдельная таблица). При использовании кнопки для заполнения товаров копированием из таблицы товаров к счету, осуществляется копирование товаров но без привязки к таблице прихода.
Как сделать так чтобы скопированные товары привязывались к таблице приходного документа.
Проект прилагаю.

Не совсем так, я хотел бы чтобы однотипные счета с разных заявок не дублировались при открытии формы счетов.
Примерно такой запрос, но он не срабатывает почему-то.

procedure frmAllScore_TableGrid1_OnEnter (Sender: TObject);
begin
  frmAllScore.TableGrid1.dbSQL := ('SELECT Typepay.typepay, Dogovor.nomber, Dogovor.data, Counterpaty.name, Counterpaty.tel, Score.nomber, Score.data, Score.pay, Score.paynds, Score.payment, Score.note FROM Score LEFT JOIN Typepay ON typepay.id=score.id_Typepay LEFT JOIN Dogovor ON Dogovor.id=score.id_Dogovor LEFT JOIN Counterpaty ON Counterpaty.id=score.id_Counterpaty GROUP BY Typepay.typepay, Counterpaty.name, Score.nomber');
end;

И еще один вопрос: Как можно сделать так чтобы при записи нового договора выдавалось сообщение: Договор с данным поставщиком был заключен менее 60 дней. И тогда запись данного договора не происходит.

Добрый вечер!
Поскольку я не получил ответа, попробывал включить запрос через скрипт. Но странная вещь запрос не работает в программе, а SQLlite studio работает, можно уточнить почему так выходит или я что-то делаю не так.
Так же почему-то не работают скрипты с примеров, причем говорит про ошибки редактор при запуске проекта с примером.

Добрый вечер!
Прошу помочь с отображением на форме данных без повторения.
Проблема в следующем, есть форма счетов (AllScore), в которой отображаются все счета. Но когда один счет привязан к нескольким заявкам он начинает повторяться. Как сделать так чтобы в таблице отражались счета только один раз, критерий отсеивания на моем понимании по 3 столбцам (тип оплаты - аванс, постоплата, предоплата; номер счета и контрагент) Счет с одним номером и поставщиком должен быть виден с разным типом оплаты.
Заранее благодарю!!!

43

(4 replies, posted in Russian)

Название формы по 2 вопросу - frmSpecification.
А почему при копировании скрипта в мою базу запрос с комбо не срабатывает, а в скаченной базе работает, но все равно огромное спасибо за помощь.

Добрый вечер!
Прошу помочь с проблемой выборки значений в combobox2 на основании выбора значения в combobox1.
Есть 2 поля combobox на форме: 1 - контрагент, 2 - Номер договора. Задача состоит в том, чтобы при выборе контрагента в таблице "контрагентов" во втором комбо показывались только номера договоров этого контрагента из таблицы "договор".
И еще одна просьба, не сочтите за наглость, есть форма Спецификация в ней три поля: Цена без НДС, НДС и Цена с НДС.
Как осуществить такой фокус.
Если вводится цена без НДС и НДС, то поле цена с НДС заполняется автоматом. Или наоборот если занести цену с НДС, то на основе нее заполняются поля: цена без НДС и НДС, с учетом ставки

Спасибо, все заработало.

Прикрепил

Добрый день!
Создал базу данных, но почему-то при открытии словаря данные во вкладке Материальщик не видны.
Также не видны некоторые значения во вкладке Поставщик (ИНН, ОГРН) хотя поле КПП отображается.
Помогите разобраться в чем проблема.

Заранее спасибо!

48

(2 replies, posted in Russian)

Спасибо Дмитрий!
Все работает именно так как я и хотел.

49

(2 replies, posted in Russian)

Добрый день Дмитрий!

Столкнулся с такой проблемой. При использовании клавиши "TAB" когда курсор с поля поиска переходит на таблицу, не выделяется строка.
Подскажите как сделать так чтобы после нажатия на "TAB" было выделение строки в таблице.
Скрин формы в приложении

50

(12 replies, posted in Russian)

У меня простой вопрос, как мне сделать чтобы при формировании новой заявки счетчик сбрасывал нумерацию с 01.01.....