Python表单插件实现单据体上移下移

栏目:云星空知识作者:金蝶来源:金蝶云社区发布:2024-09-16浏览:1

Python表单插件实现单据体上移下移

Python表单插件实现单据体上移下移的源码

def EntryBarItemClick(e):
    if e.BarItemKey == "tbMoveUp":
        upMoveDown();
    elif e.BarItemKey == "tbMoveDown":
        upMoveDown(False);
def upMoveDown(isMoveUp=True,entryKey='FEntity'):
	entryEntity = this.View.BusinessInfo.GetEntryEntity(entryKey);
	entityDataObject = this.View.Model.GetEntityDataObject(entryEntity);
	rowIndex = this.View.Model.GetEntryCurrentRowIndex(entryKey);
	length=len(entityDataObject);
	if isMoveUp:
		if (rowIndex==0):
			return;
		else:
			movindex=rowIndex-1;
	else:
		if (rowIndex==length-1):
			return;
		else:
			movindex=rowIndex+1;
	this.View.SetEntityFocusRow(entryKey, movindex);
	this.View.Model.CopyEntryRow(entryKey,rowIndex,-1);
	this.View.Model.CopyEntryRow(entryKey,movindex,-1);
	Entity = this.View.BusinessInfo.GetEntryEntity(entryKey);
	Object = this.View.Model.GetEntityDataObject(Entity);
	lgt=len(Object);
	initDir=["Seq","BeginInit","DataEntityState","EndInit","Equals","Events","GetDataEntityType","GetHashCode","GetType","Initialized","IsInitialized","MemberwiseClone","OnInitialized","OnPropertyChanged","OnPropertyChanging","Parent","PropertyChanged","PropertyChanging","ReferenceEquals","ToString","__class__","__delattr__","__doc__","__format__","__getattribute__","__hash__","__init__","__new__","__reduce__","__reduce_ex__","__repr__","__setattr__","__sizeof__","__str__","__subclasshook__"]
	dirs = dir(Object[lgt-1]);
	for key in dirs:
		if key not in initDir:
			this.View.Model.SetValue(key,Object[lgt-1][key],rowIndex);
	dirs = dir(Object[lgt-2]);
	for key in dirs:
		if key not in initDir:
			this.View.Model.SetValue(key,Object[lgt-2][key],movindex);
	this.View.Model.DeleteEntryRow(entryKey,lgt-1);
	this.View.Model.DeleteEntryRow(entryKey,lgt-2);
def createRow(key,lans,bat=True):
	entity = this.View.BusinessInfo.GetEntity(key);
	entryDy = this.View.Model.GetEntityDataObject(entity);
	entryLen=len(entryDy);
	if entryLen<lans and bat:
		this.Model.BatchCreateNewEntryRow(key,lans-entryLen);
	else:
		lens=int(entryLen/10);
		lens=lens if lens>10 else 10;
		for i in range(lens):
			for j in range(lans,entryLen+1):
				this.Model.DeleteEntryRow(key, j);


Python表单插件实现单据体上移下移

Python表单插件实现单据体上移下移的源码def EntryBarItemClick(e): if e.BarItemKey == "tbMoveUp": upMoveDown(); elif e.B...
点击下载文档
确认删除?
回到顶部
客服QQ
  • 客服QQ点击这里给我发消息