@[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:
