рационализация рабочего места менеджера по логистике через разработку автоматизированной системы

clear;
sql.add('select cd_bus, sum(v_zap), sum(v_kas) , sum(rsh_ben) from putlist where (cd_bus='+form1.ADOQuery2garnum.AsString+') and (day=#'+day3+'#) group by cd_bus');
open;
end;

if form1.ADOQuery5rn.AsString='Город' then
begin
with form1.ADOQuery23 do
begin
close;
sql.Clear;
sql.Add('update topl_tmp set ost='+ currtostr(form1.ADOQuery5ost.AsCurrency+form1.ADOQuery19Expr1001.AsCurrency+form1.ADOQuery19Expr1002.AsCurrency-form1.ADOQuery19Expr1003.AsCurrency) +' where (garnum='+form1.ADOQuery2garnum.AsString+') and (rn='+form1.Label1.Caption+'Город'+form1.Label1.Caption+')');
execsql;
end;
end
else
begin
with form1.ADOQuery23 do
begin
close;
sql.Clear;
sql.Add('update topl_tmp set ost='+currtostr(form1.ADOQuery5ost.AsCurrency+form1.ADOQuery19Expr1001.AsCurrency+form1.ADOQuery19Expr1002.AsCurrency-form1.ADOQuery19Expr1003.AsCurrency) +' where (garnum='+form1.ADOQuery2garnum.AsString+') and (rn='+form1.Label1.Caption+'Межгород'+form1.Label1.Caption+')');
execsql;
end;
end;
with form1.ADOQuery23 do
begin
close;
sql.Clear;
sql.Add('update topl_tmp set day=#'+day3+'# where garnum='+form1.ADOQuery2garnum.AsString);
execsql;
end;
end;
with form1.ADOQuery23 do
begin
close;
sql.Clear;
sql.Add('update topl_tmp set fio='+form1.Label1.Caption+trim(form1.ADOQuery5fio.AsString)+form1.Label1.Caption+' where garnum='+form1.ADOQuery2garnum.AsString);
execsql;
end;
end;
form1.ADOQuery2.Next;
end;
with form1.ADOQuery23 do
begin
close;
sql.Clear;
sql.Add('delete from topl_tmp where (rash=0) and (ost=0) and (prih=0)');
execsql;
end;

//вывод на печать
calc:=toocalc.Create('c:\plist\xlt\svod_gsm.xlt');
form1.ADOQuery7.First;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.adoquery23 do
begin
close;
sql.Clear;
sql.Add('select * from topl_tmp where (marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Город'+form1.Label1.Caption+')');
open;
end;
for j:=1 to form1.ADOQuery23.RecordCount do
begin
calc.Cell[6,1]:=form1.ADOQuery23garnum.AsString;
calc.Cell[6,2]:=trim(form1.ADOQuery23fio.AsString);
calc.Cell[6,3]:=trim(form1.ADOQuery23ost.AsString);
calc.Cell[6,4]:=trim(form1.ADOQuery23prih.AsString);
calc.Cell[6,5]:=trim(form1.ADOQuery23rash.AsString);
calc.Cell[6,6]:=currtostr(form1.ADOQuery23ost.AsCurrency+form1.ADOQuery23prih.AsCurrency-form1.ADOQuery23rash.AsCurrency);
calc.InsertRow(6,true);
form1.adoquery23.Next;
end;
calc.Cell[6,1]:='Город';
with form1.ADOQuery24 do
begin
close;
sql.Clear;
sql.Add('select sum(ost), sum(prih), sum(rash) from topl_tmp where (marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Город'+form1.Label1.Caption+')');
open;
end;
calc.Cell[6,3]:=form1.ADOQuery24Expr1000.AsString;
calc.Cell[6,4]:=form1.ADOQuery24Expr1001.AsString;
calc.Cell[6,5]:=form1.ADOQuery24Expr1002.AsString;
calc.Cell[6,6]:=form1.ADOQuery24Expr1000.AsCurrency+form1.ADOQuery24Expr1001.AsCurrency-form1.ADOQuery24Expr1002.AsCurrency;
calc.InsertRow(6,true);

