KIS专业版解决判断单据体【含税金额】不得小于【成本】，超出给个提示即可
服务热线：400-665-0027
新购有特价、金蝶老客户升级金蝶云产品可以享受5折优惠，送手机、送话费，好礼不断！
金蝶软件kiss专业版需求：
判断单据体【含税金额】不得小于【成本】，超出给个提示即可。
新建插件工程
菜单 ->金蝶K3/BOS ->
我要做【销售出库单】的插件，那么就选择工业老单把，步骤就是确定，下一步然后选择【BeforeSave】
代码
'定义插件对象接口. 必须具有的声明, 以此来获得事件PrivateWithEventsm_BillTransferAsk3BillTransfer.BillPublicSubShow(ByValoBillTransferAsObject)'接口实现'注意: 此方法必须存在, 请勿修改Setm_BillTransfer = oBillTransferEndSubPrivateSubClass_Terminate()'释放接口对象'注意: 此方法必须存在, 请勿修改Setm_BillTransfer =NothingEndSubPrivateSubm_BillTransfer_BeforeSave(ByValbNewAsBoolean, ReturnCodeAsLong)'TODO:请在此处添加代码响应事件 BeforeSaveDimiAsIntegerDimmEntryCtlAsVariantDimFamount_IndexAsIntegerDimFprice_IndexAsIntegerFprice_Index =-1'含税单价 索引Famount_Index =-1'成本 索引mEntryCtl = m_BillTransfer.EntryCtl'获取列索引Fori =1ToUBound(m_BillTransfer.EntryCtl)SelectCasemEntryCtl(i).headcaptionCase"成本"Famount_Index = iCase"含税金额"Fprice_Index = iEndSelect'获取单据体总行数NextiIfFamount_Index =-1OrFprice_Index =-1ThenExitSubEndIf' 遍历单据体集合DimbillFormAsObjectDimmessageStrAsStringDimzAsLongForz =1Tom_BillTransfer.billForm.Get_MaxEntryDimchengbenAsDoubleDimhanshuijineAsDoublechengben = m_BillTransfer.GetGridText(z, Famount_Index)
hanshuijine = m_BillTransfer.GetGridText(z, Fprice_Index)Ifchengben > hanshuijineThenmessageStr = messageStr +"第 "+CStr(z) +" 行,含税金额：【"+CStr(hanshuijine) +"】小于成本价：【"+CStr(chengben) +"】。"+ Chr(13) + Chr(10)'Exit SubEndIfNextzIfLen(messageStr) >0ThenMsgBox messageStr, vbExclamation,"敏蝶提示"EndIfExitSubEndSub
准备部署插件
DLL生成后
使用命令：regsvr32 MindeeDeanSale.dll 注册插件
使用命令：regsvr32 /u MindeeDeanSale.dll 卸载插件
效果
一个简单的插件终于做出来了，KIS的文档也太难找了把。