Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If MessageBox.Show("Estas Seguro de guardar los cambios?", "Guardar", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
            ' Guardar
            If tools.IsEmpty(TxtNucria, "el número de cría") Then Exit Sub
            If tools.IsEmpty(TxtObservaciones, "la observaciòn") Then Exit Sub
            If tools.IsEmpty(txtRegularidad, "la regularidad") Then Exit Sub
            If tools.IsEmpty(CboAborto, "el aborto") Then Exit Sub
            If tools.IsEmpty(CboAnimal, "el animal") Then Exit Sub
            If tools.IsEmpty(CboEstvientre, "el estado del vientre") Then Exit Sub
            If tools.IsEmpty(CboInseminacion, "la inceminación") Then Exit Sub
            If tools.IsEmpty(CboSexo, "el sexo de la cría") Then Exit Sub
            If tools.IsEmpty(CboTipoparto, "el tipo de parto") Then Exit Sub

            If id.Text = "" Then
                If partos.Agregar(DtpFecha.Value, Convert.ToInt16(CboSexo.SelectedValue.ToString()), CboAborto.Text, _
                                     DtpFecpalpacion.Value, Convert.ToInt16(CboInseminacion.SelectedValue.ToString()), _
                                   Convert.ToInt16(CboEstvientre.SelectedValue.ToString()), Convert.ToInt16(CboTipoparto.SelectedValue.ToString()), _
                                   TxtNucria.Text, TxtObservaciones.Text, txtRegularidad.Text, Convert.ToInt32(CboAnimal.SelectedValue.ToString())) Then
                    logger.add("Control Parto", "Agregar : " & Now.ToString)
                    MsgBox("Su registro ha sido almacenado", MsgBoxStyle.Information, "Operación realizada")
                    Me.PartosTableAdapter.Fill(Me.GanadodbDataSet.partos)
                    Me.PartosBindingSource.MoveLast()
                End If
            Else
                If partos.Modificar(id.Text, DtpFecha.Value, Convert.ToInt16(CboSexo.SelectedValue.ToString()), CboAborto.Text, _
                                     DtpFecpalpacion.Value, Convert.ToInt16(CboInseminacion.SelectedValue.ToString()), _
                                   Convert.ToInt16(CboEstvientre.SelectedValue.ToString()), Convert.ToInt16(CboTipoparto.SelectedValue.ToString()), _
                                   TxtNucria.Text, TxtObservaciones.Text, txtRegularidad.Text, Convert.ToInt32(CboAnimal.SelectedValue.ToString())) Then
                    logger.add("Control Parto", "Modificar : " & Now.ToString)
                    MsgBox("Su registro ha sido actualizado", MsgBoxStyle.Information, "Operación realizada")
                End If

            End If
        End If
    End Sub