Control Stock Simple

[[José Luis Garcí]]

De hecho yo cambiaría tu tabla de

Tabla Materiales: en resumen
(IDMateriales)
Nombre_Material
Cantidad
Fecha_Compra

a

Tabla Materiales: en resumen
(IDMateriales)
Nombre_Material
Prestado (char 1 sólo S o N)
Fecha_Compra

y lo que haría en el caso de prestamos más o menos el siguiente código

Código Delphi [-]
     //Hacemos el después de las comprobaciones Post de la tabla de prestamos
     if ibdMateriales.locate('ID',DsPrestamos.dataset.fieldbyname('IDMaterial').value,[lopartialkey, locasesensitive]) then
     begin
          ibdMAteriales.edit
          ibdMaterialesPRESTADO.value:='S';
           ibdMAteriales.Post;
     end;
     IBT.CommitRetaining;

En el caso de la devolución

Código Delphi [-]
     //Hacemos el después de las comprobaciones (la fecha de devolución y demás Post de la tabla de prestamos
     if ibdMateriales.locate('ID',DsPrestamos.dataset.fieldbyname('IDMaterial').value,[lopartialkey, locasesensitive]) then
     begin
          ibdMAteriales.edit
          ibdMaterialesPRESTADO.value:='N';
           ibdMAteriales.Post;
     end;
     IBT.CommitRetaining;

Espero te ayude mejor, pero recuerda esto sólo es valido, para prestamos y por artículos unitarios.