1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    Private Sub butSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSave.Click
 
        Dim previousPlay As New Data.Baseball.Play
 
        Play_InitializeGS(glob, newPlay, PlayType.ON_BASE)
        newPlay.PlayerID = obPlay.PlayerID
        newPlay.FinalBase = obPlay.FinalBase
        newPlay.PitcherPlayerID = obPlay.PitcherPlayerID
        newPlay.BattingOrderPosition = obPlay.BattingOrderPosition
        newPlay.OnBaseResult = obPlay.OnBaseResult
        newPlay.DefensiveSequence = obPlay.DefensiveSequence
        newPlay.Errors = obPlay.Errors
 
        Grab()
 
        If glob.runnerPreviousEventID IsNot Nothing Then
            previousPlay.Get(glob.conn, glob.runnerPreviousEventID)
            If OnBaseEventsIdentical(newPlay, previousPlay) Then
                Exit Sub
            End If
        End If
 
        newPlay.Create(glob.conn)
 
        Me.Close()
 
    End Sub