Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
Public Class NUEVOARTICULOTELEFONIA
Private Sub LineaspartetelfBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.LineaspartetelfBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.AvisosDataSet)
End Sub
Private Sub NUEVOARTICULOTELEFONIA_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtParte.Text = INTERCAMBIO.ParteTelefonia
txtArticulo.Select()
'TODO: esta línea de código carga datos en la tabla 'AvisosDataSet.lineaspartetelf' Puede moverla o quitarla según sea necesario.
Me.LineaspartetelfTableAdapter.Fill(Me.AvisosDataSet.lineaspartetelf)
End Sub
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
txtTotal.Text = CDbl(txtCantidad.Text) * CDbl(txtPrecio.Text)
Me.LineaspartetelfTableAdapter.agregararticulo(txtArticulo.Text, txtCantidad.Text, txtPrecio.Text, txtTotal.Text, txtParte.Text)
DETALLETELEFONIA.LineaspartetelfTableAdapter.filtroparte(DETALLETELEFONIA.AvisosDataSet.lineaspartetelf, txtParte.Text)
Dim linea As DataGridViewRow
Dim valor As Double
For Each linea In DETALLETELEFONIA.LineaspartetelfDataGridView.Rows
valor = valor + linea.Cells(3).Value
Next
DETALLETELEFONIA.txtTotalParte.Text = FormatNumber(valor, 2) & " €"
txtArticulo.Text = ""
txtCantidad.Text = ""
txtPrecio.Text = ""
txtTotal.Text = ""
txtArticulo.Select()
End Sub
Private Sub TxtCantidad_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCantidad.KeyPress
If Char.IsNumber(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub TxtPrecio_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPrecio.KeyPress
If Char.IsNumber(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar = "." Then
e.KeyChar = ","
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub BtnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
Me.Close()
End Sub
End Class
‘ … … …
Dim valor As Double = 0 ' Siempre iniciar una variable para totalizar
For Each linea In DETALLETELEFONIA.LineaspartetelfDataGridView.Rows
valor = valor + CType(linea.Cells(3).Value, Double) ' Convertir !!!
Next
‘ … … …
Private Function PuntoComa(ByVal Valor As String) As String
Dim Prueba As String = "1,2"
Dim PruebaNum As Single
Try
PruebaNum = CType(Prueba, Single)
Prueba = Valor.Replace(".", ",")
Catch ex As Exception
Prueba = Valor.Replace(",", ".")
End Try
Return Prueba
End Function
‘ txtTotal.Text = CDbl(txtCantidad.Text) * CDbl(txtPrecio.Text)
txtTotal.Text = CType(PuntoComa(txtCantidad.Text), Double) * CType(PuntoComa(txtPrecio.Text), Double)
