-<?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 15:17:11 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 15:17:11 2003
+Autor: Gonzalo Merayo <gmeray@mecon.gov.ar>
+-------------------------------------------------------------------------------
+$Id$
+-----------------------------------------------------------------------------*/
#require_once 'PEAR.php';
require_once 'DB.php';
require_once 'MECON/Tiempo/Hora.php';
-
-
-
// +X2C Class 131 :Agente
/**
* @access public
*/
function Agente($agente) // ~X2C
{
- $this->agente = $agente;
- $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 *
- FROM web003
- WHERE nrodoc = $agente";
- $result = $db->query($sql);
- if(DB::isError($result))
- die($result->getMessage("query mal hecho"));
- if($result->numRows() > 0)
- {
- $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
- }
- else
- {
- $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 nrodoc = $agente";
- $result = $db->query($sql);
- if(DB::isError($result))
- die($result->getMessage("query mal hecho"));
- if($result->numRows() > 0)
- {
- $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
- }
- else
- trigger_error("Ahhhhh, agente no encontrado!");
- }
+ if(! is_null($agente))
+ $this->buscarAgente($agente);
}
// -X2C
* @return void
* @access public
*/
- function getCuil()// ~X2C
+ function getCuil() // ~X2C
{
- trigger_error('Not implemented!', E_USER_WARNING);
+ $aux = $this->datos['cuil'];
+ $aux = preg_replace('/(\d{2})(\d*)(\d{1})/','$1-$2-$3',$aux);
+ return $aux;
}
// -X2C
* @return void
* @access public
*/
- function getOtrosDatos()// ~X2C
+ function getOtrosDatos() // ~X2C
{
if(!is_null($this->datos['tipo_agente'])) {
+ $aux['tipo_doc'] = $this->datos['tipodoc'];
$aux['fecha_nac'] = $this->datos['fecha_nac'];
$aux['edad'] = $this->datos['edad'];
$aux['estado_civil'] = $this->datos['estado_civil'];
$aux['fecha_nac_conyuge'] = $this->datos['fecha_nac_cony'];
$aux['tipo_doc_conyuge'] = $this->datos['tipodoc_cony'];
$aux['nro_doc_cony'] = $this->datos['nrodoc_cony'];
+ return $aux;
+ }else
+ {
+ return false;
}
- return $aux;
}
+ // -X2C
+
+ // +X2C Operation 154
+ /**
+ * @param int $agente
+ *
+ * @return void
+ * @access public
+ */
+ function buscarAgente($agente) // ~X2C
+ {
+ $this->agente = $agente;
+ $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 *
+ FROM web003
+ WHERE nrodoc = $agente";
+ $result = $db->query($sql);
+ if(DB::isError($result))
+ die($result->getMessage("query mal hecho"));
+ if($result->numRows() > 0)
+ {
+ $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
+ }
+ else
+ {
+ $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 nrodoc = $agente";
+ $result = $db->query($sql);
+ if(DB::isError($result))
+ die($result->getMessage("query mal hecho"));
+ if($result->numRows() > 0)
+ {
+ $this->datos = $result->fetchRow(DB_FETCHMODE_ASSOC);
+ }
+ else
+ return false;
+ }
+ return true;
+ }
+ // -X2C
} // -X2C Class :Agente
-?>
+?>
\ No newline at end of file
projects / mecon / meconlib.git / blobdiff