with form1.adoquery23 do
begin
close;
sql.Clear;
sql.Add('select * from topl_tmp where (marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption+') and (rn<>'+form1.Label1.Caption+'Город'+form1.Label1.Caption+')');
open;
end;
for j:=1 to form1.ADOQuery23.RecordCount do
begin
calc.Cell[6,1]:=form1.ADOQuery23garnum.AsString;
calc.Cell[6,2]:=trim(form1.ADOQuery23fio.AsString);
calc.Cell[6,3]:=trim(form1.ADOQuery23ost.AsString);
calc.Cell[6,4]:=trim(form1.ADOQuery23prih.AsString);
calc.Cell[6,5]:=trim(form1.ADOQuery23rash.AsString);
calc.Cell[6,6]:=currtostr(form1.ADOQuery23ost.AsCurrency+form1.ADOQuery23prih.AsCurrency-form1.ADOQuery23rash.AsCurrency);
calc.InsertRow(6,true);
form1.adoquery23.Next;
end;
calc.Cell[6,1]:='Межгород';
with form1.ADOQuery24 do
begin
close;
sql.Clear;
sql.Add('select sum(ost), sum(prih), sum(rash) from topl_tmp where (marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption+') and (rn<>'+form1.Label1.Caption+'Город'+form1.Label1.Caption+')');
open;
end;
calc.Cell[6,3]:=form1.ADOQuery24Expr1000.AsString;
calc.Cell[6,4]:=form1.ADOQuery24Expr1001.AsString;
calc.Cell[6,5]:=form1.ADOQuery24Expr1002.AsString;
calc.Cell[6,6]:=form1.ADOQuery24Expr1000.AsCurrency+form1.ADOQuery24Expr1001.AsCurrency-form1.ADOQuery24Expr1002.AsCurrency;
calc.InsertRow(6,true);
calc.Cell[6,1]:='Итого';
with form1.ADOQuery24 do
begin
close;
sql.Clear;
sql.Add('select sum(ost), sum(prih), sum(rash) from topl_tmp where (marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption+') ');
open;
end;
calc.Cell[6,3]:=form1.ADOQuery24Expr1000.AsString;
calc.Cell[6,4]:=form1.ADOQuery24Expr1001.AsString;
calc.Cell[6,5]:=form1.ADOQuery24Expr1002.AsString;
calc.Cell[6,6]:=form1.ADOQuery24Expr1000.AsCurrency+form1.ADOQuery24Expr1001.AsCurrency-form1.ADOQuery24Expr1002.AsCurrency;
calc.InsertRow(6,true);

calc.Cell[6,1]:=form1.ADOQuery7marka.AsString;
calc.InsertRow(6,true);
form1.ADOQuery7.Next;
end;
calc.cell[2,2]:=datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.date);

calc.Cell[5,1]:='Итого';
with form1.ADOQuery24 do
begin
close;
sql.Clear;
sql.Add('select sum(ost), sum(prih), sum(rash) from topl_tmp');
open;
end;
calc.Cell[5,3]:=form1.ADOQuery24Expr1000.AsString;
calc.Cell[5,4]:=form1.ADOQuery24Expr1001.AsString;
calc.Cell[5,5]:=form1.ADOQuery24Expr1002.AsString;
calc.Cell[5,6]:=form1.ADOQuery24Expr1000.AsCurrency+form1.ADOQuery24Expr1001.AsCurrency-form1.ADOQuery24Expr1002.AsCurrency;
calc.Bold[5,1]:=true;
calc.Bold[5,3]:=true;
calc.Bold[5,4]:=true;
calc.Bold[5,5]:=true;
calc.Bold[5,6]:=true;
calc.Cell[3,1]:='Вид топлива: '+trim(topl);
calc.Visible:=true;
end;

end.

- Сводная ведомость по видам сообщений

