新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub m_BillInterface_AfterNewBill() aFClassTypeID = m_BillInterface.FID aFBiller = m_BillInterface.GetFieldValue("FBiller") '【FBiller 创建人】 aSql = "select a1.*,a2.FID FSenderNo from a_UserSet a1 join t_SubMessage a2 on a1.FSender = a2.FInterID where a1.FClassTypeID = " & aFClassTypeID & " and a1.FBiller = " & aFBiller Set aRecordset = m_BillInterface.K3Lib.GetData(aSql) If Not aRecordset.EOF Then Set oField = m_BillInterface.BillHeads(1).BOSFields("FBase12") '【FSender 送货人 FBase12】 表头字段【基础资料】 With oField .Number = aRecordset("FSenderNo") '【修改值】【核算项目.编码】 End With End If End Sub 返回 保存