mycode1

Public Class PaymentADD
    Inherits System.Web.UI.Page

    Public Expand As Boolean = True
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents DropDownList3 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents DropDownList4 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents DropDownList5 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator5 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator7 As System.Web.UI.WebControls.RequiredFieldValidator
    Dim userinfo As database.UserInfomation
    Dim strConn As String = "Data source=APPSRV;Initial catalog=APSYS;User ID=sa;Password=;"
    Dim sqlConnection As System.Data.SqlClient.SqlConnection
    Dim sqlAdapter As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents Requiredfieldvalidator8 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Textbox8 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Textbox9 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Textbox10 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Dim sqlDataset As New System.Data.DataSet

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Image4 As System.Web.UI.WebControls.Image
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents Image2 As System.Web.UI.WebControls.Image
    Protected WithEvents Image3 As System.Web.UI.WebControls.Image
    Protected WithEvents TreeView1 As Microsoft.Web.UI.WebControls.TreeView

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器编辑它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim modulename As String = "A1"
        Dim username As String = Session("username")
        Dim password As String = Session("password")
        If CheckRights(modulename, username, password, userinfo) = False Then

            Response.Redirect("default.aspx?Alert=你没有新增付款资料的权限!")
        End If

        If Not Me.IsPostBack Then
            Dim XMLmenu As String
            Dim file As System.IO.File
            Dim path As String

            path = Request.PhysicalApplicationPath & "/XmlMenu.txt"

            If file.Exists(path) = False Then
                Response.Write("<body onload=window.alert('文件XmlMenu不存在')></body>")

            Else
                Dim filestream As System.IO.FileStream = file.OpenRead(path)
                Dim streamReader As New System.IO.StreamReader(filestream, System.Text.Encoding.Default)
                XMLmenu = streamReader.ReadToEnd
                filestream.Close()
                streamReader.Close()

                Call BuildTreeView(XMLmenu)
                If Expand = True Then Me.TreeView1.ExpandLevel = 2

            End If
            Me.TextBox3.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
            Me.TextBox5.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
            Me.TextBox6.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
            Me.Textbox9.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
            Me.Textbox10.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())

            Dim SupplierSQL As String = "select suppliercode from supplier"
            sqlConnection = New System.Data.SqlClient.SqlConnection(strConn)
            sqlAdapter = New System.Data.SqlClient.SqlDataAdapter(SupplierSQL, sqlConnection)
            sqlDataset.Clear()
            sqlAdapter.Fill(sqlDataset, "supplier")
            sqlConnection.Close()
            Me.DropDownList2.DataSource = sqlDataset
            Me.DropDownList2.DataMember = "supplier"
            Me.DropDownList2.DataTextField = "suppliercode"
            Me.DropDownList2.DataValueField = "suppliercode"
            Me.DropDownList2.DataBind()

            Dim UserSQL As String = "select username from userinfo where groupname=@groupname"
            sqlConnection = New System.Data.SqlClient.SqlConnection(strConn)
            Dim sqlcommand As New System.Data.SqlClient.SqlCommand
            sqlcommand.CommandText = UserSQL
            sqlcommand.CommandType = CommandType.Text
            sqlcommand.Connection = sqlConnection
            sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@groupname", System.Data.SqlDbType.NVarChar, 50)).Value = "User"
            sqlAdapter = New System.Data.SqlClient.SqlDataAdapter
            sqlAdapter.SelectCommand = sqlcommand
            sqlConnection.Open()
            sqlAdapter.Fill(sqlDataset, "userinfo")
            sqlConnection.Close()
            Me.DropDownList3.DataSource = sqlDataset
            Me.DropDownList3.DataMember = "userinfo"
            Me.DropDownList3.DataTextField = "username"
            Me.DropDownList3.DataValueField = "username"
            Me.DropDownList3.DataBind()

            Dim Myusername As String = Session("username")
            Me.DropDownList5.Items.Add(Myusername)
            Me.DropDownList5.Items(0).Value = Myusername

 

        End If

    End Sub
    Function BuildTreeView(ByVal XMLmenu As String)
        'xml选单资料
        Dim xmlPaser As New System.Xml.XmlDocument
        'Base XmlNode
        Dim Node As System.Xml.XmlNode
        Dim i As Integer

        '取得XML选单
        Call xmlPaser.LoadXml(XMLmenu)

        Node = xmlPaser.SelectSingleNode("菜单")
        For i = 0 To Node.ChildNodes.Count - 1
            '将主Node加入TreeView
            Me.TreeView1.Nodes.Add(MakeChildNodes(Node.ChildNodes(i)))
        Next
    End Function

    '将 Xml Node转成 TreeView Node
    Function MakeChildNodes(ByVal XmlNode As System.Xml.XmlNode) As Microsoft.Web.UI.WebControls.TreeNode
        Dim Node As New Microsoft.Web.UI.WebControls.TreeNode
        Dim i As Integer

        Node.Text = XmlNode.Name
        '加上这一段
        '当只有一个子节点时(可能是网址)
        If XmlNode.ChildNodes.Count = 1 Then
            If XmlNode.ChildNodes(0).NodeType = System.Xml.XmlNodeType.Text Then
                '果然是网址,取得节点文字当作URL
                Node.NavigateUrl = XmlNode.InnerText
            End If
        End If
        '跑每一个节点
        '不同的是,若子节点是文字模式,则不跑,因为是URL)
        For i = 0 To XmlNode.ChildNodes.Count - 1
            If XmlNode.ChildNodes(i).NodeType <> System.Xml.XmlNodeType.Text Then
                Node.Nodes.Add(MakeChildNodes(XmlNode.ChildNodes(i)))
            End If
        Next
        MakeChildNodes = Node
    End Function

    Private Sub DropDownList2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged

        Me.TextBox1.Text = Me.DropDownList2.SelectedItem.Value
    End Sub

    Private Sub DropDownList3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
        Me.TextBox2.Text = Me.DropDownList3.SelectedItem.Value
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyUsername As String = Session("username")
        Dim Mypassword As String = Session("password")
        Dim MyAccountant As String = Trim(Me.DropDownList5.SelectedValue)
        Dim Mysuppliercode As String = Trim(Me.TextBox1.Text)
        Dim PrepareBy As String = Trim(Me.TextBox2.Text)
        If CheckSuperAdmin(MyUsername, Mypassword) = False Then

            If Me.DropDownList1.SelectedValue <> Microsoft.VisualBasic.Right(GetDepartment(MyUsername, Mypassword), 3) Then
                Response.Write("<body onload=window.alert('你没有权限输入" & Me.DropDownList1.SelectedValue & "事业部的付款资料,你当前是属于" & GetDepartment(MyUsername, Mypassword) & "部门')></body>")
            Else
                If CheckSupplierCode(Mysuppliercode) = False Then
                    Response.Write("<body onload=window.alert('你输入的供应商代码不存在!')></body>")
                Else
                    If CheckPrepareBy(PrepareBy) = False Then
                        Response.Write("<body onload=window.alert('你输入的送单人名称不存在!')></body>")
                    Else
                        If IsDate(Trim(Me.TextBox3.Text)) = False Then
                            Response.Write("<body onload=window.alert('你输入的送单日期不正确!')></body>")
                        Else
                            If IsNumeric(Trim(Me.TextBox4.Text)) = False Then
                                Response.Write("<body onload=window.alert('付款金额必须是数字类型!')></body>")
                            Else
                                If IsDate(Trim(Me.TextBox5.Text)) = False Then
                                    Response.Write("<body onload=window.alert('你输入的付款期限日期不正确!')></body>")
                                Else
                                    If Me.DropDownList1.SelectedValue <> Microsoft.VisualBasic.Right(GetDepartment(MyAccountant, Mypassword), 3) Then
                                        Response.Write("<body onload=window.alert('会计审核人" & Me.DropDownList5.SelectedValue & "没有权限输入" & Me.DropDownList1.SelectedValue & "事业部的付款资料,你当前是属于" & GetDepartment(MyUsername, Mypassword) & "部门')></body>")
                                    Else
                                        If IsDate(Trim(Me.TextBox6.Text)) = False Then
                                            Response.Write("<body onload=window.alert('你输入的会计审核日期不正确!')></body>")
                                        Else
                                            If IsDate(Trim(Me.Textbox9.Text)) = False Then
                                                Response.Write("<body onload=window.alert('你输入的发票日期不正确!')></body>")
                                            Else
                                                If IsDate(Trim(Me.Textbox10.Text)) = False Then
                                                    Response.Write("<body onload=window.alert('你输入的发票到期日期不正确!')></body>")
                                                Else
                                                    Call paymentadd()
                                                End If
                                            End If
                                        End If

                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If

        Else
            If CheckSupplierCode(Mysuppliercode) = False Then
                Response.Write("<body onload=window.alert('你输入的供应商代码不存在!')></body>")
            Else
                If CheckPrepareBy(PrepareBy) = False Then
                    Response.Write("<body onload=window.alert('你输入的送单人名称不存在!')></body>")
                Else
                    If IsDate(Trim(Me.TextBox3.Text)) = False Then
                        Response.Write("<body onload=window.alert('你输入的送单日期不正确!')></body>")
                    Else
                        If IsNumeric(Trim(Me.TextBox4.Text)) = False Then
                            Response.Write("<body onload=window.alert('付款金额必须是数字类型!')></body>")
                        Else
                            If IsDate(Trim(Me.TextBox5.Text)) = False Then
                                Response.Write("<body onload=window.alert('你输入的付款期限日期不正确!')></body>")
                            Else

                                If IsDate(Trim(Me.TextBox6.Text)) = False Then
                                    Response.Write("<body onload=window.alert('你输入的会计审核日期不正确!')></body>")
                                Else
                                    If IsDate(Trim(Me.Textbox9.Text)) = False Then
                                        Response.Write("<body onload=window.alert('你输入的发票日期不正确!')></body>")
                                    Else
                                        If IsDate(Trim(Me.Textbox10.Text)) = False Then
                                            Response.Write("<body onload=window.alert('你输入的发票到期日期不正确!')></body>")
                                        Else
                                            Call paymentadd()
                                        End If
                                    End If
                                End If

                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
    Function paymentadd()

        Dim connstr As String = "Data source=APPSRV;Initial catalog=APSYS;User ID=sa;Password=;"
        Dim sql As String
        sql = "insert into ACCinput (Buname,suppliercode,prepareby,prepareDate,MoneyCode,Amount,requesteddate,Acccheckby,acccheckDate,Remark1,SysDate,InvoiceDate,InvoiceDueDate) values "
        sql += "(@Buname,@suppliercode,@prepareby,@prepareDate,@MoneyCode,@Amount,@requesteddate,@Acccheckby,@acccheckDate,@Remark1,@SysDate,@InvoiceDate,@InvoiceDueDate)"

        Dim sqlconnection As New System.Data.SqlClient.SqlConnection(connstr)
        sqlconnection.Open()

        Dim sqlcommand As New System.Data.SqlClient.SqlCommand
        sqlcommand.CommandText = sql
        sqlcommand.CommandType = CommandType.Text
        sqlcommand.Connection = sqlconnection

        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Buname", System.Data.SqlDbType.NVarChar, 50)).Value = Trim(Me.DropDownList1.SelectedItem.Value)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@suppliercode", System.Data.SqlDbType.NVarChar, 50)).Value = UCase(Trim(Me.TextBox1.Text))
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prepareby", System.Data.SqlDbType.NVarChar, 50)).Value = Trim(Me.TextBox2.Text)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@preparedate", System.Data.SqlDbType.DateTime, 8)).Value = CType(Trim(Me.TextBox3.Text), Date)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MoneyCode", System.Data.SqlDbType.NVarChar, 50)).Value = Trim(Me.DropDownList4.SelectedItem.Value)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Amount", System.Data.SqlDbType.Decimal, 9)).Value = Trim(Me.TextBox4.Text)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@requestedDate", System.Data.SqlDbType.DateTime, 8)).Value = CType(Trim(Me.TextBox5.Text), Date)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ACCcheckby", System.Data.SqlDbType.NVarChar, 50)).Value = Trim(Me.DropDownList5.SelectedItem.Value)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ACCcheckDate", System.Data.SqlDbType.DateTime, 8)).Value = CType(Trim(Me.TextBox6.Text), Date)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Remark1", System.Data.SqlDbType.NVarChar, 100)).Value = Trim(Me.TextBox7.Text)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sysdate", System.Data.SqlDbType.DateTime, 8)).Value = Now()
        'lilyzhou
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@InvoiceDate", System.Data.SqlDbType.DateTime, 8)).Value = CType(Trim(Me.Textbox9.Text), Date)
        sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@InvoiceDueDate", System.Data.SqlDbType.DateTime, 8)).Value = CType(Trim(Me.Textbox10.Text), Date)

        sqlcommand.ExecuteNonQuery()
        sqlconnection.Close()

 

        Response.Write("<body onload=window.alert('新增付款资料成功！');window.location='PaymentADD.aspx'></body>")
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
        Me.TextBox5.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
        Me.TextBox6.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
        'lilyzhou
        Me.Textbox9.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())
        Me.Textbox10.Text = DatePart(DateInterval.Year, Now()) & "-" & DatePart(DateInterval.Month, Now()) & "-" & DatePart(DateInterval.Day, Now())

        Me.TextBox4.Text = ""
        Me.TextBox7.Text = ""

    End Sub

   

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       
        'Dim connstr As String = "Data source=APPSRV;Initial catalog=APSYS;User ID=sa;Password=;"
        'Dim sql As String
        'Dim transferPterm As Integer
        'Dim PT As Integer

        'sql = "select ScalaPaymentterm as PT from supplier where SupplierCode=@SupplierCode"

       
        'Dim sqlconnection As New System.Data.SqlClient.SqlConnection(connstr)
        'sqlconnection.Open()
        'Dim sqlcommand As New System.Data.SqlClient.SqlCommand
        'sqlcommand.CommandText = sql
        'sqlcommand.CommandType = CommandType.Text
        'sqlcommand.Connection = sqlconnection

        'sqlcommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SupplierID", System.Data.SqlDbType.NVarChar, 100))
        'sqlcommand.Parameters("@SupplierCode").Value = Trim(Me.Textbox9.Text.ToString)

        ''执行SQL
        'sqlcommand.ExecuteNonQuery()
        'transferPterm = PT
        'sqlconnection.Close()

        MsgBox("good luck lily!")

     

 

    End Sub
End Class