sele  dtos(date_r) as cdate, xpMonthru(MONTH(date_r)) as mes, SUBSTR(ALLTRIM(STR(year(date_r))), 3 , 2 ) as god from dolgi into cursor tmpDolg where id_Dolgnika==[ид должника] order by cdate

IF Tally> 0 
go top in tmpDolg
lcNachalo=alltrim(mes)+' '+god
go bottom in tmpDolg
lcKonez=alltrim(mes)+' '+god
IF lcNachalo==lcKonez
lcRetVal=lcNachalo
else
lcRetVal=lcNachalo+" - "+lcKonez
endif
endif
wait wind lcRetVal

PROCEDURE xpMonthru
LPARAMETERS N
local s
STORE '' TO s
DO CASE
CASE N= 1 
	s='январь'
CASE N= 2 
	s='февраль'
CASE N= 3 
	s='март'
CASE N= 4 
	s='апрель'
CASE N= 5 
	s='май'
CASE N= 6 
	s='июнь'
CASE N= 7 
	s='июль'
CASE N= 8 
	s='август'
CASE N= 9 
	s='сентябрь'
CASE N= 10 
	s='октябрь'
CASE N= 11 
	s='ноябрь'
CASE N= 12 
	s='декабрь'
ENDCASE
RETURN PADL(s, 8 ,SPACE( 1 ))
endproc

*********************************************************************
Local lcMonth As String, lcWord As String, lcYear As String, lnValueFinish As Number,;
lnValuePeriod As Number, lnValueStart As Number  lnDecimals
lnDecimals=Set("Decimals" )
Set Decimals To  0 
*sele distinct SUBSTR(dtos(date_r), 1 , 6 ) as ddate from dolgi into cursor tmpDolg where id_Dolgnika==[ид должника] order by ddate
Select Distinct Val(Substr(Dtos(date_r), 1 , 6 )) As ddate From sert Into Cursor tmpDolg Order By ddate
 
If _Tally> 0 
	Go Top In tmpDolg
	lcWord=Space( 0 )

	Do While .Not.Eof()
		lnValueStart=ddate
		lnValueFinish=ddate
		lnValuePeriod=lnValueFinish
		Do While (lnValueFinish-lnValuePeriod < 2 ) and not eof()
			lnValuePeriod=lnValueFinish
			Skip
			lnValueFinish=ddate
		Enddo
		lcYear=Substr(Alltrim(Str(lnValueStart)), 3 , 2 )
		lcMonth=xpMonthru(Val(Substr(Alltrim(Str(lnValueStart)), 5 , 2 )))
		lcWord=lcWord+", "+lcMonth+" "+lcYear

		If 	lnValueStart!=lnValuePeriod
			lcYear=Substr(Alltrim(Str(lnValuePeriod)), 3 , 2 )
			lcMonth=xpMonthru(Val(Substr(Alltrim(Str(lnValuePeriod)), 5 , 2 )))
			lcWord=lcWord+" - "+lcMonth+" "+lcYear
		Endif
	Enddo
lcWord=substr(lcWord, 3 )
Endif

Set Decimals To (lnDecimals)
Wait window lcWord

Local lcMonth As String, lcWord As String, lcYear As String, lnValueFinish As Number,;
lnValuePeriod As Number, lnValueStart As Number, lnDecimals As Number
lnDecimals=Set("Decimals" )
Set Decimals To  0 
Select Distinct Val(Substr(Dtos(date_r), 1 , 6 )) As ddate From dolgi Into Cursor tmpDolg;
Where id_Dolgnika==[ид должника] Order By ddate

If _Tally> 0 
	Go Top In tmpDolg
	lcWord=Space( 0 )

	Do While .Not.Eof()
		lnValueStart=ddate
		lnValueFinish=ddate
		lnValuePeriod=lnValueFinish
		Do While Inlist(lnValueFinish-lnValuePeriod, 0 , 1 , 89 ) And Not Eof()
			lnValuePeriod=lnValueFinish
			Skip
			lnValueFinish=ddate
		Enddo
		lcYear=Substr(Alltrim(Str(lnValueStart)), 3 , 2 )
		lcMonth=xpMonthru(Val(Substr(Alltrim(Str(lnValueStart)), 5 , 2 )))
		lcWord=lcWord+", "+lcMonth+" "+lcYear

		If 	lnValueStart!=lnValuePeriod
			lcYear=Substr(Alltrim(Str(lnValuePeriod)), 3 , 2 )
			lcMonth=xpMonthru(Val(Substr(Alltrim(Str(lnValuePeriod)), 5 , 2 )))
			lcWord=lcWord+" - "+lcMonth+" "+lcYear
		Endif
	Enddo
	lcWord=Substr(lcWord, 3 )
Endif

Set Decimals To (lnDecimals)
Wait Wind lcWord