Visual Basic.NET - Necesito Ayuda en un sistema de inventario y facturacio.

   
Vista:

Necesito Ayuda en un sistema de inventario y facturacio.

Publicado por Key (1 intervención) el 05/07/2016 23:34:57
Hola!! nesecito de ayuda en un sistema de inventario y facturacion me esta dando aulgunos problemas al momnto de generar una factura y se seleccionen dos productos igual me envia un mensaje: "Asegurece que selcciono los datos correctos"
el codigo que utilizo para agregar registor es el siguiente:
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
29
30
31
32
33
34
35
'Primero se la factura
Try
	If Me.FacturarepuestoTableAdapter.Existe(Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text)) = 0 Then
		Me.FacturarepuestoTableAdapter.Insertar(Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text), NombreClienteTextBox.Text, DireccionTextBox.Text, FechaDateTimePicker.Value.ToString(), Convert.ToInt32(SubTotalTextBox.Text), Convert.ToInt32(ImpuestoTextBox.Text), Convert.ToInt32(TotalTextBox.Text), EstatusTextBox.Text, UsuarioTextBox.Text)
	End If
 
	Dim a As New FrmAgregarRepuesto()
	a.Codigo = Convert.ToInt32(CodigoSucursalTextBox.Text)
	a.ShowDialog()
 
	Me.FacturarepuestodetalleTableAdapter.Insertar(Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text), a.CodigoMarca, a.CodigoModelo, a.Anio, a.tipoparte, a.Descripcion, a.Cantidad, a.PrecioUnitario, a.Cantidad * a.PrecioUnitario)
	'Comprobar que no existe ya
	'(Rutina de Existencia)
	'Actualizar Los Precios
	SubTotalTextBox.Text = Me.FacturarepuestodetalleTableAdapter.SumarDetalle(CodigoSucursalTextBox.Text, NumeroFacturaRepuestoTextBox.Text)
	Me.FacturarepuestoTableAdapter.ActualizarPago(SubTotalTextBox.Text, ImpuestoTextBox.Text, TotalTextBox.Text, Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text))
	Me.FacturarepuestoTableAdapter.FillByCodigo(Me.Yonker_sistemaDataSet.facturarepuesto, Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text))
	ObtenerNombreSucursal()
	Me.FacturarepuestodetalleTableAdapter.FillByCodigo(Me.Yonker_sistemaDataSet.facturarepuestodetalle, Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text))
	EstatusTextBox.Text = "Creada"
	'Descargar del Inventario
	'Reversion al inventario
	Dim CantidadActual As Integer = 0
	CantidadActual = Convert.ToInt32(Me.Partes_carroTableAdapter.CantidadActual(Convert.ToInt32(CodigoSucursalTextBox.Text), a.CodigoMarca, a.CodigoModelo, a.Anio, a.tipoparte))
	Me.Partes_carroTableAdapter.Actualizar(Convert.ToInt32(CantidadActual - a.Cantidad), UsuarioTextBox.Text, FechaDateTimePicker.Value.ToString(), "Se Descargo de Inventario", Convert.ToInt32(CodigoSucursalTextBox.Text), a.CodigoMarca, a.CodigoModelo, a.Anio, a.tipoparte)
 
	Dim cargaalgrid As New yonker_sistemaDataSetTableAdapters.facturarepuestodetalleTableAdapter
	RadGridView1.DataSource = cargaalgrid.FillByCodigo(Me.Yonker_sistemaDataSet.facturarepuestodetalle, Convert.ToInt32(CodigoSucursalTextBox.Text), Convert.ToInt32(NumeroFacturaRepuestoTextBox.Text))
 
	trasedatosf()
Catch ex As Exception
	trasedatosf()
	MessageBox.Show("Asegurese que selecciono los datos correctos y que ninguno esta vacio.", "Sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
End Try
Espero que alguien me ayude!
mi correo por cualquier cosa: perdomokey@gmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Necesito Ayuda en un sistema de inventario y facturacio.

Publicado por Santiago (10 intervenciones) el 07/07/2016 21:00:23
Hola:

Perdona, pero ¿puedes depurar el código ejecutándolo paso a paso para detectar en qué momento se genera la Excepción?. Es por acotar el problema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar