Inventario

Lo que estás haciendo están bien, sólo que debes validar que el número de salidas no debe ser mayor que el número de existencias y tienes que tener en cuenta que debes restar la cantidad existente más las entradas de unidades menos las ventas más las salidas más las devoluciones más las unidades dañadas si las hay las dos últimas aquí y como es en un entorno multiusuario, debes tener en cuenta cuando se ingresa un registro y cuando se edita uno ya existente, aquí te pego un ejemplo de código:
llSucess = Cursorsetprop('Buffering', 5, "Articulos")
If llSucess && Entonces se ha agregado un nuevo registro.
If Seek(lcCodArt, "Articulos", "Cod_art")
If Rlock() Then
If !lgValue Then && Cuando el parámetro recibido de tipo lógico es verdadero.
If lcContinue = .F. && El inventario no ha disminuido
Replace Articulos.lExt_art With Articulos.Ext_art
Replace Articulos.Ext_art With Articulos.Ext_art - (tcValue * Articulos.Eqv_art)
Else && El inventario ha disminuido.
Replace Articulos.Ext_art With (Articulos.lExt_art - (lcSalesItem + tcValue;
+ lcExitsValue + lcLostValue) * Articulos.Eqv_art);
+ (lcEntryValue * Articulos.Eqv_art)
Endif
Else && Cuando el parámetro recibido de tipo lógico es falso.
If lcContinue = .F. && Se edita el registro y el inventario no ha disminuido.
Replace Articulos.Ext_art With Articulos.lExt_art - ((lcSalesItem + tcValue) * Articulos.Eqv_art)
Else && Se edita el registro y el inventario ha disminuido.
Replace Articulos.Ext_art With (Articulos.lExt_art - ((lcSalesItem + tcValue + lcExitsValue + lcLostValue) *;
Articulos.Eqv_art)) + (lcEntryValue * Articulos.Eqv_art)
Endif
Endif
lcResult = Articulos.Ext_art
If lcResult < 0
=TableRevert(.F.)
Else
=TableUpdate(.T.)
Endif
Unlock
Esto te puede servir de ayuda...

me parece interesenta solo tengo una duda yo tengo un campo reserva porque hay mas de un facturador y cuando estan consultando existencias de articulos sera que tengo que bloquear la tabla.... y cuando imprimo la factura resto reserva y existencia, sera que me podes aclarar esta situacion te pongo el codigo para mejorar la explicacion.... If !lgValue,  If lcContinue esta parte del codigo no me queda muy clara, gracias por tu valioso tiempo experto
SELECT existencias
LOCATE FOR producto=thisform.coD.Value  
IF FOUND()
IF existencias.existencia>0 AND existencias.reserva>=0
IF (existencias.existencia-existencias.reserva)>0         
IF m_sale>(existencias.existencia-existencias.reserva)
MESSAGEBOX("No hay suficiente existencia en bodega      "+CHR(13),16,m_empresa)
thisform.uniDADES.Value = 0
return .f.
ENDIF    
ELSE
MESSAGEBOX("No hay suficiente existencia en bodega      "+CHR(13),16,m_empresa)
thisform.uniDADES.Value = 0
return .f.
endif
ELSE
IF existencias.reserva<0
MESSAGEBOX("Reserva negativa, actualize reserva      "+CHR(13),16,m_empresa)
thisform.uniDADES.Value = 0
return .f.
ELSE                        
MESSAGEBOX("No hay suficiente existencia en bodega      "+CHR(13),16,m_empresa)
                        thisform.uniDADES.Value = 0
return .f.
Endif
Endif
Endif

No tienes ni debes bloquear la tabla ya que no se van a modificar los datos sino a consultar e imprimir la información y lgValue indica si el usuario está insertando un nuevo registro o editando uno ya existente.
Cualquier duda me comentas...

Gracias por tu tiempo y perdón pero es que soy bien pregunto... mi proceso es de consulta pero que pasa si mientras esta consultando otra persona consulta también y primero le da agregar y que pasa si el encargado de inventario hace una entrada o una devolución... gracias por tu fino tiempo experto