@[TOC](目录)
### 背景
需要在其他单据上增加本位币字段，获取汇率后计算本位币金额。以采购申请单为例
### 步骤
1. 在采购申请单表头添加字段，采购申请单已经有币别和汇率类型，还需要本位币和汇率字段
2. 新增本位币
3. 新增汇率
4. 注册表单插件根据申请组织获取汇率类型，并根据币别和本位币获取汇率
5. 按自己的字段标识修改脚本
### python脚本
```python
import clr
clr.AddReference('mscorlib')
clr.AddReference('Kingdee.BOS.Core')
clr.AddReference('Kingdee.K3.SCM.App')
clr.AddReference('Kingdee.BOS.DataEntity')
clr.AddReference('Kingdee.K3.BD.Contracts')
clr.AddReference('Kingdee.K3.SCM.Contracts')
from System import *
from Kingdee.BOS.Core.Metadata import *
from Kingdee.K3.SCM.App import *
from Kingdee.BOS.Orm.DataEntity import *
from Kingdee.K3.BD.Contracts import *
from Kingdee.K3.BD.Contracts.FIN import *
from Kingdee.K3.SCM.Contracts import *
def AfterCreateNewData(e):
#获取申请组织
purOrg = this.View.Model.GetValue("FApplicationOrgId")
#获取币别字段
currency = this.View.Model.GetValue("FCurrencyId")
purOrgId = 0
currencyId = 0
if purOrg != None:
purOrgId = purOrg["Id"]
if currency != None:
currencyId = currency["Id"]
#获取创建日期
myDate = this.View.Model.GetValue("FCreateDate")
SetLocalCurrAndExchangeTypeAndExchangeRate(purOrgId,currencyId,myDate)
def DataChanged(e):
if e.Field.Key == "FApplicationOrgId" or e.Field.Key == "FCurrencyId"or e.Field.Key == "FCreateDate":
purOrg = this.View.Model.GetValue("FApplicationOrgId")
currency = this.View.Model.GetValue("FCurrencyId")
purOrgId = 0
currencyId = 0
if purOrg != None:
purOrgId = purOrg["Id"]
if currency != None:
currencyId = currency["Id"]
myDate = this.View.Model.GetValue("FCreateDate")
SetLocalCurrAndExchangeTypeAndExchangeRate(purOrgId,currencyId,myDate)
def SetLocalCurrAndExchangeTypeAndExchangeRate(purOrgId,currencyId,myDate):
#本位币
commonService =ServiceHelper.GetService[ICommonService]()
localCurrId = commonService.GetDefaultCurrencyByBizOrgID(this.Context, purOrgId)
this.View.Model.SetValue("F_CH_LocalCurrId",localCurrId,0)
#汇率类型
exchangeTypeId = commonService.GetDefaultExchangeTypeByBizOrgID(this.Context, purOrgId)
this.View.Model.SetValue("FexchangeTypeId",exchangeTypeId,0)
#汇率
finCommonService = ServiceFactory.GetService[IFINServiceForCommon](this.Context)
exchangeRate = finCommonService.GetExchangeBusRateAndDecimal(this.Context,localCurrId,currencyId,exchangeTypeId,myDate,myDate)
exchangeRateValue = Math.Round(exchangeRate.Key, exchangeRate.Value)
this.View.Model.SetValue("F_CH_ExchangeRate",exchangeRateValue,0)
```
### 演示
1. 直接创建申请单时获取默认汇率
2. 修改币别后联动修改汇率
**其他更多文章入口：**[https://vip.kingdee.com/link/s/lbRPP](https://vip.kingdee.com/link/s/lbRPP)
