Код: Выделить всё
interface _kor_ezndru;
show at(,,36,3);
create view
var
date1:date
date2:date
dat1:date
dat2:date
as select *
from
basedoc
,ttndoc
,katmc
,katparty
,katsopr
,stepdoc
,spsopr
, katotped
,klval
,klreshr
,AttrVal
,AttrNam
//, exclassname exclassname2
//, exclassval exclassval2
//, exclassseg exclassseg2
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 katsopr.nrec==spsopr.csopr
and spsopr.cparty==katparty.nrec
and spsopr.cmcusl==katmc.nrec
and spsopr.cotped==katotped.nrec
and spsopr.cval==klval.nrec
and katmc.creshr==klreshr.nrec
//and word(1430)==exclassname2.wtable
//and '„ҐЄ« а в'==exclassname2.name
//and katparty.nrec==exclassval2.crec
//and exclassname2.classcode==exclassval2.classcode//(noindex)
//and exclassval2.cclassseg==exclassseg2.nrec
and word(coSpSopr) == AttrNam.wTable
and 'ГТД' == AttrNam.name
and word(coSpSopr) == AttrVal.wTable
and SpSopr.nrec == AttrVal.cRec
and AttrNam.NRec == AttrVal.cAttrNam
))
;
//sozdaem okno vvoda dati
screen params
show at(,,35,2);
fields date1:,noprotect;
fields date2:,noprotect;
buttons
cmOK, default;
cmCancel;
<<
c .@@@@@@@@@@ Ї® .@@@@@@@@@@
<.”®а¬Ёа®ў вм.> <. ‡ Єалвм .>
>>
end;
Handleevent
//inicializaciya
cminit:
{
date1:=date(1,month(cur_date),year(cur_date));
date2:=Cur_Date;
}
//ok-start
////////////////////////////////////////
cmOk:
{
Var filename:string;
var sRet: string;
var GTDNumber:string;
var i,j:longint;//scetchiki
dat1:=date1;
dat2:=date2;
//sozdaem fail
filename:=GetStringParameter('Files','OutputFilesDirectory',0)+'pmonmnf'+DatetoStr(cur_date,'YYYYMMDD')+'.xls';
xlCreateExcel(filename,false);
//HEAD
/////////////////////////////////////////
xlSetCellStringValue('PackNx',1,1,1,1);
xlSetCellStringValue('MnfDate',1,2,1,2);
xlSetCellStringValue('Series',1,3,1,3);
xlSetCellStringValue('Quantity',1,4,1,4);
xlSetCellStringValue('DeclNum',1,5,1,5);
xlSetCellStringValue('DeclDate',1,6,1,6);
xlSetCellStringValue('PricePerPack',1,7,1,7);
xlSetCellStringValue('InvoiceNum',1,8,1,8);
xlSetCellStringValue('InvoiceDate',1,9,1,9);
xlSetCellStringValue('BuyerName',1,10,1,10);
xlSetCellStringValue('BuyerINN',1,11,1,11);
///////////////////////////////////////////
i:=1;
_loop ttndoc
{//message(basedoc.nodoc);
_loop katsopr
{
_loop spsopr
{
i:=i+1;
xlSetCellFormula(katmc.name,i,2,i,2);
xlSetCellFormula(katparty.name,i,3,i,3);
xlSetCellFormula(attrval.vstring,i,4,i,4);
xlSetCellFormula(katparty.NSertif,i,5,i,5);
xlSetCellFormula(katparty.Danaliz,i,6,i,6);
xlSetCellFormula(katsopr.Nsopr,i,8,i,8);
xlSetCellFormula(katsopr.Dsopr,i,9,i,9);
// }
}
}
}
xlKillExcel;
}
cmDefault :
{
CloseInterface ( cmDefault );
};
end;
end.
