none
Preciso fazer em c# como faço ? RRS feed

  • Pergunta

  •  Public Function VerificaBeneficiarios() As Boolean
            Dim Resp As Boolean = True


            If Not String.IsNullOrEmpty(txt_Nome_1.Text) And Not String.IsNullOrEmpty(txt_Data_Nascimento_1.Text) And Not String.IsNullOrEmpty(txt_Percentual_1.Text) Then
                Try
                    Dim d As DateTime = txt_Data_Nascimento_1.Text
                Catch ex As Exception
                    litMSG.Text &= "Favor digitar uma data de nascimento valida para o Dependente 1.<br />"
                    Resp = False
                End Try
                oBeneficiarios.Add(oBeneficiarios.Count, "INSERT INTO [Prv_Beneficiarios] ([Id_Participante],[Nome],[Sexo],[Percentual],[Id_Grau_Parentesco],[Data_Nascimento],[Usuario],[Ult_Atual],[Rep]) VALUES (<Id_Participante, numeric,>,'" & txt_Nome_1.Text & "','" & txt_Sexo_1.SelectedValue & "'," & txt_Percentual_1.Text & "," & txt_Id_Grau_Parentesco_1.SelectedValue & ",'" & txt_Data_Nascimento_1.Text & "' ,'WEB', '" & Now.ToString("dd/MM/yyyy") & "', 'N')")
                oBeneficiariosP.Add(oBeneficiarios.Count, Integer.Parse(txt_Percentual_1.Text))
            ElseIf String.IsNullOrEmpty(txt_Nome_1.Text) And String.IsNullOrEmpty(txt_Data_Nascimento_1.Text) And String.IsNullOrEmpty(txt_Percentual_1.Text) Then
            Else
                litMSG.Text &= "Favor preencher todos os campos do Dependente 1.<br />"
                Resp = False
            End If

            If Not String.IsNullOrEmpty(txt_Nome_2.Text) And Not String.IsNullOrEmpty(txt_Data_Nascimento_2.Text) And Not String.IsNullOrEmpty(txt_Percentual_2.Text) Then
                Try
                    Dim d As DateTime = txt_Data_Nascimento_2.Text
                Catch ex As Exception
                    litMSG.Text &= "Favor digitar uma data de nascimento valida para o Dependente 2.<br />"
                    Resp = False
                End Try
                oBeneficiarios.Add(oBeneficiarios.Count, "INSERT INTO [Prv_Beneficiarios] ([Id_Participante],[Nome],[Sexo],[Percentual],[Id_Grau_Parentesco],[Data_Nascimento],[Usuario],[Ult_Atual],[Rep]) VALUES (<Id_Participante, numeric,>,'" & txt_Nome_2.Text & "','" & txt_Sexo_2.SelectedValue & "'," & txt_Percentual_2.Text & "," & txt_Id_Grau_Parentesco_2.SelectedValue & ",'" & txt_Data_Nascimento_2.Text & "' ,'WEB', '" & Now.ToString("dd/MM/yyyy") & "', 'N')")
                oBeneficiariosP.Add(oBeneficiarios.Count, Integer.Parse(txt_Percentual_2.Text))
            ElseIf String.IsNullOrEmpty(txt_Nome_2.Text) And String.IsNullOrEmpty(txt_Data_Nascimento_2.Text) And String.IsNullOrEmpty(txt_Percentual_2.Text) Then
            Else
                litMSG.Text &= "Favor preencher todos os campos do Dependente 2.<br />"
                Resp = False
            End If

            If Not String.IsNullOrEmpty(txt_Nome_3.Text) And Not String.IsNullOrEmpty(txt_Data_Nascimento_3.Text) And Not String.IsNullOrEmpty(txt_Percentual_3.Text) Then
                Try
                    Dim d As DateTime = txt_Data_Nascimento_3.Text
                Catch ex As Exception
                    litMSG.Text &= "Favor digitar uma data de nascimento valida para o Dependente 3.<br />"
                    Resp = False
                End Try
                oBeneficiarios.Add(oBeneficiarios.Count, "INSERT INTO [Prv_Beneficiarios] ([Id_Participante],[Nome],[Sexo],[Percentual],[Id_Grau_Parentesco],[Data_Nascimento],[Usuario],[Ult_Atual],[Rep]) VALUES (<Id_Participante, numeric,>,'" & txt_Nome_3.Text & "','" & txt_Sexo_3.SelectedValue & "'," & txt_Percentual_3.Text & "," & txt_Id_Grau_Parentesco_3.SelectedValue & ",'" & txt_Data_Nascimento_3.Text & "' ,'WEB', '" & Now.ToString("dd/MM/yyyy") & "', 'N')")
                oBeneficiariosP.Add(oBeneficiarios.Count, Integer.Parse(txt_Percentual_3.Text))
            ElseIf String.IsNullOrEmpty(txt_Nome_3.Text) And String.IsNullOrEmpty(txt_Data_Nascimento_3.Text) And String.IsNullOrEmpty(txt_Percentual_3.Text) Then
            Else
                litMSG.Text &= "Favor preencher todos os campos do Dependente 3.<br />"
                Resp = False
            End If

            If Not String.IsNullOrEmpty(txt_Nome_4.Text) And Not String.IsNullOrEmpty(txt_Data_Nascimento_4.Text) And Not String.IsNullOrEmpty(txt_Percentual_4.Text) Then
                Try
                    Dim d As DateTime = txt_Data_Nascimento_4.Text
                Catch ex As Exception
                    litMSG.Text &= "Favor digitar uma data de nascimento valida para o Dependente 4.<br />"
                    Resp = False
                End Try
                oBeneficiarios.Add(oBeneficiarios.Count, "INSERT INTO [Prv_Beneficiarios] ([Id_Participante],[Nome],[Sexo],[Percentual],[Id_Grau_Parentesco],[Data_Nascimento],[Usuario],[Ult_Atual],[Rep]) VALUES (<Id_Participante, numeric,>,'" & txt_Nome_4.Text & "','" & txt_Sexo_4.SelectedValue & "'," & txt_Percentual_4.Text & "," & txt_Id_Grau_Parentesco_4.SelectedValue & ",'" & txt_Data_Nascimento_4.Text & "' ,'WEB', '" & Now.ToString("dd/MM/yyyy") & "', 'N')")
                oBeneficiariosP.Add(oBeneficiarios.Count, Integer.Parse(txt_Percentual_4.Text))
            ElseIf String.IsNullOrEmpty(txt_Nome_4.Text) And String.IsNullOrEmpty(txt_Data_Nascimento_4.Text) And String.IsNullOrEmpty(txt_Percentual_4.Text) Then
            Else
                litMSG.Text &= "Favor preencher todos os campos do Dependente 4.<br />"
                Resp = False
            End If

            If Not String.IsNullOrEmpty(txt_Nome_5.Text) And Not String.IsNullOrEmpty(txt_Data_Nascimento_5.Text) And Not String.IsNullOrEmpty(txt_Percentual_5.Text) Then
                Try
                    Dim d As DateTime = txt_Data_Nascimento_5.Text
                Catch ex As Exception
                    litMSG.Text &= "Favor digitar uma data de nascimento valida para o Dependente 5.<br />"
                    Resp = False
                End Try
                oBeneficiarios.Add(oBeneficiarios.Count, "INSERT INTO [Prv_Beneficiarios] ([Id_Participante],[Nome],[Sexo],[Percentual],[Id_Grau_Parentesco],[Data_Nascimento],[Usuario],[Ult_Atual],[Rep]) VALUES (<Id_Participante, numeric,>,'" & txt_Nome_5.Text & "','" & txt_Sexo_5.SelectedValue & "'," & txt_Percentual_5.Text & "," & txt_Id_Grau_Parentesco_5.SelectedValue & ",'" & txt_Data_Nascimento_5.Text & "' ,'WEB', '" & Now.ToString("dd/MM/yyyy") & "', 'N')")
                oBeneficiariosP.Add(oBeneficiarios.Count, Integer.Parse(txt_Percentual_5.Text))
            ElseIf String.IsNullOrEmpty(txt_Nome_5.Text) And String.IsNullOrEmpty(txt_Data_Nascimento_5.Text) And String.IsNullOrEmpty(txt_Percentual_5.Text) Then
            Else
                litMSG.Text &= "Favor preencher todos os campos do Dependente 5.<br />"
                Resp = False
            End If

            If oBeneficiarios.Count > 0 Then
                Dim Total As Integer = 0
                For Me.i = 0 To oBeneficiarios.Count - 1
                    Total += oBeneficiariosP.Values(i)
                Next
                If Total < 99 Then
                    litMSG.Text &= "O total do percentuais dos Beneficiários tem que ser 100%.<br />"
                    Resp = False
                End If
            End If
            

            Return Resp
        End Function
    quarta-feira, 12 de setembro de 2012 21:40

Todas as Respostas