fk_cailiao_caiwujinglishenhe.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.Label15.TabIndex = 197
        Me.Label15.Text = "占合同金额比例"
        '
        'ComboBox4
        '
        Me.ComboBox4.Enabled = False
        Me.ComboBox4.Location = New System.Drawing.Point(112, 35)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox4.TabIndex = 194
        Me.ComboBox4.Text = "待提交申请单"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.ComboBox2)
        Me.GroupBox1.Controls.Add(Me.ComboBox6)
        Me.GroupBox1.Controls.Add(Me.Button6)
        Me.GroupBox1.Controls.Add(Me.Button7)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Location = New System.Drawing.Point(16, 67)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(520, 80)
        Me.GroupBox1.TabIndex = 188
        Me.GroupBox1.TabStop = False
        '
        'ComboBox2
        '
        Me.ComboBox2.Location = New System.Drawing.Point(96, 48)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(152, 20)
        Me.ComboBox2.TabIndex = 68
        Me.ComboBox2.Text = "订购单号"
        '
        'ComboBox6
        '
        Me.ComboBox6.Location = New System.Drawing.Point(352, 16)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(88, 20)
        Me.ComboBox6.TabIndex = 46
        Me.ComboBox6.Text = "收货单号"
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.SystemColors.Control
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button6.ForeColor = System.Drawing.Color.Red
        Me.Button6.Location = New System.Drawing.Point(448, 16)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(56, 24)
        Me.Button6.TabIndex = 67
        Me.Button6.Text = "查看"
        '
        'Button7
        '
        Me.Button7.BackColor = System.Drawing.SystemColors.Control
        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button7.ForeColor = System.Drawing.Color.Blue
        Me.Button7.Location = New System.Drawing.Point(256, 48)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(80, 24)
        Me.Button7.TabIndex = 70
        Me.Button7.Text = "查看订购单"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(264, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 16)
        Me.Label3.TabIndex = 160
        Me.Label3.Text = "收货单号"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(16, 48)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 16)
        Me.Label8.TabIndex = 160
        Me.Label8.Text = "订购单号"
        '
        'RadioButton3
        '
        Me.RadioButton3.ForeColor = System.Drawing.Color.Red
        Me.RadioButton3.Location = New System.Drawing.Point(536, 32)
        Me.RadioButton3.Name = "RadioButton3"
        Me.RadioButton3.Size = New System.Drawing.Size(73, 24)
        Me.RadioButton3.TabIndex = 206
        Me.RadioButton3.Text = "现在已有"
        '
        'ComboBox7
        '
        Me.ComboBox7.Enabled = False
        Me.ComboBox7.Location = New System.Drawing.Point(624, 32)
        Me.ComboBox7.Name = "ComboBox7"
        Me.ComboBox7.Size = New System.Drawing.Size(112, 20)
        Me.ComboBox7.TabIndex = 207
        Me.ComboBox7.Text = "已经存在的申请单"
        '
        'Button2
        '
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button2.Location = New System.Drawing.Point(64, 352)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(96, 32)
        Me.Button2.TabIndex = 111
        Me.Button2.Tag = ""
        Me.Button2.Text = "预  览"
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Fk_cailiao_caiwujinglishenhe
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(768, 606)
        Me.Controls.Add(Me.RadioButton3)
        Me.Controls.Add(Me.ComboBox7)
        Me.Controls.Add(Me.TextBox17)
        Me.Controls.Add(Me.Label19)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.Label18)
        Me.Controls.Add(Me.TextBox15)
        Me.Controls.Add(Me.Label17)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.TextBox14)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.TextBox12)
        Me.Controls.Add(Me.Label14)
        Me.Controls.Add(Me.TextBox11)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.DateTimePicker2)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label21)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.Label20)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox5)
        Me.Name = "Fk_cailiao_caiwujinglishenhe"
        Me.Text = "付款-财务经理审核"
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim intz As Decimal
    Dim intf As Decimal
    Dim int123 As Decimal
    Dim inty As Integer
    Dim yyy As Integer


    '本次付款金额值的填写
    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged

        If TextBox16.Text = "" Then
            Exit Sub
        End If

        If yyy <> 0 Then
            If TextBox14.Text.Trim = "" Then
                MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If

            If TextBox15.Text.Trim = "" Then
                MsgBox("请输入--应付款--值！", MsgBoxStyle.Information, "提示")
                Exit Sub
            End If
        Else
            yyy = yyy + 1
            Exit Sub
        End If

        If TextBox16.Text.Trim = "" Then
            TextBox17.Text = ""
            Exit Sub
        End If
        Dim str1 As String = TextBox16.Text.Trim
        Dim y As Integer = str1.Length
        Dim sstr As String
        Dim i As Integer
        Dim yy As Integer = 0
        For i = 1 To y
            sstr = Microsoft.VisualBasic.Mid(str1, i, 1)
            If sstr = "0" Or sstr = "1" Or sstr = "2" Or sstr = "3" Or sstr = "4" Or sstr = "5" Or sstr = "6" Or sstr = "7" Or sstr = "8" Or sstr = "9" Or sstr = "." Then
                If sstr = "." Then
                    yy = yy + 1
                    If yy = 2 Then
                        MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
                        TextBox16.Focus()
                        Exit Sub
                    End If
                End If
            Else
                MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
                TextBox1.Focus()
                Exit Sub
            End If
        Next
        Dim str2 As String = TextBox14.Text.Trim
        Dim int1 As Decimal
        Dim int2 As Decimal
        Dim int3 As Decimal

        Dim int As Decimal
        int1 = Convert.ToDecimal(str2) '总额
        int2 = Convert.ToDecimal(str1) '本次付款额
        int3 = Convert.ToDecimal(TextBox15.Text.Trim) '已经付款总额

        int = int1 - int2 - int3
        TextBox17.Text = int.ToString
        int = int2 / int1
        int = int * 100
        TextBox7.Text = int.ToString + "%"


    End Sub



    '判断输入的数字是否正确
    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged


        Dim str1 As String = TextBox14.Text.Trim
        Dim y As Integer = str1.Length
        Dim sstr As String
        Dim i As Integer
        Dim yy As Integer = 0
        For i = 1 To y
            sstr = Microsoft.VisualBasic.Mid(str1, i, 1)
            If sstr = "0" Or sstr = "1" Or sstr = "2" Or sstr = "3" Or sstr = "4" Or sstr = "5" Or sstr = "6" Or sstr = "7" Or sstr = "8" Or sstr = "9" Or sstr = "." Then
                If sstr = "." Then
                    yy = yy + 1
                    If yy = 2 Then
                        MsgBox("已经有了--.--,不能再输入了！", MsgBoxStyle.Information, "提示")
                        TextBox1.Focus()
                        Exit Sub
                    End If
                End If
            Else
                MsgBox("请输入正确的数字，特别要分清----。----和---.----", MsgBoxStyle.Information, "提示")
                TextBox14.Focus()
                Exit Sub
            End If
        Next

        If inty = 0 Then
            inty = inty + 1
            Exit Sub
        Else
            intz = Convert.ToDecimal(str1)
            If intz <> 0 Then
                int123 = intf / intz

                TextBox4.Text = int123.ToString + "%"
            Else
                TextBox4.Text = "0%"
            End If
        End If
    End Sub




    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged




        Dim str2 As String = TextBox14.Text.Trim
        If str2 = "" Then
            str2 = "0"
            Exit Sub
        End If

        Dim int1 As Decimal
        Dim int2 As Decimal
        Dim int3 As Decimal