De hecho yo cambiaría tu tabla de
Cita:
Tabla Materiales: en resumen
(IDMateriales)
Nombre_Material
Cantidad
Fecha_Compra
|
a
Cita:
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
[-]
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
[-]
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.