Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.02 c
14-99777
Thor
2003-12-05 15:07
2003.12.30
Борис Абрамыч инициалы сменил.


14-99699
Думкин
2003-12-07 05:47
2003.12.30
С днем рождения! 7 декабря.


1-99557
Intro
2003-12-17 23:42
2003.12.30
Как подключить принтер?


3-99444
hursand
2003-12-06 11:32
2003.12.30
Использоват хранимых процедур


8-99657
MIKL
2003-08-26 14:14
2003.12.30
Потдержка jpeg, gif, и т.д