Форум: "Базы";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

Списание.   Найти похожие ветки 

← →
Hamster   (2002-04-30 08:37) [0]

Народ, подскажите каким кодом мне энто организовать..
У меня есть таблица Sklad на сервере. На кассовом комьютере стоит интерфэйс списания..Там через dblookcombobox выбирается модель, соответственно сопоставляется с остальными полями (наименование, тех-характеристики итд)..но самое главное кол-во.
Вот у мя к примеру есть 10 телевизоров, как мне перенести один из них в лист продаж..т.е не все 10 как у меня к сожалению получается, а именно один, так чтобы в table sklad их осталось 9.
Извиняюсь за то что не правильно задал вопрос..просто нету времени..Если кто-то понял, помогите плз..


часть кода который у меня сейчас на кнопке "продать":


procedure TCashfrm.salebtnClick(Sender: TObject);
label fsh;
begin
tablesalelist.Insert;
if modellookcbox.text<>null then tablesalelist.FieldValues["salelist_model"]:=modellookcbox.Text;
if nameedt.text<>null then tablesalelist.FieldValues["salelist_name"]:=nameedt.Text;
if firmedt.text<>null then tablesalelist.FieldValues["salelist_firm"]:=firmedt.Text;
if countryedt.text<>null then tablesalelist.FieldValues["salelist_country"]:=countryedt.text;
if tnoteedt.Text<>null then tablesalelist.FieldValues["salelist_tnote"]:=tnoteedt.Text;
tablesalelist.FieldValues["salelist_time"]:=timetostr(time);
tablesalelist.FieldValues["salelist_date"]:=datetostr(date);
tablesalelist.FieldValues["salelist_person"]:=personedt.Text;
tablesalelist.FieldValues["salelist_cnotes"]:=cnotesedt.Text;
tablesalelist.FieldValues["salelist_outcost"]:=strtoint(costpnl.Caption);
tablesalelist.Post;
tablesalelist.Close;
tablesklad.LockTable(ltReadLock);
if tablesklad.FieldValues["sklad_col"]=1 then begin
tablesklad.Delete;
goto fsh;
end;
if tablesklad.FieldValues["sklad_col"]<1 then begin
tablesklad.Delete;
goto fsh;
end;
if tablesklad.FieldValues["sklad_col"]>1 then begin
tablesklad.Edit;
tablesklad.FieldValues["sklad_col"]:=tablesklad.FieldValues["sklad_col"]-1;
tablesklad.Post;
end;



---

← →
fnatali   (2002-04-30 09:11) [1]

По моему, тебе нужно сделать ещё один edit (maskedit,...)в который вводить количество предполагаемого к продаже товара (почему-то мне кажется, что может понадобиться продать больше, чем 1 телевизор:)).По кнопке "продать" проверять, не больше ли это значение, находящегося на складе, и, соответсвенно, вычитать его оттуда.

---

← →
fnatali   (2002-04-30 09:15) [2]

И ещё совет - по-моему, лучше всё-таки пользоваться query, а не table для работы с IB.

---

← →
Johnmen   (2002-04-30 09:20) [3]

чудно все это, особенно -
...
tablesklad.LockTable(ltReadLock);
...

---

← →
Hamster   (2002-04-30 09:23) [4]

Хм..Щас попробую. Только не с просто Table а IbTable.
А насчёт телевизоров, это верно..даже те берут штук по 10..

..а с Query просто что-то разобратся не могу..

Спасибо!..

---

← →
Hamster   (2002-04-30 09:24) [5]

johnmen да энто я уже понял..=)..

---

← →
Hamster   (2002-04-30 09:25) [6]

Может мне Index создать..?!..

---

← →
fnatali   (2002-04-30 09:30) [7]

Похоже на реинкарнацию IronHawk. :)
>Может мне Index создать..?!..
Индексы НАДО создавать, нок твоему вопросу они не имеют никакого отношения :)

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c