Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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



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

Форум: "Базы";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.044 c
1-60722
Dim!S
2002-08-07 07:28
2002.08.19
StringGrid


1-60634
Relaxer
2002-08-08 14:29
2002.08.19
Хелп.


1-60626
Ura
2002-08-08 16:15
2002.08.19
Help. TQuickRep.


14-60814
cyborg
2002-07-22 10:32
2002.08.19
Free Pascal


3-60506
DAO
2002-07-27 21:40
2002.08.19
Как прервать процесс соединения TADOConnection с MSSQL?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский