Вот пример моего вывода:
Код
procedure TForm5.Button1Click(Sender: TObject);
var
col: integer;
st: string;
year, MonthSelected: string;
oth: string;
sum_03, sum_04, sum_05, sum_1_04, sum_2_04, sum_1_05, sum_2_05: string;
provodka: string;
data: string;
direct: string;
IDSOURCE, PR_MEST: string;
priznak: string;
NO_FAM: string;
cods: string;
KOD:string;
koll:integer;
begin
// собираем данные
year := Form5.Edit1.Text;
MonthSelected := FloatToStr(Form5.ComboBox1.ItemIndex + 1);
priznak := IntToStr(Form5.ComboBox3.ItemIndex + 1);
oth := 'получе5ние отчетного месяца' + MonthSelected + '';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(oth);
Form5.ClientDataSet1.open;
oth := Form5.ClientDataSet1.fieldbyname('id_otchm').asstring;
IDSOURCE := 'выбор источника загрузки '';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(IDSOURCE);
Form5.ClientDataSet1.open;
IDSOURCE := Form5.ClientDataSet1.fieldbyname('ID_SOURCE').asstring;
PR_MEST := Form5.ClientDataSet1.FieldByName('Pr_MEST').AsString;
NO_FAM := Form5.ClientDataSet1.FieldByName('NO_ONE_FAM').AsString;
direct := 'reestor_bez_mesta.xls';
//получаем список кодов организации
begin
cods := 'выборка кодов организации ' +
' order by Kodorg asc ';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(cods);
Form5.ClientDataSet1.open;
koll:=Form5.ClientDataSet1.RecordCount;
Kod := Form5.ClientDataSet1.FieldByName('KODORG').AsString;
while
Form5.ClientDataSet1.Eof
do
begin
//по одной организации
st := ' запрос данных о предприятии ';
Form5.ClientDataSet2.close;
Form5.ClientDataSet2.DataRequest(st);
Form5.ClientDataSet2.open;
{ col := Form5.ClientDataSet2.RecordCount;
begin
if col = 0 then
begin
ShowMessage('Данные отсуствуют')
end
else }
Form5.ClientDataSet1.Next;
begin
Form5.EXLReport1.TemplSheet:='Лист 3';
exlReport1.Template := 'H:\808.COM\Andreev\Справочники\Forms\' + direct;
if Assigned(Form5.EXLReport1) then Form5.EXLReport1.Show; // открытие окошка эксель
end;
end;
end;
end;
//end;
var
col: integer;
st: string;
year, MonthSelected: string;
oth: string;
sum_03, sum_04, sum_05, sum_1_04, sum_2_04, sum_1_05, sum_2_05: string;
provodka: string;
data: string;
direct: string;
IDSOURCE, PR_MEST: string;
priznak: string;
NO_FAM: string;
cods: string;
KOD:string;
koll:integer;
begin
// собираем данные
year := Form5.Edit1.Text;
MonthSelected := FloatToStr(Form5.ComboBox1.ItemIndex + 1);
priznak := IntToStr(Form5.ComboBox3.ItemIndex + 1);
oth := 'получе5ние отчетного месяца' + MonthSelected + '';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(oth);
Form5.ClientDataSet1.open;
oth := Form5.ClientDataSet1.fieldbyname('id_otchm').asstring;
IDSOURCE := 'выбор источника загрузки '';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(IDSOURCE);
Form5.ClientDataSet1.open;
IDSOURCE := Form5.ClientDataSet1.fieldbyname('ID_SOURCE').asstring;
PR_MEST := Form5.ClientDataSet1.FieldByName('Pr_MEST').AsString;
NO_FAM := Form5.ClientDataSet1.FieldByName('NO_ONE_FAM').AsString;
direct := 'reestor_bez_mesta.xls';
//получаем список кодов организации
begin
cods := 'выборка кодов организации ' +
' order by Kodorg asc ';
Form5.ClientDataSet1.close;
Form5.ClientDataSet1.DataRequest(cods);
Form5.ClientDataSet1.open;
koll:=Form5.ClientDataSet1.RecordCount;
Kod := Form5.ClientDataSet1.FieldByName('KODORG').AsString;
while
Form5.ClientDataSet1.Eof
do
begin
//по одной организации
st := ' запрос данных о предприятии ';
Form5.ClientDataSet2.close;
Form5.ClientDataSet2.DataRequest(st);
Form5.ClientDataSet2.open;
{ col := Form5.ClientDataSet2.RecordCount;
begin
if col = 0 then
begin
ShowMessage('Данные отсуствуют')
end
else }
Form5.ClientDataSet1.Next;
begin
Form5.EXLReport1.TemplSheet:='Лист 3';
exlReport1.Template := 'H:\808.COM\Andreev\Справочники\Forms\' + direct;
if Assigned(Form5.EXLReport1) then Form5.EXLReport1.Show; // открытие окошка эксель
end;
end;
end;
end;
//end;
Сообщение отредактировано: Atreides -