+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;
+
+ // ~X2C
+
+ // +X2C Operation 147
+ /**
+ * @param int $codep
+ *
+ * @return void
+ * @access public
+ */
+ function MECON_Dependencia($codep) // ~X2C
+ {
+ $this->codep = $codep;
+ $dsn = 'mysql://intranet:intranet@intranet-db/CODEP';
+ $db = DB::connect($dsn);
+ if (DB::isError($db))
+ die ($db->getMessage("No pudo conectarse a la base"));
+ $sql = "SELECT nombre, nombre_breve
+ FROM Dependencias
+ WHERE codigo_actual = '$this->codep' 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->nombre = $row['nombre'];
+ $this->nombre_breve = $row['nombre_breve'];
+ }
+ }
+ // -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 MECON_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 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