新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub m_BillInterface_BeforeSelBills(ByVal lSelBillType As Long, ByVal oDatasrv As Object, ByVal dctLink As Object, sFilter As String, dctParam As Object) aFCustId = m_BillInterface.GetFieldValue("FBase") '【FBase 客户名称 FCustId】 aFOrderNoCust = m_BillInterface.GetFieldValue("FText2") '【FText2 合同号 FOrderNoCust】 If lSelBillType = 210001201 Then '【销售订单】 If aFCustId <> "" Then aFCustId = "AND ( a_SeOrder.FCustId = " & aFCustId & " ) " End If If aFOrderNoCust <> "" Then aFOrderNoCust = "AND ( a_SeOrder.FOrderNoCust like '%" & aFOrderNoCust & "%' ) " End If sFilter = sFilter & aFCustId & aFOrderNoCust '【添加 选单条件】 End If End Sub 返回 保存