Списание.

← →
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 создать..?!..
Индексы НАДО создавать, нок твоему вопросу они не имеют никакого отношения :)

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