[Acdo-commit] CVS: acdo/src/test prueba_base_datos.adb,2.0,2.1

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

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

Modified Files:
	prueba_base_datos.adb 
Log Message:

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


Index: prueba_base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/test/prueba_base_datos.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** prueba_base_datos.adb	2001/05/10 19:59:32	2.0
--- prueba_base_datos.adb	2001/05/17 11:28:07	2.1
***************
*** 19,22 ****
--- 19,23 ----
  
    unitem : tpitem_access;
+   otroitem : tpitem_access;
    criterios : tpbusqueda;
    resul : tpbusqresul;
***************
*** 37,41 ****
    unitem.descripcion := U("Es un volumen de prueba");
    unitem.fecha_insercion := U("25/4/01");
!   unitem.tipo_dispositivo := U("Cipy");
  
    put_line("Vamos a insertar...");
--- 38,42 ----
    unitem.descripcion := U("Es un volumen de prueba");
    unitem.fecha_insercion := U("25/4/01");
!   unitem.tipo_dispositivo := U("Zip");
  
    put_line("Vamos a insertar...");
***************
*** 44,47 ****
--- 45,54 ----
  
    volid := id;
+ 
+   otroitem := new tpitem(VOLUMEN);
+   otroitem.identificador := volid;
+   completar(otroitem.all);
+   put("["); put(otroitem.titulo); put("]"); new_line;
+ 
    unitem := new tpitem(DIRECTORIO);
    unitem.padre_dir := -1;