PeopleTrac – People Management for Not-For-Profit Organizations


Namespace LightSwitchApplication

    Public Class AddAndEditPerson

        Private Sub AddAndEditPerson_InitializeDataWorkspace(saveChangesTo As System.Collections.Generic.List(Of Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            If Me.ptyPersonID.HasValue Then
                Me.PersonProperty = Me.Person
            Else
                Me.PersonProperty = New Person()
                Dim mc = From c1 In Me.DataWorkspace.ApplicationData.MailCodes
                               Where c1.IsDefault = True

                Me.PersonProperty.MailCode = mc.FirstOrDefault
            End If


           

        End Sub

        Private Sub AddAndEditPerson_Saved()
            ' Write your code here.
            Me.Close(False)
            Application.Current.ShowDefaultScreen(Me.PersonProperty)
        End Sub

        Private Sub SubscriptionsAddAndEditNew_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

       
        Private Sub SubscriptionsAddNew_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        Private Sub SubscriptionsAddNew_Execute()
            ' Write your code here.
            Me.Application.ShowCreateAndEditSubscription(Me.PersonProperty.Id, Nothing)
        End Sub

        Private Sub SubscriptionsEditSelected_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        Private Sub SubscriptionsEditSelected_Execute()
            ' Write your code here.
            Me.Application.ShowCreateAndEditSubscription(Me.PersonProperty.Id, Me.Subscriptions.SelectedItem.Id)
        End Sub

        Private Sub AddAndEditPerson_Closing(ByRef cancel As Boolean)
            ' Write your code here.
            '    ShowMessageBox("AddAndEditPerson is closing")


        End Sub

      
        '    Private Sub ProgramsAddAndEditNew_Execute()
        '        ' Write your code here.
        '        Dim x As Integer = 1
        '        If Me.Programs.SelectedItem Is Nothing Then
        '            Me.Application.ShowCreateAndEditProgamActivity(Me.PersonProperty.Id, Nothing)
        '        Else
        '            Me.Application.ShowCreateAndEditProgamActivity(Me.PersonProperty.Id, Me.Programs.SelectedItem.Id)

        '        End If
        '    End Sub

        Private Sub ProgramsAddNew_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        Private Sub ProgramsAddNew_Execute()
            ' Write your code here.
            Me.Application.ShowCreateAndEditProgamActivity(Me.PersonProperty.Id, Nothing)
        End Sub

        Private Sub ProgramsEditSelected_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        Private Sub ProgramsEditSelected_Execute()
            ' Write your code here.
            Me.Application.ShowCreateAndEditProgamActivity(Me.PersonProperty.Id, Me.Programs.SelectedItem.Id)
        End Sub
    End Class

End Namespace