]> git.llucax.com Git - mecon/samurai.git/commitdiff
Finalizada las consultas de los sistemas. Se puede ver la informacion y reactivar...
authorMartín Marrese <marrese@gmail.com>
Thu, 2 Oct 2003 15:50:10 +0000 (15:50 +0000)
committerMartín Marrese <marrese@gmail.com>
Thu, 2 Oct 2003 15:50:10 +0000 (15:50 +0000)
doc/Samurai.xmi
lib/SAMURAI/Sistema.php
sistema/conf/confSecciones.php
sistema/www/consultas/consultas.php
sistema/www/consultas/sistemas-activar.php [new file with mode: 0644]
sistema/www/consultas/sistemas.php
sistema/www/sistemas/sistemas.php

index dc9ee0d5dfd143b3b364d81accd6b1f0f56f658a..99ffc915f5d119fcd618586a0b7b9fa9cc32456b 100644 (file)
@@ -207,7 +207,7 @@ x2c: get set" name="permisos" static="0" scope="201" />
     <UML:Attribute stereotype="" package="" xmi.id="300" value="null" type="array" abstract="0" documentation="Array asociativo (id - descripcion) con los permisos asociados al sistema." name="permisos" static="0" scope="202" />
     <UML:Attribute stereotype="" package="" xmi.id="310" value="null" type="array" abstract="0" documentation="Array con los permisos asociados al sistema
 x2c: get set" name="asociaciones" static="0" scope="202" />
-    <UML:Attribute stereotype="" package="" xmi.id="395" value="0" type="int" abstract="0" documentation="indica si el sistema esta activo o no.
+    <UML:Attribute stereotype="" package="" xmi.id="395" value="1" type="int" abstract="0" documentation="indica si el sistema esta activo o no.
 x2c: get set" name="estado" static="0" scope="202" />
    </UML:Class>
    <UML:Class stereotype="" package="" xmi.id="210" abstract="0" documentation="Clase para el manejo de los Permisos." name="SAMURAI_Permiso" static="0" scope="200" >
@@ -280,7 +280,7 @@ x2c:set" name="sistema" static="0" scope="202" />
    <UML:Association nameb="" stereotype="" visibilitya="200" visibilityb="200" assoctype="500" rolea="265" roleb="264" multia="" doca="" multib="" docb="" package="" xmi.id="-1" abstract="0" documentation="" name="" static="0" scope="200" changeabilitya="900" changeabilityb="900" namea="" />
   </umlobjects>
   <diagrams>
-   <diagram snapgrid="1" showattsig="1" fillcolor="#ffffc0" zoom="100" showgrid="1" showopsig="1" usefillcolor="1" snapx="10" canvaswidth="911" snapy="10" showatts="1" xmi.id="206" documentation="" type="402" showops="1" showpackage="0" name="Clases y Relaciones" localid="30000" showstereotype="0" showscope="1" snapcsgrid="0" font="helvetica,4,-1,0,50,0,0,0,0,0" linecolor="#ff0000" canvasheight="644" >
+   <diagram snapgrid="1" showattsig="1" fillcolor="#ffffc0" zoom="100" showgrid="1" showopsig="1" usefillcolor="1" snapx="10" canvaswidth="911" snapy="10" showatts="1" xmi.id="206" documentation="" type="402" showops="1" showpackage="0" name="Clases y Relaciones" localid="30000" showstereotype="0" showscope="1" snapcsgrid="0" font="helvetica,4,-1,0,50,0,0,0,0,0" linecolor="#ff0000" canvasheight="658" >
     <widgets>
      <UML:ClassWidget usesdiagramfillcolour="0" width="157" showattsigs="601" usesdiagramusefillcolour="0" x="750" linecolour="#ff0000" y="290" showopsigs="600" instancename="" usesdiagramlinecolour="0" fillcolour="#ffffc0" height="266" usefillcolor="1" showattributes="1" isinstance="0" xmi.id="207" showoperations="1" showpackage="0" showscope="1" showstereotype="0" font="helvetica,8,-1,0,50,0,0,0,0,0" />
      <UML:ClassWidget usesdiagramfillcolour="0" width="110" showattsigs="601" usesdiagramusefillcolour="0" x="640" linecolour="#ff0000" y="10" showopsigs="600" instancename="" usesdiagramlinecolour="0" fillcolour="#ffffc0" height="308" usefillcolor="1" showattributes="1" isinstance="0" xmi.id="208" showoperations="1" showpackage="0" showscope="1" showstereotype="0" font="helvetica,8,-1,0,50,0,0,0,0,0" />
