Public Class Form_factura
    Private Sub Tabla_de_facturacionBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.Tabla_de_facturacionBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BaseDeDatos1DataSet)

    End Sub

    Private Sub Tabla_de_facturacionBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs)
        Me.Validate()
        Me.Tabla_de_facturacionBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.BaseDeDatos1DataSet)

    End Sub

    Private Sub Form_factura_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.tabla_Detalle_de_factura' Puede moverla o quitarla según sea necesario.
        Me.Tabla_Detalle_de_facturaTableAdapter.Fill(Me.BaseDeDatos1DataSet.tabla_Detalle_de_factura)
        'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact' Puede moverla o quitarla según sea necesario.
        Me.Tabla_temporal_del_detalle_FactTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact)
        'TODO: esta línea de código carga datos en la tabla 'BaseDeDatos1DataSet.Tabla_de_facturacion' Puede moverla o quitarla según sea necesario.
        Me.Tabla_de_facturacionTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_de_facturacion)
        Tabla_temporal_del_detalle_FactDataGridView.Hide()
        TotalTextBox1.Hide()
        Cod_productoTextBox1.Hide()
        ProductoTextBox1.Hide()
        CantidadTextBox1.Hide()
        Precio_unitarioTextBox1.Hide()
        TotalTextBox2.Hide()
        Sub_totalTextBox.ReadOnly = True
        TotalTextBox.ReadOnly = True

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Tabla_de_facturacionBindingSource.AddNew()
        TotalTextBox.ReadOnly = True
        Sub_totalTextBox.ReadOnly = True
        Nº_de_FacturaTextBox.Focus()


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Tabla_Detalle_de_facturaBindingSource.AddNew()
        FacturaTextBox.Text = Nº_de_FacturaTextBox.Text
        Tabla_temporal_del_detalle_FactBindingSource.AddNew()
        Cod_ProductoTextBox.Focus()
    End Sub

    Private Sub Cod_productoTextBox1_TextChanged(sender As Object, e As EventArgs) Handles Cod_productoTextBox1.TextChanged

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim subt, cant, P_unit As String
        cant = CantidadTextBox.Text
        P_unit = Precio_unitarioTextBox.Text
        subt = cant * P_unit
        TotalTextBox1.Text = subt
        TotalTextBox2.Text = TotalTextBox1.Text
        Precio_unitarioTextBox1.Text = Precio_unitarioTextBox.Text
        CantidadTextBox1.Text = CantidadTextBox.Text
        ProductoTextBox1.Text = ProductoTextBox.Text
        Cod_productoTextBox1.Text = Cod_ProductoTextBox.Text

        'calcular
        Sub_totalTextBox.Text = Val(Sub_totalTextBox.Text) + (Val(CantidadTextBox.Text) * Val(Precio_unitarioTextBox.Text))
        If IvaTextBox.Text = "" Then
            TotalTextBox.Text = Sub_totalTextBox.Text
        Else
            TotalTextBox.Text = Val(Sub_totalTextBox) * (Val(IvaTextBox.Text) / 100)
        End If
        On Error GoTo saveErr

        Tabla_Detalle_de_facturaBindingSource.EndEdit()
        Tabla_Detalle_de_facturaTableAdapter.Update(BaseDeDatos1DataSet.tabla_Detalle_de_factura)
        Tabla_temporal_del_detalle_FactBindingSource.EndEdit()
        Tabla_temporal_del_detalle_FactTableAdapter.Update(BaseDeDatos1DataSet.Tabla_temporal_del_detalle_Fact)


saveErr:
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click


        Dim a As String
        Tabla_Detalle_de_facturaDataGridView.AllowUserToDeleteRows = True

        a = MsgBox("¿Realmente desea eliminar el fichero?", vbQuestion + vbYesNo, "Eliminar")
        If a = vbYes Then
            On Error GoTo saveerr
            Tabla_Detalle_de_facturaBindingSource.RemoveCurrent()
            Tabla_Detalle_de_facturaTableAdapter.Update(BaseDeDatos1DataSet.tabla_Detalle_de_factura)

saveerr:

        End If

    End Sub

    Private Sub But_buscar_Click(sender As Object, e As EventArgs) Handles But_buscar.Click
        With frm_buscar
            .busqueda = "Clientes"
            .Tabla_de_ClientesDataGridView.Visible = True
            .Show()

        End With
    End Sub


    Private Sub IvaTextBox_TextChanged(sender As Object, e As EventArgs) Handles IvaTextBox.TextChanged
        Try
            TotalTextBox.Text = TotalTextBox.Text + (Sub_totalTextBox.Text * (IvaTextBox.Text / 100))
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
        On Error GoTo saveErr
        Tabla_de_facturacionBindingSource.EndEdit()
        Tabla_de_facturacionTableAdapter.Update(BaseDeDatos1DataSet.Tabla_de_facturacion)
        MsgBox("Factura guardada correctamente", vbInformation, "Guardar")
saveErr:
    End Sub

    Private Sub But_refresh_Click(sender As Object, e As EventArgs) Handles But_refresh.Click
        Me.Tabla_de_facturacionTableAdapter.Fill(Me.BaseDeDatos1DataSet.Tabla_de_facturacion)

    End Sub

    Private Sub But_search_Click(sender As Object, e As EventArgs) Handles But_search.Click
        Dim a As String
        a = InputBox("Ingrese Fecha", "Buscar")
        Me.Tabla_de_facturacionTableAdapter.FillBy(Me.BaseDeDatos1DataSet.Tabla_de_facturacion, a)
    End Sub

    Private Sub But_lastest_Click(sender As Object, e As EventArgs) Handles But_lastest.Click
        Tabla_de_facturacionBindingSource.MoveLast()
    End Sub

    Private Sub But_next_Click(sender As Object, e As EventArgs) Handles But_next.Click
        Tabla_de_facturacionBindingSource.MoveNext()
    End Sub

    Private Sub But_return_Click(sender As Object, e As EventArgs) Handles But_return.Click
        Tabla_de_facturacionBindingSource.MovePrevious()
    End Sub

    Private Sub But_returnf_Click(sender As Object, e As EventArgs) Handles But_returnf.Click
        Tabla_de_facturacionBindingSource.MoveFirst()
    End Sub

    Private Sub Cod_ProductoTextBox_TextChanged(sender As Object, e As EventArgs) Handles Cod_ProductoTextBox.TextChanged

    End Sub

    Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TabPage2.Click

    End Sub

    Private Sub But_dele_Click(sender As Object, e As EventArgs) Handles But_dele.Click
        Dim a As String
        a = MsgBox("¿Realmente desea eliminar el fichero?", vbQuestion + vbYesNo, "Eliminar")
        If a = vbYes Then
            Tabla_de_facturacionBindingSource.RemoveCurrent()
            Tabla_de_facturacionTableAdapter.Update(BaseDeDatos1DataSet.Tabla_de_facturacion)

        End If
    End Sub

    Private Sub But_menuAnterior_Click(sender As Object, e As EventArgs) Handles But_menuAnterior.Click
        Me.Close()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Me.Close()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        With frm_buscar
            .busqueda = "Producto"

            .Show()

        End With
    End Sub
End Class