Family.aspx.vb

''Copyright (c) 2016-2017 Swiss Agency for Development and Cooperation (SDC)
''
''The program users must agree to the following terms:
''
''Copyright notices
''This program is free software: you can redistribute it and/or modify it under the terms of the GNU AGPL v3 License as published by the 
''Free Software Foundation, version 3 of the License.
''This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of 
''MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU AGPL v3 License for more details www.gnu.org.
''
''Disclaimer of Warranty
''There is no warranty for the program, to the extent permitted by applicable law; except when otherwise stated in writing the copyright 
''holders and/or other parties provide the program "as is" without warranty of any kind, either expressed or implied, including, but not 
''limited to, the implied warranties of merchantability and fitness for a particular purpose. The entire risk as to the quality and 
''performance of the program is with you. Should the program prove defective, you assume the cost of all necessary servicing, repair or correction.
''
''Limitation of Liability 
''In no event unless required by applicable law or agreed to in writing will any copyright holder, or any other party who modifies and/or 
''conveys the program as permitted above, be liable to you for damages, including any general, special, incidental or consequential damages 
''arising out of the use or inability to use the program (including but not limited to loss of data or data being rendered inaccurate or losses 
''sustained by you or third parties or a failure of the program to operate with any other programs), even if such holder or other party has been 
''advised of the possibility of such damages.
''
''In case of dispute arising out or in relation to the use of the program, it is subject to the public law of Switzerland. The place of jurisdiction is Berne.
'
' 
'

Imports System.Reflection

Public Class Family
    Inherits System.Web.UI.Page
    Private Family As New IMIS_BI.FamilyBI
    Private eFamily As New IMIS_EN.tblFamilies
    Private eInsuree As New IMIS_EN.tblInsuree
    Private dtImage As New DataTable
    Private imisgen As New IMIS_Gen
    Private userBI As New IMIS_BI.UserBI
    Dim FamilyUUID As Guid

    Private Sub FormatForm()
        Dim Adjustibility As String = ""
        'Beneficiary card
        Adjustibility = General.getControlSetting("BeneficiaryCard")
        trBeneficiary.Visible = Not (Adjustibility = "N")
        rfBeneficiary.Enabled = (Adjustibility = "M")

        'Confirmation
        Adjustibility = General.getControlSetting("Confirmation")
        trConfirmation.Visible = Not (Adjustibility = "N")
        rfConfirmation.Enabled = (Adjustibility = "M")

        Adjustibility = General.getControlSetting("ConfirmationNo")
        L_CONFIRMATIONNO.Visible = Not (Adjustibility = "N")
        txtConfirmationNo.Visible = Not (Adjustibility = "N")
        rfConfirmationNo.Enabled = (Adjustibility = "M")

        'CurrentAddress
        Adjustibility = General.getControlSetting("CurrentAddress")
        trCurrentAddress.Visible = Not (Adjustibility = "N")
        rfCurrentAddress.Enabled = (Adjustibility = "M")

        'Current District
        Adjustibility = General.getControlSetting("CurrentDistrict")
        trCurrentDistrict.Visible = Not (Adjustibility = "N")
        trCurrentRegion.Visible = Not (Adjustibility = "N")
        rfCurrentDistrict.Enabled = (Adjustibility = "M")
        rfCurrentRegion.Enabled = (Adjustibility = "M")

        'Current Municipality
        Adjustibility = General.getControlSetting("CurrentMunicipality")
        trCurrentMunicipality.Visible = Not (Adjustibility = "N")
        rfCurrentVDC.Enabled = (Adjustibility = "M")

        'Current Village
        Adjustibility = General.getControlSetting("CurrentVillage")
        trCurrentVillage.Visible = Not (Adjustibility = "N")
        rfCurrentVillage.Enabled = (Adjustibility = "M")

        'Education
        Adjustibility = General.getControlSetting("Education")
        trEducation.Visible = Not (Adjustibility = "N")
        rfEducation.Enabled = (Adjustibility = "M")

        'FamilyType
        Adjustibility = General.getControlSetting("FamilyType")
        trType.Visible = Not (Adjustibility = "N")
        rfType.Enabled = (Adjustibility = "M")


        'FSP District
        Adjustibility = General.getControlSetting("FSPDistrict")
        trFSPDistrict.Visible = Not (Adjustibility = "N")
        trFSPRegion.Visible = Not (Adjustibility = "N")
        rfDistrictFSP.Enabled = (Adjustibility = "M")
        rfRegionFSP.Enabled = (Adjustibility = "M")

        'FSP Category
        Adjustibility = General.getControlSetting("FSPCategory")
        trFSPCategory.Visible = Not (Adjustibility = "N")
        rfFSPCategory.Enabled = (Adjustibility = "M")

        'FSP
        Adjustibility = General.getControlSetting("FSP")
        trFSP.Visible = Not (Adjustibility = "N")
        rfFSP.Enabled = (Adjustibility = "M")

        'Identification Type
        Adjustibility = General.getControlSetting("IdentificationType")
        trIdentificationType.Visible = Not (Adjustibility = "N")
        rfIdType.Enabled = (Adjustibility = "M")

        'Identification Number
        Adjustibility = General.getControlSetting("IdentificationNumber")
        trIdentificationNo.Visible = Not (Adjustibility = "N")
        rfIdNo1.Enabled = (Adjustibility = "M")

        'Email
        Adjustibility = General.getControlSetting("InsureeEmail")
        trEmail.Visible = Not (Adjustibility = "N")
        rfEmail.Enabled = (Adjustibility = "M")

        'Marital Status
        Adjustibility = General.getControlSetting("MaritalStatus")
        trMaritalStatus.Visible = Not (Adjustibility = "N")
        rfMaritalStatus.Enabled = (Adjustibility = "M")

        'Permanent Address
        Adjustibility = General.getControlSetting("PermanentAddress")
        L_ADDRESS.Visible = Not (Adjustibility = "N")
        txtAddress.Visible = Not (Adjustibility = "N")
        rfAddress.Enabled = (Adjustibility = "M")

        'Poverty
        Adjustibility = General.getControlSetting("Poverty")
        trPoverty.Visible = Not (Adjustibility = "N")
        rfPoverty.Enabled = (Adjustibility = "M")

        'Profession
        Adjustibility = General.getControlSetting("Profession")
        trProfession.Visible = Not (Adjustibility = "N")
        rfProfession.Enabled = (Adjustibility = "M")

        'Vulnerability
        Adjustibility = General.getControlSetting("Vulnerability")
        trVulnerability.Visible = Not (Adjustibility = "N")
        rfVulnerability.Enabled = (Adjustibility = "M")

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If IsPostBack = True Then Return

        FormatForm()

        If HttpContext.Current.Request.QueryString("f") IsNot Nothing Then
            eFamily.FamilyUUID = Guid.Parse(HttpContext.Current.Request.QueryString("f"))
            eFamily.FamilyID = Family.GetFamilyIdByUUID(eFamily.FamilyUUID)
        End If

        RunPageSecurity()
        Try
            Dim dtRegions As DataTable = Family.GetRegions(imisgen.getUserId(Session("User")), True)
            ddlRegion.DataSource = dtRegions
            ddlRegion.DataValueField = "RegionId"
            ddlRegion.DataTextField = "RegionName"
            ddlRegion.DataBind()
            If dtRegions.Rows.Count = 1 Or ddlRegion.SelectedValue > 0 Then
                FillDistricts()
            End If
            ddlGender.DataSource = Family.GetGender
            ddlGender.DataValueField = "Code"
            ddlGender.DataTextField = "Gender"
            ddlGender.DataBind()

            ddlPoverty.DataSource = Family.GetYesNO
            ddlPoverty.DataValueField = "Code"
            ddlPoverty.DataTextField = "Status"
            ddlPoverty.DataBind()

            ddlMarital.DataSource = Family.GetMaritalStatus
            ddlMarital.DataValueField = "Code"
            ddlMarital.DataTextField = "Status"
            ddlMarital.DataBind()

            ddlConfirmationType.DataSource = Family.GetSubsidy
            ddlConfirmationType.DataValueField = "ConfirmationTypeCode"
            ddlConfirmationType.DataTextField = If(Request.Cookies("CultureInfo")("SelectedLanguage") = Request.Cookies("CultureInfo")("Language1"), "ConfirmationType", "AltLanguage")
            ddlConfirmationType.DataBind()

            ddlCardIssued.DataSource = Family.GetYesNO
            ddlCardIssued.DataValueField = "Code"
            ddlCardIssued.DataTextField = "Status"
            ddlCardIssued.DataBind()

            ddlType.DataSource = Family.GetTypes
            ddlType.DataValueField = "FamilyTypeCode"
            ddlType.DataTextField = If(Request.Cookies("CultureInfo")("SelectedLanguage") = Request.Cookies("CultureInfo")("Language1"), "FamilyType", "AltLanguage") '"FamilyType"
            ddlType.DataBind()

            ddlProfession.DataSource = Family.GetProfession
            ddlProfession.DataValueField = "ProfessionId"
            ddlProfession.DataTextField = If(Request.Cookies("CultureInfo")("SelectedLanguage") = Request.Cookies("CultureInfo")("Language1"), "Profession", "AltLanguage")
            ddlProfession.DataBind()

            ddlEducation.DataSource = Family.GetEducation
            ddlEducation.DataValueField = "EducationId"
            ddlEducation.DataTextField = If(Request.Cookies("CultureInfo")("SelectedLanguage") = Request.Cookies("CultureInfo")("Language1"), "Education", "AltLanguage")
            ddlEducation.DataBind()

            ddlEthnicity.DataSource = Family.GetEthnicity
            ddlEthnicity.DataValueField = "Code"
            ddlEthnicity.DataTextField = "Ethnicity"
            ddlEthnicity.DataBind()

            ddlIdType.DataSource = Family.GetTypeOfIdentity
            ddlIdType.DataValueField = "IdentificationCode"
            ddlIdType.DataTextField = If(Request.Cookies("CultureInfo")("SelectedLanguage") = Request.Cookies("CultureInfo")("Language1"), "IdentificationTypes", "AltLanguage") ' 
            ddlIdType.DataBind()


            Dim dtFSPRegion As DataTable = Family.GetRegionsAll(imisgen.getUserId(Session("User")))
            ddlFSPRegion.DataSource = dtFSPRegion
            ddlFSPRegion.DataValueField = "RegionId"
            ddlFSPRegion.DataTextField = "RegionName"
            ddlFSPRegion.DataBind()

            If dtFSPRegion.Rows.Count = 1 Then
                FillFSPDistricts()
            End If

            ddlFSPCateogory.DataSource = Family.GetHFLevel
            ddlFSPCateogory.DataValueField = "Code"
            ddlFSPCateogory.DataTextField = "HFLevel"
            ddlFSPCateogory.DataBind()

            FillHF()

            'Get Current District, Wards and Villages

            Dim dtCurrentRegion As DataTable = Family.GetRegionsAll(imisgen.getUserId(Session("User")), True)
            ddlCurrentRegion.DataSource = dtCurrentRegion
            ddlCurrentRegion.DataValueField = "RegionId"
            ddlCurrentRegion.DataTextField = "RegionName"
            ddlCurrentRegion.DataBind()


            If dtCurrentRegion.Rows.Count = 1 Then
                FillCurrentDistricts()
            End If

            ddlVulnerability.DataSource = Family.GetYesNO
            ddlVulnerability.DataValueField = "Code"
            ddlVulnerability.DataTextField = "Status"
            ddlVulnerability.DataBind()

            If Not eFamily.FamilyID = 0 Then
                Family.LoadFamily(eFamily)
                ddlRegion.SelectedValue = eFamily.RegionId
                ddlDistrict.SelectedValue = eFamily.DistrictId
                ddlVillage.SelectedValue = eFamily.LocationId
                ddlWard.SelectedValue = eFamily.WardId
                'ddlDistrict.SelectedValue = eFamily.tblDistricts.DistrictID
                ddlPoverty.SelectedValue = eFamily.Poverty
                ddlConfirmationType.SelectedValue = eFamily.ConfirmationType
                ddlEthnicity.SelectedValue = eFamily.Ethnicity
                ddlCardIssued.SelectedValue = eFamily.tblInsuree.CardIssued
                ddlGender.SelectedValue = eFamily.tblInsuree.Gender
                ddlMarital.SelectedValue = eFamily.tblInsuree.Marital
                If eFamily.tblInsuree.Profession IsNot Nothing Then ddlProfession.SelectedValue = eFamily.tblInsuree.Profession
                If eFamily.tblInsuree.Education IsNot Nothing Then ddlEducation.SelectedValue = eFamily.tblInsuree.Education
                txtCHFID.Text = eFamily.tblInsuree.CHFID.Trim
                txtBirthDate.Text = eFamily.tblInsuree.DOB
                txtLastName.Text = eFamily.tblInsuree.LastName
                txtOtherNames.Text = eFamily.tblInsuree.OtherNames
                txtPassport.Text = eFamily.tblInsuree.passport
                txtPhone.Text = eFamily.tblInsuree.Phone
                ddlType.SelectedValue = eFamily.FamilyType
                txtAddress.Text = eFamily.FamilyAddress
                txtConfirmationNo.Text = eFamily.ConfirmationNo

                hfFamilyIsOffline.Value = If(eFamily.isOffline Is Nothing, False, eFamily.isOffline)
                hfInsureeIsOffline.Value = If(eFamily.tblInsuree.isOffline Is Nothing, False, eFamily.tblInsuree.isOffline)


                'Addition for Nepal >> Start

                ddlIdType.SelectedValue = eFamily.tblInsuree.TypeOfId

                ddlFSPDistrict.SelectedValue = eFamily.tblInsuree.FSPDistrict
                ddlFSPCateogory.SelectedValue = eFamily.tblInsuree.FSPCategory
                FillHF()
                ddlFSP.SelectedValue = eFamily.tblInsuree.tblHF.HfID

                txtCurrentAddress.Text = eFamily.tblInsuree.CurrentAddress

                ddlCurrentRegion.SelectedValue = eInsuree.CurrentRegion
                FillCurrentDistricts()
                ddlCurDistrict.SelectedValue = eInsuree.CurDistrict
                GetCurVillages()

                ddlCurVDC.SelectedValue = eInsuree.CurWard
                getCurWards()

                ddlCurWard.SelectedValue = eInsuree.CurrentVillage

                'Addition for Nepal >> End

                If eFamily.ValidityTo.HasValue Or ((IMIS_Gen.offlineHF Or IMIS_Gen.OfflineCHF) And Not If(eFamily.isOffline Is Nothing, False, eFamily.isOffline)) Then
                    pnlImages.Enabled = False
                    B_SAVE.Visible = False
                    btnBrowse.Enabled = False
                    Panel1.Enabled = False
                End If

                ddlVulnerability.SelectedValue = If(eInsuree.Vulnerability = True, "1", "0")
            End If
            FillImageDL()
            Session("ParentUrl") = "FindFamily.aspx"
        Catch ex As Exception
            Session("Msg") = imisgen.getMessage("M_ERRORMESSAGE")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
        End Try
    End Sub


    Private Sub FillFSPDistricts()
        ddlFSPDistrict.DataSource = Family.GetDistrictsAll(imisgen.getUserId(Session("User")), ddlFSPRegion.SelectedValue, True)
        ddlFSPDistrict.DataValueField = "DistrictId"
        ddlFSPDistrict.DataTextField = "DistrictName"
        ddlFSPDistrict.DataBind()
    End Sub
    Private Sub FillDistricts()
        Dim dtDistricts As DataTable = Family.GetDistricts(imisgen.getUserId(Session("User")), True, ddlRegion.SelectedValue)
        ddlDistrict.DataSource = dtDistricts
        ddlDistrict.DataValueField = "DistrictId"
        ddlDistrict.DataTextField = "DistrictName"
        ddlDistrict.DataBind()
        If dtDistricts.Rows.Count = 1 Or ddlDistrict.SelectedValue > 0 Then
            GetWards()
        End If
    End Sub
    Private Sub RunPageSecurity()
        Dim UserID As Integer = imisgen.getUserId(Session("User"))
        If userBI.RunPageSecurity(IMIS_EN.Enums.Pages.Family, Page) Then
            B_SAVE.Visible = userBI.checkRights(IMIS_EN.Enums.Rights.FamilyAdd, UserID)
            If Not B_SAVE.Visible Then
                pnlBody.Enabled = False
                pnlImages.Enabled = False
                Panel1.Enabled = False
            End If
        Else
            Dim RefUrl = Request.Headers("Referer")
            Server.Transfer("Redirect.aspx?perm=0&page=" & IMIS_EN.Enums.Pages.Family.ToString & "&retUrl=" & RefUrl)
        End If
    End Sub
    Private Sub ddlDistricts_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlDistrict.SelectedIndexChanged
        Try
            GetWards()
        Catch ex As Exception
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlBody, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
        End Try
    End Sub
    Private Sub GetWards()
        Dim dtWards As DataTable = Family.GetWards(ddlDistrict.SelectedValue, True)
        Dim wards As Integer = dtWards.Rows.Count
        If wards > 0 Then
            ddlWard.DataSource = dtWards
            ddlWard.DataValueField = "WardId"
            ddlWard.DataTextField = "WardName"
            ddlWard.DataBind()
        Else
            ddlWard.Items.Clear()
        End If
        getVillages(wards)
    End Sub
    Private Sub getCurWards(Optional ByVal Wards As Integer = 1)
        If ddlCurVDC.SelectedIndex < 0 Then Exit Sub
        If Wards > 0 And Not ddlCurVDC.SelectedValue = 0 Then
            ddlCurWard.DataSource = Family.GetCurVillages(ddlCurVDC.SelectedValue)
            ddlCurWard.DataValueField = "VillageId"
            ddlCurWard.DataTextField = "VillageName"
            ddlCurWard.DataBind()
        Else
            ddlCurWard.Items.Clear()
        End If

    End Sub
    Private Sub getVillages(Optional ByVal Wards As Integer = 1)
        If Wards > 0 AndAlso Not Val(ddlWard.SelectedValue) = 0 Then
            ddlVillage.DataSource = Family.GetVillages(ddlWard.SelectedValue, True)
            ddlVillage.DataValueField = "VillageId"
            ddlVillage.DataTextField = "VillageName"
            ddlVillage.DataBind()
        Else
            ddlVillage.Items.Clear()
        End If

    End Sub
    Private Sub GetCurVillages()
        Dim dtVillages As DataTable = Family.GetCurWards(ddlCurDistrict.SelectedValue)
        Dim Villages As Integer = dtVillages.Rows.Count
        If Villages > 0 Then
            ddlCurVDC.DataSource = dtVillages
            ddlCurVDC.DataValueField = "WardId"
            ddlCurVDC.DataTextField = "WardName"
            ddlCurVDC.DataBind()
        Else
            ddlCurVDC.Items.Clear()
        End If
        getCurWards(Villages)
    End Sub
    Private Sub gvWards_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlWard.SelectedIndexChanged
        getVillages()

    End Sub
    Private Sub FillImageDL()
        Dim dt As New DataTable
        Dim Insuree As New IMIS_BI.InsureeBI
        dt = Insuree.FetchNewImages(Server.MapPath(IMIS_EN.AppConfiguration.SubmittedFolder), eInsuree.CHFID)
        dlImages.DataSource = dt
        dlImages.DataBind()
    End Sub
    Private Sub FetchNewImage()
        If Len(Trim(eInsuree.CHFID)) > 0 Then
            Dim Insuree As New IMIS_BI.InsureeBI
            dtImage = Insuree.FetchNewImages(Server.MapPath(IMIS_EN.AppConfiguration.SubmittedFolder), eInsuree.CHFID)
            If dtImage.Rows.Count > 0 Then
                Image1.ImageUrl = IMIS_EN.AppConfiguration.SubmittedFolder & dtImage.Rows(0)("ImagePath")

            Else
                Image1.ImageUrl = ""
                Dim ltl As New Literal()
                ltl.Text = "<script language='javascript'>document.getElementByID</script>"
                pnlBody.Controls.Add(ltl)
                'Response.Write()
            End If

        Else
            Image1.ImageUrl = ""

        End If
    End Sub
    Private Sub FillHF()
        'If ddlFSPDistrict.SelectedValue = 0 Or ddlFSPCateogory.SelectedValue = "" Then Exit Sub

        ddlFSP.DataSource = Family.GetFSPHF(Val(ddlFSPDistrict.SelectedValue), ddlFSPCateogory.SelectedValue)
        ddlFSP.DataValueField = "HFID"
        ddlFSP.DataTextField = "HFCode"
        ddlFSP.DataBind()

    End Sub
    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles B_SAVE.Click
        Try
            'Dim birthdate As Date
            'If Not IsDate(Date.ParseExact(txtBirthDate.Text, "dd/MM/yyyy", Nothing)) Then
            '    Return
            'Else
            '    birthdate = Date.ParseExact(txtBirthDate.Text, "dd/MM/yyyy", Nothing)
            'End If

            If Not Family.CheckCHFID(txtCHFID.Text.Trim) = True Then
                imisgen.Alert(txtCHFID.Text.Trim & imisgen.getMessage("M_NOTVALIDCHFNUMBER"), pnlButtons, alertPopupTitle:="IMIS")
                Return
            End If


            Dim ePhotos As New IMIS_EN.tblPhotos

            Dim msg As String = ""
            'If Trim(txtCHFID.Text).Length < 9 Then
            '    msg = imisgen.getMessage("M_CHFNUMBERFEWCHARACTERS")

            'Else
            If Family.FamilyExists(txtCHFID.Text.Trim) Then
                msg = imisgen.getMessage("M_CHFNUMBERMEMBEREXISTS")

            End If

            If msg.Length > 0 Then
                Dim ltl As New Literal()
                ltl.Text = "<script language='javascript'>$(document).ready(function(){popup.alert('" & msg & "');});</script>"
                pnlBody.Controls.Add(ltl)
                'Response.Write(")
                Exit Sub
            End If

            Dim dt As New DataTable
            dt = DirectCast(Session("User"), DataTable)

            'eFamily.DistrictID = ddlDistrict.SelectedValue
            If ddlVillage.SelectedValue.Length > 0 Then eFamily.LocationId = ddlVillage.SelectedValue

            'eFamily.WardID = ddlWard.SelectedValue
            If ddlPoverty.SelectedValue.Length > 0 Then eFamily.Poverty = ddlPoverty.SelectedValue
            If ddlConfirmationType.SelectedValue.Length > 0 Then eFamily.ConfirmationType = ddlConfirmationType.SelectedValue
            If ddlEthnicity.SelectedValue.Length > 0 Then eFamily.Ethnicity = ddlEthnicity.SelectedValue
            eInsuree.CHFID = txtCHFID.Text.Trim
            eInsuree.LastName = txtLastName.Text.Trim
            eInsuree.OtherNames = txtOtherNames.Text.Trim

            ' If Trim(txtBirthDate.Text).Length > 0 Then
            ' If IsDate(txtBirthDate.Text) Then
            eInsuree.DOB = Date.ParseExact(txtBirthDate.Text.Trim, "dd/MM/yyyy", Nothing)
            'Else
            '  lblMsg.Text = "Invalid Date Format"
            '  Return
            'End If
            ' End If

            eInsuree.Gender = ddlGender.SelectedValue
            If ddlMarital.SelectedValue <> "" Then eInsuree.Marital = ddlMarital.SelectedValue
            If ddlCardIssued.SelectedValue.Length > 0 Then eInsuree.CardIssued = ddlCardIssued.SelectedValue
            eInsuree.passport = txtPassport.Text.Trim
            eInsuree.Phone = txtPhone.Text.Trim
            eInsuree.Email = txtEmail.Text.Trim
            If ddlProfession.SelectedValue > 0 Then
                eInsuree.Profession = ddlProfession.SelectedValue
            End If
            If ddlEducation.SelectedIndex > 0 Then
                eInsuree.Education = ddlEducation.SelectedValue
            End If
            eInsuree.isOffline = IMIS_Gen.offlineHF Or IMIS_Gen.OfflineCHF
            ePhotos.PhotoID = 0
            ePhotos.InsureeID = eInsuree.InsureeID
            ePhotos.CHFID = eInsuree.CHFID.Trim
            ePhotos.PhotoFolder = IMIS_EN.AppConfiguration.UpdatedFolder

            If ddlType.SelectedValue <> "" Then eFamily.FamilyType = ddlType.SelectedValue
            eFamily.FamilyAddress = txtAddress.Text.Trim
            eFamily.ConfirmationNo = txtConfirmationNo.Text.Trim

            Dim ImageName As String = Mid(Image1.ImageUrl, Image1.ImageUrl.LastIndexOf("\") + 2, Image1.ImageUrl.Length)

            ePhotos.PhotoFileName = ImageName


            If ImageName.Length > 0 Then
                ePhotos.OfficerID = Family.getOfficerID(ImageName)
            End If

            If ImageName.Length > 0 Then
                ePhotos.ValidityFrom = Family.ExtractDate(ImageName)
            End If

            ePhotos.AuditUserID = dt.Rows(0)("UserID")

            If ImageName.Length > 0 Then
                eInsuree.PhotoDate = Now
            Else
                eInsuree.PhotoDate = System.Data.SqlTypes.SqlDateTime.Null
            End If

            ePhotos.PhotoDate = eInsuree.PhotoDate

            'Addition for Nepal >> Start
            If ddlIdType.SelectedIndex > 0 Then eInsuree.TypeOfId = ddlIdType.SelectedValue
            Dim eHF As New IMIS_EN.tblHF
            If ddlFSP.Items.Count > 0 AndAlso ddlFSP.SelectedValue > 0 Then
                eHF.HfID = ddlFSP.SelectedValue
            End If
            eInsuree.tblHF = eHF

            eInsuree.CurrentAddress = txtCurrentAddress.Text.Trim
            If ddlCurDistrict.SelectedIndex > 0 Then eInsuree.CurDistrict = ddlCurDistrict.SelectedValue
            If ddlCurVDC.SelectedValue.Length > 0 Then eInsuree.CurWard = ddlCurVDC.SelectedValue
            If ddlCurWard.SelectedValue.Length > 0 Then eInsuree.CurrentVillage = ddlCurWard.SelectedValue

            If ImageName.Length > 0 Then
                eInsuree.GeoLocation = Family.ExtractLatitude(ImageName) & " " & Family.ExtractLongitude(ImageName)
            End If
            'Addition for Nepal >> End

            If ddlVulnerability.SelectedValue <> "" Then eInsuree.Vulnerability = ddlVulnerability.SelectedValue

            eFamily.AuditUserID = dt.Rows(0)("UserID")
            eFamily.isOffline = IMIS_Gen.offlineHF Or IMIS_Gen.OfflineCHF
            eInsuree.tblPhotos = ePhotos

            eInsuree.Source = "Legacy"
            eInsuree.SourceVersion = Assembly.GetExecutingAssembly().GetName().Version.ToString()

            eFamily.tblInsuree = eInsuree

            eFamily.Source = eInsuree.Source
            eFamily.SourceVersion = eInsuree.SourceVersion

            Family.SaveFamily(eFamily)

            If Image1.ImageUrl.Length > 0 Then
                '  If Not ePhotos.PhotoFolder.Contains(IMIS_EN.AppConfiguration.UpdatedFolder) Then
                UpdateImage(ePhotos)
                'End If
            End If

        Catch ex As Exception
            'lblMsg.Text = imisgen.getMessage("M_ERRORMESSAGE")
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlBody, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
            Return
        End Try

        FamilyUUID = Family.GetFamilyUUIDByID(eFamily.FamilyID)

        Response.Redirect("OverviewFamily.aspx?f=" & FamilyUUID.ToString())

    End Sub
    Private Sub B_CANCEL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles B_CANCEL.Click

        If Not eFamily.FamilyID = 0 And B_SAVE.Visible Then
            FamilyUUID = Family.GetFamilyUUIDByID(eFamily.FamilyID)
            Response.Redirect("OverviewFamily.aspx?f=" & FamilyUUID.ToString())
        Else
            Response.Redirect("FindFamily.aspx")
        End If
    End Sub
    Protected Sub dlImages_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dlImages.SelectedIndexChanged
        Image1.ImageUrl = IMIS_EN.AppConfiguration.SubmittedFolder & (dlImages.SelectedValue)
    End Sub
    Private Sub UpdateImage(ByRef ePhotos As IMIS_EN.tblPhotos)
        Dim Insuree As New IMIS_BI.InsureeBI
        Insuree.UpdateImage(ePhotos, False)
        Image1.ImageUrl = IMIS_EN.AppConfiguration.UpdatedFolder & Mid(Image1.ImageUrl, Image1.ImageUrl.LastIndexOf("\") + 2, Image1.ImageUrl.Length)
    End Sub
    Protected Sub txtCHFID_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtCHFID.TextChanged
        Try
            eInsuree.CHFID = txtCHFID.Text.Trim
            eInsuree.isOffline = IMIS_Gen.offlineHF Or IMIS_Gen.OfflineCHF
            If Family.CheckCHFID(txtCHFID.Text.Trim) = True Then
                FetchNewImage()
                FillImageDL()
            End If
        Catch ex As Exception
            'lblMsg.Text = imisgen.getMessage("M_ERRORMESSAGE")
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlBody, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
            Return
        End Try

    End Sub
    Private Sub ddlFSPDistrict_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlFSPDistrict.SelectedIndexChanged
        Try
            FillHF()
        Catch ex As Exception
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlBody, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
        End Try
    End Sub
    Private Sub ddlFSPCateogory_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlFSPCateogory.SelectedIndexChanged
        Try
            FillHF()
        Catch ex As Exception
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlBody, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
        End Try
    End Sub

    Private Sub ddlCurDistrict_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlCurDistrict.SelectedIndexChanged
        Try
            GetCurVillages()
        Catch ex As Exception
            imisgen.Alert(imisgen.getMessage("M_ERRORMESSAGE"), pnlButtons, alertPopupTitle:="IMIS")
            imisgen.Log(Page.Title & " : " & imisgen.getLoginName(Session("User")), ex)
            'EventLog.WriteEntry("IMIS", Page.Title & " : " & imisgen.getLoginName(Session("User")) & " : " & ex.Message, EventLogEntryType.Error, 999)
        End Try
    End Sub

    Private Sub ddlCurVDC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlCurVDC.SelectedIndexChanged
        getCurWards()
    End Sub

    Private Sub ddlRegion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlRegion.SelectedIndexChanged
        FillDistricts()
    End Sub

    Private Sub ddlFSPRegion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlFSPRegion.SelectedIndexChanged
        FillFSPDistricts()
    End Sub

    Private Sub ddlCurrentRegion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlCurrentRegion.SelectedIndexChanged
        FillCurrentDistricts()
    End Sub
    Private Sub FillCurrentDistricts()
        Dim dtCurDistrict As DataTable = Family.GetDistrictsAll(imisgen.getUserId(Session("User")), Val(ddlCurrentRegion.SelectedValue), True)
        ddlCurDistrict.DataSource = dtCurDistrict
        ddlCurDistrict.DataValueField = "DistrictId"
        ddlCurDistrict.DataTextField = "DistrictName"
        ddlCurDistrict.DataBind()

        If dtCurDistrict.Rows.Count = 1 Then
            GetWards()
        End If

    End Sub
End Class