Ver Mensaje Individual
  #5 (permalink)  
Antiguo 05/06/2011, 15:20
guillebomtrasmiti
 
Fecha de Ingreso: noviembre-2010
Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 5 meses
Puntos: 5
Respuesta: no duplicar numero de factura

lo hago así por que lo pones en c# pero lo hago en .net...y no me va...seguro que hago mal la consulta a la base de datos verdad?¿?

Private Sub TextUnd_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextUnd.KeyPress
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''
'con este IF consigo que el punto siempre sea una coma
If e.KeyChar = "."c Then
e.Handled = True
TextUnd.Text += ","
TextUnd.SelectionStart = TextUnd.Text.Length
End If
'con este if convierto la pulsación hacia la tecla enter
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
'compruebo si factura tiene su número y paso el foco a formato compra, si no da mensaje de error

'con este if compruebo que la factura no esté ya en el historico
Dim Numeros As New ArrayList()
Dim ada As New OleDbDataAdapter
Dim data As New DataSet
Dim comando = conexion.CreateCommand

comando.CommandType = CommandType.Text
comando.CommandText = "Select NFacturaSRCabecera From LineasFacturasHCabecera"
ada.SelectCommand = comando
ada.Fill(data, "LineasFacturasHCabecera")
' aqui lo rellenas con una consulta a tu bd con ese campo
If Numeros.Contains(TextNFactura.Text) Then
' envias mensaje de que ya esta ese numero
MessageBox.Show("error, Número repetido")
TextNFactura.Text = ""
End If


If Not String.IsNullOrEmpty(TextNFactura.Text) Then

TextFComp.Focus()
Else
MessageBox.Show("Debe cubrir un número de factura campo obligatorio. ", "Información de Error")
End If
End If

End Sub