X-Git-Url: https://git.llucax.com/mecon/meconlib.git/blobdiff_plain/78860b66af59d050da193ab0628890a8f9587841..b945f7d01f6d44c97bbc7ff066833aa015b07b8b:/lib/MECON/Dependencia.php?ds=sidebyside

diff --git a/lib/MECON/Dependencia.php b/lib/MECON/Dependencia.php
index f4592d0..4638903 100644
--- a/lib/MECON/Dependencia.php
+++ b/lib/MECON/Dependencia.php
@@ -1,96 +1,258 @@
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +----------------------------------------------------------------------+
-// | 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: Thu Jun 19 16:54:08 2003
-// | Author:  Gonzalo Merayo <gmeray@mecon.gov.ar>
-// +----------------------------------------------------------------------+
-//
-// $Id$
-// $Author$
-// $URL$
-// $Date$
-// $Rev$
-//
+<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
+-------------------------------------------------------------------------------
+                             Ministerio de Economía
+                                    meconlib
+-------------------------------------------------------------------------------
+This file is part of meconlib.
+ 
+meconlib is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2 of the License, or (at your option)
+any later version.
+ 
+meconlib is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+ 
+You should have received a copy of the GNU General Public License; if not,
+write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+Boston, MA  02111-1307  USA
+-------------------------------------------------------------------------------
+Creado: Thu Jun 19 16:54:08 2003
+Autor:  Gonzalo Merayo <gmeray@mecon.gov.ar>
+-------------------------------------------------------------------------------
+$Id$
+-----------------------------------------------------------------------------*/
 
 #require_once 'PEAR.php';
 require_once 'MECON/Agente.php';
 require_once 'DB.php';
 
-
-
-// +X2C Class 145 :dependencia
+// +X2C Class 145 :MECON_Dependencia
 /**
  * @access protected
  */
