(line 1)->open (FICHEROCFG, "<$fichero_cfg") or die "No se puede abrir el fichero de configuracion de transacciones $fichero_cfg!!\n";
while ($linea=<FICHEROCFG>) {
 	($var1,$var2,$var3,$var4) = split (",", $linea);
    $indice = $#{$db{$var1}} + 1;
    $db{$var1}{'counter'} = '';
    $db{$var1}[$indice]{'Entidad'} = $var2;
	$db{$var1}[$indice]{'Agrupacion'} = $var3;
	$db{$var1}[$indice]{'Transaccion'} = $var4;

}