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:
Espero que alguien me ayude!
mi correo por cualquier cosa: [email protected]
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 = 0CantidadActual = 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.facturarepuestodetalleTableAdapterRadGridView1.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
mi correo por cualquier cosa: [email protected]
Valora esta pregunta
0
