U8开发单据和单据列表总结871.docx
《U8开发单据和单据列表总结871.docx》由会员分享，可在线阅读，更多相关《U8开发单据和单据列表总结871.docx（17页珍藏版）》请在冰豆网上搜索。
U8开发单据和单据列表总结871
1、单据页面初始化：
点击“部门费用拆分表”
执行后台代码块：
先定义变量icbc_deptfy，在类模块clsVoucher_CO（clsVoucher_co.cls）中
EnumVoucherTypeSA
icbc_deptfy'================jiang==============
EndEnum
定义变量部门预算，在类模块clsVoucherLoad_BO（clsVoucherLoad_BO.cls）中
PublicEnumenuSAVType
部门费用拆分表="100016"'================jiang==============
EndEnum
调用clsproductfacade模块中下面的callFunction方法
PublicFunctionCallFunction（ByValcMenuIdAsString,ByValcMenuNameAsString,ByValcAuthIdAsString,ByValcCmdLineAsString）AsObject
SelectCasecMenuId
Case"MT0101","MT0102","MT0103","MT0201","MT0202"
gd_frmMain.m_oMenu_OnCommandcMenuId,cMenuName,cAuthId,cCmdLine
EndSelect
调用frmMain（主窗体.frm）中下面的m_oMenu_OnCommand方法
PublicSubm_oMenu_OnCommand（ByValcMenuIdAsString,ByValcMenuNameAsString,ByValcAuthIdAsString,ByValcCmdLineAsString）
添加代码：
SelectCasecMenuId
Case"MT0201"'部门费用拆分表
miBJD_Clickicbc_deptfy,cAuthId,,strVouchID
调用方法miBJD_Click
PublicSubmiBJD_Click（strVouTypeAsVoucherTypeSA,strTaskIdAsString,OptionaliModeAsInteger,OptionalSBVIDAsString,OptionalcSBVCodeAsString,OptionalmDomAsDOMDocument）
添加代码：
SelectCasestrVouType
Caseicbc_deptfy'================jiang==============
strFrmCaption=MLRsSvr.GetString（"U8.ICBC.Mt.0299"）'"部门费用拆分表"
tmpTaskID="MT020101"'权限ID
sType="100016"'模板编号
调用frmVouchNew（单据模板.frm）中ShowVoucher方法
PublicFunctionShowVoucher（VoucherTypeAsVoucherTypeSA,OptionalvVoucherIdAsVariant,OptionaliModeAsInteger）
添加代码：
SelectCaseVoucherType
Caseicbc_deptfy'部门费用拆分表
strVouchType="100016"
strCardNum="KM01"
Me.caption=MLRsSvr.GetString（"U8.ICBC.Mt.0299"）'"部门费用拆分表"
调用clsVoucher_CO（clsVoucher_CO.cls）中的GetVouchInf方法
PublicFunctionGetVouchInf（m_enmVoucherTypeAsVoucherTypeSA,_
SelectCasem_enmVoucherType
Caseicbc_deptfy'部门费用拆分表
sVouchType="100016"
sCardNum="KM01"
bVouchFirst=False
strTable="icbc_acv"
调用frmVouchNew（单据模板.frm）中SetButtonStatus方法
PrivateSubSetButtonStatus（ButtonKeyAsString）
SelectCaseLCase（ButtonKey）
Case"modify"
SelectCaseLCase（strVouchType）
Case"100016"
tbrvoucher.buttons（"Modify"）.Enabled=False
tbrvoucher.buttons（"Save"）.Enabled=True
tbrvoucher.buttons（"Cancel"）.Enabled=True
tbrvoucher.buttons（"AddRow"）.Enabled=True
tbrvoucher.buttons（"DelRow"）.Enabled=True
tbrvoucher.buttons（"Erase"）.Enabled=False
tbrvoucher.buttons（"Add"）.Enabled=False
tbrvoucher.buttons（"UnSure"）.Enabled=False
tbrvoucher.buttons（"Sure"）.Enabled=False
tbrvoucher.buttons（"ToFirst"）.Enabled=False
tbrvoucher.buttons（"ToPrevious"）.Enabled=False
tbrvoucher.buttons（"ToNext"）.Enabled=False
tbrvoucher.buttons（"ToLast"）.Enabled=False
EndSelect
Case"add"
SelectCaseLCase（strVouchType）
Case"100016"
tbrvoucher.buttons（"Add"）.Enabled=False
tbrvoucher.buttons（"Save"）.Enabled=True
tbrvoucher.buttons（"Cancel"）.Enabled=True
tbrvoucher.buttons（"AddRow"）.Enabled=True
tbrvoucher.buttons（"DelRow"）.Enabled=True
tbrvoucher.buttons（"Modify"）.Enabled=False
tbrvoucher.buttons（"Erase"）.Enabled=False
tbrvoucher.buttons（"UnSure"）.Enabled=False
tbrvoucher.buttons（"Sure"）.Enabled=False
tbrvoucher.buttons（"ToFirst"）.Enabled=False
tbrvoucher.buttons（"ToPrevious"）.Enabled=False
tbrvoucher.buttons（"ToNext"）.Enabled=False
tbrvoucher.buttons（"ToLast"）.Enabled=False
EndSelect
Case"cancel","save"
SelectCaseLCase（strVouchType）
Case"100016"
ComboVTID.Visible=True
ComboDJMB.Visible=True
Labeldjmb.caption=MLRsSvr.GetString（"U8.ICBC.Mt.0302"）'"打印模版：
"
tbrvoucher.buttons（"ToFirst"）.Visible=True
tbrvoucher.buttons（"ToPrevious"）.Visible=True
tbrvoucher.buttons（"ToNext"）.Visible=True
tbrvoucher.buttons（"ToLast"）.Visible=True
tbrvoucher.buttons（"Save"）.Visible=True
tbrvoucher.buttons（"Cancel"）.Visible=True
tbrvoucher.buttons（"DelRow"）.Visible=True
tbrvoucher.buttons（"AddRow"）.Visible=True
tbrvoucher.buttons（"Output"）.Visible=True'输出
tbrvoucher.buttons（"Modify"）.Visible=True'修改
tbrvoucher.buttons（"Save"）.Enabled=False
tbrvoucher.buttons（"Cancel"）.Enabled=False
tbrvoucher.buttons（"AddRow"）.Enabled=False
tbrvoucher.buttons（"DelRow"）.Enabled=False
tbrvoucher.buttons（"Modify"）.Enabled=True
tbrvoucher.buttons（"Erase"）.Enabled=True
tbrvoucher.buttons（"Add"）.Enabled=True
tbrvoucher.buttons（"Ordercode"）.Visible=False
tbrvoucher.buttons（"ImportPur"）.Visible=False
tbrvoucher.buttons（"ImportExcel"）.Visible=False
tbrvoucher.buttons（"MakeFACardNumber"）.Visible=False
tbrvoucher.buttons（"MakeFACard"）.Visible=False
tbrvoucher.buttons（"UnSure"）.Enabled=True
tbrvoucher.buttons（"Sure"）.Enabled=True
tbrvoucher.buttons（"ToFirst"）.Enabled=True
tbrvoucher.buttons（"ToPrevious"）.Enabled=True
tbrvoucher.buttons（"ToNext"）.Enabled=True
tbrvoucher.buttons（"ToLast"）.Enabled=True
EndSelect
调用ClsVoucher_CO（clsVoucher_CO.cls）中的GetVoucherData方法
PublicFunctionGetVoucherData（DomHeadAsDOMDocument,DomBodyAsDOMDocument,OptionalVouchIDAsVariant）AsString
添加代码：
SelectCasem_enmVoucherType
Caseicbc_deptfy'部门费用拆分表
clsVouchDMO.GetVoucherDataWEBdomhead,dombody,m_Conn,部门费用拆分表,False,strErrMsg,VouchID
调用clsVouchDMO（clsVouchDMO.cls）中的getkey方法
PrivateFunctiongetkey（ByValuvdVouchTypeAsenuSAVType,ByValbReturnAsBoolean,CNAsADODB.Connection）AsBoolean
添加代码：
SelectCaseuvdVouchType
'================jiang==============
Case部门费用拆分表
strVouchType="100016"
sKeyHead="id"
sKeyBody="id"
sMViewHead="icbc_acv"
sMViewBody="icbc_acvs"
sViewHead="v_icbc_acv"
sViewBody="v_icbc_acvs"
sBodyID="autoid"
调用ModVoucher（ModVoucher.bas）中的GetVouchInfo方法
PublicFunctionGetVouchInfo（strVouchTypeAsString,strMainIDNameAsString,_
strSubIDNameAsString,OptionalerrMsgAsString,OptionalcMainTableAsString,_
OptionalcSubTableAsString）AsBoolean
添加代码：
SelectCasestrVouchType
'================jiang==============
Case"100016"'部门费用拆分表
strMainIDName="id"
strSubIDName="id"
cMainTable="icbc_acv"
cSubTable="icbc_acvs"
调用frmVouchNew（单据模板.frm）中ChangeButtonsState方法
注：
根据单据的要求，设置工具栏按钮的初始化时的状态
''改变button的状态
PrivateSubChangeButtonsState（）
添加代码：
SelectCasestrVouchType
'================jiang==============
Case"100016","300016","100018"
'已审核
If.headerText（"auditinguser"）<>""Then
Me.tbrvoucher.buttons（"UnSure"）.Visible=True
Me.tbrvoucher.buttons（"Sure"）.Visible=False
Me.tbrvoucher.buttons（"Modify"）.Enabled=False
Me.tbrvoucher.buttons（"Erase"）.Enabled=False
'未审核
Else
Me.tbrvoucher.buttons（"Sure"）.Visible=True
Me.tbrvoucher.buttons（"UnSure"）.Visible=False
Me.tbrvoucher.buttons（"Modify"）.Enabled=True
Me.tbrvoucher.buttons（"Erase"）.Enabled=True
EndIf
SelectCasestrVouchType
Case"100016","300016"
Ifvoucher.headerText（"archiveno"）=""Then
Me.tbrvoucher.buttons（"Modify"）.Enabled=False
Me.tbrvoucher.buttons（"Erase"）.Enabled=False
Me.tbrvoucher.buttons（"MakeFACard"）.Enabled=False
EndIf
EndSelect
调用ModVoucher（ModVoucher.bas）中的GetstrCardNum方法
PublicFunctionGetstrCardNum（strVouchTypeAsString,OptionalbRedAsBoolean=False,OptionalbGetTrueAsBoolean=False）AsString
添加代码：
SelectCasestrVouchType
'================jiang==============
Case"100016"'部门费用拆分表
GetstrCardNum="KM01"
EndSelect
2、点击“新增”按钮
调用frmVouchNew（单据模板.frm）中的VoucherTask方法
PrivateFunctionVoucherTask（sKeyAsString）AsBoolean
SelectCasestrVouchType
'部门费用拆分表
Case"100016"
SelectCasesKey
CaseMLRsSvr.GetString（"U8.ICBC.Mt.0013"）
strID="MT020102"
CaseMLRsSvr.GetString（"U8.ICBC.Mt.0014"）
strID="MT020103"
CaseMLRsSvr.GetString（"U8.ICBC.Mt.0018"）
strID="MT020104"
CaseMLRsSvr.GetString（"U8.ICBC.Mt.0026"）,MLRsSvr.GetString（"U8.ICBC.Mt.0027"）
strID="MT020105"
EndSelect
EndSelect
调用clsSystem（clsSystem.cls）中的GetVoucherTaskID方法
PublicFunctionGetVoucherTaskID（sKeyAsString,sVouchTypeAsString,OptionalbRedAsBoolean）AsString
添加代码：
SelectCasesVouchType
'================jiang==============start'20061230
'部门费用拆分表
Case"100016"
SelectCasesKey
CaseGetResString（"U8.ICBC.Mt.0013"）
strID="MT020102"
CaseGetResString（"U8.ICBC.Mt.0014"）
strID="MT020103"
CaseGetResString（"U8.ICBC.Mt.0018"）
strID="MT020104"
CaseGetResString（"U8.ICBC.Mt.0026"）,GetResString（"U8.ICBC.Mt.0027"）
strID="MT020105"
EndSelect
调用frmVouchNew（单据模板.frm）中getVoucherCodeName方法
PrivateFunctiongetVoucherCodeName（）AsString
添加代码：
SelectCasestrVouchType
Case"100016","300016"
KeyCode="archiveno"
3、录入数据，点击“保存”按钮，保存单据
调用ClsVoucher_CO（clsVoucher_CO.cls）中的Save方法
PublicFunctionSave（ByValDomHeadAsDOMDocument,ByValDomBodyAsDOMDocument,ByValVoucherStateAsInteger,OptionalvNewIDAsVariant,OptionalDomConfigAsDOMDocument）AsString
添加代码：
‘================jiang==============验证单据表体记录是否为0
SelectCasem_enmVoucherType
Caseicbc_deptfy
clsVouchLoad.VouchSavem_Conn,部门费用拆分表,domhead,dombody,VoucherState,strError,vNewID,DomConfig
EndSelect
调用ClsVouchLoad_BO（clsVouchLoad_BO.cls）中VouchSave的方法
PublicFunctionVouchSave（m_ConnAsConnection,ByValuvdVouchTypeAsenuSAVType,_ByValDomHeadAsDOMDocument,ByValdomBodyAsDOMDocument,_
ByValVoucherStateAsInteger,sErrMsgAsString,OptionalvNewIDAsVariant,OptionalDomConfigAsDOMDocument）AsBoolean
添加代码：
SelectCaseuvdVouchType
'================jiang==============
Case"100016"
bSuccess=True
strMTblName="icbc_acv"
strSTblName="icbc_acvs"
4、单据的删除功能
点击“删除”按钮
调用clsVouchload_bo（clsVouchload_bo.cls）中的VouchDelete方法
PublicFunctionVouchDelete（strVouchTypeAsString,ByValDBConnAsADODB.Connection,sTableNameAsString,DomHeadAsDOMDocument）AsString
添加代码：
SelectCasestrVouchT
升级会员 