Текущий архив: 2003.12.30;
Скачать: CL | DM;

Вниз

Проблема при вводе данных   Найти похожие ветки 

← →
DelphiNew ©   (2003-12-16 14:25) [0]

Люди встала такая проблема: Получаю данные со сканера штрих-кодов, полученная строка проверяется есть ли такой штрих-код в базе и если есть добавляется в другую базу. Проблема в том что считывается только один раз. Т.е один раз получил данные и дальше не может. Вот код

procedure TFrmMain.OnGetDataFromScaner;
var
ScanSt: string;
begin
ScanSt:=copy(ScanerThread.StrResult,1,2);
FrmTara.IBQTar.Close;
FrmTara.IBQTar.SQL.Clear;
FrmTara.IBQTar.SQL.Add("select namecode, A1,EANCODE, A3, A4, JC1, PRICE from view_1500001");
FrmTara.IBQTar.SQL.Add("where eancode="""+ScanSt+"""");
FrmTara.IBQTar.Open;
sleep(100);
if FrmTara.IBQTar.RecordCount <> 0 then
begin
FrmTara.IBQInsTar.ParamByName("NAMETARA").AsString:=FrmTara.IBQTarA1.AsString;
FrmTara.IBQInsTar.ParamByName("CODETARA").AsString:=ScanerThread.StrResult;
FrmTara.IBQInsTar.ParamByName("VES").AsFloat:=FrmTara.IBQTarA3.AsFloat;
FrmTara.IBQInsTar.ParamByName("NCTARA").AsInteger:=FrmTara.IBQTarNAMECODE.AsInteger;
FrmTara.IBQInsTar.ParamByName("LINKHEAD").AsInteger:=nc;
FrmTara.IBQInsTar.ParamByName("QUAN").AsInteger:=1;
FrmTara.IBQInsTar.ParamByName("VESTOTAL").AsFloat:=FrmTara.IBQTarA3.asFloat * StrToFloat(FrmTara.EdtVes.Text);
FrmTara.IBQInsTar.ParamByName("PRICE").AsFloat:=FrmTara.IBQTarPRICE.AsFloat;
FrmTara.IBQInsTar.ParamByName("SUMMATOTAL").AsFloat:=FrmTara.IBQTarPRICE.AsFloat * StrToFloat(FrmTara.EdtVes.Text);
FrmTara.IBQInsTar.ExecSQL;
FrmMain.IBTransaction1.Commit;
FrmMain.IBTransaction1.StartTransaction;
FrmMain.IBQSpec.Open;
end;
end;

Пробовал ставить проверку так:
.......
FrmTara.IBQInsTar.ExecSQL;
FrmMain.IBTransaction1.Commit;
FrmMain.IBTransaction1.StartTransaction;
FrmMain.IBQSpec.Open;
end
else
showmessage("нет записи");
При этом запись добавляется, но одновременно появляется вышеобъявленное сообщение и как-будто зацикливается, т.е нажимаю ОК а оно всё равно выскакивает

---

← →
DelphiNew ©   (2003-12-16 14:44) [1]

Люди помогите, очень надо

---

← →
Тимохов ©   (2003-12-16 14:47) [2]

Типа, тема форума другая - см. "Базы"

---

← →
DelphiNew ©   (2003-12-16 14:48) [3]

Здесь дело не в базе, а вот в чём я так и не могу разобраться

---

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

Текущий архив: 2003.12.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c