<?
/*
-- File Name   : tbl_urbanizacion.php
-- Description : libreria para tabla tbl_zona_municipio 
-- Programmer  : Christian Díaz
-- Date        : 01/May/2006 
*/

/********************************************************************************/

function fm_bus_zon_mncp($vtCod, $vtCiudad, $vtZona, $vtMunicipio, $vtStat, $vtIni, $vtTamPag)
{
	$vlString = "";
	$vlString = $vlString . " SELECT a.zmun_cod, a.zmun_desc, a.zmun_ciudad, a.zmun_zona_cod, a.zmun_mncp_cod, a.zmun_stat, " ;
	$vlString = $vlString . "				 b.cdad_cod, b.cdad_desc, c.zon_cod, c.zon_desc, d.mncp_cod, d.mncp_desc " ;
	$vlString = $vlString . " FROM	 tbl_zona_municipio a, tbl_ciudad b, tbl_zona c, tbl_municipio d";
	$vlString = $vlString . " WHERE	 a.zmun_cod >= 1 " ;
	$vlString = $vlString . " AND		 a.zmun_ciudad = b.cdad_cod " ;
	$vlString = $vlString . " AND		 a.zmun_zona_cod = c.zon_cod " ;
	$vlString = $vlString . " AND		 a.zmun_mncp_cod = d.mncp_cod " ;
	//------------
	if (!empty($vtCod)){ $vlString = $vlString . " AND a.zmun_cod = '" . trim($vtCod) . "'" ; }
	//------------
	if (!empty($vtCiudad)){ $vlString = $vlString . " AND a.zmun_ciudad = '" . trim($vtCiudad) . "'" ; }
	//------------
	if (!empty($vtZona)){ $vlString = $vlString . " AND a.zmun_zona_cod = '" . trim($vtZona) . "'" ; }
	//------------
	if (!empty($vtMunicipio)){ $vlString = $vlString . " AND a.zmun_mncp_cod = '" . trim($vtMunicipio) . "'" ; }
	//------------
	if (!empty($vtStat)){ $vlString = $vlString . " AND a.zmun_stat = '" . trim($vtStat) . "'" ; }
	//------------
	$vlString = $vlString . " ORDER BY a.zmun_cod " ;
	//------------
	if (!empty($vtIni) && !empty($vtTamPag))
	{
		if(intval($vtIni) == 1 ){ $vtIni = 0 ;}
		$vlString = $vlString . " LIMIT ". $vtIni . "," . $vtTamPag ;
	}
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

/********************************************************************************/

function fm_bus_zon_mncp_like($vtTipo, $vtCampo, $vtIni, $vtTamPag)
{
	$vlString = "";
	$vlString = "";
	$vlString = $vlString . " SELECT a.zmun_cod, a.zmun_desc, a.zmun_ciudad, a.zmun_zona_cod, a.zmun_mncp_cod, a.zmun_stat, " ;
	$vlString = $vlString . "				 b.cdad_cod, b.cdad_desc, c.zon_cod, c.zon_desc, d.mncp_cod, d.mncp_desc " ;
	$vlString = $vlString . " FROM tbl_zona_municipio a, tbl_ciudad b, tbl_zona c, tbl_municipio d";
	$vlString = $vlString . " WHERE a.zmun_cod >= 1 " ;
	$vlString = $vlString . " AND a.zmun_ciudad = b.cdad_cod " ;
	$vlString = $vlString . " AND a.zmun_zona_cod = c.zon_cod " ;
	$vlString = $vlString . " AND a.zmun_mncp_cod = d.mncp_cod " ;
	//------------
	switch ($vtTipo)
		{
			case 1:
				$vlString = $vlString . " AND a.zmun_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 2:
				$vlString = $vlString . " AND b.cdad_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 3:
				$vlString = $vlString . " AND c.zon_desc like '%" . trim($vtCampo) . "%'" ;
				break;
			case 4:
				$vlString = $vlString . " AND d.mncp_desc like '%" . trim($vtCampo) . "%'" ;
				break;
		}
	//------------
	$vlString = $vlString . " ORDER BY a.zmun_cod " ;
	//------------
	if (!empty($vtIni) && !empty($vtTamPag))
	{
		if(intval($vtIni) == 1 ){ $vtIni = 0 ;}
		$vlString = $vlString . " LIMIT ". $vtIni . "," . $vtTamPag ;
	}
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

/********************************************************************************/

function fm_reg_zon_mncp($vtDesc, $vtCiudad, $vtZona, $vtMunicipio, $vtStat)
{
/*****************************/
	$veczon_mncp[0] = "tbl_zona_municipio" ;
  $veczon_mncp[1] = "zmun_cod" ;
  $veczon_mncp[2] = "zmun_desc" ;
  $veczon_mncp[3] = "zmun_ciudad" ;
  $veczon_mncp[4] = "zmun_zona_cod" ;
  $veczon_mncp[5] = "zmun_mncp_cod" ;
  $veczon_mncp[6] = "zmun_stat" ;
/*****************************/
	$vlString = "" ;
	$vlString = $vlString . " INSERT INTO  " . $veczon_mncp[0] . "( " . $veczon_mncp[2] . ", " . $veczon_mncp[3] . ", " ;
	$vlString = $vlString . $veczon_mncp[4] . ", " . $veczon_mncp[5] . ", " . $veczon_mncp[6] . " ) " ;
	$vlString = $vlString . " VALUES ( " ;
	$vlString = $vlString . "'" . $vtDesc . "', " ;
	$vlString = $vlString . $vtCiudad . ", " ;
	$vlString = $vlString . $vtZona . ", " ;
	$vlString = $vlString . $vtMunicipio . ", " ;
	$vlString = $vlString . $vtStat . ") " ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

/********************************************************************************/

function fm_mod_zon_mncp($vtCod, $vtDesc, $vtCiudad, $vtZona, $vtMunicipio, $vtStat)
{
/*****************************/
	$veczon_mncp[0] = "tbl_zona_municipio" ;
  $veczon_mncp[1] = "zmun_cod" ;
  $veczon_mncp[2] = "zmun_desc" ;
  $veczon_mncp[3] = "zmun_ciudad" ;
  $veczon_mncp[4] = "zmun_zona_cod" ;
  $veczon_mncp[5] = "zmun_mncp_cod" ;
  $veczon_mncp[6] = "zmun_stat" ;
/*****************************/
	$vlString = "";
	$vlString = $vlString . " UPDATE " . $veczon_mncp[0] ;
	$vlString = $vlString . " SET    " . $veczon_mncp[2] . " = '" . fm_ecs($vtDesc) . "', " ;
	$vlString = $vlString . "        " . $veczon_mncp[3] . " = '" . $vtCiudad . "', " ;
	$vlString = $vlString . "        " . $veczon_mncp[4] . " = '" . $vtZona . "', " ;
	$vlString = $vlString . "        " . $veczon_mncp[5] . " = '" . $vtMunicipio . "', " ;
	$vlString = $vlString . "        " . $veczon_mncp[6] . " = '" . $vtStat . "' " ;
	$vlString = $vlString . " WHERE  " . $veczon_mncp[1] . " = '" . trim($vtCod) . "'" ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

/********************************************************************************/

function fm_elim_zon_mncp($vtCod)
{
/*****************************/
	$veczon_mncp[0]="tbl_zona_municipio";
  $veczon_mncp[1]="zmun_cod";
/*****************************/
	$vlString = "";
	$vlString = $vlString . " DELETE FROM " . $veczon_mncp[0] ;
	$vlString = $vlString . " WHERE  " . $veczon_mncp[1] . " = " . trim($vtCod) ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

/********************************************************************************/

function fm_mod_stat_zon_mncp($vtCod, $vtActiv)
{
/*****************************/
	$veczon_mncp[0]="tbl_zona_municipio";
  $veczon_mncp[1]="zmun_cod";
  $veczon_mncp[2]="zmun_stat";
/*****************************/	
	$vlString = "";
	$vlString = $vlString . " UPDATE " . $veczon_mncp[0] ;
	$vlString = $vlString . " SET    " . $veczon_mncp[2] . " = " . $vtActiv . " " ;
	$vlString = $vlString . " WHERE  " . $veczon_mncp[1] . " = " . trim($vtCod) ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------
	fm_query_gen($vlString);
}

/********************************************************************************/

function fm_bus_municipio2($vtZona)
{
	$vlString = "";
	$vlString = $vlString . " SELECT	DISTINCT d.mncp_cod, d.mncp_desc " ;
	$vlString = $vlString . " FROM	 tbl_zona_municipio a, tbl_ciudad b, tbl_zona c, tbl_municipio d";
	$vlString = $vlString . " WHERE	 a.zmun_cod >= 1 " ;
	$vlString = $vlString . " AND		 a.zmun_ciudad = b.cdad_cod " ;
	$vlString = $vlString . " AND		 a.zmun_zona_cod = c.zon_cod " ;
	$vlString = $vlString . " AND		 a.zmun_mncp_cod = d.mncp_cod " ;
	//------------
	if (!empty($vtZona)){ $vlString = $vlString . " AND a.zmun_zona_cod = '" . trim($vtZona) . "'" ; }
	//------------
	$vlString = $vlString . " ORDER BY a.zmun_cod " ;
	//------------
	//echo " vlString : " . $vlString . "<br>" ;
	//exit();
	//------------

	$vlQuery = fm_query_gen($vlString);

	return $vlQuery;
}

/********************************************************************************/

?>