取消的批審取消功能



    Protected Sub CheckerLabel_C_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Call Check_Confirm_Assign(sender, "Name")
            Dim ignit_checkbox As CheckBox = DirectCast(sender, CheckBox)
            Dim target_label As Label
            If ignit_checkbox.ID = "CheckerLabel_C" Then
                target_label = DirectCast(ignit_checkbox.Parent.FindControl("Check_DateLabel"), Label)
            ElseIf ignit_checkbox.ID = "ApproverLabel_C" Then
                target_label = DirectCast(ignit_checkbox.Parent.FindControl("Approval_DateLabel"), Label)
            ElseIf ignit_checkbox.ID = "Checker2Label_C" Then
                target_label = DirectCast(ignit_checkbox.Parent.FindControl("Check_Date2Label"), Label)
            Else
                Select Case ignit_checkbox.Checked
                    Case False
                        DirectCast(ignit_checkbox.Parent.FindControl("Accept_GP_DateLabel"), Label).Text = ""
                        DirectCast(ignit_checkbox.Parent.FindControl("Accept_GPLabel"), Label).Text = ""
                    Case True
                        DirectCast(ignit_checkbox.Parent.FindControl("Accept_GP_DateLabel"), Label).Text = Date.Now
                        Dim a As String = DirectCast(ignit_checkbox.Parent.FindControl("Current_GPLabel"), Label).Text
                        Dim b As String = DirectCast(ignit_checkbox.Parent.FindControl("Current_Customer_PriceLabel"), Label).Text
                        DirectCast(ignit_checkbox.Parent.FindControl("Accept_GPLabel"), Label).Text = IIf(a = "", "", "GP" & a & "%,") & IIf(b = "", "", "USD" & b)
                End Select

                Return
            End If

            Select Case ignit_checkbox.Checked
                Case False
                    target_label.Text = ""
                Case True
                    target_label.Text = Date.Now
                    If target_label Is DirectCast(ignit_checkbox.Parent.FindControl("Approval_DateLabel"), Label) Then
                        DirectCast(ignit_checkbox.Parent.FindControl("Approver_Reject_DateLabel"), Label).Text = ""
                        DirectCast(ignit_checkbox.Parent.FindControl("Approver_Reject_DateLabel_C"), CheckBox).Checked = False
                    End If
            End Select

        Catch ex As Exception
            DirectCast(FormView2.FindControl("Message"), Label).Text = ex.Message.ToString
        End Try
    End Sub