* Agrego recorrido por los indices de factura

[z.facultad/75.06/emufs.git] / emufs / tipo2.c

diff --git a/emufs/tipo2.c b/emufs/tipo2.c
index d9105b5967cff0905e95971daf3b147d8b662d29..1fe644402006fc8de0e9d07b1cebf3b4f18b309f 100644 (file)
--- a/emufs/tipo2.c
+++ b/emufs/tipo2.c
@@ -181,7 +181,7 @@ EMUFS_REG_ID emufs_tipo2_grabar_registro(EMUFS *efs, void *ptr, EMUFS_REG_SIZE r
 }
 
 /* Borra un registro determinado y actualiza los archivos de Posicion Relativa (Indice-Offset) y el de Gaps */
-int emufs_tipo2_borrar_registro(EMUFS *efs, CLAVE k)
+int emufs_tipo2_borrar_registro(EMUFS *efs, CLAVE k, INDICE_DATO dato1)
 {      
        EMUFS_OFFSET reg_offset,reg_size;
        EMUFS_REG_ID id_reg;
@@ -202,6 +202,7 @@ int emufs_tipo2_borrar_registro(EMUFS *efs, CLAVE k)
 
        if (id_reg == -1) return EMUFS_NOT_FOUND;
        
+       emufs_indice_borrar(efs->indices, k, dato1);
        /* Obtenemos el Size del Registro en cuestion y hacemos un dummyfill*/
        emufs_tipo2_get_regsize(efs,reg_offset,&reg_size);      
        emufs_tipo2_dummyfill(efs,reg_offset,reg_size);
@@ -265,11 +266,9 @@ int emufs_tipo2_dummyfill(EMUFS *efs, EMUFS_OFFSET reg_pos, EMUFS_REG_SIZE amoun
 }
 
 /* Realiza la actualizacin de un registro ya existente */
-EMUFS_REG_ID emufs_tipo2_modificar_registro(EMUFS *efs, EMUFS_REG_ID id, void *data, EMUFS_REG_SIZE size, int *error)
+EMUFS_REG_ID emufs_tipo2_modificar_registro(EMUFS *efs, CLAVE k, void *data, EMUFS_REG_SIZE size, int *error, INDICE_DATO dato)
 {
-       CLAVE k;
-       k.i_clave = id;
-       emufs_tipo2_borrar_registro(efs, k);
+       emufs_tipo2_borrar_registro(efs, k, dato);
        return emufs_tipo2_grabar_registro(efs, data, size, error);
 }