web/Add_CheckInventSum.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Partial Class Add_CheckInventSum
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysitem As New CHOOSECHECKLINEBLL
    Dim stritem As New CHECKINVENTSUMLINE
    Dim syscheck As New CHECKINVENTSUMLINEBLL
    Dim strtable As New CHECKINVENTSUM
    Dim systable As New CHECKINVENTSUMBLL

    Private PageSearch As New PageShareMethod
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
        If Not IsPostBack Then
            lblti.Text = "0"
            If Request.QueryString("caryid") Is Nothing Then
                ClientScript.RegisterStartupScript(ClientScript.GetType(), "myscript", "<script>showFloat();</script>")
                'list_location.SelectedIndex = 1
                list_subloc.SelectedIndex = 0
            Else

                getlistdata()
                'MsgBox(Request.QueryString("caryid").ToString)
            End If
            shopid()
            ProductTypeBind()
            SeatBind()
            SizeBind()
            ColorBind()
            LocationTypeGrid(list_location.SelectedValue)

            Me.dataview.Attributes.Add("SortExpression", "CREATEDDATE")
            Me.dataview.Attributes.Add("SortDirection", "DESC")
            DataviewBind()
            getqtytotal()
            getproductdata()

        End If
    End Sub

    Private Sub getlistdata()

        Dim tmpdt As DataTable = Syscrf.seachData("select top 1 inventdimid from CHOOSEINVENTSUM where  CREATEDBY='" & Request.Cookies("sh")("userid").ToString & "'").Tables(0)
        Dim locdt As DataTable = Syscrf.seachData("select shopid,LOCATIONID,name from location where inventdimid='" & tmpdt.Rows(0)("inventdimid").ToString & "'").Tables(0)
        Location.Text = locdt.Rows(0)("shopid").ToString.Trim
        wmslocation.Text = locdt.Rows(0)("name").ToString.Trim


    End Sub

    Private Sub shopid()
        'Dim locationdt As DataTable = Syscrf.seachData("select * from LOCATION").Tables(0)
        'For i As Integer = 0 To locationdt.Rows.Count - 1
        '    list_location.Items.Add(locationdt.Rows(i)("inventdimid").ToString + ": 位置编号:" + locationdt.Rows(i)("SHOPID").ToString + ";货架编号:" + locationdt.Rows(i)("LOCATIONID").ToString + ";柜编号:" + locationdt.Rows(i)("location2").ToString)