en que me falla esto
Publicado por Oswal (5 intervenciones) el 14/06/2018 22:25:34
como hacer que mi textbox que esta desclarado en integer no me marque 0 cuando esta vacio. por que entonces no me validara
este es el codigo que uso
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
36
37
38
39
40
41
Dim c, disponible As Integerc = Convert.ToDouble(Tbcantidadpedido.Text)
disponible = Convert.ToDouble(TBcantidadisponibel.Text)
If ((Tbcantidadpedido.Text = "") Or (c = 0)) Then
Tbcantidadpedido.Clear()
Tbcantidadpedido.Focus()
MsgBox("¡Error!... Debe Tener en cuenta que debe Ingresar una Cantidad", MsgBoxStyle.Critical, "Cantidad")
Else
If disponible = 0 ThenMsgBox("¡Atención!... No hay Producto Disponible Para Salida", MsgBoxStyle.Critical, "Cantidad")
limpieza()
Else
If (Tbcantidadpedido.Text > TBcantidadisponibel.Text) Then
MsgBox("¡Error!... Supera el limite del Producto disponible ", MsgBoxStyle.Critical, "Cantidad")
Tbcantidadpedido.Clear()
Tbcantidadpedido.Focus()
Else
agregarfila()
agregaradtgsalida()
restadelproducto()
SQLDAProducto.Update(DSsalida1.Producto)
SQLDAProducto.Fill(DSsalida1.Producto)
eventodelcomboproduc()
limpieza()
DTGWsalida.Enabled = True
PBAceptar.Enabled = True
End If
End If
End If
este es el codigo que uso
Valora esta pregunta
0