Set MoiKlass=##class(BDHistory2017.m06.TcenaH1).%New()

Set MoiKlass=##class("BDHistory2017.m06.TcenaH1").%New()

Set KillTcenaH1="BDHistory2017.m06.TcenaH1"
Set MoiKlass=@class(KillTcenaH1).%New()

ZTESTBRENT>Set emL="@class(KillTcenaH1).%New()"
 
ZTESTBRENT>Set ZmIshem3="aaa="_emL,@ZmIshem3
 
SET ZmIshem3="aaa="_emL,@ZmIshem3
                        ^
<UNDEFINED> *class("BDHistory2017.m06.TcenaH1")
ZTESTBRENT>Set KillTcenaH1="BDHistory2017.m06.TcenaH1"
 
ZTESTBRENT>Set emL=##class(@KillTcenaH1).%New()
 
SET emL=##CLASS(@KillTcenaH1).%New()
^
<SYNTAX>
ZTESTBRENT>Set emL=@class(KillTcenaH1).%New()
 
SET emL=@class(KillTcenaH1).%New()
^
<UNDEFINED> *class("BDHistory2017.m06.TcenaH1")
ZTESTBRENT>Set aaa=##class("BDHistory2017.m06.TcenaH1").%New()
 
ZTESTBRENT>

@class(KillTcenaH1).%New()

@class(KillTcenaH1).%New()

##class(@KillTcenaH1).%New()

@class(KillTcenaH1).%New() 

##class(XXX).%New() 

Set obj = $classmethod(KillTcenaH1, "%New")

Set NewBD.Vrema=VremaImport
Set NewBD.Data=DataImport
Set NewBD.H1Tc=.....
......
Do NewBD.%Save()

Set EndID=$Order(^BDcache.TcenaD1D(""),-1)
Set aaa=##class(BDcache.TcenaD1).%OpenId(EndID)
Set Data=aaa.Data
Set Vrema=aaa.Vrema

 	Set id=900
EndH1p2	
	// Без кода анализа последней записи = дата+время
	// обработка кода длится 0,168251 сек
	// а если включить анализ на поиск последней записи и вытаскивания оттуда даты и времени
	// то у нас уйдет 0,171904 сек. То есть разница составит менее 0,004 сек
	Set id=id+1
	Set aaa=$System.OBJ.OpenId(ImaFilesH1,id)
	if aaa'="" {Goto EndH1p2}
	Set aaa=$System.OBJ.OpenId(ImaFilesH1,(id-1))
	Set DatainBD=aaa.Data
	Set VremainBD=aaa.Vrema
	w "   Конец H1: Дата=",($ZDate(DatainBD,8)),"   Время Лондон=",($ZTime(VremainBD)),!

Set EndID=$Order(^BDcache.TcenaD1D(""),-1)

 set bd="^BDHistory2017.m06.TcenaH1D"
 set end=$Order(@bd@(""), -1)

 set end=$Order(@bd(""), -1)
или 
 set end=$Order(bd(""), -1)