[Acdo-commit] CVS: acdo/src/pkg base_datos.adb,2.0,2.1 base_datos.ads,2.0,2.1

[Juan M. P. B. <ju...@us...>]

Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv14530/src/pkg

Modified Files:
	base_datos.adb base_datos.ads 
Log Message:

Añadida la función completar de la base de datos


Index: base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** base_datos.adb	2001/05/10 19:59:32	2.0
--- base_datos.adb	2001/05/17 11:28:07	2.1
***************
*** 9,12 ****
--- 9,13 ----
  with postgresql; use postgresql;
  with preferencias; use preferencias;
+ with ada.text_IO; use ada.text_IO;
  
  package body base_datos is
***************
*** 233,236 ****
--- 234,278 ----
      end if;
    end borrar;
+ 
+   procedure completar(item: in out tpitem) is
+     -- Dado un item con el identificador y el tipo del item lo completa
+ 
+     res : tppgresultado;
+ 
+   begin
+     if estado = DESCONECTADO then
+       raise ERROR_ESTADO;
+     else
+       if item.tipo = VOLUMEN then
+         consulta(conexion, res, "select idVol,titulo,tema,fecha,codigo,medio,descripcion,idraiz from volumen where idvol=" & integer'image(item.identificador) & ";");
+         item.titulo := campo(res, 1, 2);
+         item.tema := campo(res, 1, 3);
+         item.fecha_insercion := campo(res, 1, 4);
+         item.codigo := campo(res, 1, 5);
+         item.tipo_dispositivo := campo(res, 1, 6);
+         item.descripcion := campo(res, 1, 7);
+         if S(campo(res, 1, 8)) = "" then
+           item.dir_raiz := -1;
+         else
+           item.dir_raiz := integer'value(S(campo(res, 1, 8)));
+         end if;
+       elsif item.tipo = DIRECTORIO then
+         consulta(conexion, res, "select idDir,nombre,nombre_completo,fecha,tamanyo,idvol,idpadre from directorio where iddir=" & integer'image(item.identificador) & ";");
+         item.nombre_dir := campo(res, 1, 2);
+         item.nombre_completo_dir := campo(res, 1, 3);
+         item.fecha_dir := campo(res, 1, 4);
+         item.tamanyo_dir := integer'value(S(campo(res, 1, 5)));
+         item.volumen := integer'value(S(campo(res, 1, 6)));
+         item.padre_dir := integer'value(S(campo(res, 1, 7)));
+       else
+         consulta(conexion, res, "select idFich,nombre,fecha,tamanyo,idDir from fichero where idfich=" & integer'image(item.identificador) & ";");
+         item.nombre_fich := campo(res, 1, 2);
+         item.fecha_fich := campo(res, 1, 3);
+         item.tamanyo_fich := integer'value(S(campo(res, 1, 4)));
+         item.padre_fich := integer'value(S(campo(res, 1, 5)));
+       end if;
+     end if;
+   end completar;
+ 
  
    procedure buscar(criterios: tpbusqueda) is

Index: base_datos.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.ads,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** base_datos.ads	2001/05/10 19:59:32	2.0
--- base_datos.ads	2001/05/17 11:28:07	2.1
***************
*** 31,34 ****
--- 31,37 ----
    procedure borrar(item: tpitem);
  
+   procedure completar(item: in out tpitem);
+     -- Dado un item con el identificador y el tipo del item lo completa
+ 
    procedure buscar(criterios: tpbusqueda);
      -- Busca ficheros