frmfilter.frm

K3 客户端插件示例源码

      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5400
      TabIndex        =   10
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label lblBegItem 
      Caption         =   "from PartNumber"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   1095
   End
End
Attribute VB_Name = "frmFilter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdCancel_Click()
Unload Me

End Sub

Private Sub cmdOK_Click()
BegNumber = Trim(frmFilter.txtBegItem.Text)
EndNumber = Trim(frmFilter.txtEndItem.Text)
BegCostcenter = Trim(frmFilter.txtBegCC.Text)
EndCostCenter = Trim(frmFilter.txtEndCC.Text)
BegStock = Trim(frmFilter.txtBegStock.Text)
EndStock = Trim(frmFilter.txtEndStock.Text)
BegSp = Trim(frmFilter.cboBegSP.Text)
EndSp = Trim(frmFilter.cboEndSP.Text)

sql = "select * from v_ICItemMk"
sql = sql & " where PartNumber >= '" & BegNumber & "' and PartNumber<= '" & EndNumber & "'"
sql = sql & " and CostCenter >= '" & BegCostcenter & "' and CostCenter<= '" & EndCostCenter & "'"
sql = sql & " and 仓库代码>='" & BegStock & "' and 仓库代码<='" & EndStock & "'"
sql = sql & " and 仓位代码>='" & BegSp & "' and 仓位代码<='" & EndSp & "'"

Unload Me
frmPreview.Show vbModal
End Sub

'开始仓库change事件
Private Sub txtBegStock_Change()
sql = "select FNumber from t_StockPlace where FSPGroupID = (select FSPGroupID from t_stock where FNumber = '" & Trim(frmFilter.txtBegStock.Text) & "') order by FNumber"
Dim rs2 As ADODB.Recordset
Set rs2 = mInterface.K3Lib.GetData(sql)
Do While Not rs2.EOF
    frmFilter.cboBegSP.AddItem Trim(rs2("FNumber"))
    rs2.MoveNext
Loop
Set rs2 = Nothing
End Sub

'结束仓库change事件
Private Sub txtEndStock_Change()
sql = "select FNumber from t_StockPlace where FSPGroupID = (select FSPGroupID from t_stock where FNumber = '" & Trim(frmFilter.txtEndStock.Text) & "') order by FNumber"
Dim rs2 As ADODB.Recordset
Set rs2 = mInterface.K3Lib.GetData(sql)
Do While Not rs2.EOF
    frmFilter.cboEndSP.AddItem Trim(rs2("FNumber"))
    rs2.MoveNext
Loop
Set rs2 = Nothing
End Sub

'开始物料双击事件
Private Sub txtBegItem_DblClick()
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(4)
        If retobj.ReturnOK Then
            frmFilter.txtBegItem.Text = retobj.ReturnObject.Number
            frmFilter.lblBegItemName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtBegItem.Text = ""
            frmFilter.lblBegItemName.Caption = ""
        End If
    
    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub

'开始物料F7事件
Private Sub txtBegItem_KeyDown(KeyCode As Integer, Shift As Integer)
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    If KeyCode = vbKeyF7 Then
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(4)
        If retobj.ReturnOK Then
            frmFilter.txtBegItem.Text = retobj.ReturnObject.Number
            frmFilter.lblBegItemName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtBegItem.Text = ""
            frmFilter.lblBegItemName.Caption = ""
        End If
    End If
    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub




'结束物料双击事件
Private Sub txtEndItem_DblClick()
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH

        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(4)
        If retobj.ReturnOK Then
            frmFilter.txtEndItem.Text = retobj.ReturnObject.Number
            frmFilter.lblEndItemName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtEndItem.Text = ""
            frmFilter.lblEndItemName.Caption = ""
        End If

    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub


'结束物料F7事件
Private Sub txtEndItem_KeyDown(KeyCode As Integer, Shift As Integer)
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    If KeyCode = vbKeyF7 Then
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(4)
        If retobj.ReturnOK Then
            frmFilter.txtEndItem.Text = retobj.ReturnObject.Number
            frmFilter.lblEndItemName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtEndItem.Text = ""
            frmFilter.lblEndItemName.Caption = ""
        End If
    End If
    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub


'开始仓库双击事件
Private Sub txtBegStock_DblClick()
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(5)
        If retobj.ReturnOK Then
            frmFilter.txtBegStock.Text = retobj.ReturnObject.Number
            frmFilter.lblBegStockName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtBegStock.Text = ""
            frmFilter.lblBegStockName.Caption = ""
        End If

    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub

'开始仓库F7事件
Private Sub txtBegStock_KeyDown(KeyCode As Integer, Shift As Integer)
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    If KeyCode = vbKeyF7 Then
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(5)
        If retobj.ReturnOK Then
            frmFilter.txtBegStock.Text = retobj.ReturnObject.Number
            frmFilter.lblBegStockName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtBegStock.Text = ""
            frmFilter.lblBegStockName.Caption = ""
        End If
    End If
    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub

'结束仓库双击事件
Private Sub txtEndStock_DblClick()
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH

        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(5)
        If retobj.ReturnOK Then
            frmFilter.txtEndStock.Text = retobj.ReturnObject.Number
            frmFilter.lblEndStockName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtEndStock.Text = ""
            frmFilter.lblEndStockName.Caption = ""
        End If

    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub

'结束仓库F7事件
Private Sub txtEndStock_KeyDown(KeyCode As Integer, Shift As Integer)
Dim obj As Object
Dim retobj  As Object
On Error GoTo errH
    If KeyCode = vbKeyF7 Then
        Set obj = mInterface.K3Lib.CreateK3Object("EBCGLView.GLView")
        Set retobj = obj.ItemLookup(5)
        If retobj.ReturnOK Then
            frmFilter.txtEndStock.Text = retobj.ReturnObject.Number
            frmFilter.lblEndStockName.Caption = retobj.ReturnObject.Name
        Else
            frmFilter.txtEndStock.Text = ""
            frmFilter.lblEndStockName.Caption = ""
        End If
    End If
    Set obj = Nothing
    Set retobj = Nothing
    Exit Sub
errH:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "金蝶提示"
        Set obj = Nothing
        Set retobj = Nothing
    End If
End Sub