文件名
语法
ChangePOCField( VAL wHdl: WINDOW, VAL nameField: STRING, VAL phoneField: STRING, VAL nextField: STRING, REF thisDisplay: BrowsePeopleListRec )
参数
wHdl - 父窗口句柄
nameField - POC 名的对话框控件名
phoneField - POC 电话的对话框控件名
nextField - 控件要设置到的下一字段
thisDisplay - 包含与当前合同相关的人员信息的
BrowsePeople 实例数据记录
返回
表示成功或失败的整数
副作用
无
说明
该例行程序控制 POC 名和电话字段。如果查找到匹配的记录,将使用正确的人员信息来填充姓名和电话字段。如果没有查找到匹配记录,则两个字段都会被清除。
调用的对话框窗体
无
文件名
语法
ContractAsset ( VAL contract_id: INTEGER , REF whdl: WINDOW)
参数
contract_id - 合同标识
wHdl - 父窗口句柄
返回
无
副作用
无
说明
该过程返回与合同相关联的资产列表。该过程由“合同”使用。
调用的对话框窗体
无
文件名
语法
ConvertMaintCostVal( REF mList: LIST OF ContractMaintenance, VAL convertType: INTEGER )
参数
mList - 合同维护记录列表
convertType - 维护成本转换
返回
无
副作用
无
说明
该过程根据转换选择转换维护成本。
调用的对话框窗体
无
文件名
语法
FindButtonProcessing( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec, REF thisK: ContractRec, REF currentPoc: BrowsePeopleListRec )
参数
w - 父窗口句柄
ContractInstanceData - 用于处理合同的实例数据
thisK - 合同记录
currentPoc - 浏览人员列表记录(联系点信息)
返回
表示成功或失败的整数
副作用
无
说明
当用户在合同查找事件中选择查找按钮时,会利用该函数。将返回与输入的搜索标准相匹配的合同列表。
调用的对话框窗体
无
文件名
语法
GetContractFields( VAL w: WINDOW, REF contract: ContractRec, REF poc: BrowsePeopleListRec )
参数
w - 父窗口句柄
contract - 合同记录
poc - 联系点信息记录
返回
无
副作用
无
说明
该过程将对话框控件中的值读入合同和人员记录。
调用的对话框窗体
无
文件名
语法
GetContractPOC( VAL w: WINDOW, VAL thisK: ContractRec, REF poc: BrowsePeopleListRec )
参数
w - 父窗口句柄
thisK - 合同记录
poc - 浏览包含联系点信息的人员列表记录
返回
无
副作用
无
说明
该过程用于获取联系点记录。
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
GetKAddress( VAL w: WINDOW, REF thisK: ContractRec )
参数
w - 父窗口句柄
thisK - 合同记录
返回
无
副作用
无
说明
该过程获取与合同相关联的地址的列表并将 AddressMCLB 植入它们。
调用的对话框窗体
无
文件名
语法
GetKMaintenance( VAL w: WINDOW, REF thisK: ContractRec )
参数
w - 父窗口句柄
thisK - 合同记录
返回
无
副作用
无
说明
该过程获取合同维护记录列表并将其插入合同记事簿上的 Maintenance_MCLB。
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
InitializeContractFindFields( VAL w: WINDOW, REF currentPoc: BrowsePeopleListRec, VAL fromDifferentApplication: BOOLEAN )
参数
w - 父窗口句柄
currentPoc - 浏览人员列表记录、联系点信息
fromDifferentApplication - 如果来自合同之外的应用程序则为 TRUE;如果来自合同,则为 FALSE
返回
无
副作用
无
说明
该过程将“合同”对话框上的所有字段设置成未知的值。
调用的对话框窗体
无
文件名
语法
InitializeViewContractVariables
参数
无
返回
无
副作用
无
说明
该过程用于从窗口和数据库中删除合同/资产关联。
调用的对话框窗体
cntr.dfc[klocation]
文件名
语法
InitializeWWContract
参数
无
返回
无
副作用
无
说明
该过程将填充 contract_MCLB 并执行发生在 $MsgCreate 中的其他例行程序。
调用的对话框窗体
无
文件名
语法
KImageEvent( REF thisImage: STRING )
参数
无
返回
无
副作用
无
说明
该过程用于在滚动窗口中查看合同图像。
调用的对话框窗体
无
文件名
语法
KLocationEvent( REF thisK: ContractRec )
参数
无
返回
无
副作用
无
说明
该过程用于查看合同场所类型。
调用的对话框窗体
无
文件名
语法
PopulateAssetPage( VAL wHdl: WINDOW, REF ContractAssetList: ContractAssetRecordList, REF KAssetList: LIST OF InvContractRec, REF thisK: ContractRec )
参数
wHdl - 父窗口句柄
ContractAssetList - 合同资产关联记录列表
KAssetList - 库存/合同记录列表
thisK - 合同记录
返回
无
副作用
无
说明
该过程将 asset_MCLB 和与特定合同相关联的资产列表一起植入“合同”对话框。
调用的对话框窗体
无
文件名
语法
ProcessDateButtons( VAL w: WINDOW, VAL dateFieldToProcess: STRING )
参数
w - 父窗口句柄
dateFieldToProcess - 要输入从日历返回的日期的对话框控件名
返回
无
副作用
无
说明
该过程用于将日期放入指定的日期对话框控件。
调用的对话框窗体
无
文件名
语法
ProcessExitFromPOCNameField( VAL w: WINDOW, VAL nameField: STRING, VAL phoneField: STRING, VAL nextField: STRING, REF currentPoc: BrowsePeopleListRec )
参数
w - 父窗口句柄
nameField - POC 名的对话框控件名
phoneField - POC 电话的对话框控件名
nextField - 控件要设置到的下一字段
currentPoc - 包含于浏览人员列表记录中的联系点信息
返回
无
副作用
无
说明
该过程将联系点信息填入姓名和电话字段。
调用的对话框窗体
无
文件名
语法
ProcessExitFromVendorFields( VAL w: WINDOW, REF thisK: ContractRec, VAL vendorFieldToProcess: STRING, REF LastVendorID: STRING, VAL NextFieldName: STRING, VAL organization_id: STRING )
参数
w - 父窗口句柄
thisK - 合同记录
vendorFieldToProcess - 选定供应商字段的对话框控件名
LastVendorID - 选定的最近一个供应商标识
NextFieldName - 要在过程结束后输入的对话框控件上的下一个字段名
返回
无
副作用
无
说明
该过程用于将正确的供应商信息放入指定的对话框控件。
调用的对话框窗体
无
文件名
语法
ProcessPOCButton( VAL w: WINDOW, REF viewpeople: BrowsePeopleListRec )
参数
w - 父窗口句柄
currentPoc - 浏览人员列表记录
返回
无
副作用
无
说明
该过程用于调用人员记事簿的人员搜索窗体。
调用的对话框窗体
people.dfc[peoplesearchform]
文件名
语法
ProcessPrintButton( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec )
参数
w - 父窗口句柄
ContractInstanceData - 用于处理合同的实例数据
返回
表示成功或失败的整数
副作用
无
说明
该函数用于打印“合同”对话框信息。
调用的对话框窗体
c_prnt.dfc[printchoice]
cntr.dfc[contractnb]
文件名
语法
ProcessSelectedPersonMessage( VAL w: WINDOW, REF viewpeople: BrowsePeopleListRec )
参数
w - 父窗口句柄
currentPoc - 浏览人员列表记录
返回
无
副作用
无
说明
该过程用于显示联系点的电话号码和全名。
调用的对话框窗体
无
文件名
语法
ProcessVendorButtons( VAL w: WINDOW, REF thisVendor: VendorRecord, VAL vendorFieldToSet: STRING, VAL organization_id: STRING )
参数
w - 父窗口句柄
thisVendor - 供应商记录
vendorFieldToSet - 要植入供应商信息的供应商对话框控件的名称
organization_id - 合同的组织标识
返回
无
副作用
无
说明
该函数用于将正确的供应商信息放入指定的对话框控件。
调用的对话框窗体
无
文件名
语法
ProcessViewButton( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec )
参数
无
返回
无
副作用
无
说明
该过程用于查看选定的合同。
调用的对话框窗体
cntr.dfc[contractnb]
文件名
语法
ProcessWWContractMsgAccept( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec, REF thisK: ContractRec )
参数
w - 父窗口句柄
ContractInstanceData - 用于“处理合同”事件的实例数据
thisK - 合同记录
返回
表示成功或失败的整数
副作用
无
说明
该函数用于将选定的合同返回到“资产”对话框。
调用的对话框窗体
无
文件名
语法
ProcessWWContractMsgCancel( VAL w: WINDOW )
参数
w - 父窗口句柄
返回
无
副作用
无
说明
该函数用于提示用户,询问他们是否想要取消他们的对话框更改。
调用的对话框窗体
无
文件名
语法
ProcessWWContractMsgClose( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec )
参数
w - 父窗口句柄
ContractInstanceData - 用于“处理合同”事件的实例数据
返回
无
副作用
无
说明
该过程关闭“合同”对话框,并保存对话框的屏幕位置。
调用的对话框窗体
无
文件名
语法
ProcessWWContractMsgCreate( VAL w: WINDOW, REF ContractInstanceData: ContractFindEventInstRec, REF thisK: ContractRec, VAL formFile: STRING, VAL formName: STRING )
参数
w - 父窗口句柄
ContractInstanceData - 用于合同查找事件的实例数据
thisK - 合同记录信息
formFile - 包含当前窗体的文件的名称
formName - 当前窗体的名称
返回
无
副作用
无
说明
该过程用于处理“处理合同”事件内的不同的消息。
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
SetAddressFields( VAL w: WINDOW, VAL address: ContractAddress )
参数
w - 父窗口句柄
address - 合同地址记录
返回
无
副作用
无
说明
该过程用于设置“合同”对话框上的地址字段。
调用的对话框窗体
无
文件名
语法
SetAddressType( VAL w: WINDOW, VAL aType: INTEGER )
参数
w - 父窗口句柄
aType - 地址选择
返回
无
副作用
无
说明
该过程用于设置地址类型单选按钮选项。
调用的对话框窗体
无
文件名
语法
SetAddressTypeName( REF thisAddress: ContractAddress )
参数
thisAddress - 合同地址记录
返回
无
副作用
无
说明
该过程用于将地址类型名称设置为“汇到”或“送到”。
调用的对话框窗体
无
文件名
语法
SetContractFields( VAL w: WINDOW, REF contract: ContractRec, REF poc: BrowsePeopleListRec )
参数
w - 父窗口句柄
contract - 合同记录
poc - 浏览人员列表记录
返回
无
副作用
无
说明
该过程在“合同”对话框的“一般”标签上填充信息。
调用的对话框窗体
无
文件名
语法
SetKHistory( VAL w: WINDOW, REF thisK: ContractRec )
参数
w - 父窗口句柄
thisK - 合同记录
返回
无
副作用
无
说明
该过程获取合同历史记录列表,并将 KHistoryMCLB 和该列表一起植入“合同”对话框中。
调用的对话框窗体
无
文件名
语法
SetKHistoryFields( VAL w: WINDOW, VAL thisH: ContractHistory )
参数
w - 父窗口句柄
thisH - 合同历史记录
返回
无
副作用
无
说明
该过程获取合同历史记录,并在对话框上填入合同历史注释信息。
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无
文件名
语法
SetMaintenanceFields( VAL w: WINDOW, VAL thisM: ContractMaintenance )
参数
w - 父窗口句柄
thisM - 合同维护记录
返回
无
副作用
无
说明
该过程设置“合同”对话框上的维护字段。
调用的对话框窗体
无
文件名
语法
ViewContractEvent( REF thisK: ContractRec )
参数
thisK - 合同记录
返回
无
副作用
无
说明
该事件用于查看特定合同
调用的对话框窗体
无
文件名
语法
ViewKLocationEvent( REF displayFile: STRING )
参数
无
返回
无
副作用
无
说明
该事件用于查看合同场所。
调用的对话框窗体
无
文件名
语法
无
参数
无
返回
无
副作用
无
说明
无
调用的对话框窗体
无