-class dependencia {
-  /**
-   * @var    int $codep
-   * @access public
-   */
-  var $codep;
-
-  // ~X2C
-
-  // +X2C Operation 147
-  /**
-   * @param  int $codep 
-   *
-   * @return void
-   * @access public
-   */
-  function dependencia($codep) // ~X2C
-  {
-    $this->codep = $codep;
-  }
-  // -X2C
-
-  // +X2C Operation 148
-  /**
-   * @return void
-   * @access public
-   */
-  function getAgentes() // ~X2C
-  {
-//Planta y becarios	  
-      $agentes = array();
-      $dsn = 'mysql://intranet:intranet@intranet-db/novedades';
-      $db = DB::connect($dsn);
-      if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
-      $sql = "SELECT nrodoc 
-              FROM web003
-	      WHERE codep = $this->codep";
-      $result = $db->query($sql);
-      if(DB::isError($result))
-        die($result->getMessage("query mal hecho"));
-      while($row = $result->fetchRow())
-        $agentes[] = new Agente($row[0]);
-//Contratados	  
-      $dsn = 'mysql://intranet:intranet@intranet-db/Contratados';
-      $db = DB::connect($dsn);
-      if (DB::isError($db)) die ($db->getMessage("No pudo conectarse a la base"));
-      $sql = "SELECT * 
-              FROM Contratados
-              WHERE codep = $this->codep";
-      $result = $db->query($sql);
-      if(DB::isError($result))
-        die($result->getMessage("query mal hecho"));
-      while($row = $result->fetchRow())
-        $agentes[] = new Agente($row[0]);
-      return $agentes;
-  }
-  // -X2C
-
-} // -X2C Class :dependencia
-?>
+class MECON_Dependencia {
+    /**
+     * @var    int $codep
+     * @access public
+     */
+    var $codep;
+
+    /**
+     * @var    int $nombre
+     * @access public
+     */
+    var $nombre;
+
+    /**
+     * @var    int $nombre_breve
+     * @access public
+     */
+    var $nombre_breve;
+
+    /**
+     * Id de la dependencia en la base.
+     *
+     * @var    int $dependencia_id
+     * @access public
+     */
+    var $dependencia_id = null;
+
+    // ~X2C
+
+    // +X2C Operation 147
+    /**
+     * @param  string $codep 
+     * @param  int $id 
+     *
+     * @return void
+     * @access public
+     */
+    function MECON_Dependencia($codep, $id = null) // ~X2C
+    {
+        if(!is_null($codep)) {
+            $this->codep = $codep;
+            $dsn = 'mysql://intranet:intranet@intranet-db.mecon.ar/CODEP';
+            $db = DB::connect($dsn);
+            if (DB::isError($db))
+                die ($db->getMessage("No pudo conectarse a la base"));
+            $sql = "SELECT nombre, nombre_breve, dependencia_id,codigo_actual
+                   FROM Dependencias
+                   WHERE codigo_actual = '$this->codep' AND
+                   dependencia_esta_activa = 1";
+            $result = $db->query($sql);
+
+        }else {
+            $this->dependencia_id = $id;
+            $dsn = 'mysql://intranet:intranet@intranet-db.mecon.ar/CODEP';
+            $db = DB::connect($dsn);
+            if (DB::isError($db))
+                die ($db->getMessage("No pudo conectarse a la base"));
+            $sql = "SELECT nombre, nombre_breve, dependencia_id, codigo_actual
+                   FROM Dependencias
+                   WHERE dependencia_id = $this->dependencia_id AND
+                   dependencia_esta_activa = 1";
+            $result = $db->query($sql);
+        }
+        if(DB::isError($result))
+            die($result->getMessage("query mal hecho"));
+        if($result->numRows() > 0) {
+            $row = $result->fetchRow(DB_FETCHMODE_ASSOC);
+            $this->codep = $row['codigo_actual'];
+            $this->nombre = $row['nombre'];
+            $this->nombre_breve = $row['nombre_breve'];
+            $this->dependencia_id = $row['dependencia_id'];
+        }
+    }
+    // -X2C
+
+    // +X2C Operation 148
+    /**
+     * @return void
+     * @access public
+     */
+    function getAgentes() // ~X2C
+    {
+        //Planta y becarios
+        $agentes = array();
+        $dsn = 'mysql://intranet:intranet@intranet-db.mecon.ar/novedades';
+        $db = DB::connect($dsn);
+        if (DB::isError($db))
+            die ($db->getMessage("No pudo conectarse a la base"));
+        $sql = "SELECT nrodoc
+               FROM web003
+               WHERE codep = '$this->codep'";
+        $result = $db->query($sql);
+        if(DB::isError($result))
+            die($result->getMessage("query mal hecho"));
+        while($row = $result->fetchRow())
+            $agentes[] = new MECON_Agente($row[0]);
+        //Contratados
+        $dsn = 'mysql://intranet:intranet@intranet-db.mecon.ar/Contratados';
+        $db = DB::connect($dsn);
+        if (DB::isError($db))
+            die ($db->getMessage("No pudo conectarse a la base"));
+        $sql = "SELECT nrodoc
+               FROM Contratados
+               WHERE codep = '$this->codep'";
+        $result = $db->query($sql);
+        if(DB::isError($result))
+            die($result->getMessage("query mal hecho"));
+        while($row = $result->fetchRow())
+            $agentes[] = new MECON_Agente($row[0]);
+        return $agentes;
+    }
+    // -X2C
+
+    // +X2C Operation 150
+    /**
+     * @return dependencia
+     * @access public
+     * @static
+     */
+    function getDependencias() // ~X2C
+    {
+        $dsn = 'mysql://intranet:intranet@intranet-db.mecon.ar/CODEP';
+        $db = DB::connect($dsn);
+        if (DB::isError($db))
+            die ($db->getMessage("No pudo conectarse a la base"));
+        $sql = "SELECT codigo_actual
+               FROM Dependencias
+               WHERE dependencia_esta_activa = 1";
+        $result = $db->query($sql);
+        if(DB::isError($result))
+            die($result->getMessage("query mal hecho"));
+        $dependencias = array();
+        while($row = $result->fetchRow())
+            $dependencias[] = $row[0];
+        return $dependencias;
+    }
+    // -X2C
+
+    // +X2C Operation 165
+    /**
+     * @return void
+     * @access public
+     */
+    function getNombre() // ~X2C
+    {
+        return $this->nombre;
+    }
+    // -X2C
+
+    // +X2C Operation 166
+    /**
+     * @return void
+     * @access public
+     */
+    function getNombreBreve() // ~X2C
+    {
+        return $this->nombre_breve;
+    }
+    // -X2C
+
+    // +X2C Operation 167
+    /**
+     * Buscar dependencias por el codep.
+     *
+     * @param  db &$dbh Base de Datos
+     * @param  string $codep COdigo de dependencia, o parte del mismo seguido del comodIn (*)
+     *
+     * @return array
+     * @access public
+     * @static
+     */
+    function buscarPorCodigo(&$dbh, $codep) // ~X2C
+    {
+	//Reemplazar el comodIn
+    	$codep = preg_replace ('/\*/', '%', $codep);	
+    
+	$sql = " SELECT codigo_actual, codigo_comdoc, nombre, dependencia_id 
+		 FROM CODEP.Dependencias
+		 WHERE dependencia_esta_activa = 1 
+			AND codigo_actual LIKE '$codep' 
+		 ORDER BY codigo_actual ";
+
+        $dbh->setFetchMode(DB_FETCHMODE_ASSOC);
+        $result = $dbh->query($sql);
+	
+	return $result;
+    }
+    // -X2C
+
+    // +X2C Operation 168
+    /**
+     * @param  db &$dbh Base de Datos
+     * @param  string $clave Cadena de palabras clave del nombre de la dependencia.
+     *
+     * @return array
+     * @access public
+     * @static
+     */
+    function buscarPorNombre(&$dbh, $clave) // ~X2C
+    {
+	//ReducciOn de espacios en blanco
+	$clave = preg_replace ('/\s+/', ' ', $clave);	
+    
+	$sql = " SELECT codigo_actual, codigo_comdoc, nombre, dependencia_id
+		 FROM CODEP.Dependencias
+		 WHERE 	dependencia_esta_activa = 1 ";
+
+        //Separar la cadena de palabras clave
+	$items = split(' ', $clave);
+	foreach ($items as $i){
+	    $sql.= " AND nombre like '%$i%' ";
+	}
+
+	$sql.= " ORDER BY codigo_actual";
+
+        $dbh->setFetchMode(DB_FETCHMODE_ASSOC);
+        $result = $dbh->query($sql);
+	
+	return $result;
+    }
+    // -X2C
+
+} // -X2C Class :MECON_Dependencia
+?>
\ No newline at end of file