procedure TForm23.RzBitBtn1Click(Sender: TObject);
var calc:toocalc; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[50]; i,j,j1:integer; vir,ch,prob,pass,vir1,ch1,prob1,pass1:currency;
begin
calc:=toocalc.Create('c:\plist\xlt\sv_ved.xlt');
calc.Cell[2,1]:='Период '+datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.Date);
decodedate(datetimepicker1.Date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.Date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.adoquery7 do
begin
close;
sql.clear;
sql.Add('select distinct marka from bus');
open;
end;
j:=0;
vir:=0;
ch:=0;
prob:=0;
pass:=0;
vir1:=0;
ch1:=0;
prob1:=0;
pass1:=0;
j1:=0;
form1.adoquery7.First;
j:=0;
calc.Cell[4,1]:='Итого по Кам/р';
calc.InsertRow(4,true);
j:=j+1;
vir:=0;
ch:=0;
prob:=0;
pass:=0;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.ADOQuery10 do
begin
close;
sql.Clear;
sql.Add('select marka, sum(mny), sum(mny_mg), sum(vir_zak), sum(ch_fakt), sum(prob_nul), sum(prob_pass), sum(kol_pass) from putlist where (day>=#'+day1+'#) and (day<=#'+day2+'#) and (meggor=true) and (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Пригород-Каменский район'+form1.Label1.Caption+') group by marka');
open;
end;
if form1.adoquery10.RecordCount>0 then
begin
calc.Cell[4,1]:=trim(form1.ADOQuery7marka.AsString);
calc.Cell[4,2]:=form1.ADOQuery10Expr1001.AsCurrency;
calc.Cell[4,3]:=form1.ADOQuery10Expr1004.AsCurrency;
calc.Cell[4,4]:=form1.ADOQuery10Expr1006.AsCurrency;
calc.Cell[4,5]:=form1.ADOQuery10Expr1007.AsCurrency;
vir:=vir+form1.ADOQuery10Expr1001.AsCurrency;
ch:=ch+form1.ADOQuery10Expr1004.AsCurrency;
prob:=prob+form1.ADOQuery10Expr1006.AsCurrency;
pass:=pass+form1.ADOQuery10Expr1007.AsCurrency;
calc.InsertRow(4,true);
j:=j+1;
end;
form1.adoquery7.Next;
end;
calc.Cell[4,1]:='Пригород - Каменский район';
calc.InsertRow(4,true);
j:=j+1;
calc.InsertRow(4,true);
j:=j+1;
calc.Cell[4+j,2]:=vir;
calc.Cell[4+j,3]:=ch;
calc.Cell[4+j,4]:=prob;
calc.Cell[4+j,5]:=pass;
j1:=j1+j;
vir1:=vir1+vir;
ch1:=ch1+ch;
prob1:=prob1+prob;
pass1:=pass1+pass;
form1.adoquery7.First;
j:=0;
calc.Cell[4,1]:='Итого по Крут/р';
calc.InsertRow(4,true);
j:=j+1;
vir:=0;
ch:=0;
prob:=0;
pass:=0;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.ADOQuery10 do
begin
close;
sql.Clear;
sql.Add('select marka, sum(mny), sum(mny_mg), sum(vir_zak), sum(ch_fakt), sum(prob_nul), sum(prob_pass), sum(kol_pass) from putlist where (day>=#'+day1+'#) and (day<=#'+day2+'#) and (meggor=true) and (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Пригород-Крутихинский район'+form1.Label1.Caption+') group by marka');
open;
end;
if form1.adoquery10.RecordCount>0 then
begin
calc.Cell[4,1]:=trim(form1.ADOQuery7marka.AsString);
calc.Cell[4,2]:=form1.ADOQuery10Expr1001.AsCurrency;
calc.Cell[4,3]:=form1.ADOQuery10Expr1004.AsCurrency;
calc.Cell[4,4]:=form1.ADOQuery10Expr1006.AsCurrency;
calc.Cell[4,5]:=form1.ADOQuery10Expr1007.AsCurrency;
vir:=vir+form1.ADOQuery10Expr1001.AsCurrency;
ch:=ch+form1.ADOQuery10Expr1004.AsCurrency;
prob:=prob+form1.ADOQuery10Expr1006.AsCurrency;
pass:=pass+form1.ADOQuery10Expr1007.AsCurrency;
calc.InsertRow(4,true);
j:=j+1;
end;
form1.adoquery7.Next;
end;
calc.Cell[4,1]:='Пригород - Крутихинский район';
calc.InsertRow(4,true);
j:=j+1;
calc.InsertRow(4,true);
j:=j+1;
calc.Cell[4+j,2]:=vir;
calc.Cell[4+j,3]:=ch;
calc.Cell[4+j,4]:=prob;
calc.Cell[4+j,5]:=pass;
j1:=j1+j;
vir1:=vir1+vir;
ch1:=ch1+ch;
prob1:=prob1+prob;
pass1:=pass1+pass;
vir:=0;
ch:=0;
prob:=0;
pass:=0;

j:=0;
j:=j+1;
calc.Cell[4,1]:='Итого по Межг(марш):';
calc.InsertRow(4,true);
form1.adoquery7.First;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.ADOQuery10 do
begin
close;
sql.Clear;
sql.Add('select marka, sum(mny), sum(mny_mg), sum(vir_zak), sum(ch_fakt), sum(prob_nul), sum(prob_pass), sum(kol_pass) from putlist where (day>=#'+day1+'#) and (day<=#'+day2+'#) and (meggor=true) and (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Межгород'+form1.Label1.Caption+') and (typ_mar=1) group by marka');
open;
end;
if form1.adoquery10.RecordCount>0 then
begin
calc.Cell[4,1]:=trim(form1.ADOQuery7marka.AsString);
calc.Cell[4,2]:=form1.ADOQuery10Expr1001.AsCurrency;
calc.Cell[4,3]:=form1.ADOQuery10Expr1004.AsCurrency;
calc.Cell[4,4]:=form1.ADOQuery10Expr1006.AsCurrency;
calc.Cell[4,5]:=form1.ADOQuery10Expr1007.AsCurrency;
vir:=vir+form1.ADOQuery10Expr1001.AsCurrency;
ch:=ch+form1.ADOQuery10Expr1004.AsCurrency;
prob:=prob+form1.ADOQuery10Expr1006.AsCurrency;
pass:=pass+form1.ADOQuery10Expr1007.AsCurrency;
calc.InsertRow(4,true);
j:=j+1;
end;
form1.adoquery7.Next;
end;
calc.Cell[4,1]:='Межг(маршр)';
calc.InsertRow(4,true);
j:=j+1;
calc.InsertRow(4,true);
j:=j+1;
calc.Cell[4+j,2]:=vir;
calc.Cell[4+j,3]:=ch;
calc.Cell[4+j,4]:=prob;
calc.Cell[4+j,5]:=pass;
j1:=j1+j;
vir1:=vir1+vir;
ch1:=ch1+ch;
prob1:=prob1+prob;
pass1:=pass1+pass;

vir:=0;
ch:=0;
prob:=0;
pass:=0;

j:=0;
j:=j+1;
calc.Cell[4,1]:='Итого по Межг(заказ):';
calc.InsertRow(4,true);
form1.adoquery7.First;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.ADOQuery10 do
begin
close;
sql.Clear;
sql.Add('select marka, sum(mny), sum(mny_mg), sum(vir_zak), sum(ch_fakt), sum(prob_nul), sum(prob_pass), sum(kol_pass) from putlist where (day>=#'+day1+'#) and (day<=#'+day2+'#) and (meggor=true) and (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Межгород'+form1.Label1.Caption+') and (typ_mar=2) group by marka');
open;
end;
if form1.adoquery10.RecordCount>0 then
begin
calc.Cell[4,1]:=trim(form1.ADOQuery7marka.AsString);
calc.Cell[4,2]:=form1.ADOQuery10Expr1001.AsCurrency;
calc.Cell[4,3]:=form1.ADOQuery10Expr1004.AsCurrency;
calc.Cell[4,4]:=form1.ADOQuery10Expr1006.AsCurrency;
calc.Cell[4,5]:=form1.ADOQuery10Expr1007.AsCurrency;
vir:=vir+form1.ADOQuery10Expr1001.AsCurrency;
ch:=ch+form1.ADOQuery10Expr1004.AsCurrency;
prob:=prob+form1.ADOQuery10Expr1006.AsCurrency;
pass:=pass+form1.ADOQuery10Expr1007.AsCurrency;
calc.InsertRow(4,true);
j:=j+1;
end;
form1.adoquery7.Next;
end;
calc.Cell[4,1]:='Межг(заказ)';
calc.InsertRow(4,true);
j:=j+1;
calc.InsertRow(4,true);
j:=j+1;
calc.Cell[4+j,2]:=vir;
calc.Cell[4+j,3]:=ch;
calc.Cell[4+j,4]:=prob;
calc.Cell[4+j,5]:=pass;
j1:=j1+j;
vir1:=vir1+vir;
ch1:=ch1+ch;
prob1:=prob1+prob;
pass1:=pass1+pass;


vir:=0;
ch:=0;
prob:=0;
pass:=0;

j:=0;
j:=j+1;
calc.Cell[4,1]:='Итого по Межг(хоз/обс):';
calc.InsertRow(4,true);
form1.adoquery7.First;
for i:=1 to form1.ADOQuery7.RecordCount do
begin
with form1.ADOQuery10 do
begin
close;
sql.Clear;
sql.Add('select marka, sum(mny), sum(mny_mg), sum(vir_zak), sum(ch_fakt), sum(prob_nul), sum(prob_pass), sum(kol_pass) from putlist where (day>=#'+day1+'#) and (day<=#'+day2+'#) and (meggor=true) and (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (rn='+form1.Label1.Caption+'Межгород'+form1.Label1.Caption+') and (typ_mar=3) group by marka');
open;
end;
if form1.adoquery10.RecordCount>0 then
begin
calc.Cell[4,1]:=trim(form1.ADOQuery7marka.AsString);
calc.Cell[4,2]:=form1.ADOQuery10Expr1001.AsCurrency;
calc.Cell[4,3]:=form1.ADOQuery10Expr1004.AsCurrency;
calc.Cell[4,4]:=form1.ADOQuery10Expr1006.AsCurrency;
calc.Cell[4,5]:=form1.ADOQuery10Expr1007.AsCurrency;
vir:=vir+form1.ADOQuery10Expr1001.AsCurrency;
ch:=ch+form1.ADOQuery10Expr1004.AsCurrency;
prob:=prob+form1.ADOQuery10Expr1006.AsCurrency;
pass:=pass+form1.ADOQuery10Expr1007.AsCurrency;
calc.InsertRow(4,true);
j:=j+1;
end;
form1.adoquery7.Next;
end;
calc.Cell[4,1]:='Межг(хоз/обс)';
calc.InsertRow(4,true);
j:=j+1;

calc.Cell[4+j,2]:=vir;
calc.Cell[4+j,3]:=ch;
calc.Cell[4+j,4]:=prob;
calc.Cell[4+j,5]:=pass;
j1:=j1+j;
vir1:=vir1+vir;
ch1:=ch1+ch;
prob1:=prob1+prob;
pass1:=pass1+pass;

calc.Cell[6+j1,1]:='Общий итог';
calc.Cell[6+j1,2]:=vir1;
calc.Cell[6+j1,3]:=ch1;
calc.Cell[6+j1,4]:=prob1;
calc.Cell[6+j1,5]:=pass1;
calc.Visible:=true;
end;

end.

- Ведомость эксплуатационных показателей

procedure TForm19.RzBitBtn1Click(Sender: TObject);
var calc:toocalc; year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2,rn1:string[20]; vir,vir1,vir_mg,vir_mg1,rabd,rabd1,ch_fakt,ch_fakt1,ch_reis,ch_reis1,kol_pass,kol_pass1,prob_null,prob_null1,prob_pass,prob_pass1,gsm,gsm1,vir_zak,vir_zak1,vir_zakg,vir_zakg1:currency; i,j,k,k1,n,n1:integer;
virg, vir_zak2, virg1,vir_mgg,vir_mgg1,rabdg,rabdg1,ch_faktg,ch_faktg1,ch_reisg,ch_reisg1,kol_passg,kol_passg1,prob_nullg,prob_nullg1,prob_passg,prob_passg1,gsmg,gsmg1,vir2,vir_mg2,rabd2,ch_fakt2,ch_reis2,kol_pass2,prob_null2,prob_pass2,gsm2:currency;
label q,q1,q2,q3,q4;
begin
if trim(combobox1.text)='' then showmessage('Не введен номер бригады') else
begin
with form1.adoquery7 do
begin
close;
sql.Clear;
sql.add('select distinct marka from bus');
open;
end;
progressbar1.Position:=0;
progressbar1.Max:=form1.ADOQuery7.RecordCount;
calc:=toocalc.Create('c:\plist\xlt\ved_mar.xlt');
decodedate(datetimepicker1.Date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.Date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
vir2:=0;
vir_mg2:=0;
vir_zak2:=0;
rabd2:=0;
ch_fakt2:=0;
ch_reis2:=0;
kol_pass2:=0;
prob_null2:=0;
prob_pass2:=0;
gsm2:=0;
n1:=0;
vir:=0;
vir1:=0;
vir_mg:=0;
vir_mg1:=0;
rabd :=0;
rabd1 :=0;
ch_fakt :=0;
ch_fakt1 :=0;
ch_reis:=0;
ch_reis1:=0;
kol_pass :=0;
kol_pass1 :=0;
prob_null :=0;
prob_null1:=0;
gsm :=0;
gsm1 :=0;
prob_pass:=0;
prob_pass1:=0;
virg:=0;
virg1:=0;
vir_mgg:=0;
vir_mgg1:=0;
rabdg :=0;
rabdg1 :=0;
ch_faktg :=0;
ch_faktg1 :=0;
ch_reisg:=0;
ch_reisg1:=0;
kol_passg :=0;
kol_passg1 :=0;
prob_nullg :=0;
prob_nullg1:=0;
gsmg :=0;
gsmg1 :=0;
prob_passg:=0;
prob_passg1:=0;
vir_zak:=0;
vir_zak1:=0;
vir_zakg:=0;
vir_zakg1:=0;
n:=0;
for i:=1 to form1.adoquery7.RecordCount do
begin
if radiobutton2.Checked=true then
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') and (meggor=true)');
open;
end;
end
else
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (marka='+form1.Label1.Caption+trim(form1.adoquery7marka.AsString)+form1.Label1.Caption+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') and (meggor=false)');
open;
end;
end;
n:=0;
if form1.adoquery5.RecordCount=0 then goto q2;
calc.Cell[7,1]:='Итого по ';
calc.cell[7,2]:=form1.ADOQuery7marka.AsString;
calc.InsertRow(7,true);
calc.Cell[7,1]:='Итого по';
calc.Cell[7,2]:='Город';
calc.insertrow(7,true);
calc.Cell[7,1]:='Итого по';
calc.Cell[7,2]:='Межг/приг';
calc.InsertRow(7,true);
n:=n+3;
vir1:=0;
vir_mg1:=0;
rabd1:=0;
ch_fakt1:=0;
ch_reis1:=0;
kol_pass1:=0;
prob_null1:=0;
vir_zak1:=0;
prob_pass1:=0;
gsm1:=0;
vir_zakg:=0;
virg:=0;
vir_mgg:=0;
rabdg:=0;
ch_faktg:=0;
ch_reisg:=0;
kol_passg:=0;
prob_nullg:=0;
prob_passg:=0;
gsmg:=0;
with form1.adoquery2 do
begin
close;
sql.Clear;
sql.Add('select * from bus where marka='+form1.Label1.Caption+trim(form1.ADOQuery7marka.AsString)+form1.Label1.Caption);
open;

end;
with form1.ADOQuery3 do
begin
close;
sql.clear;
sql.Add('select * from marsh order by numb desc');
open;

end;
for j:=1 to form1.adoquery3.RecordCount do
begin
vir:=0;
vir_mg:=0;
vir_zak:=0;
rabd :=0;
ch_fakt :=0;
ch_reis:=0;
kol_pass :=0;
prob_null :=0;
gsm :=0;
prob_pass:=0;
vir_zak:=0;
if radiobutton2.Checked=true then
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (cd_mar='+form1.adoquery3numb.AsString+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') and (meggor=true)');
open;
end;
end
else
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (cd_mar='+form1.adoquery3numb.AsString+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') and (meggor=false)');
open;
end;
end;
if form1.adoquery5.RecordCount=0 then goto q;
form1.adoquery2.First;
for k:=1 to form1.ADOQuery2.RecordCount do
begin
if radiobutton2.Checked=true then
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (meggor=true) and (cd_bus='+form1.adoquery2garnum.AsString+') and (cd_mar='+form1.adoquery3numb.AsString+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') ');
open;
end;
end
else
begin
with form1.adoquery5 do
begin
close;
sql.Clear;
sql.Add('select * from putlist where (meggor=false) and (cd_bus='+form1.adoquery2garnum.AsString+') and (cd_mar='+form1.adoquery3numb.AsString+') and (day>=#'+day1+'#) and (day<=#'+day2+'#) and (brg='+combobox1.Text+') ');
open;
end;
end;
if form1.ADOQuery5.RecordCount=0 then goto q1;
for k1:=1 to form1.adoquery5.RecordCount do
begin
vir:=vir+form1.ADOQuery5mny.AsCurrency;
vir_mg:=vir_mg+form1.adoquery5mny_mg.AsCurrency;
vir_zak:=vir_zak+form1.ADOQuery5vir_zak.AsCurrency;
rabd :=rabd+form1.adoquery5rabden.AsCurrency;
ch_fakt :=ch_fakt+form1.ADOQuery5ch_fakt.AsCurrency;
ch_reis:=ch_reis+form1.ADOQuery5ch_reis.AsCurrency;
kol_pass :=kol_pass+form1.ADOQuery5kol_pass.AsCurrency;
prob_null :=prob_null+form1.ADOQuery5prob_nul.AsCurrency;
prob_pass:=prob_pass+form1.adoquery5prob_pass.AsCurrency;
gsm :=gsm+form1.ADOQuery5rsh_ben.AsCurrency;
if form1.adoquery5meggor.AsBoolean=false then
begin
virg:=virg+form1.ADOQuery5mny.AsCurrency;
vir_mgg:=vir_mgg+form1.adoquery5mny_mg.AsCurrency;
vir_zakg:=vir_zakg+form1.ADOQuery5vir_zak.AsCurrency;
rabdg :=rabdg+form1.adoquery5rabden.AsCurrency;
ch_faktg :=ch_faktg+form1.ADOQuery5ch_fakt.AsCurrency;
ch_reisg:=ch_reisg+form1.ADOQuery5ch_reis.AsCurrency;
kol_passg :=kol_passg+form1.ADOQuery5kol_pass.AsCurrency;
prob_nullg :=prob_nullg+form1.ADOQuery5prob_nul.AsCurrency;
prob_passg:=prob_passg+form1.adoquery5prob_pass.AsCurrency;
gsmg:=gsmg+form1.ADOQuery5rsh_ben.AsCurrency;
end;
form1.adoquery5.Next;
end;
q1: form1.adoquery2.Next;
end;
if (vir<>0) or (vir_mg<>0) or (rabd<>0) or (ch_fakt<>0) or (ch_reis<>0) or (kol_pass<>0) or (gsm<>0) or (prob_pass<>0) then
begin
calc.Cell[7,1]:=form1.adoquery7marka.AsString;
calc.Cell[7,2]:=form1.ADOQuery3numb.AsString;
calc.Cell[7,3]:=vir;
calc.Cell[7,4]:=vir_zak;
calc.Cell[7,5]:=vir_mg;
calc.Cell[7,6]:=rabd;
calc.Cell[7,7]:=ch_fakt;
calc.Cell[7,8]:=ch_reis;
calc.Cell[7,9]:=kol_pass;
calc.Cell[7,10]:=prob_pass;
calc.Cell[7,11]:=prob_pass-prob_null;
calc.cell[7,12]:=gsm;
calc.InsertRow(7,true);

vir1:=vir1+vir;
vir_mg1:=vir_mg1+vir_mg;
vir_zak1:=vir_zak1+vir_zak;
rabd1:=rabd1+rabd;
ch_fakt1:=ch_fakt1+ch_fakt;
ch_reis1:=ch_reis1+ch_reis;
kol_pass1:=kol_pass1+kol_pass;
prob_null1:=prob_null1+prob_null;
prob_pass1:=prob_pass1+prob_pass;
gsm1:=gsm1+gsm;
n:=n+1;
end;
q: form1.adoquery3.next;
end;

calc.Cell[7+n,3]:=vir1;
calc.Cell[7+n,4]:=vir_zak1;
calc.Cell[7+n,5]:=vir_mg1;
calc.Cell[7+n,6]:=rabd1;
calc.Cell[7+n,7]:=ch_fakt1;
calc.Cell[7+n,8]:=ch_reis1;
calc.Cell[7+n,9]:=kol_pass1;
calc.Cell[7+n,10]:=prob_pass1;
calc.Cell[7+n,11]:=prob_pass1-prob_null1;
calc.cell[7+n,12]:=gsm1;
calc.Cell[5+n,3]:=vir1-virg;
calc.Cell[5+n,4]:=vir_zak1-vir_zakg;
calc.Cell[5+n,5]:=vir_mg1-vir_mgg;
calc.Cell[5+n,6]:=rabd1-rabdg;
calc.Cell[5+n,7]:=ch_fakt1-ch_faktg;
calc.Cell[5+n,8]:=ch_reis1-ch_reisg;
calc.Cell[5+n,9]:=kol_pass1-kol_passg;
calc.Cell[5+n,10]:=prob_pass1-prob_passg;
calc.Cell[5+n,11]:=prob_pass1-prob_passg-prob_null1+prob_nullg;
calc.cell[5+n,12]:=gsm1-gsmg;
calc.Cell[6+n,3]:=virg;
calc.Cell[6+n,4]:=vir_zakg;
calc.Cell[6+n,5]:=vir_mgg;
calc.Cell[6+n,6]:=rabdg;
calc.Cell[6+n,7]:=ch_faktg;
calc.Cell[6+n,8]:=ch_reisg;
calc.Cell[6+n,9]:=kol_passg;
calc.Cell[6+n,10]:=prob_passg;
calc.Cell[6+n,11]:=prob_passg-prob_nullg;
calc.cell[6+n,12]:=gsmg;
vir2:=vir1+vir2;
vir_zak2:=vir_zak2+vir_zak1;
vir_mg2:=vir_mg1+vir_mg2;
rabd2:=rabd1+rabd2;
ch_fakt2:=ch_fakt1+ch_fakt2;
ch_reis2:=ch_reis1+ch_reis2;
kol_pass2:=kol_pass1+kol_pass2;
prob_null2:=prob_null1+prob_null2;
prob_pass2:=prob_pass1+prob_pass2;
gsm2:=gsm1+gsm2;
n1:=n1+n;
q2: progressbar1.stepby(1);
form1.ADOQuery7.Next;
end;
if radiobutton1.Checked=true then calc.Cell[3,1]:='Город ';
calc.Cell[3,1]:=calc.Cell[3,1]+'Бригада '+' '+ combobox1.Text+'. Период:'+ datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.Date);

calc.Cell[9+n1,3]:=vir2;
calc.Cell[9+n1,4]:=vir_zak2;
calc.Cell[9+n1,5]:=vir_mg2;
calc.Cell[9+n1,6]:=rabd2;
calc.Cell[9+n1,7]:=ch_fakt2;
calc.Cell[9+n1,8]:=ch_reis2;
calc.Cell[9+n1,9]:=kol_pass2;
calc.Cell[9+n1,10]:=prob_pass2;
calc.Cell[9+n1,11]:=prob_pass2-prob_null2;
calc.cell[9+n1,12]:=gsm2;
calc.Cell[9+n1,1]:='Общий итог';
calc.Visible:=true;
end;
end;
end.








73