в чём ошибка?

← →
Evgenij (2002-07-29 12:03) [0]

begin
With Test do
begin
Sql.Clear;
Sql.Add("Delete * From TblGlassBlokCalculation");
ExecSQL;
Sql.Clear;
Sql.Add("Delete * From TblTemp");
ExecSQL;
end;
With DM1.Data.QOtchet do
begin
If Active = True Then Close;
Case RadioGroup2.ItemIndex of
0: Filtr := "DATE_FABRICATION_ORDER >= :DATA1 and DATE_FABRICATION_ORDER <= :DATA2 ";
end;
SQL.Clear;
SQL.Add("Select * from tblOrder Where "+ Filtr + "Order By DATE_FABRICATION_ORDER");
Case RadioGroup2.ItemIndex of
0:
begin
ParamByName("Data1").AsDateTime := DateTimePicker1.Date;
ParamByName("Data2").AsDateTime := DateTimePicker2.Date;
end;
end;
Open;
end;
DM1.Data.QGlassBlokCalc.Open;
DM1.Data.QName.Open;
DM1.Data.QPlenka.Open;
DM1.Data.QOrder.Open;
DM1.Data.QRamka.Open;
DM1.Data.QGlassBlokType.Open;
TempTo.Open;
While not DM1.Data.QOtchet.EOF do
begin
While not DM1.Data.QGlassBlokCalc.Eof do
begin
TempTo.Insert;
TemPTo.FieldByName("NUM").AsString := DM1.Data.QORDER.FieldByName("ORDER_NUMBER").AsString;
TemPTo.FieldByName("GLASSBLOK_AMOUNT").AsFloat := DM1.Data.QGlassBlokCalc.FieldByName("GLASSBLOK_AMOUNT").AsFloat;
TemPTo.FieldByName("Perimetr").AsFloat := DM1.Data.QGlassBlokCalc.FieldByName("Perimetr").AsFloat;
TemPTo.FieldByName("Ploshad").AsFloat := DM1.Data.QGlassBlokCalc.FieldByName("Ploshad").AsFloat;
TempTo.Post;
DM1.Data.QGlassBlokCalc.Next;
end;
DM1.Data.QOtchet.Next;
end;
TempTo.Close;
DM1.Data.QOrder.Close;
DM1.Data.QCostConst.Open;
TempTo.Open;
Temp.Open;
While not TempTo.EOF do
begin
Ploshad := TempTo.FieldByName("Ploshad").AsFloat;
Perimetr := TempTo.FieldByName("Perimetr").AsFloat;
Shprosi_Dlinna := TempTo.FieldByName("Shprosi_Dlinna").AsFloat;
Plenka_Kol := TempTo.FieldByName("Plenka_Kol").AsFloat;
Argon_Kol := TempTo.FieldByName("Argon_Kol").AsFloat;
GLASSBLOK_AMOUNT := TempTo.FieldByName("GLASSBLOK_AMOUNT").AsFloat;
Stopor := TempTo.FieldByName("Stopor").AsFloat;
Krosser := TempTo.FieldByName("Krosser").AsFloat;
P := TempTo.FieldByName("GLASSBLOK_TYPE").AsString;
Len:= Length(P);
r:=0;
KolStekl := 0;
If Len > 1 Then
begin
KolStekl:=StrToInt(Copy(P,1,1));
a:=1;
e:=1;
PosPlus[e]:= 2;
While a <= Len do
begin
Comp:=CompareText("+",Copy(P,a,1));
If Comp = 0 Then
begin
If e > 6 Then Exit;
PosPlus[e+1]:=a;
e:=e+1;
end;
l:=e;
a:=a+1
end;
end
Else
begin
KolStekl := 1;
l := 1;
Len:=1;
e:= 1;
end;
PosPlus[e+1]:= Len+1;
While not e <= -2 do
begin
If (KolStekl = 1) and (l = 1) Then r := 1;
If (KolStekl = 2) and (l = 1) Then r := 2;
If (KolStekl = 3) and (l = 1) Then r := 3;
if l > 1 then r := 1;
While not r < -1 do
begin
With Temp do
begin
begin
DM1.Data.QCostConst.locate("RECEIPTS_NAME", "Стекло-"+ Copy(P,PosPlus[e]+1,PosPlus[e+1]-PosPlus[e]-1),[]);
Insert;
FieldByName("Name").AsString := "Стекло-" + Copy(P,PosPlus[e]+1,PosPlus[e+1]-PosPlus[e]-1) + " (м2)";
FieldByName("Statment").AsFloat:= Ploshad * DM1.Data.QCostConst.FieldByName("Statment").AsFloat ;//* DM1.QPrihod.FieldByName("PriceLs").AsFloat
Post;
Insert;
FieldByName("Name").AsString := "Площадь стекла" + " (м2)";
FieldByName("Statment").AsFloat:= Ploshad* DM1.Data.QCostConst.FieldByName("Statment").AsFloat;
Post;
Insert;
FieldByName("Name").AsString := "Кол-во. стекл" + " (шт)";
FieldByName("Statment").AsFloat:= GLASSBLOK_AMOUNT* DM1.Data.QCostConst.FieldByName("Statment").AsFloat;
Post;
end;
r := r-1;
end;
e := e-1;
end;
Finish1:;
TempTo.Next;
end;
With Temp1 do
begin
Open;
repRashod.Preview;
end;
Konec2:;
DM1.Data.QCostConst.Close;
TempTo.Close;
Temp1.Close;
Temp.Close;
DM1.Data.QGlassBlokCalc.Close;
DM1.Data.QName.Close;
DM1.Data.QPlenka.Close;
DM1.Data.Data.Close;
Test.Close;
end;
end;

← →
Anatoly Podgoretsky (2002-07-29 12:09) [1]

Какая ошибка, а ты весь код своей программы привел?

← →
ЮЮ (2002-07-29 12:27) [2]

Текст запросов пропустил !!! И script создания таблиц !!!

← →
Evgenij (2002-07-29 12:30) [3]

половину но суть передал

← →
ЮЮ (2002-07-29 12:38) [4]

Может и суть ошибки передашь, Хотя бы половину ???

← →
Shaman (2002-07-29 13:57) [5]

А звездочка зачем после DELETE?

← →
Mike Kouzmine (2002-07-29 15:01) [6]

А TblGlassBlokCalculation и TblTemp - это название таблиц или компонентов?

← →
koks (2002-07-29 17:26) [7]

Да какая ошибка-то !!!

← →
Григорий Ситнин (2002-07-29 17:36) [8]

Я вижу пока только одну ошибку и о ней сказал Шаман: после оператора DELETE звездочка не ставится.

← →
DAO (2002-07-29 21:06) [9]

Думаю шаман мог заметить еще кое что... Ты пытаешься нарошно или случайно удалить все записи! У тебя не ткритерий отбора записей! А это признак дурного тона! Или если вся таблица не нужна дропони ее и делов то на копейку!

← →
Jeer (2002-07-29 22:00) [10]

Главная ошибка - думать, что Ваш код еще кому-то нужен, кроме Вас. Извольте изъясниться членораздельно.

в чём ошибка? Найти похожие ветки