En la realizacion de una Factura, ya tengo casi todo, solo me ocurre un inconveniente, al momento de ingresar una nueva factura mi tabla de descripcion de factura temporal no se limpia... ?? como hago eso.. ayuda please.?¿?!!!!
Pues a no ser que uno se adivino no se como se te va a poder ayudar si no aportas código alguno ni dices que has usado si un datagridview o que. Tampoco dices si es VB o C#.
Solo dices que haces una factura y que la quieres limpiar.
Suponiendo y ya es suponer, que los datos de la facturas lo manejas de manera interna ( en memoria) mediante variables y que luego muestras los resultados en pantalla usando textbox, datagrid o lo que sea. Si es así realiza un proceso mediante el cual vacías todas las variables y luego limpia todos los controles que muestre la información de las variables.
Cita de: okik en 30 Agosto 2017, 12:07 PM
Pues a no ser que uno se adivino no se como se te va a poder ayudar si no aportas código alguno ni dices que has usado si un datagridview o que. Tampoco dices si es VB o C#.
Solo dices que haces una factura y que la quieres limpiar.
ESTO ES PARA VB.NET 2017 WINDOWS FORMS
bueno, para la parte de factura tengo 3 tablas,
uno q van los datos de la factura (nº fact, numero de identidad, nombres, fecha, sub total, impuesto y total,) y otra donde va a el detalle de la factura (nº factura otra vez, producto, cantidad, total del item) estas se guardan y forman una factura, datoos de factura se muestran con textbox para ingresar datos, y los detalles tambn, eso va asi
--------------------------------------------------------------------------------------------------
*Datos de Factura:
no factura ----textbox------
Nº identidad---textbox----
nombre -------textbox------ fecha---textbox------
*detalle de fact:
Producto -----textbox......
cantidad ------textbox-----
valor unitario -textbox------
*tabla(datagridview)
|-------------------------------------------------------------------------------------------------
| cantidad | Producto | valor unitario | total item |
|_____________________________________________________________________|
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
| | | | |
|_______ |____________________|___________|____________________________|
subtotal -----textbox------
*Datos de factura: impuesto ----textbox------
total ----------textbox------
--------------------------------------------------------------------------------------------------
la cuestion es q para hacer la factura debo tener 2 tablas de detalle de factura en una base de datos (la cual por cierto trabajo en acces), porque en una se van a almacenar los datos permantemente, y la otra (temporal) solo va a ser al momento de llenar la factura, ya que cada vez q inicie nueva factura la tabladatagridview debe aparecer vacia
--------------------------------------------------------------------------------------------------
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
ese es el codigo, y bueno nose como ingresarlo para q se distingan los colores... pero ese es y si funciona.. lo q no esta es integrada la tabla temporal, siempre q ingreso nueva factura me toca elimiar los detalles q esten escritos y hacer una nueva, por ende no guardo los detalles, solo lo de la parte de datos de facctura.
no se si es entendible ahora...
Hola.
Cita de: DSREY en 26 Agosto 2017, 23:18 PMEn la realizacion de una Factura, ... , al momento de ingresar una nueva factura mi tabla de descripcion de factura temporal no se limpia... ?? como hago eso..
Tengo una pizarra y he dibujado algo en ella, pero hay un problema: no consigo limpiar la pizarra con el borrador. Para ayudarme tienes que adivinar que es lo que he dibujado, y que colores he usado...
Cita de: okik en 30 Agosto 2017, 12:07 PM
Pues a no ser que uno se adivino no se como se te va a poder ayudar si no aportas código alguno ni dices que has usado si un datagridview o que. Tampoco dices si es VB o C#.
Solo dices que haces una factura y que la quieres limpiar.
Ya lo has dicho tú todo. No se puede añadir nada más.
Saludos.
Cita de: Eleкtro en 5 Septiembre 2017, 03:50 AM
Hola.
Tengo una pizarra y he dibujado algo en ella, pero hay un problema: no consigo limpiar la pizarra con el borrador. Para ayudarme tienes que adivinar que es lo que he dibujado, y que colores he usado...
Ya lo has dicho tú todo. No se puede añadir nada más.
Saludos.
no se si revisaste un poco mas abajo el tema, ya detalle todo...
-_-
Cita de: DSREY en 5 Septiembre 2017, 03:54 AM
no se si revisaste un poco mas abajo el tema, ya detalle todo...
-_-
Mi comentario lo escribí ayer (antes de que tú escribieras ese comentario con la factura) pero lo he publicado hace un rato. Lo siento. De odas formas eso no cambia las cosas... es importante dar la información necesaria lo primero de todo al formular una duda sobre programación :-/
Es bastante tarde aquí, mañana veré si puedo ayudar en algo. Un saludo.