M代码管理篇

已于 2022-08-17 21:15:53 修改
阅读量469 收藏 1
点赞数 2
分类专栏： Caché 文章标签： svn 服务器 数据库
于 2022-08-17 20:18:43 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhanglianzhu_91/article/details/126393129
版权

之前好几年大家M开发都是在一个中心库上改代码。都以一个中心库的M代码为开发标准。由于大家不在一起或者有时候连不上中心库，所以也有本地库开发的。这就带来一个问题，有些人本地库代码很老，或者不是最新的M。那么在本地改代码后如果不比对中心库添加而直接导入M的话，就会把别人的改动盖了。还查不到谁盖的，盖之前代码是什么样的。就算大家在一起开发的话也存在代码历史追溯问题。

所以那段时间很头大。一个打印M增加的功能，隔段时间又变成一个老的了。有些本地不时常更新代码的人，领导安排个活之后让他提交能给你盖成几年之前的M。很久之后用到了才发现，然后又是找近一点的代码盖回去。来来回回，反反复复的后台进步很慢。所以需要管理起来M。最好是借助代码管理工具SVN，Git之类的。

要管理M那么问题就是有没有什么代码能自动导出导入M呢？如果能代码自动导入导出就可以开发业务功能把M代码管理起来了。

然后就搞了个这么个东东，更新SVN的M文件目录然后全部导入本地或者导入最近改的200，程序会存一个globle记录最后导入时间，导出修改就是查修改时间大于最后导入时间的M，这样把修改M按目录导入到SVN目录了，再提交就OK了，这样整个M就有版本管理了，每个人自己在本地库开发，以SVN的代码为准：
在这里插入图片描述

在这里插入图片描述
在这里插入图片描述

开发管理M代码功能M需要用到的技术部分如下：

首先知道用SQL查库里全部表和类

查全部表：
select CLASSNAME FROM information_schema.Tables where TABLE_SCHEMA=‘dbo’

查全部类：
select distinct ID from %dictionary.compiledclass where CompileNamespace like ‘%DHC-LISDATA’

查询最近修改的M：
select distinct ID,TimeChanged from %dictionary.compiledclass where CompileNamespace like ‘%DHC-LISDATA’ order by TimeChanged desc

然后可以借助s ret=$system.OBJ.Export(“类名.cls”,“导出全路径名称”)来导出M到数据库指定文件里。

导出逻辑可以借助i ##Class(%ClassDefinition).%ExistsId(“类名.cls”) 判断类是否存在

可以借助s ret=$system.OBJ.Load(“M导出xml的全路径”,“ck”)来导入和自动编译M,ck就是编译

这样结合别的语言开发个代码管理功能就可以实现了。还能借助这个批量导出M，然后用脚本批量处理M的xml文件来批量处理代码（我就借助这个机制处理过好几波代码，代码实在太多了，几千个，人工一个个改是单纯的体力活）。也可以做自动升级工具，把打包的M文件自动备份数据库里的M，然后导入新的更新包的M（因为别的dll，js那些本身更新就没问题，早期自动更新就卡在自动备份M和导入M上）。

示例M