@@ -443,11 +443,11 @@ x2c:set" name="sistema" static="0" scope="202" />
        <listitem open="0" type="815" id="295" label="obtenerDatosDb" />
       </listitem>
       <listitem open="1" type="813" id="209" label="SAMURAI_Sistema" >
-       <listitem open="0" type="814" id="395" label="estado" />
        <listitem open="0" type="814" id="310" label="asociaciones" />
        <listitem open="0" type="814" id="242" label="contacto" />
        <listitem open="0" type="814" id="272" label="db" />
        <listitem open="0" type="814" id="238" label="descripcion" />
+       <listitem open="0" type="814" id="395" label="estado" />
        <listitem open="0" type="814" id="240" label="fecha_fin" />
        <listitem open="0" type="814" id="241" label="fecha_implementacion" />
        <listitem open="0" type="814" id="239" label="fecha_inicio" />
index 8124a37d97349bc60da2b4abf39b94fe240f6105..eacb7d5c8ae40efaf8673acdeb9c197fef7842ca 100644 (file)
@@ -129,7 +129,7 @@ class SAMURAI_Sistema {
      * @var    int $estado
      * @access protected
      */
-    var $_estado = 0;
+    var $_estado = 1;
 
     /**
      * Gets Asociaciones.
@@ -604,7 +604,7 @@ class SAMURAI_Sistema {
                     'fecha_implementacion'  => $fecha_implementacion ? $fecha_implementacion->format("%Y-%m-%d") : null,
                     'contacto'              => $this->getContacto(),
                     'responsable'           => $this->getResponsable(),
-                    'estado'                => 1
+                    'estado'                => $this->getEstado()
                 );                
         $res = $this->_db->autoExecute('samurai.sistema', $datos, DB_AUTOQUERY_INSERT);
         
@@ -670,6 +670,7 @@ class SAMURAI_Sistema {
                     'fecha_implementacion'  => $fecha_implementacion ? $fecha_implementacion->format("%Y-%m-%d") : null,
                     'contacto'              => $this->getContacto(),
                     'responsable'           => $this->getResponsable(),
+                    'estado'                => $this->getEstado()
                 );                
         $res = $this->_db->autoExecute('samurai.sistema', $datos, DB_AUTOQUERY_UPDATE, 'id_sistema = '.$idSistema);
         if (PEAR::isError($res)) {
index 8412fef595941ddc376b9b878b5615c97a7cbb17..b1cc64c4dc08269be7cebf35d665187e8b0e6c0c 100644 (file)
@@ -95,6 +95,9 @@
                                     array ( 'nombre'   => 'Sistemas',   
                                             'link'     => 'consultas/sistemas',  
                                     ),
+                                    array ( 'nombre'   => 'Activar Sistemas',   
+                                            'link'     => 'consultas/sistemas-activar',  
+                                    ),
                                     array ( 'nombre'   => 'Ver Informacion Usuarios',   
                                             'link'     => 'consultas/info-usuarios',  
                                     ),
index e6baaaf388c813d989ac867007ac599040e58e9a..a2610065ac76db22d41ca6491c7315a448753d73 100644 (file)
 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
 $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
 //}}}
-    //VEO SI HAY QUE ELEGIR EN QUE SISTEMA TRABAJAR {{{
-    if (!@$_SESSION['samurai']['id_sistema']) {
-        header('Location: ./../sel-sistema?redirect=consultas/consultas');    
-    }
-    // }}}  
 //REQUIRE ONCE {{{
     require_once 'MECON/HTML/Tabla.php';
     require_once 'MECON/HTML/Link.php';
diff --git a/sistema/www/consultas/sistemas-activar.php b/sistema/www/consultas/sistemas-activar.php
new file mode 100644 (file)
index 0000000..eae28e5
--- /dev/null
@@ -0,0 +1,277 @@
+<?php
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
+// +----------------------------------------------------------------------+
+// | PHP Version 4                                                        |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1997-2003 The PHP Group                                |
+// +----------------------------------------------------------------------+
+// | This source file is subject to version 2.02 of the PHP license,      |
+// | that is bundled with this package in the file LICENSE, and is        |
+// | available at through the world-wide-web at                           |
+// | http://www.php.net/license/2_02.txt.                                 |
+// | If you did not receive a copy of the PHP license and are unable to   |
+// | obtain it through the world-wide-web, please send a note to          |
+// | license@php.net so we can mail you a copy immediately.               |
+// +----------------------------------------------------------------------+
+// | Created: jue oct  2 12:33:34 ART 2003
+// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
+// +----------------------------------------------------------------------+
+//
+// $Id$
+// 
+
+//Require_once {{{
+    //PEAR{{{
+    require_once 'HTML/Table.php';
+    //}}}
+    //Mecon {{{
+    require_once 'MECON/HTML/Tabla.php';
+    require_once 'MECON/HTML/Image.php';
+    require_once 'MECON/HTML/Link.php';
+    //}}}
+    //Samurai {{{
+    require_once 'SAMURAI/Sistema.php';
+    require_once 'SAMURAI/Usuario.php';
+    require_once 'SAMURAI/Perfil.php';
+    require_once 'SAMURAI/Permiso.php';
+    //}}}
+//}}}
+
+//Verifico si se tiene acceso a la pagina {{{
+    $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
+//}}}
+
+//Obtengo el id del sistema {{{
+    $id_sist = (@$_REQUEST['id_sist']) ? $_REQUEST['id_sist'] : null; 
+//}}}
+
+//Creo la tabla volver {{{
+    $T_VOLVER     =& new HTML_Table('width="760"');
+    $IMG_VOLVER   =& new MECON_HTML_Image('/MECON/images/general_anterior.gif');
+    $LINK_VOLVER  =& new MECON_HTML_Link('', $IMG_VOLVER);
+//}}}
+    
+//LISTADO {{{
+if (@!$id_sist) {
+    //Creo los objetos necesarios {{{
+        $T_SISTEMAS =& new MECON_HTML_Tabla();
+        $IMG  =& new MECON_HTML_Image('/MECON/images/general_ir4.gif');
+        $LINK =& new MECON_HTML_Link('sistemas-activar');
+    //}}}
+    
+    //Obtengo la lista de sistemas (habilitados y no habilitados) {{{
+        $sistemas = SAMURAI_Sistema::getSistemas($DB, false);
+    //}}}
+        
+    //Agrego la informacion a la tabla de sistemas {{{
+        $T_SISTEMAS->addRow(array('Listado de Sistemas Inactivos'), 'cabecera
+                colspan="4"');
+        $T_SISTEMAS->addRow(array('Id', 'Nombre', 'Descripcion', 'Activar'), 
+                'titulo');
+        //Agrego la info de los sistemas
+        foreach ($sistemas as $sistema) {
+            if (!$sistema->getEstado()) {
+                $LINK->setContents($IMG);
+                $LINK->setGetVars(
+                            array(
+                                'id_sist' => $sistema->getId(),
+                            )
+                           );
+                $row = array (  $sistema->getId(),
+                                $sistema->getNombre(),
+                                $sistema->getDescripcion(),
+                                $LINK->toHtml()
+                        );
+                $T_SISTEMAS->addRow($row);
+            }
+        } 
+        $T_SISTEMAS->updateColAttributes(0, 'width="5%" align="center"');
+        $T_SISTEMAS->updateColAttributes(1, 'width="20%" align="center"');
+        $T_SISTEMAS->updateColAttributes(3, 'width="5%" align="center"');
+        $T_SISTEMAS->updateRowAttributes(0, 'align="left"');
+    //}}}
+    
+    //Agrego la informacion al marco {{{
+        $LINK_VOLVER->setHref('consultas');
+        $MARCO->addBodyContent($T_SISTEMAS);
+        $MARCO->addTitle('Estadisticas de Sistemas');
+        $MARCO->addBodyContent('<BR>');
+        $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
+        $MARCO->addBodyContent($T_VOLVER);
+  //}}}
+}
+//}}}
+
+//ESTADISTICAS_SISTEMAS = INFORMACION DE UN SISTEMA {{{
+elseif (@!$accion || $accion == 'info_informacion') {
+    //Creo los objetos necesarios {{{
+        $T_SISTEMA  =& new MECON_HTML_Tabla();
+        $T_SISTEMA2 =& new MECON_HTML_Tabla();
+        $T_EST =& new MECON_HTML_Tabla('width="300"');
+        $SISTEMA =& new SAMURAI_Sistema($DB, $id_sist);
+        $IMG_ACTIVO  =& new MECON_HTML_Image('/MECON/images/general_tilde_azul.gif');
+        $IMG_NACTIVO =& new MECON_HTML_Image('/MECON/images/general_cruz_roja.gif');
+        $IMG_SEP =& new MECON_HTML_Image('../images/linea_separacion.gif');
+        
+        $LINK_USUARIOS =& new MECON_HTML_Link('sistemas', '', array('accion' =>
+                    'info_informacion', 'subaccion' => 'info_usuarios',
+                    'id_sist' => $id_sist));
+        $LINK_PERFILES =& new MECON_HTML_Link('sistemas', '', array('accion' =>
+                    'info_informacion', 'subaccion' => 'info_perfiles',
+                    'id_sist' => $id_sist));
+        $LINK_PERMISOS =& new MECON_HTML_Link('sistemas', '', array('accion' =>
+                    'info_informacion', 'subaccion' => 'info_permisos',
+                    'id_sist' => $id_sist));
+    //}}}
+
+    //Agrego la informacion del sistema seleccionado {{{
+        $T_SISTEMA->addRow(array('Datos del Sistema Seleccionado'),'cabecera
+                colspan="4"');
+        $T_SISTEMA->addRow(array('Id', 'Nombre', 'Descripcion', 'Activo'), 
+                'titulo');
+        $T_SISTEMA->addRow(array(
+                            $SISTEMA->getId(),
+                            $SISTEMA->getNombre(),
+                            $SISTEMA->getDescripcion(),
+                           ($SISTEMA->getEstado()) ? $IMG_ACTIVO : $IMG_NACTIVO,
+                           )
+                    );
+        $T_SISTEMA->updateColAttributes(0, 'width="5%" align="center"');
+        $T_SISTEMA->updateColAttributes(1, 'width="20%" align="center"');
+        $T_SISTEMA->updateColAttributes(3, 'width="5%" align="center"');
+        $T_SISTEMA->updateRowAttributes(0, 'align="left"');
+
+        $fch_ini =& $SISTEMA->getFechaInicio();
+        $fch_fin =& $SISTEMA->getFechaFin();
+        $fch_imp =& $SISTEMA->getFechaImplementacion();
+        
+        $T_SISTEMA2->addRow(array('Fecha Inicio', 'Fecha Fin', ' Fecha
+                    Imp', 'Contacto'), 'titulo');
+        $T_SISTEMA2->addRow(array(
+                                ($fch_ini) ? $fch_ini->format("%d-%m-%Y") : '--',
+                                ($fch_fin) ? $fch_fin->format("%d-%m-%Y") : '--',
+                                ($fch_imp) ? $fch_imp->format("%d-%m-%Y") : '--',
+                                $SISTEMA->getContacto()
+                            )
+                           );
+        $T_SISTEMA2->updateColAttributes(0, 'width="15%" align="center"');
+        $T_SISTEMA2->updateColAttributes(1, 'width="15%" align="center"');
+        $T_SISTEMA2->updateColAttributes(2, 'width="15%" align="center"');
+    //}}}
+
+    //Obtengo la info necesaria {{{
+        $usuarios = SAMURAI_Usuario::_getLoginUsuarios($DB, $id_sist);
+        $perfiles = SAMURAI_Perfil::_getIdPerfiles($DB, null, $id_sist);
+        $permisos = SAMURAI_Permiso::_getIdPermisos($DB, $id_sist);
+    //}}}
+        
+    //Agrego la informacion {{{
+        $T_EST->addRow(array('Estadisticas'), 'cabecera colspan="3"');
+        $T_EST->addRow(array('Usuarios', 'Perfiles', 'Permisos'), 'titulo');
+        $T_EST->updateColAttributes(0, 'width="33%" align="center"');
+        $T_EST->updateColAttributes(1, 'width="33%" align="center"');
+        $T_EST->updateColAttributes(2, 'width="33%" align="center"');
+
+        if (count($usuarios)) {
+            $LINK_USUARIOS->setContents(count($usuarios));
+        }
+        else {
+            $LINK_USUARIOS->setContents('0');
+            $LINK_USUARIOS->setGetVars(array());
+            $LINK_USUARIOS->setHref('#');
+        }
+        if (count($perfiles)) {
+            $LINK_PERFILES->setContents(count($perfiles));
+        }
+        else {
+            $LINK_PERFILES->setContents('0');
+            $LINK_PERFILES->setGetVars(array());
+            $LINK_PERFILES->setHref('#');
+        }
+        if (count($permisos)) {
+            $LINK_PERMISOS->setContents(count($permisos));
+        }
+        else {
+            $LINK_PERMISOS->setContents('0');
+            $LINK_PERMISOS->setHref('#');
+            $LINK_PERMISOS->setGetVars(array());
+        }
+        
+
+        
+        $T_EST->addRow(array(
+                        $LINK_USUARIOS->toHtml(),
+                        $LINK_PERFILES->toHtml(),
+                        $LINK_PERMISOS->toHtml(),
+                       )
+                      );
+    //}}}
+    
+    //Actuo segun la subaccion {{{
+        if (@$subaccion == 'info_usuarios') {
+            $T_SUBACCION =& new MECON_HTML_Tabla();
+            
+            $usu = SAMURAI_Usuario::getUsuarios($DB, $id_sist);
+            $T_SUBACCION->addRow(array('Datos de los Usuarios'), 'colspan="2"
+                    cabecera');
+            $T_SUBACCION->addRow(array('Login', 'Nombre'), 'titulo');
+            foreach ($usu as $u) {
+                $T_SUBACCION->addRow(array($u->getLogin(), $u->getNombre()));
+            }
+            
+            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
+        }
+        elseif (@$subaccion == 'info_perfiles') {
+            $T_SUBACCION =& new MECON_HTML_Tabla();
+            
+            $usu = SAMURAI_Perfil::getPerfiles($DB, '', $id_sist);
+            $T_SUBACCION->addRow(array('Datos de los Perfiles'), 'colspan="2"
+                    cabecera');
+            $T_SUBACCION->addRow(array('Id', 'Descripcion'), 'titulo');
+            foreach ($usu as $u) {
+                $T_SUBACCION->addRow(array($u->getId(), $u->getDescripcion()));
+            }
+            
+            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
+        }
+        elseif (@$subaccion == 'info_permisos') {
+            $T_SUBACCION =& new MECON_HTML_Tabla();
+            
+            $T_SUBACCION->addRow(array('Datos de los Permisos'), 'colspan="3"
+                    cabecera');
+            $T_SUBACCION->addRow(array('Id', 'Descripcion', 'Observacion'), 'titulo');
+            foreach ($SISTEMA->getAsociaciones() as $asoc) {
+                $T_SUBACCION->addRow(array($asoc['id'], $asoc['desc'],
+                            $asoc['obs']));
+            }
+            $T_SUBACCION->updateRowAttributes(0, 'align="left"');
+        }
+    //}}}
+        
+    //Agrego la informacion al marco {{{
+        $LINK_VOLVER->setHref('sistemas');
+        $LINK_VOLVER->setGetVars(array('accion' => 'info_listado'));
+        $MARCO->addBodyContent($T_SISTEMA);
+        $MARCO->addBodyContent($T_SISTEMA2);
+        $MARCO->addBodyContent($IMG_SEP);
+        $MARCO->addBodyContent($T_EST);
+
+        if (@$subaccion) {
+            $MARCO->addBodyContent($IMG_SEP);
+            $MARCO->addBodyContent($T_SUBACCION);
+        }
+        
+        $MARCO->addTitle('Estadisticas de Sistemas');
+        $MARCO->addBodyContent('<BR>');
+        $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
+        $MARCO->addBodyContent($T_VOLVER);
+    //}}}
+}
+//}}}
+
+//MUESTRO LA INFORMACION {{{
+    $MARCO->display();
+    exit;
+//}}}
+
+?>
index e3ecfdded2c5fc198bc606cfa2d0afdf002ff727..72e875594701c2676bef8aaf44ded5d83358e9ca 100644 (file)
@@ -271,6 +271,73 @@ elseif (@!$accion || $accion == 'info_informacion') {
 }
 //}}}
 
+//ACTIVAR_SISTEMAS {{{
+elseif (@!$accion || $accion == 'activar_sistema') {
+    //Creo los objetos necesarios {{{
+        $T_SISTEMAS =& new MECON_HTML_Tabla();
+        $IMG  =& new MECON_HTML_Image('/MECON/images/general_tilde_azul.gif');
+        $LINK =& new MECON_HTML_Link('sistemas');
+    //}}}
+    
+    //Obtengo la lista de sistemas (habilitados y no habilitados) {{{
+        $sistemas = SAMURAI_Sistema::getSistemas($DB, false);
+    //}}}
+        
+    //Agrego la informacion a la tabla de sistemas {{{
+        $T_SISTEMAS->addRow(array('Listado de Sistemas de Sistemas Inactivos'), 'cabecera
+                colspan="4"');
+        $T_SISTEMAS->addRow(array('Id', 'Nombre', 'Descripcion', 'Activar'), 
+                'titulo');
+        //Agrego la info de los sistemas
+        foreach ($sistemas as $sistema) {
+            if (!$sistema->getEstado()) {
+                $LINK->setContents($IMG);
+                $LINK->setGetVars(
+                            array(
+                                'accion'  => 'activar_sistema_activar',
+                                'id_sist' => $sistema->getId(),
+                            )
+                           );
+                $row = array (  $sistema->getId(),
+                                $sistema->getNombre(),
+                                $sistema->getDescripcion(),
+                                $LINK->toHtml()
+                        );
+                $T_SISTEMAS->addRow($row);
+            }
+        } 
+        $T_SISTEMAS->updateColAttributes(0, 'width="5%" align="center"');
+        $T_SISTEMAS->updateColAttributes(1, 'width="20%" align="center"');
+        $T_SISTEMAS->updateColAttributes(3, 'width="5%" align="center"');
+        $T_SISTEMAS->updateRowAttributes(0, 'align="left"');
+    //}}}
+    
+    //Agrego la informacion al marco {{{
+        $LINK_VOLVER->setHref('consultas');
+        $MARCO->addBodyContent($T_SISTEMAS);
+        $MARCO->addTitle('Activacion de Sistemas');
+        $MARCO->addBodyContent('<BR>');
+        $T_VOLVER->addRow(array($LINK_VOLVER->toHtml()), 'align="left"');
+        $MARCO->addBodyContent($T_VOLVER);
+  //}}}
+}
+//}}}
+
+//ACTIVAR_SISTEMAS_ACTIVAR {{{
+elseif (@!$accion || $accion == 'activar_sistema_activar') {
+    
+    //Creo los objetos necesarios {{{
+    $SISTEMA =& new SAMURAI_Sistema($DB, $id_sist);
+    //}}}
+    //Guardo la informacion {{{
+    $SISTEMA->setEstado(1);
+    $SISTEMA->guardarDatos('modificar');
+    //}}}
+    
+    header ('Location: sistemas?accion=activar_sistema');
+}
+//}}}
+
 //MUESTRO LA INFORMACION {{{
     $MARCO->display();
     exit;
index 16dadba65261ae19cdc5150d22cfd12c8c41fbac..5bcd329634e5a9327c776f18a6d9f7fcb234c9d2 100644 (file)
@@ -65,6 +65,10 @@ $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
                 );
         $TABLA->addRow($row);
     }
+    $TABLA->updateColAttributes(0, 'width="5%"');
+    $TABLA->updateColAttributes(2, 'width="8%"');
+    $TABLA->updateColAttributes(3, 'width="8%"');
+    $TABLA->updateColAttributes(4, 'width="8%"');
 
     //Agrego las cosas al cuerpo de la pagina