Цитата:
|
Сообщение от Yurk@
Код:
If (DataModule4.ADOTable2.FieldByName('Kolichestvo'). Value < StrToInt(Form10.Edit3.Text))
then ShowMessage('Нехватает лекарств')
else DataModule4.ADOTable2.FieldByName('Kolichestvo').V alue:=DataModule4.ADOTable2.FieldByName('Kolichest vo').Value-StrToInt(Form10.Edit3.Text); |
---
Не помогает...) Вообще возможно поставленные задачи не понял, он вычитает и сообщение выводит и с тем кодом, но мне надо видимо проверку что если не хватает, то он выводил сообщение, но вычитание не производил, а если вообще в Складе нет такого лекарства, то он писал бы что нет лекарства, и не вычитал бы из 1й строки, как это он делает сейчас