Class websys.LISUpGrade Extends %RegisteredObject
{

///  导出M
///  w ##Class(websys.LISUpGrade).ExportMMTHD("websys.LISUpGrade.cls","C:\Users\zlzxu\Desktop\新建文件夹\DHC-LISDATA\websys.LISUpGrade.xml","")
///  w ##Class(websys.LISUpGrade).ExportMMTHD("DHCLIS.BLD.DHCBDApprovalReqForm.cls","C:\Users\zlzxu\Desktop\新建文件夹\DHC-APP\DHCLIS.BLD.DHCBDApprovalReqForm.xml","DHC-APP")
///  按类名和路径导出M
ClassMethod ExportMMTHD(ClassName, ExportPath, NameSpace, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{
	//s ^TMP("zlz")=$lb(ClassName, ExportPath, NameSpace)
	s ClassName=$g(ClassName)
	s ExportPath=$g(ExportPath)
	s NameSpace=$g(NameSpace)
	s ret=1
	S $ZT="Error"
	s CurNameSpace=$NAMESPACE
	i $l(NameSpace) s $NAMESPACE=NameSpace
	i ##Class(%ClassDefinition).%ExistsId($REPLACE(ClassName,".cls","")) d
	.s ret=$system.OBJ.Export(ClassName,ExportPath)
	i ClassName[".mac" d
	.s ret=$system.OBJ.Export(ClassName,ExportPath)
	i $l(NameSpace) s $NAMESPACE=CurNameSpace
	q ret
	
Error
	q "导出:"_ClassName_"失败！"_$ECODE_","_$ZERROR
}

///  导入M
///  w ##Class(websys.LISUpGrade).LoadMMTHD("C:\Users\zhanglianzhu\Desktop\dealtableutil\bin\Debug\net5.0\tmp\dbo.BBAdverseReactionType.xml","DHC-LISDATA")
///  按类名和路径导出M
ClassMethod LoadMMTHD(Path, NameSpace, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{
	s Path=$g(Path)
	s NameSpace=$g(NameSpace)
	s CurNameSpace=$NAMESPACE
	i $l(NameSpace) s $NAMESPACE=NameSpace
	s ret=$system.OBJ.Load(Path,"ck")
	i $l(NameSpace) s $NAMESPACE=CurNameSpace
	q ret
}


///  设置索引模式和重建索引(平常不允许执行,使用环境会破坏数据库)
///  w ##Class(websys.LISUpGrade).SetIndexModeMTHD("1","")
///  
ClassMethod SetIndexModeMTHD(Mode, Para, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{
	i Para'="DHCC" q "0"
	s ^["DHC-LISDATA"]LISTableIndexVetion=Mode
	//重建索引
	s rset1 = ##class(%ResultSet).%New()
	d rset1.Prepare("select CLASSNAME FROM information_schema.Tables where TABLE_SCHEMA='dbo'")
	s exeret1=rset1.Execute()
	s colCount1=rset1.GetColumnCount()
	s dealNum1=0
    While(rset1.Next())
    {
        s colField=rset1.GetColumnName(1)
        s ColValue=rset1.GetDataByName(colField)
        i ColValue["dbo.V" continue
        s BuildStr="rtn=##class("_ColValue_").%BuildIndices()"
        s @BuildStr
        set ret=@"rtn"	
        zw ret
    }
	q "0"
}

Query QryAllDbo(Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "OutName,Type,NameSpace")
{
}

/// 查询导出所有M
/// Path：文件夹路径
/// 
///                   
/// d ##Class(%ResultSet).RunQuery("websys.LISUpGrade","QryAllDbo","D:\OUT")
ClassMethod QryAllDboExecute(ByRef qHandle As %Binary, Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status
{
 	Set repid=$I(^CacheTemp)
	If $g(ind)="" Set ind=1
	s Path=$g(Path)
	k ^TMPLIS($zn,repid)
	s index=0
	s rset1 = ##class(%ResultSet).%New()
	d rset1.Prepare("select CLASSNAME FROM information_schema.Tables where TABLE_SCHEMA='dbo'")
	s exeret1=rset1.Execute()
	s colCount1=rset1.GetColumnCount()
	s dealNum1=0
    While(rset1.Next())
    {
        s colField=rset1.GetColumnName(1)
        s ColValue=rset1.GetDataByName(colField)
        s OutName=ColValue_".xml"
        s Type=$p(ColValue,".",1)
        s NameSpace="DHC-LISDATA"
        i $l(Path) d
        .i Path["\" d
        ..s OutPath=Path_"\"_OutName
        .e  d
        ..s OutPath=Path_"/"_OutName
        .s ret=$system.OBJ.Export(ColValue_".cls",OutPath)
        .i ret=1 d
        ..i (OutName'["dbo.") d
        ...s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ...s index=index+1
        ..e  d
        ...d OutputData
        e  d 
        .i OutName'["dbo." d
        ..s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ..s index=index+1
        .e  d
        ..d OutputData
    }

	
	k ^TMPLIS($zn,repid)
    Set qHandle=$lb(0,repid,0)
    Quit $$$OK
    
OutputData
	i $d(^TMPLIS($zn,repid,OutName,NameSpace)) q
	s ^TMPLIS($zn,repid,OutName,NameSpace)=""
 	s TypeI=" "
 	i $l(Type) s TypeI=Type
 	s NameSpaceI=" "
 	i $l(NameSpace) s NameSpaceI=NameSpace
 	set Data=$lb(OutName,Type,NameSpace)
 	Set ColFields = "OutName,Type,NameSpace"
 	Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields)
 	Set ind=ind+1
	Quit
}

ClassMethod QryAllDboClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = QryAllDboExecute ]
{
	Set repid=$LIST(qHandle,2)
 	Kill ^CacheTemp(repid)
	Quit $$$OK
}

ClassMethod QryAllDboFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = QryAllDboExecute ]
{
 	Set AtEnd=$LIST(qHandle,1)
 	Set repid=$LIST(qHandle,2)
 	Set ind=$LIST(qHandle,3)
	//
 	Set ind=$o(^CacheTemp(repid,ind))
 	If ind="" {				// if there are no more rows, finish fetching
 		Set AtEnd=1
 		Set Row=""
 	}
 	Else      {				// fetch row
 		Set Row=^CacheTemp(repid,ind)
 	}
 	// Save QHandle
 	s qHandle=$lb(AtEnd,repid,ind)
	Quit $$$OK
}

}

示例M

Class websys.ExportAllM Extends %RegisteredObject
{

Query ExportAllM(Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "OutName,Type,NameSpace,BllType")
{
}

/// 导出所有M
/// Path：文件夹路径
/// 
///                   
/// d ##Class(%ResultSet).RunQuery("websys.ExportAllM","ExportAllM","D:\SVN临时\trunk\13开发库\Common\checkindexutil\bin\Debug\net5.0\tmp")
ClassMethod ExportAllMExecute(ByRef qHandle As %Binary, Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status
{
 	Set repid=$I(^CacheTemp)
	If $g(ind)="" Set ind=1
	s Path=$g(Path)
	k ^TMPLIS($zn,repid)
	s index=0
	s rset1 = ##class(%ResultSet).%New()
	d rset1.Prepare("select CLASSNAME FROM information_schema.Tables where TABLE_SCHEMA='dbo'")
	s exeret1=rset1.Execute()
	s colCount1=rset1.GetColumnCount()
	s dealNum1=0
    While(rset1.Next())
    {
        s colField=rset1.GetColumnName(1)
        s ColValue=rset1.GetDataByName(colField)
        s OutName=ColValue_".xml"
        s Type=$p(ColValue,".",1)
        s NameSpace="DHC-LISDATA"
        i $l(Path) d
        .i Path["\" d
    	..s OutPath=Path_"\"_NameSpace_"\"_OutName
    	.e  d
        ..s OutPath=Path_"/"_NameSpace_"/"_OutName
        .s ret=$system.OBJ.Export(ColValue_".cls",OutPath)
        .i ret=1 d
        ..i (OutName'["dbo.") d
        ...s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ...s index=index+1
        ..e  d
        ...d OutputData
        e  d 
        .i OutName'["dbo." d
        ..s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ..s index=index+1
        .e  d
        ..d OutputData
    }

	s rset = ##class(%ResultSet).%New()
	d rset.Prepare("select distinct  ID from %dictionary.compiledclass where CompileNamespace like '%DHC-LISDATA'")
	s exeret=rset.Execute()
	s colCount=rset.GetColumnCount()
	s dealNum=0
    While(rset.Next())
    {
        s colField=rset.GetColumnName(1)
        s ColValue=rset.GetDataByName(colField)
        s OutName=ColValue_".xml"
        s Type=$p(ColValue,".",1)
        s NameSpace="DHC-LISDATA"
        i $l(Path) d
        .i Path["\" d
    	..s OutPath=Path_"\"_NameSpace_"\"_OutName
    	.e  d
        ..s OutPath=Path_"/"_NameSpace_"/"_OutName
        .s ret=$system.OBJ.Export(ColValue_".cls",OutPath)
        .i ret=1 d
        ..i (OutName'["dbo.") d
        ...s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ...s index=index+1
        ..e  d
        ...d OutputData
        e  d 
        .i OutName'["dbo." d
        ..s ^TMPLIS($zn,repid,"OUT",index)=$lb(OutName,Type,NameSpace)
        ..s index=index+1
        .e  d
        ..d OutputData
    }
    
	//先输出dbo的类
	s index="" f  s index=$o(^TMPLIS($zn,repid,"OUT",index)) q:index=""  d
	.s OutData=$g(^TMPLIS($zn,repid,"OUT",index))
	.s OutName=$lg(OutData,1)
	.s Type=$lg(OutData,2)
	.s NameSpace=$lg(OutData,3)
	.d OutputData

    
    //设置所有Mac信息
	d ..SetAllMacData()
	s ColValue="" f  s ColValue=$o(^LISAllMacName(ColValue)) q:ColValue=""  d
	.s OutName=ColValue_".mac"
    .s Type=$p(OutName,".",1)
    .s NameSpace="DHC-LISDATA"
    .i $l(Path) d
    ..i Path["\" d
    ...s OutPath=Path_"\"_NameSpace_"\"_OutName
    ..e  d
    ...s OutPath=Path_"/"_NameSpace_"/"_OutName
    ..s ret=$system.OBJ.Export(ColValue_".mac",OutPath)
    ..i ret=1 d
    ...d OutputData
    .e  d 
    ..d OutputData
    
    s $NAMESPACE="DHC-APP"
    s rset = ##class(%ResultSet).%New()
	d rset.Prepare("select distinct  ID from %dictionary.compiledclass where CompileNamespace like '%DHC-APP'")
	s exeret=rset.Execute()
	s colCount=rset.GetColumnCount()
	s dealNum=0
    While(rset.Next())
    {
        s colField=rset.GetColumnName(1)
        s ColValue=rset.GetDataByName(colField)
        s OutName=ColValue_".xml"
        s Type=$p(ColValue,".",1)
        s NameSpace="DHC-APP"
        i $l(Path) d
        .i Path["\" d
    	..s OutPath=Path_"\"_NameSpace_"\"_OutName
    	.e  d
        ..s OutPath=Path_"/"_NameSpace_"/"_OutName
        .s ret=$system.OBJ.Export(ColValue_".cls",OutPath)
        .i ret=1 d
        ..i (OutName'["dbo.") d
        ...d OutputData
        e  d 
        .i OutName'["dbo." d
        ..d OutputData
    }
    s $NAMESPACE="DHC-LISDATA"
	k ^TMPLIS($zn,repid)
    Set qHandle=$lb(0,repid,0)
    Quit $$$OK
    
OutputData
	i $d(^TMPLIS($zn,repid,OutName,NameSpace)) q
	s ^TMPLIS($zn,repid,OutName,NameSpace)=""
 	s TypeI=" "
 	i $l(Type) s TypeI=Type
 	s NameSpaceI=" "
 	i $l(NameSpace) s NameSpaceI=NameSpace
 	i '$d(^LISAllM(OutName,TypeI,NameSpaceI)) d
 	.s ^LISAllM(OutName,TypeI,NameSpaceI)=""
 	s HasType=0
 	i (OutName["MIC") s ^LISAllM(OutName,TypeI,NameSpaceI)="微生物",HasType=1
 	i (OutName["MC") s ^LISAllM(OutName,TypeI,NameSpaceI)="微生物",HasType=1
 	i (OutName["Mic") s ^LISAllM(OutName,TypeI,NameSpaceI)="微生物",HasType=1
 	i (OutName["QC") s ^LISAllM(OutName,TypeI,NameSpaceI)="质控",HasType=1
 	i (OutName["BLD.") s ^LISAllM(OutName,TypeI,NameSpaceI)="血库",HasType=1
 	i (OutName[".BLD") s ^LISAllM(OutName,TypeI,NameSpaceI)="血库",HasType=1
 	i (OutName["BLDProxy") s ^LISAllM(OutName,TypeI,NameSpaceI)="血库",HasType=1
 	i (OutName["BLDSP.") s ^LISAllM(OutName,TypeI,NameSpaceI)="血库",HasType=1
 	i (OutName["EQA.") s ^LISAllM(OutName,TypeI,NameSpaceI)="EQA",HasType=1
 	i (OutName["RG") s ^LISAllM(OutName,TypeI,NameSpaceI)="试剂",HasType=1
 	i (OutName["DHCRG") s ^LISAllM(OutName,TypeI,NameSpaceI)="试剂",HasType=1
 	i (OutName["LISSTAT.") s ^LISAllM(OutName,TypeI,NameSpaceI)="统计",HasType=1
 	i (OutName[".DHCStat") s ^LISAllM(OutName,TypeI,NameSpaceI)="统计",HasType=1
 	i (OutName["MI.") s ^LISAllM(OutName,TypeI,NameSpaceI)="接口",HasType=1
 	i (OutName["dbo.") s ^LISAllM(OutName,TypeI,NameSpaceI)="表结构",HasType=1
 	i HasType=0 s ^LISAllM(OutName,TypeI,NameSpaceI)="检验"
 	s BllType=^LISAllM(OutName,TypeI,NameSpaceI)
 	set Data=$lb(OutName,Type,NameSpace,BllType)
 	Set ColFields = "OutName,Type,NameSpace,BllType"
 	Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields)
 	Set ind=ind+1
	Quit
}

ClassMethod ExportAllMClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = ExportAllMExecute ]
{
	Set repid=$LIST(qHandle,2)
 	Kill ^CacheTemp(repid)
	Quit $$$OK
}

ClassMethod ExportAllMFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = ExportAllMExecute ]
{
 	Set AtEnd=$LIST(qHandle,1)
 	Set repid=$LIST(qHandle,2)
 	Set ind=$LIST(qHandle,3)
	//
 	Set ind=$o(^CacheTemp(repid,ind))
 	If ind="" {				// if there are no more rows, finish fetching
 		Set AtEnd=1
 		Set Row=""
 	}
 	Else      {				// fetch row
 		Set Row=^CacheTemp(repid,ind)
 	}
 	// Save QHandle
 	s qHandle=$lb(AtEnd,repid,ind)
	Quit $$$OK
}

/// 设置所有Mac名信息
ClassMethod SetAllMacData()
{
	s ^LISAllMacName("MI.Common.MIH7600")=""
    s ^LISAllMacName("MI.DHCDATAMIC")=""
    s ^LISAllMacName("MI.DHCMIFAuthResult")=""
    s ^LISAllMacName("MI.DHCMIFXMRES")=""
    s ^LISAllMacName("MI.MIF000")=""
    s ^LISAllMacName("MI.MIF008ANew")=""
    s ^LISAllMacName("MI.MIF16200BI")=""
    s ^LISAllMacName("MI.MIF5DIFF")=""
    s ^LISAllMacName("MI.MIFABH7600BI")=""
    s ^LISAllMacName("MI.MIFABHLs76BI")=""
    s ^LISAllMacName("MI.MIFABL800")=""
    s ^LISAllMacName("MI.MIFABXPentraLX80")=""
    s ^LISAllMacName("MI.MIFACCESS2")=""
    s ^LISAllMacName("MI.MIFACLTOPBI")=""
    s ^LISAllMacName("MI.MIFACP3000")=""
    s ^LISAllMacName("MI.MIFACP3000BI")=""
    s ^LISAllMacName("MI.MIFACUATAR")=""
    s ^LISAllMacName("MI.MIFADVIA")=""
    s ^LISAllMacName("MI.MIFADVIABI")=""
    s ^LISAllMacName("MI.MIFAIQ200")=""
    s ^LISAllMacName("MI.MIFASTM")=""
    s ^LISAllMacName("MI.MIFAU480BI")=""
    s ^LISAllMacName("MI.MIFAU5800BI")=""
    s ^LISAllMacName("MI.MIFAU6800BI")=""
    s ^LISAllMacName("MI.MIFAU680BI")=""
    s ^LISAllMacName("MI.MIFAUTOLUMOA2000")=""
    s ^LISAllMacName("MI.MIFAX4280")=""
    s ^LISAllMacName("MI.MIFAxceed260BI")=""
    s ^LISAllMacName("MI.MIFBACTECFX")=""
    s ^LISAllMacName("MI.MIFBC3000")=""
    s ^LISAllMacName("MI.MIFBC5390")=""
    s ^LISAllMacName("MI.MIFBC6390")=""
    s ^LISAllMacName("MI.MIFBC6800")=""
    s ^LISAllMacName("MI.MIFBCHL7G")=""
    s ^LISAllMacName("MI.MIFBCHL7GBi")=""
    s ^LISAllMacName("MI.MIFBD100")=""
    s ^LISAllMacName("MI.MIFBD100ACT")=""
    s ^LISAllMacName("MI.MIFBECompactX")=""
    s ^LISAllMacName("MI.MIFBNII")=""
    s ^LISAllMacName("MI.MIFBOXUN")=""
    s ^LISAllMacName("MI.MIFBS2000M")=""
    s ^LISAllMacName("MI.MIFCA1500")=""
    s ^LISAllMacName("MI.MIFCAL8000N")=""
    s ^LISAllMacName("MI.MIFCentaurXP")=""
    s ^LISAllMacName("MI.MIFCH7600II")=""
    s ^LISAllMacName("MI.MIFCI1600BI")=""
    s ^LISAllMacName("MI.MIFCI8200BI")=""
    s ^LISAllMacName("MI.MIFCL2000")=""
    s ^LISAllMacName("MI.MIFCLISalphaBI")=""
    s ^LISAllMacName("MI.MIFCOBAS6500")=""
    s ^LISAllMacName("MI.MIFCOBASB123")=""
    s ^LISAllMacName("MI.MIFCOBASE411")=""
    s ^LISAllMacName("MI.MIFCOBASE412")=""
    s ^LISAllMacName("MI.MIFCOBASE601")=""
    s ^LISAllMacName("MI.MIFCOBASE715")=""
    s ^LISAllMacName("MI.MIFCobaseE411BI")=""
    s ^LISAllMacName("MI.MIFCOBASP600")=""
    s ^LISAllMacName("MI.MIFCS5100")=""
    s ^LISAllMacName("MI.MIFDiana1")=""
    s ^LISAllMacName("MI.MIFDM2INAuth")=""
    s ^LISAllMacName("MI.MIFDM2RECEIVE")=""
    s ^LISAllMacName("MI.MIFDM2SEND")=""
    s ^LISAllMacName("MI.MIFDXC800BI")=""
    s ^LISAllMacName("MI.MIFDXH600")=""
    s ^LISAllMacName("MI.MIFDXH800")=""
    s ^LISAllMacName("MI.MIFDXI800BI")=""
    s ^LISAllMacName("MI.MIFE411BI")=""
    s ^LISAllMacName("MI.MIFE411BI2")=""
    s ^LISAllMacName("MI.MIFEPALY")=""
    s ^LISAllMacName("MI.MIFEPCenter")=""
    s ^LISAllMacName("MI.MIFFA160")=""
    s ^LISAllMacName("MI.MIFFUS3000")=""
    s ^LISAllMacName("MI.MIFG7")=""
    s ^LISAllMacName("MI.MIFG8")=""
    s ^LISAllMacName("MI.MIFGEB600")=""
    s ^LISAllMacName("MI.MIFGEB600B")=""
    s ^LISAllMacName("MI.MIFGEM3000")=""
    s ^LISAllMacName("MI.MIFGEM4000")=""
    s ^LISAllMacName("MI.MIFGM3000")=""
    s ^LISAllMacName("MI.MIFGRIFOLS")=""
    s ^LISAllMacName("MI.MIFGSTARE4")=""
    s ^LISAllMacName("MI.MIFGZWAD2")=""
    s ^LISAllMacName("MI.MIFH7600")=""
    s ^LISAllMacName("MI.MIFHAlegria")=""
    s ^LISAllMacName("MI.MIFHDXI800")=""
    s ^LISAllMacName("MI.MIFHEMOHUB")=""
    s ^LISAllMacName("MI.MIFHEMOHUBSEND")=""
    s ^LISAllMacName("MI.MIFHL7")=""
    s ^LISAllMacName("MI.MIFHLBC5800")=""
    s ^LISAllMacName("MI.MIFHLIAISONXL")=""
    s ^LISAllMacName("MI.MIFHPHADIA")=""
    s ^LISAllMacName("MI.MIFHTSM")=""
    s ^LISAllMacName("MI.MIFI2000SR")=""
    s ^LISAllMacName("MI.MIFI2000SR2")=""
    s ^LISAllMacName("MI.MIFI3000")=""
    s ^LISAllMacName("MI.MIFILH750Img")=""
    s ^LISAllMacName("MI.MIFIQ200")=""
    s ^LISAllMacName("MI.MIFKUF10")=""
    s ^LISAllMacName("MI.MIFLIAISON")=""
    s ^LISAllMacName("MI.MIFLISVMachine")=""
    s ^LISAllMacName("MI.MIFLWC420")=""
    s ^LISAllMacName("MI.MIFMINIVIDAS")=""
    s ^LISAllMacName("MI.MIFMQ2000")=""
    s ^LISAllMacName("MI.MIFN600")=""
    s ^LISAllMacName("MI.MIFNOVA")=""
    s ^LISAllMacName("MI.MIFOC")=""
    s ^LISAllMacName("MI.MIFPYLON3D")=""
    s ^LISAllMacName("MI.MIFROCHEE411")=""
    s ^LISAllMacName("MI.MIFRP500")=""
    s ^LISAllMacName("MI.MIFRT6000")=""
    s ^LISAllMacName("MI.MIFRT6000B")=""
    s ^LISAllMacName("MI.MIFSERVER")=""
    s ^LISAllMacName("MI.MIFSIMRec")=""
    s ^LISAllMacName("MI.MIFSIMSend")=""
    s ^LISAllMacName("MI.MIFSTAGO")=""
    s ^LISAllMacName("MI.MIFSYSMEXXT2000i")=""
    s ^LISAllMacName("MI.MIFTB120")=""
    s ^LISAllMacName("MI.MIFTBABi")=""
    s ^LISAllMacName("MI.MIFTDR300C")=""
    s ^LISAllMacName("MI.MIFTEST")=""
    s ^LISAllMacName("MI.MIFTest")=""
    s ^LISAllMacName("MI.MIFTEXT")=""
    s ^LISAllMacName("MI.MIFTMP")=""
    s ^LISAllMacName("MI.MIFTOP700")=""
    s ^LISAllMacName("MI.MIFUROCHEHE601")=""
    s ^LISAllMacName("MI.MIFUT500B")=""
    s ^LISAllMacName("MI.MIFV8")=""
    s ^LISAllMacName("MI.MIFVIT5600")=""
    s ^LISAllMacName("MI.MIFVITEK")=""
    s ^LISAllMacName("MI.MIFVITEK2")=""
    s ^LISAllMacName("MI.MIFVITROS350BI")=""
    s ^LISAllMacName("MI.MIFVITROS5600")=""
    s ^LISAllMacName("MI.MIFWVITEKMS")=""
    s ^LISAllMacName("MI.MIFXE2100BI")=""
    s ^LISAllMacName("MI.MIFXIMENZI")=""
    s ^LISAllMacName("MI.MIFXL3000")=""
    s ^LISAllMacName("MI.MIFXRMBEBI")=""
    s ^LISAllMacName("MI.MIFXT4000i")=""
    s ^LISAllMacName("MI.MIFXT800i")=""
    s ^LISAllMacName("MI.MIFXXB")=""
    s ^LISAllMacName("MI.MIFYDBNII")=""
    s ^LISAllMacName("MI.MIFYPIN")=""
    s ^LISAllMacName("MI.MIFYPOUT")=""
    s ^LISAllMacName("MI.MIFZHCAL8000")=""
    s ^LISAllMacName("MI.MIFZYI4000BI")=""
    s ^LISAllMacName("MI.SMART3000")=""
    s ^LISAllMacName("MI.TESTYY")=""
    s ^LISAllMacName("MIF000")=""
}

/// 设置最后更新M时间
ClassMethod SetLastTimeUpdateMMTHD(Date, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %String
{
	s ^LISLastUpdateM=Date
	q ""
}

Query ExportUpdateM(Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Query(ROWSPEC = "OutName")
{
}

/// 导出所有M
/// Path：文件夹路径
/// 
///                   
/// d ##Class(%ResultSet).RunQuery("websys.LISCodeManage","ExportUpdateM")
ClassMethod ExportUpdateMExecute(ByRef qHandle As %Binary, Path, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13, Sessions, Output RowCount As %String) As %Status
{
 	Set repid=$I(^CacheTemp)
	If $g(ind)="" Set ind=1
	s Path=$g(Path)
	k ^TMPLIS($zn,repid)
	s index=0
	s rset1 = ##class(%ResultSet).%New()
	d rset1.Prepare("select distinct ID,TimeChanged from %dictionary.compiledclass where CompileNamespace like '%DHC-LISDATA' order by TimeChanged desc")
	s exeret1=rset1.Execute()
	s colCount1=rset1.GetColumnCount()
	s dealNum1=0
	s LISLastUpdateM=$g(^LISLastUpdateM)
	i $l(LISLastUpdateM) d
	.s LastDate=$p(LISLastUpdateM,"^",1)
	.s LastTime=$p(LISLastUpdateM,"^",2)
	e  d
	.s LastDate=$zd($p($h,",",1),8)
	.s LastTime=$p($h,",",2)
    While(rset1.Next())
    {
        s colFieldID=rset1.GetColumnName(1)
        s OutName=rset1.GetDataByName(colFieldID)
        s colFieldTimeChanged=rset1.GetColumnName(2)
        s TimeChanged=rset1.GetDataByName(colFieldTimeChanged)
        s CurDate=$zd($p(TimeChanged,",",1),8)
        s CurTime=$p(TimeChanged,",",2)
        s Cha=##Class(LIS.Util.Common).GetDateTimeDiff(CurDate,CurTime,LastDate,LastTime)
        i $p(Cha,",",4)<0 q
        d OutputData
    }

	k ^TMPLIS($zn,repid)
    Set qHandle=$lb(0,repid,0)
    Quit $$$OK
    
OutputData
	
 	set Data=$lb(OutName)
 	Set ColFields = "OutName"
 	Set ^CacheTemp(repid,ind)=##Class(LIS.Util.Common).TransListNull(Data,ColFields)
 	Set ind=ind+1
	Quit
}

ClassMethod ExportUpdateMClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = ExportUpdateMExecute ]
{
	Set repid=$LIST(qHandle,2)
 	Kill ^CacheTemp(repid)
	Quit $$$OK
}

ClassMethod ExportUpdateMFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = ExportUpdateMExecute ]
{
 	Set AtEnd=$LIST(qHandle,1)
 	Set repid=$LIST(qHandle,2)
 	Set ind=$LIST(qHandle,3)
	//
 	Set ind=$o(^CacheTemp(repid,ind))
 	If ind="" {				// if there are no more rows, finish fetching
 		Set AtEnd=1
 		Set Row=""
 	}
 	Else      {				// fetch row
 		Set Row=^CacheTemp(repid,ind)
 	}
 	// Save QHandle
 	s qHandle=$lb(AtEnd,repid,ind)
	Quit $$$OK
}

}

美美的，再也不用担心M被盖了，后台也就避免内耗稳步提高了。供有管理M代码想法的同学参考。

小乌鱼
关注
专栏目录
RK3399平台开发系列讲解（代码管理篇）1.1、系统代码修改规范
内核笔记
09-13 3140
文章目录一、背景及问题:二、 思路和方法:1. 针对 TAB 处理:2. 针对回车换行的处理：3. 修改的识别: 平台 内核版本 安卓版本 RK3399 Linux4.4 Android7.1 一、背景及问题: 系统代码因为主要考虑基于原厂提供的公版代码做修改， 且涉及自主修改，公版 patch, 多人维护交叉修改等问题。为统一格式， 方便代码识别，增加可读性。特别定义此规范。 二、 思路和方法: 规范主要是针对系统代码修改的, 分成三部分， 分别是针对 TAB 处理， 针对回车换行的.
RK3399平台开发系列讲解（代码管理篇）1.7、系统代码修改规范
内核笔记
05-03 1435
系列 内容 规范 系统代码修改规范 规范主要是针对系统代码修改的, 分成三部分， 分别是针对 TAB 处理， 针对回车换行的处理， 修改的识别三个方面做出明确的定义要求。 文章目录1、针对`TAB`处理2、针对回车换行的处理3、修改的识别 1、针对TAB处理 代码中，行对齐的 TAB 键， 要换成空格， 不允许直接使用 TAB 键。 原因： 是不同的编辑器对 TAB 的解释都不...
M代码一览表
08-02
M代码一览表
看M代码系列（记录一些函数之类的）
qq_41263383的博客
05-04 383
format :设置输出格式 用于针对数据的显示形式进行控制，但该命令不影响数据的储存形式和计算精度 format long 15字长定点数 global x; 定义全局变量 想让某个函数中定义的变量能够被其他函数调用，需要用到全局变量。注意，在这两个函数中都要用global修饰这个变量。 tic toc 只要用tic和toc函数，不需要自己计算前后时间的差，tic函数会记录起始时刻，toc函数会自动计算时间差。 load peng.mat 将peng.mat中的所有变量读入matla..
G代码M代码大全
08-02
G代码M代码大全
常用的M代码有哪些？
最新发布
sgnlian的博客
05-12 7658
当执行到M42时，机床会关闭该功能。当执行到M09时，机床冷却液会关闭。当程序执行到M98时，机床会调用子程序；当执行到M99时，机床会返回主程序。当程序执行到M02或M30时，机床会结束当前程序，回到初始状态。当程序执行到M01时，机床会暂停工作，等待操作员确认是否继续下一步指令。当程序执行到M03或M04时，机床主轴会启动，开始旋转。当程序执行到M06时，机床会自动更换当前刀具，开始加工新的工件。当程序执行到M00时，机床会停止工作，等待操作员下达下一步指令。当程序执行到M05时，机床主轴会停止旋转。
CNC参数、子程序、M代码、定制指令汇总
07-24
CNC参数、子程序、M代码、定制指令汇总，便于程序员编辑机床CNC程序文件。
ESP8266开发之旅 进阶篇① 代码优化 —— ESP8266内存管理
单片机菜鸟哥的博客
06-20 1万+
我们这里关注几个点： 1. IROM，属于Flash中的一部分，也可以说基本上占了绝大部分flash空间 2. RAM，也就是运行过程中内存处理，又根据功能分为 IRAM和DRAM - ==iRAM占用 64KB，又可细分为 前32KB的IRAM 和 后32KB的Icache== - ==dRAM 主要关注 .data 段、.bss段、.rodata段、heap段==
Jenkins集成Gitlab、SonarQube搭建自动化代码质量管理平台（高级篇）
邓邓子的博客
03-21 2227
目录一、前言二、Jenkins 中安装 SonarQube Scanner 插件三、Jenkins 重启四、SonarQube 中生成 token五、打开 “Disable the SCM Sensor”六、Jenkins 中配置 SonarQube servers七、Jenkins 中配置 SonarQube Scanner八、Jenkins 中配置流水线九、项目下增加 sonar-project.properties 配置文件十、提交代码验证 一、前言 本文在 Jenkins集成Gitlab、Pipe
RK3399平台开发系列讲解（代码管理篇）1.6、repo服务器的搭建
内核笔记
09-04 2414
JAVA基本程序结构 简单JAVA程序 JAVA大小写敏感 JAVA的代码块也用{}分割 数据类型 JAVA没有类似C语言依据实现的数据大小。所有平台数据大小统一。 int 4字节，short 2字节，long 8字节，byte 1字节 long后面要加L 16进制前面加0x 八进制前面加0 变量 变量必须显式初始化 不可以使用未初始化变量 类常量（定义在ma...
运行指定代码_最全M代码，喜欢的收藏+转发
weixin_34177886的博客
01-07 6179
数控编程M代码大全在CNC加工当中中，电脑方面有UG和MC以及HM等一系列软件代替了人工编程，但有些简单的零件和程序修改是肯定要用到手工编程的，所以认识代码是必不可少的。其中M代码是最常见也是最常用的代码，今天我就给大家收集了所有能用到的M代码供大家参考。后面M后面是：没有特定的功能(不指定），可能是没有这个代码，或许是我没有找到。由于时间有限，要是有遗漏的和错误的。欢迎大家指正，感谢！！！M代码...
广州数控车床M代码指令讲解
热门推荐
yixiangkongkong1的博客
10-13 2万+
辅助功能(M 功能)代码及其含义如果在地址M后面指令了2位数值，那就把对应的信号送给机床，用来控制机床的ON/OFF。M代码在一个程序段中只允许一个有效，M代码信号为电平输出，保持信号。M代码说明M03主轴正转M04主轴反转M05主轴停止M08冷却液开M09冷却液关（不输出信号）M32润滑开M33润滑关（不输出信号）M10备用M11备用尖（不输出信号）M00程序暂停，按‘循环起动’程序继续执行M3
数控G代码与M代码
咖喱开发点滴
04-12 8982
 G代码组别用于数控车的功能用于数控铣的功能附注G0001快速点定位相同模态G0101直线插补相同模态G0201顺时针方向圆弧插补相同
精通这些手动CNC编程G代码和M代码，月薪过万没问题
weixin_49583560的博客
11-16 4468
G功能代码表(数控铣加工) M功能代码表
query初体验
qq_19301693的博客
03-15 129
Class Whl.SP Extends %RegisteredObject { /// Desc： 根据患者生日日期获取患者基本信息 /// Input: 患者生日日期 /// Return： 患者基本信息 /// Test: do ##class(%ResultSet).RunQuery("Whl.SP","PatInfo","1998-11-12","1998-11-12") /// SqlDbx Call web_XFXZYY_Tool.PatInfo_PatInfo("1995-.
Vericut03_常用功能
lihaosnoopy的专栏
03-08 2072
1.显示所有轴：在仿真中，方便我们检查各组件之间的关系（在视图中右键） 2.运动无动态：没有仿真过程直接给出结果（选中工位，”没有动态“复选框） 3.剖面：利用剖面观察零件内部结构 4.鼠标的风格：（视图-->鼠标操作） 5.程序复检：快速找到问题程序段（分析-->数控程序复查，选中状态栏中错误提示信息行） 6.碰撞设置：定义碰撞事件（配置-->机床设定）    例：1.三轴机床，Z轴
如何对matlab .m代码文件进行加密
一千零一夜的博客
01-19 1万+
一行命令即可： pcode *.m 即对所有的当前目录下的的.m文件进行加密，这样代码就不能打开。   具体步骤，在命令行1中运行： pcode *.m，则在当前目录2下的所有.m文件都会变成加密文件： ...
【记录】数控程序的指令代码---标准G代码与标准M代码
Frank的专栏
11-08 2万+
原文地址： 数控机床的运动是由程序控制的，而准备功能和辅助功能是程序段的重要组成部分，也是程序编制过程中的核心问题。目前国际上广泛应用的是ISO标准，我国根据ISO标准制订了JB/T3208－1999《数控机床穿孔带程序段格式中的准备功能G和辅助功能M的代码》。 1．  准备功能（G） 准备功能也叫G功能或G代码。它是使数控机床或数控系统建立起某种加工方式的指令。 G代码由
数控机床标准M代码
mybirdsky的专栏
01-25 2759
2006-04-17 19:52:00 数控机床标准M代码辅助功能字是用于指定主轴的旋转方向、启动、停止、冷却液的开关，工件或刀具的夹紧和松开，刀具的更换等功能。辅助功能字由地址符M和其后的两位数字组成。JB3208-83标准中规定如下表： 表　辅助功能字M 代码 功能作用范围 功能 代码 功能作用范围 功能 M00 * 程序停止 M36 * 进给范围1
M代码：课程选择与学生成绩查询
在本篇M代码中，主要讨论了与课程选择相关的两个核心功能：学生选课信息查询以及根据课程编号查找学生记录。首先，`ClassMethodFindInfoByName`方法用于获取特定学生姓名对应的所有选修课程信息。它通过以下步骤实现...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

小乌鱼

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值