IF cdat={}
cdat=DATE()
endif
LOCAL lcFileName, lcFullFileName,lnWordRowNum
lnWordRowNum=2
lcFileName = "ostatki.dot"
IF File(m.lcFileName)
	lcFullFileName = FullPath(m.lcFileName)
ELSE
	MessageBox("Файл шаблона "+m.lcFileName+" не найден")
	return
ENDIF
loWord = CREATEOBJECT( 'WORD.APPLICATION')
loDoc=m.loWord.Documents.Add(m.lcFullFileName) 
LOCAL loTable as Word.Table   
  loTable = m.loDoc.Tables(3)     
LOCAL kolpost,su,kolras,suras,ostt,pln,ost_s,ost_su
ost_su=0.00
ost_s=0
pln=0.00
ostt=0
suras=0.00
kolras=0
su=0.00
kolpost=0 


SELECT gr_tovara
SCAN
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = gr_tovara.grup_tov
SELECT nametov
SCAN
IF gr_tovara.idx_t=nametov.idx_t
m.loTable.Cell(m.lnWordRowNum,2).Range.Text = nametov.name_tov
SELECT bigtable
SCAN
IF bigtable.idx_lo=nametov.idx_lo
kolpost=bigtable.kolvo + kolpost
su=bigtable.na_sum + su
pln=bigtable.plan+pln
SELECT tablerash
SCAN
IF tablerash.idx_rs = bigtable.idx_rs
kolras=tablerash.ras_kol+kolras
suras=tablerash.itogo_cena+suras
endif
m.loTable.Cell(m.lnWordRowNum,5).Range.Text = kolras
m.loTable.Cell(m.lnWordRowNum,6).Range.Text = suras
ENDSCAN
ENDIF
ost_su=pln-suras
ostt=kolpost-kolras
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = kolpost
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = su
m.loTable.Cell(m.lnWordRowNum,7).Range.Text = ostt
m.loTable.Cell(m.lnWordRowNum,8).Range.Text = ost_su
ENDSCAN
IF kolras=0
m.loTable.Cell(m.lnWordRowNum,5).Range.Text = kolras
endif
ost_su=0.00
pln=0.00
ost_su=0.00
ostt=0
*kolpost=0
su=0.00
kolras=0
suras=0
IF kolpost>0
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add()  
endif
kolpost=0
endif
ENDSCAN
ENDSCAN
 ya=year(cdat)
day_=DAY(cdat)
da1=CMONTH(cdat)
Do mesrus
  lnWordRowNum=1
  loTable = m.loDoc.Tables(1)     
m.loTable.Cell(m.lnWordRowNum,2).Range.Text = day_
	m.loTable.Cell(m.lnWordRowNum,3).Range.Text = da1
       m.loTable.Cell(m.lnWordRowNum,4).Range.Text = ya
 lnWordRowNum=1
  loTable = m.loDoc.Tables(2)     
  m.loTable.Cell(m.lnWordRowNum,2).Range.Text ='Все периоды'
   m.loWord.Visible = .T.