新增文章

文章标题分类内容

Private Sub m_BillInterface_Change(ByVal dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)

Dim aFKey As String: aFKey = dct("FKey"): aFClassTypeID = m_BillInterface.FID
    
  '------------------------------------------------------------------------------------------------------------------------------------------------------------
    If aFKey = "FSelNo" Then    'FSelNo 选单号
    
        Select Case aFClassTypeID
        
           Case Is = 210001202: m_BillInterface.BillCtl.DoSelBill 210001201  '新增单据 自动显示 选单界面
        End Select
    
    End If
End Sub

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】
    
    If aFCustId <> "" Then
        aFCustId = "AND ( a_SeOrder.FCustId = " & aFCustId & " ) "
    End If
    
    sFilter = sFilter & aFCustId  '【添加 选单条件】
    
  '-----------------------------------------------------------------------------------------------------
    aFClassTypeID = m_BillInterface.FID
    
    Select Case aFClassTypeID
    
    Case Is = 210001202:  '送货单 210001202
  '-----------------------------------------------------------------------------------------------------
        aFSelNo = m_BillInterface.GetFieldValue("FSelNo")   'FSelNo 选单号
    
        If aFSelNo <> "" Then
            aFSelNo = "AND ( a_SeOrder.FBillNo like '%" & aFSelNo & "%' ) "  '销售订单.单据编号
        End If
        
        sFilter = sFilter & aFSelNo  '【添加 选单条件】
    
  '-----------------------------------------------------------------------------------------------------
    End Select
    
End Sub