Control Stock Simple

[[newtron]]

Empezado por José Luis Garcí

De hecho yo cambiaría tu tabla de



a



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.

Yo esa opción no la usaría porque imagino que se dará la posibilidad de tener varios libros iguales con lo que tendrían que tener un pequeño control de existencias, es mejor mantener un número.

Saludos