Код: Выделить всё
interface _kor_otgruzvibor 'Отчёт отгрузок по датам' escclose;
show at(,,30,);
/*
table struct tOtgr
(
polnrec:comp,
grpolnrec:comp,
sposob:string,
summa:double,
sf:string
)
with index
(idx1=polnrec+grpolnrec+sposob);
*/
create view
var
date1:date
date2:date
dat1:date
dat2:date
as select *
from
basedoc
,ttndoc
,katorg orgpol
,katorg orggrpol
,katcity
,katpodr
where
((
word(1102)/==ttndoc.wtable
and dat1<<=ttndoc.dpunrbeg(noindex)
and dat2>>=ttndoc.dpunrbeg(noindex)
and ttndoc.cdoc==basedoc.nrec
and basedoc.nrec == stepdoc.cbasedoc
and stepdoc.nrec == katsopr.cstepdoc
//and tOtgr.polnrec==orgPol.nrec
//and tOtgr.Grpolnrec==orgGrPol.nrec
and katpodr.nrec==katsopr.CPODRFROM (noindex)
and basedoc.corg==orgPol.nrec
and katorg.ccity==katcity.nrec
))
;
screen srcsclad show at(,,,3);
fields date1:,noprotect;
date2:,noprotect;
buttons
cmOk, default;
cmCancel;
<<
.@@@@@@@@@ .@@@@@@@@@
<. ОК .> <. Выход .>
>>
end;
panel psclad show at(,4,,);
browse brsclad
table katpodr;
fields
katpodr.name 'Склад':[30],protect;
end;
end;
handleevent
cmInit:
{
date1:=date(1,month(cur_date),year(cur_date));
date2:=Cur_Date;
}
cmOk:
{
var
filename:string;
filename:=GetStringParameter('Files','OutputFilesDirectory',0)+'отгрузки'+DatetoStr(cur_Date,'DDMMYYYY')+'.xls';
xlCreateExcel(filename,true);
dat1:=date1;
dat2:=date2;
var summ:double;
StartNewVisual(vtRotateVisual, vfTimer+vfBreak+vfConfirm,'Идет расчет реальных отгрузок...', RecordsInTable(#basedoc));
//_loop ttndoc message(basedoc.nodoc);
//_loop ttndoc message(ttndoc.dpunrend);
var i:integer;
i:=2;
xlSetCellFormula('№',1,1,1,1);
xlSetCellFormula('Организация',1,2,1,2);
xlSetCellFormula('Адрес',1,3,1,3);
xlSetCellFormula('Дата отгрузки',1,4,1,4);
xlSetCellFormula('Номер сч/ф',1,5,1,5);
xlSetCellFormula('Сумма',1,6,1,6);
xlSetCellFormula('Получено',1,7,1,7);
//message('мы выбрали'+katpodr.name);
_loop ttndoc
{
xlSetCellNumberValue(i-1,i,1,i,1);
xlSetCellFormula(orgpol.name,i,2,i,2);
xlSetCellFormula(orgpol.ADDR,i,3,i,3);
xlSetCellFormula(ttndoc.dpunrbeg,i,4,i,4);
xlSetCellFormula(basedoc.nodoc,i,5,i,5);
if (basedoc.vhodnal=1) then { summ:=basedoc.summa; }
else summ:=basedoc.summa + basedoc.nds;
xlSetCellFormula(summ,i,6,i,6);
i:=i+1;
}
StopVisual('Опрерации завершена!',0);
xlSetColumnWidth(30,1,2,i,3);//устанавливаем ширину колонок
xlSetColumnWidth(4,1,1,i,1);
xlSetColumnWidth(10,1,4,i,7);
xlKillExcel;
}
end;
end.
Меня интересует следующее
panel psclad show at(,4,,);
browse brsclad
table katpodr;
fields
katpodr.name 'Склад':[30],protect;
end;
Я хочу выбирать склад. Для этого пользуюсь вот этим кодом.
Скажите пожалуйста, а как мне теперь вывести информацию, отфильтрованную по этому полю katpodr.name?
ЗЫ как всегда со своими глупыми вопросами), ну не могу врубиться((((
Вообще я хотела сделать выбор одного из складов. Выбрала нажала сформировать и вся инфа которая мне нужна по этому складу вышла на печать.