Visual Basic - Ayuda

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda

Publicado por Helena (27 intervenciones) el 30/05/2002 02:17:37
Hola a todos como estan? Les escribo para ver si aguno me puede decir como puedo hacer para que en una factura, rebaje el inventario automatimente un determinado producto, por ejemplo que me tire un mensaje si la cantidad excede las existencias, y que me tire otro mensaje diciendo que ese producto no se puede verder porque no hay.

Muchas Gracias,

Helena
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

RE:Ayuda

Publicado por alberto (278 intervenciones) el 30/05/2002 09:04:17
Lo que planteas es muy simple:
Antes de actualizar la tabla de facturas, haz una consulta sobre la cantidad disponible del material en cuestión, comprobando si hay suficientes y actuando en consecuencia, si hay suficiente resta la cantidad de la factura a la cantidad existente.

Ejemplo (ADO):

Dim R As New ADODB.Recordset

R.Open "SELECT Disponible FROM Inventario WHERE Material=" & MaterialSeleccionado, _
Conexion, adOpenDynamic, adLockOptimistic

If R!Disponible >= CantidadSolicitada Then
R!Disponible = R!Disponible - CantidadSolicitada
R.Update
'Actualizar Facturas
Else
MsgBox "Cantidad Disponible sobrepasada"
'No Actualizar Facturas
End If
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