web/Postosql.aspx.vb

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

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

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Data.OleDb
Imports DAL
Imports SQLHelper
Partial Class Postosql
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Private PageSearch As New PageShareMethod
    Dim strtrans As New INVENTJOURNALTRANS
    Dim stspro As New SQLHelper.SQLHelper
    Dim systrans As New INVENTJOURNALTRANSBLL
    Dim syspost As New INVENTJOURNALTABLEBLL
    Dim strpost As New INVENTJOURNALTABLE
    Dim tranid As String
    Dim strdel As String = ""
    Dim sumcount As Integer = 0

    Protected Sub btnreport_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnreport.Click
        Try


            InvToSTtable()
            quotToStable()
            quot2ToSlinerep()
            Inv2ToSlinerep()
            getSalesType() 
            stspro.RunProc("GET_SALESREPORTDATA")
            stspro.RunProc("Bin_SalesReport")
            getdata()
            Response.Write("<script>alert('导入成功！')</script>")

            If sumcount = 0 Then
                'panexian.Visible = False
                Page.ClientScript.RegisterStartupScript(Page.GetType(), "javascript", "alert('没有数据！')", True)
            Else
                panexian.Visible = True
            End If

        Catch ex As Exception
            Response.Write("<script>alert('导入失败！')</script>")
        End Try

    End Sub

    Private Sub getdata()

        Dim salesiddt As DataTable = Syscrf.seachData("select Oldmaxsalesid from MaxSalesNumber").Tables(0)
        Dim strsalesid As String = salesiddt.Rows(0)("Oldmaxsalesid").ToString.Trim
        Dim conn As New SqlConnection(Syscrf.Context)
        conn.Open()
        Dim da As New SqlDataAdapter("select * from SalesAcountView where salesid >'" & strsalesid & "' and updatestatus=0", conn)
        Dim ds As New DataSet()
        da.Fill(ds, AspNetPager1.PageSize * (AspNetPager1.CurrentPageIndex - 1), AspNetPager1.PageSize, "SalesAcountView")
        AspNetPager1.AlwaysShow = True