*SELECT lv
*local klv_
*klv_=0
*klv_=RECCOUNT()
IF RECCOUNT('lv')=0
MESSAGEBOX('За период с '+DTOC(cdat)+' по '+DTOC(pdat)+' Расхода нет',ALLTRIM(neimtov))
return 
ENDIF

IF cdat<>{} and pdat<>{}
LOCAL lcFileName, lcFullFileName,lnWordRowNum
lnWordRowNum=2
lcFileName = "othnamers.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(2)     

* зачем два раза ?  
*LOCAL loTable as Word.Table   
*loTable = m.loDoc.Tables(2)  

local kzap,nzap
kzap=0
nzap=0
PUBLIC kk,idx
idx=''
kk=0
LOCAL pla,sh,ost,kkl,ed,nu,idb,d_ps,ko,ed,i,idb2,itg,kvrs,kvt,ostt,itgg,itgpl
itgpl=0
itgg=0
ostt=0
kvt=0
kvrs=0
itg=0
idb2=''
i=0
ed=''
ko=0
d_ps={}
idb=''
nu=0
ed=''
kkl=0
ost=0
sh=0
pla=0

*lnWordRowNum=lnWordRowNum+1       && это лишнее

SELECT lv
kk=RECNO()
GO TOP
idb=lv.idx_rs
SELECT bigtable

SCAN 
IF bigtable.idx_rs=idb
m.loTable.Cell(m.lnWordRowNum,1).Shading.BackgroundPatternColor = RGB(255,255,128)
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = DTOC(bigtable.data_postupl)+' / '+ALLTRIM(STR(bigtable.kolvo))+' '+ALLTRIM(lv.ed_izm_b)
pla=bigtable.plan
itg=itg+bigtable.kolvo
endif
endscan
SELECT lv
kzap=RECCOUNT()
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add()
m.loTable.Cell(m.lnWordRowNum,1).Shading.BackgroundPatternColor = RGB(255,255,250)
scan
IF lv.idx_rs=idb
*  FOR i=1 TO 8
*  m.loTable.Cell(m.lnWordRowNum,i).Shading.BackgroundPatternColor = RGB(255,255,250)
*  endfor
m.loTable.Rows(m.lnWordRowNum).Shading.BackgroundPatternColor = RGB(255,255,250)

m.loTable.Cell(m.lnWordRowNum,2).Range.Text = DTOC(lv.date_ras)
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = lv.ras_kol
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = lv.ed_izm_a
m.loTable.Cell(m.lnWordRowNum,5).Range.Text = lv.cena_ved
m.loTable.Cell(m.lnWordRowNum,6).Range.Text = lv.itogo_cena
m.loTable.Cell(m.lnWordRowNum,7).Range.Text = lv.ostatok
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = '--//--'
ost=lv.ostatok
ed=lv.ed_izm_a
kkl=kkl+1
sh=sh+lv.itogo_cena
ko=ko+lv.ras_kol
endif
IF lv.ostatok=0
m.loTable.Cell(m.lnWordRowNum,8).Shading.BackgroundPatternColor = RGB(100,220,200)
m.loTable.Cell(m.lnWordRowNum,8).Range.Text = DTOC(lv.data_zakr)
nu=RECNO()
ELSE
m.loTable.Cell(m.lnWordRowNum,8).Shading.BackgroundPatternColor = RGB(255,255,250)
m.loTable.Cell(m.lnWordRowNum,8).Range.Text = 'В наличии'
ENDIF
IF lv.date_ras<>{} and  lv.ostatok=0
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add()     
*  FOR i=1 TO 8
*  m.loTable.Cell(m.lnWordRowNum,i).Shading.BackgroundPatternColor = RGB(237,218,0)
*  endfor
m.loTable.Rows(m.lnWordRowNum).Shading.BackgroundPatternColor = RGB(237,218,0)

*  m.loTable.Range(m.lnWordRowNum).Shading.BackgroundPatternColor = RGB(237,218,0)

