金蝶K3二次开发之通过WEBSERVICE导入凭证
1.测试WEBSERVICE是否能正常使用。
WEBSERVICE安装完成后，在开始菜单-金蝶 K3
WISE创新管理平台-金蝶K/3工具下，打开“客户端工具包”，选择“Adapter适配器”下的“k/3
WebServices”,打开后即可启动K/3 Web
Services测试工具，可通过选择“服务类型”和“调用的方法”，在请求文件路径中修改测试的参数，点执行时会开展WebService的测试并获取测试结果，如下图。
2.在C#中调用凭证接口。
打开C#.NET新建一个winform项目，在解决方案资源管理器窗口点击右键添加服务引用。弹出对话框如下图。
3.调用代码如下(代码在K/3 14.2的环境下编写，其他环境如有错误请做适当修改)
增加引用
using WindowsFormsApplication1.Vos;
private void VoucherUpdate()
{
//特别注意，所有对象的属性都要按要求设置内容，切记不可图省事，否则提示下标越界错误。
VoucherServicesSoapClient VServices = new
VoucherServicesSoapClient();
string
errstr = string.Empty;
Voucher[]
voh2={new Voucher()};
voh2[0].FNumber = 719; //凭证号
voh2[0].FNumberSpecified = true;
//凭证号是否更改
voh2[0].FDate = “2015-09-01”; //日期
voh2[0].FExplanation = “摘要”; //摘要
voh2[0].FGroup = “记”;
//凭证字
voh2[0].FPeriod = 9;
//期间
voh2[0].FPeriodSpecified = true; //期间是否更改
voh2[0].FYear = 2015;
//年
voh2[0].FYearSpecified = true;
//年是否更改
voh2[0].FSerialNum = 5058;
//凭证序号
voh2[0].FSerialNumSpecified = true; //凭证序号是否更改
voh2[0].FAttachments = 0;
//附件数量
voh2[0].FAttachmentsSpecified = true; //附件数量是否更改
voh2[0].FReference = “”; //参考信息
voh2[0].FCashier = “NONE”; //出纳员
voh2[0].FHandler = “”;
//会计主管
voh2[0].FTransDate = “2015-09-01”; //
发生日期
voh2[0].FPreparer = “Administrator”; //制单人
voh2[0].FPoster = “NONE”;
//记账人
//增加两个凭证分录
Entries[]
ents = { new Entries(), new Entries() };
//——-设置第一个凭证分录属性
//具体字段解释请查询 select * from t_FieldDescription
where FTableID=1
ents[0].FExplanation = “凭证录入检测-分录1”;
ents[0].FAccountNumber = “1406”;
ents[0].FAccountName = “发出商品”;
ents[0].FCurrencyNumber = “RMB”;
ents[0].FCurrencyName = “人民币”;
ents[0].FAmount = 1000;
ents[0].FAmountSpecified = true;
ents[0].FAmountFor = 1000;
ents[0].FAmountForSpecified = true;
ents[0].FEntryID = 0;
ents[0].FEntryIDSpecified = true;
ents[0].FDC = 1;
ents[0].FDCSpecified = true;
ents[0].FSettleTypeName = “”;
ents[0].FTransNo = “”;
ents[0].FSettleNo = “”;
ents[0].FMeasureUnit = “”;
ents[0].FMeasureUnitUUID = “”;
ents[0].FExchangeRate = 1;
ents[0].FExchangeRateSpecified = true;
ents[0].FQuantitySpecified = true;
ents[0].FUnitPriceSpecified = true;
//——-设置第二个凭证分录属性
ents[1].FExplanation = “凭证录入检测-分录2”;
ents[1].FAccountNumber = “1601.04”;
ents[1].FAccountName = “运输工具”;
ents[1].FCurrencyNumber = “RMB”;
ents[1].FCurrencyName = “人民币”;
ents[1].FAmount = 1000;
ents[1].FAmountForSpecified = true;
ents[1].FAmountFor = 1000;
ents[1].FAmountSpecified = true;
ents[1].FDC = 0;
ents[1].FDCSpecified = true;
ents[1].FEntryID = 1;
ents[1].FEntryIDSpecified = true;
ents[1].FSettleTypeName = “”;
ents[1].FTransNo = “”;
ents[1].FSettleNo = “”;
ents[1].FMeasureUnit = “”;
ents[1].FMeasureUnitUUID = “”;
ents[1].FExchangeRate = 1;
ents[1].FExchangeRateSpecified = true;
ents[1].FQuantitySpecified = true;
ents[1].FUnitPriceSpecified = true;
voh2[0].Entries = ents;
//为第一个凭证分录增加两个核算科目
DetailEntries[] dets = { new DetailEntries(), new DetailEntries()
};
//设置核算科目数据
dets[0].FDetailNumber = “1.1.2.007”;
dets[0].FTypeNumber = “001”;
dets[0].FTypeName = “客户”;
dets[1].FDetailNumber = “00011”;
dets[1].FTypeNumber = “003”;
dets[1].FTypeName = “职员”;
voh2[0].Entries[0].DetailEntries = dets;
//保存
VServices.Update(out errstr,6, “administrator”, “”, voh2, false,
true, 0);
//参数说明：
//
iAisID：账套ID，通过账套查询服务获取，类型：inteager
//
在 KDAcctDB 数据库中查询select * from t_ad_kdAccount_gl
的facctid字段
//
strUser：用户名称，必须为K/3中的合法用户，类型：string
//
strPassword：用户密码，目前通过明文传递，类型：string
//
Data：业务数据，符合Schema规范，类型：数组
//
bCheckByUUID：指明是否按UUID更新数据。True表示按UUID更新数据，False表示按Number,Name更新数据，类型：Boolean
//
bAddNewOnly：是否只增加记录，true表示只增加不覆盖记录，
//
false表示既增加又覆盖记录，类型：boolean
}
}
4.代码文件
