web/StockAdjust.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 StockAdjust
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Private PageSearch As New PageShareMethod
    Dim strtrans As New INVENTJOURNALTRANS
    Dim systrans As New INVENTJOURNALTRANSBLL

    Protected imagePath As String

    Protected imageType As String

    Protected imageName As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'getbatchno()
            'DropTypeGrid()
            'PRODTypeGrid()
            delete_btn.Attributes.Add("onclick", "javascript:return confirm('Are you sure to delete ?');")
            btn_posted.Attributes.Add("onclick", "javascript:return confirm('Are you sure to posted ?');")
            Me.CATEGRID.Attributes.Add("SortExpression", "JOURNALID")
            Me.CATEGRID.Attributes.Add("SortDirection", "DESC")
            Me.CATEGRID0.Attributes.Add("SortExpression", "LINENUM")
            Me.CATEGRID0.Attributes.Add("SortDirection", "ASC")
            getaccount()
            GridViewBind()

            If Syscrf.countfield("select count(*) from INVENTJOURNALTABLE where   JOURNALTYPE=1 and posted=0") > 0 Then
                Dim dedt As DataTable = Syscrf.seachData("select top 1  JOURNALID from INVENTJOURNALTABLE  where JOURNALTYPE=1 and posted=0 order by JOURNALID").Tables(0)
                txt_id.Text = dedt.Rows(0)("JOURNALID").ToString
                GridViewBindtrans()
                getaccounttrans()
            End If
            'Dim dt As DataTable = Syscrf.seachData("select ACCOUNT from userinfo where userid='" & Request.Cookies("usoffice")("eua").ToString.Trim & "'").Tables(0)
            'If dt.Rows(0)("ACCOUNT").ToString = "admin" Then
            '    Lb_salesid.Visible = True
            '    'txt_SALESID.Visible = True
            'Else
            '    Lb_salesid.Visible = False
            '    'txt_SALESID.Visible = False
            'End If
        End If

    End Sub
    Public Sub getaccount()
        Dim strsql As String = "SELECT  COUNT(JOURNALID) AS count  FROM [INVENTJOURNALTABLE]  " & strWhereTxt()
        Dim dt As DataTable = Syscrf.seachData(strsql).Tables(0)
        'If dt.Rows(0)("price").ToString.Length > 0 Then
        '    Dim intprice As Integer = dt.Rows(0)("price")
        '    txt_account.Text = intprice.ToString("n")
        'Else
        '    txt_account.Text = "0"
        'End If