m.loTable.Cell(m.lnWordRowNum,1).Range.Text ='Итого :'
m.loTable.Cell(m.lnWordRowNum,2).Range.Text =kkl
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = ko
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = ed
m.loTable.Cell(m.lnWordRowNum,5).Range.Text ='***'
m.loTable.Cell(m.lnWordRowNum,7).Range.Text = ost
m.loTable.Cell(m.lnWordRowNum,8).Range.Text ='Закрыто'
m.loTable.Cell(m.lnWordRowNum,6).Range.Text = ALLTRIM(STR(sh))+' // '+ALLTRIM(STR(pla))
itgg=itgg+sh
kvrs=kvrs+kkl
kvt=kvt+ko
ostt=ostt+ost
itgpl=itgpl+pla
idb2=idb
IF nu<kzap
nu=RECNO()
nu=nu+1
GO RECORD nu
idb=lv.idx_rs
nu=nu-1
GO RECORD nu
endif
SELECT bigtable
* а не проще?
SCAN FOR bigtable.idx_rs=idb AND idb<>idb2
*  SCAN 
*  IF bigtable.idx_rs=idb
*  IF idb<>idb2
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add()     
m.loTable.Rows(m.lnWordRowNum).Shading.BackgroundPatternColor = RGB(255,255,128)     && красит всю строку
* красит только первую ячейку (как и было)
*  m.loTable.Cell(m.lnWordRowNum,1).Shading.BackgroundPatternColor = RGB(255,255,128)
*  FOR i=2 TO 8
*  m.loTable.Cell(m.lnWordRowNum,i).Shading.BackgroundPatternColor = RGB(255,255,250)
*  endfor
m.loTable.Cell(m.lnWordRowNum,1).Range.Text = DTOC(bigtable.data_postupl)+' / '+ALLTRIM(STR(bigtable.kolvo))+' '+ALLTRIM(lv.ed_izm_b)
kkl=0
pla=0
sh=0
itg=itg+bigtable.kolvo
pla=bigtable.plan
ko=0
*  ENDIF
*  endif
ENDSCAN
SELECT lv
endif
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add()  
m.loTable.Cell(m.lnWordRowNum,1).Shading.BackgroundPatternColor = RGB(255,255,250)
endscan
IF idb<>idb2
FOR i=1 TO 8
m.loTable.Cell(m.lnWordRowNum,i).Shading.BackgroundPatternColor = RGB(237,218,0)
endfor
m.loTable.Cell(m.lnWordRowNum,1).Range.Text ='Итого :'
m.loTable.Cell(m.lnWordRowNum,2).Range.Text =kkl
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = ko
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = ed
m.loTable.Cell(m.lnWordRowNum,5).Range.Text ='***'
m.loTable.Cell(m.lnWordRowNum,7).Range.Text = ost
m.loTable.Cell(m.lnWordRowNum,6).Range.Text = ALLTRIM(STR(sh))+' // '+ALLTRIM(STR(pla))
itgpl=itgpl+pla
kvt=kvt+ko
kvrs=kvrs+kkl
ostt=ostt+ost
itgg=itgg+sh
IF ost>0
  m.loTable.Cell(m.lnWordRowNum,8).Range.Text = 'В наличии'
endif
IF ost=0
  m.loTable.Cell(m.lnWordRowNum,8).Range.Text = 'Закрыто'
endif
endif
lnWordRowNum=lnWordRowNum+1
m.loTable.Rows.Add() 
*  FOR i=1 TO 8
*    m.loTable.Cell(m.lnWordRowNum,i).Shading.BackgroundPatternColor = RGB(0,0,255)
*  endfor
m.loTable.Rows(m.lnWordRowNum).Shading.BackgroundPatternColor = RGB(0,0,255)

m.loTable.Cell(m.lnWordRowNum,1).Range.Text ='Итог: '+ALLTRIM(STR(itg))+' '+ALLTRIM(ed)
m.loTable.Cell(m.lnWordRowNum,2).Range.Text =kvrs
m.loTable.Cell(m.lnWordRowNum,3).Range.Text = kvt
m.loTable.Cell(m.lnWordRowNum,4).Range.Text = ed
m.loTable.Cell(m.lnWordRowNum,5).Range.Text ='***'
m.loTable.Cell(m.lnWordRowNum,6).Range.Text = ALLTRIM(STR(itgg))+'//'+ALLTRIM(STR(itgpl))
m.loTable.Cell(m.lnWordRowNum,7).Range.Text = ostt
IF ostt>0
  m.loTable.Cell(m.lnWordRowNum,8).Range.Text = 'В наличии'
ENDIF
IF ostt=0
  m.loTable.Cell(m.lnWordRowNum,8).Range.Text = 'Закрыто'
endif
loTable = m.loDoc.Tables(1)     
m.loTable.Cell(1,2).Range.Text = imy
m.loTable.Cell(2,2).Range.Text = neimtov
m.loTable.Cell(3,2).Range.Text = 'С '+DTOC(cdat)+' по '+DTOC(pdat)
m.loWord.Visible = .T.  
ENDIF