web/KTLSALES.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 KTLSALES
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysitem As New Choseitembll
    Dim stritem As New Choseitem
    Dim syspost As New INVENTJOURNALTABLEBLL
    Dim strpost As New INVENTJOURNALTABLE
    Dim strtrans As New INVENTJOURNALTRANS
    Dim systrans As New INVENTJOURNALTRANSBLL
    Dim strposttable As New POSTTABLE
    Dim sysposttable As New POSTTABLEBLL
    Dim strpostline As New POSLINE
    Dim syspostline As New POSLINEBLL
    Dim strimport As New SH_IMPORTDATA
    Dim sysimport As New SH_IMPORTDATABLL
    Private PageSearch As New PageShareMethod
    Dim strtrans2 As New ERPinputdata
    Dim systrans2 As New InputDataBLL
    Dim syscus As New CUSTOMERBLL
    Dim strcus As New CUSTOMER
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            shopid()
            salesman()
            LocationTypeGrid(list_location.SelectedValue.Trim)
            'SalesMan()
            'txtSalesman.Text = Request.Cookies("sh")("userid").ToString
            sumprice()
            Jscript.BindDateCalendar(txt_transdate)
            Jscript.BindDateCalendar(txt_delidate)
            GridViewBind()
            GridViewCount()
            Me.dataview.Attributes.Add("SortExpression", "CNID")
            Me.dataview.Attributes.Add("SortDirection", "ASC")
            If Syscrf.countfield("SELECT count(*) from [Choseitem] where createdby='" & Request.Cookies("sh")("userid").ToString & "' and Journalstatus=2") > 0 Then
                Panel1.Visible = True
                DataviewBind()
                txtnoyes.Text = "True"
            Else
                txtnoyes.Text = ""
            End If
            Jscript.BindDateCalendar(txt_transdate)
            txt_transdate.Text = Now.Year.ToString & "-" & Now.Month.ToString & "-" & Now.Day.ToString
            txt_delidate.Text = Now.Year.ToString & "-" & Now.Month.ToString & "-" & Now.Day.ToString
            ProductTypeBind()
            SeatBind()
            SizeBind()
            ColorBind()
            OtherBind()
        End If
    End Sub
   
    Private Sub DataviewBind()