Imports System.Data.SqlClient
Imports System.IO
Public Class FrmFacturas
Public CN As New SqlConnection(My.Settings.Conexion)
Public CF As New ClsFactura
Private Sub FrmFacturas_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ControlBotones()
Randomize()
Dim R As Integer
R = Rnd() * 1000
TxtNumFact.Text = R
End Sub
Public Sub Totales()
Dim st, isv, t As Double
st = CDbl(TxtPrecio.Text) * CDbl(TxtCantidad.Text)
TxtSubTotal.Text = st
isv = CDbl(TxtSubTotal.Text) * 0.15
TxtIsv.Text = isv
t = CDbl(TxtSubTotal.Text) + CDbl(TxtIsv.Text)
TxtTotal.Text = t
End Sub
Private Sub TxtCantidad_Leave(sender As Object, e As EventArgs) Handles TxtCantidad.Leave
If TxtCantidad.Text >= 1 Then
Totales()
Else
MsgBox("Ingrese Cantidad") End If
End Sub
Public Sub ControlBotones()
TxtCodEmp.Enabled = False
TxtNumFact.Enabled = False
BdpFecha.Enabled = False
TxtCodCli.Enabled = False
TxtNombreCli.Enabled = False
TxtIdentidad.Enabled = False
TxtRTN.Enabled = False
BtnQuitarCliente.Enabled = False
TxtCodRep.Enabled = False
TxtDescripcion.Enabled = False
TxtPrecio.Enabled = False
TxtCantidad.Enabled = False
TxtSubTotal.Enabled = False
TxtIsv.Enabled = False
TxtTotal.Enabled = False
BtnQuitarRepuesto.Enabled = False
BtnAgregarRepuesto.Enabled = False
BtnGuardar.Enabled = False
BtnFinalizarFactura.Enabled = False
TxtTotalPagar.Enabled = False
End Sub
Private Sub BtnCerrar_Click(sender As Object, e As EventArgs) Handles BtnCerrar.Click
Me.Close()
End Sub
Private Sub BtnDevolucion_Click(sender As Object, e As EventArgs) Handles BtnDevolucion.Click
FrmDevolucionesClientes.Show()
End Sub
Private Sub TxtCodCli_DoubleClick(sender As Object, e As EventArgs) Handles TxtCodCli.DoubleClick
Dim FBC As New FrmBuscarCliente
AddOwnedForm(FBC)
FBC.ShowDialog()
End Sub
Private Sub TxtCodRep_DoubleClick(sender As Object, e As EventArgs) Handles TxtCodRep.DoubleClick
Dim FBR As New FrmBuscarRepuestos
AddOwnedForm(FBR)
FBR.ShowDialog()
End Sub
Private Sub BtnNuevaFactura_Click(sender As Object, e As EventArgs) Handles BtnNuevaFactura.Click
TxtCodEmp.Enabled = True
BdpFecha.Enabled = True
BdpFecha.Value = DateTime.Now
TxtCodCli.Enabled = True
TxtNombreCli.Enabled = True
TxtIdentidad.Enabled = True
TxtRTN.Enabled = True
BtnQuitarCliente.Enabled = True
TxtCodRep.Enabled = True
TxtDescripcion.Enabled = True
TxtPrecio.Enabled = True
TxtCantidad.Enabled = True
TxtSubTotal.Enabled = True
TxtISV.Enabled = True
TxtTotal.Enabled = True
BtnQuitarRepuesto.Enabled = True
BtnAgregarRepuesto.Enabled = True
DgvDetalleFactura.Enabled = True
BtnGuardar.Enabled = True
BtnFinalizarFactura.Enabled = True
TxtTotalPagar.Enabled = True
End Sub
Private Sub DgvDetalleFactura_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgvDetalleFactura.CellClick
TxtNumFact.Text = DgvDetalleFactura.SelectedCells.Item(0).Value
TxtCodRep.Text = DgvDetalleFactura.SelectedCells.Item(1).Value
TxtDescripcion.Text = DgvDetalleFactura.SelectedCells.Item(2).Value
TxtPrecio.Text = DgvDetalleFactura.SelectedCells.Item(3).Value
TxtCantidad.Text = DgvDetalleFactura.SelectedCells.Item(4).Value
TxtSubTotal.Text = DgvDetalleFactura.SelectedCells.Item(5).Value
TxtIsv.Text = DgvDetalleFactura.SelectedCells.Item(6).Value
TxtTotal.Text = DgvDetalleFactura.SelectedCells.Item(7).Value
End Sub
Private Sub BtnQuitarCliente_Click(sender As Object, e As EventArgs) Handles BtnQuitarCliente.Click
TxtCodCli.Clear()
TxtNombreCli.Clear()
TxtIdentidad.Clear()
TxtRTN.Clear()
End Sub
Private Sub BtnQuitarRepuesto_Click(sender As Object, e As EventArgs) Handles BtnQuitarRepuesto.Click
TxtCodRep.Clear()
TxtDescripcion.Clear()
TxtPrecio.Clear()
TxtCantidad.Clear()
TxtSubTotal.Clear()
TxtISV.Clear()
TxtTotal.Clear()
End Sub
Private Sub BtnAgregarRepuesto_Click(sender As Object, e As EventArgs) Handles BtnAgregarRepuesto.Click
If Me.ValidateChildren = True And TxtCodRep.Text <> "" And TxtDescripcion.Text <> "" And TxtPrecio.Text <> "" And
TxtCantidad.Text <> "" And TxtSubTotal.Text <> "" And TxtIsv.Text <> "" And TxtTotal.Text <> "" Then
Try
DgvDetalleFactura.Rows.Add(TxtNumFact.Text, TxtCodRep.Text, TxtDescripcion.Text, TxtPrecio.Text, TxtCantidad.Text, TxtSubTotal.Text, TxtIsv.Text, TxtTotal.Text)
MessageBox.Show("Agregado Exitosamente", "Agregando Producto") Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
MessageBox.Show("Debe llenar todos los campos", "Agregando Producto", MessageBoxButtons.OK, MessageBoxIcon.Information) End If
Totales()
Dim fila As New DataGridViewRow
Dim total As Double
For Each fila In DgvDetalleFactura.Rows
total = total + fila.Cells(7).Value
Next
TxtTotalPagar.Text = Val(total)
TxtTotalPagar.Text = "L." & FormatNumber(total, 2)
TxtCodRep.Clear()
TxtDescripcion.Clear()
TxtPrecio.Clear()
TxtCantidad.Clear()
TxtSubTotal.Clear()
TxtISV.Clear()
TxtTotal.Clear()
End Sub
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
'If Me.ValidateChildren = True And BdpFecha.Text <> "" And TxtCodCli.Text <> "" And TxtNombreCli.Text <> "" And TxtIdentidad.Text <> "" And TxtRTN.Text <> "" Then
Try
CF.Fun_InsertarFactura(TxtNumFact.Text, BdpFecha.Text, TxtCodCli.Text)
CF.Fun_InsertarDetalleFactura(TxtNumFact.Text, TxtCodRep.Text, TxtDescripcion.Text, TxtPrecio.Text, TxtCantidad.Text, TxtSubTotal.Text, TxtIsv.Text, TxtTotal.Text)
MessageBox.Show("Guardado Exitosamente", "Guardando Producto")
Catch ex As Exception
MsgBox(ex.Message)
End Try
' Else
'MessageBox.Show("Debe llenar todos los campos", "Guardando Producto", MessageBoxButtons.OK, MessageBoxIcon.Information) 'End If
DgvDetalleFactura.Rows.Clear()
TxtCodCli.Clear()
TxtNombreCli.Clear()
TxtIdentidad.Clear()
TxtRTN.Clear()
End Sub
End Class
