[Йогурт]

Описание проблемы: 1. Есть менюшка "Возврат товара поставщику"..при ее нажатии появл-ся форма с DBGrid-ом где
можно просмотреть какой товар стоит на возврате поставщику. В таблицы есть "Наименование товара", "Фирма товара",
"Кол-во".

Также на этой форме присутствует кнопка добавить,
при ее нажатии появл-ся еще одна форма с DBGrid-ом где показан весь товар, там также присутствуют поля
"Наименование товара", "Фирма товара", "Кол-во" т.е выбираем нужный нам товар и добовляем его в первую форму
"Возврат товара поставщику"! Суть в том, что когда выбираешь товар на добавление этот товар должен со второй
формы переместится на первую учитывая поле "Кол-во".

Например: Во второй форме вид такой "Наименование товара", "Фирма товара", "Кол-во".
Футболка D&G 2
Присутствует кнопка Edit которая отвечает за добавление "Кол-во" в нее впишим например 1 "кол-во"

И получаем в первой форме "Наименование товара", "Фирма товара", "Кол-во".
Футболка D&G 1

а во второй форме в поле "Кол-во" с 2 меняется на 1. А если ставим добавить "Кол-во" 2 из 2 то со второй формы этот
товар удаляется а в первую помещается!

И еще, на 1-ой форме есть еще кнопка удалить..т.е отказаться от этого выполнения и при ее нажатии информация должна вернуть
этот товар обратно во вторую форму!

Вот код который я применил, он переносит..но не очень хорошо! И удаляет не очень правильно! Вообщем, на этот код особо
не смотрите..считаю его не правильным! Это так..для представления моей проблемы дал!

Код:

var mn:integer;
begin
mn:=DataModule1.Otchet_o_prieme.FieldByName('Kol').AsInteger;
mn:=mn-strtoint(Edit1.Text);
if mn<>0 then
begin
DataModule1.Otchet_o_prieme.Edit;
DataModule1.Otchet_o_prieme.FieldByName('Kol').AsInteger:=mn;
DataModule1.Otchet_o_prieme.Post;
end
else
begin
DataModule1.Otchet_o_prieme.Edit;
DataModule1.Otchet_o_prieme.delete;
end;
DataModule1.Vozvrat_tovara_postavshiky.Insert;
DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Naimenovanie_tovara').AsString:=DBEdit1.Text;
DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Firma_tovara').AsString:=DBEdit2.Text;
DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Artikyl').AsString:=DBEdit3.Text;
DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Cena_pokypki').AsString:=DBEdit4.Text;
DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Kol').AsString:=Edit1.Text;
DataModule1.Vozvrat_tovara_postavshiky.Post;

Admin: Пользуемся тегами!

Если кто понял мою проблему, и знает ее решение! Пожалуйста, напишите код! Заранее очень благодарен! Спасибо!

[Йогурт]

ЗЫ..на этот вопрос нет ответа

Тема закрыта!