decodificar_post();
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
$io_sql=new class_sql($io_conexion);
$io_mensajes=new class_mensajes();
$io_funciones=new class_funciones();
$ls_empresa=$_SESSION["la_empresa"]["codemp"];
$io_grid=new grid_param();
require_once("class_funciones_compra.php");
$io_funciones_soc=new class_funciones_compra();
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
// total de filas de Bienes
switch($ls_proceso)
{
case "AGREGARCOTIZACIONES":
$li_totalcotizaciones=$io_funciones_soc->uf_obtenervalor("totalcotizaciones","1");
uf_print_cotizaciones($li_totalcotizaciones);
break;
case "AGREGARITEMS":
uf_print_items();
break;
case "LIMPIARCOTIZACIONES":
uf_limpiar_grid_cotizaciones();
break;
case "ACTUALIZARITEMS":
$li_totalitems=$io_funciones_soc->uf_obtenervalor("total","0");
uf_actualizar_items($li_totalitems);
break;
case "CARGARCOTIZACIONES":
uf_cargar_analisis();
break;
case "CARGARITEMS":
uf_print_items(true);
break;
}
function uf_limpiar_grid_cotizaciones()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiar_grid
// Access: public
// Arguments://
// Description: Método que limpia el grid de las Cotizaciones
// Creado Por: Ing. Laura Cabré
// Fecha Creación: 01/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
//Titulos de la Tabla
$lo_title[1]="No. Solicitud";
$lo_title[2]="No. Cotizacion";
$lo_title[3]="Proveedor";
$lo_title[4]="Fecha";
$lo_title[5]="Monto Total";
$lo_title[6]="I.V.A.";
$lo_title[7]="Ver";
$lo_title[8]="X";
//Tabla
$lo_object[1][1]="";
$lo_object[1][2]="";
$lo_object[1][3]="";
$lo_object[1][4]="";
$lo_object[1][5]="";
$lo_object[1][6]="";
$lo_object[1][7]=" ";
$lo_object[1][8]=" ";
//$io_grid->make_gridScroll(1,$lo_title,$lo_object,780,"Cotizaciones","gridcotizaciones",80);
$io_grid->makegrid(1,$lo_title,$lo_object,775,"Cotizaciones","gridcotizaciones");
}
//-------------------------------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------
function uf_print_cotizaciones($ai_total,$aa_cotizaciones=array())
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_cotizaciones
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de las Cotizaciones
// Creado Por: Ing. Laura Cabré
// Fecha Creación: 14/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc, $io_funciones;
$lo_object=array();
$li_total=count($aa_cotizaciones);
//print_r($_POST);
//echo '
';
// Titulos del Grid de Cotizaciones
$lo_title[1]="No. Solicitud";
$lo_title[2]="No. Cotizacion";
$lo_title[3]="Proveedor";
$lo_title[4]="Fecha";
$lo_title[5]="Monto Total";
$lo_title[6]="I.V.A.";
$lo_title[7]="Ver";
$lo_title[8]="X";
//echo 'ai_total: '.$ai_total.' ';
//echo 'li_total: '.$li_total.' ';
// Recorrido de todos las cotizaciones del Grid
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
//echo 'li_fila: '.$li_fila.' ';
//echo 'txtnumcot: '.$io_funciones_soc->uf_obtenervalor("txtnumcot".$li_fila,"").' ';
if($li_total==0)//Esto es en caso de q las cotizaciones se esten cargando una a una
{
$ls_numcot=$io_funciones_soc->uf_obtenervalor("txtnumcot".$li_fila,"");
$ls_numsol=$io_funciones_soc->uf_obtenervalor("txtnumsol".$li_fila,"");
$ls_nompro=$io_funciones_soc->uf_obtenervalor("txtnompro".$li_fila,"");
$ls_codpro=$io_funciones_soc->uf_obtenervalor("txtcodpro".$li_fila,"");
$ld_fecha=$io_funciones_soc->uf_obtenervalor("txtfecha".$li_fila,"");
$li_monto=$io_funciones_soc->uf_obtenervalor("txtmonto".$li_fila,"");
$li_iva=$io_funciones_soc->uf_obtenervalor("txtiva".$li_fila,"");
$ls_tipsolcot=$io_funciones_soc->uf_obtenervalor("txttipsolcot".$li_fila,"");
}
else// Esto es en caso de q las cotizaciones se esten llenando todas a la vez a partir del catalogo de analisis de cotizacion
{
if($li_fila<$ai_total)
{
$ls_numcot=$aa_cotizaciones[$li_fila]["numcot"];
$ls_numsol=$aa_cotizaciones[$li_fila]["numsolcot"];
$ls_nompro=$aa_cotizaciones[$li_fila]["nompro"];
$ls_codpro=$aa_cotizaciones[$li_fila]["cod_pro"];
$ld_fecha=$io_funciones->uf_convertirfecmostrar($aa_cotizaciones[$li_fila]["feccot"]);
$li_monto=number_format($aa_cotizaciones[$li_fila]["montotcot"],2,",",".");
$li_iva=number_format($aa_cotizaciones[$li_fila]["poriva"],2,",",".");
$ls_tipsolcot=$aa_cotizaciones[$li_fila]["tipsolcot"];
}
else// Esto se hace para q se imprima una linea adicional en blanco
{
$ls_numcot="";
$ls_numsol="";
$ls_nompro="";
$ls_codpro="";
$ld_fecha="";
$li_monto="";
$li_iva="";
$ls_tipsolcot="";
}
}
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
if($li_fila==$ai_total)// si es la última fila no pinto las dos ultimas
{
$lo_object[$li_fila][7]=" ";
$lo_object[$li_fila][8]=" ";
}
else
{
$lo_object[$li_fila][7]="
";
$lo_object[$li_fila][8]="
";
}
}
$io_grid->makegrid($ai_total,$lo_title,$lo_object,775,"Cotizaciones","gridcotizaciones");
if(!array_key_exists("txttotalcotizaciones",$_POST))
print "";
}// end function uf_print_cotizaciones
//-------------------------------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------
function uf_print_items($ab_catalogo=false)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_items
// Access: private
// Description: Método que imprime el grid de los bienes/servicios
// Creado Por: Ing. Laura Cabré
// Fecha Creación: 29/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_analisis_cotizacion,$io_grid,$io_funciones_soc;
$lo_object=array();
//Se determita si el analisis es de bienes o servicios
$ls_tipcot = $io_funciones_soc->uf_obtenervalor("txttipsolcot1","");
if($ls_tipcot=="B")
$ls_titulo="Bienes";
else
$ls_titulo="Servicios";
// Titulos del Grid de Items
$lo_title[1]="Codigo";
$lo_title[2]="Descripcion";
$lo_title[3]="Proveedor";
$lo_title[4]="Cantidad";
$lo_title[5]="Precio/Unid";
$lo_title[6]="I.V.A.";
$lo_title[7]="Monto Total";
$lo_title[8]="Observacion";
$li_totrows = $io_funciones_soc->uf_obtenervalor("hidtotrows","0");
for ($li_fila=1;$li_fila<=$li_totrows;$li_fila++)
{
$ls_coditem = $io_funciones_soc->uf_obtenervalor("txtcoditem".$li_fila,"");
$ls_nomitem = $io_funciones_soc->uf_obtenervalor("txtnomitem".$li_fila,"");
$ls_nompro = $io_funciones_soc->uf_obtenervalor("txtnomproitem".$li_fila,"");
$ls_codpro = $io_funciones_soc->uf_obtenervalor("txtcodproselec".$li_fila,"");
$ld_cantidad = $io_funciones_soc->uf_obtenervalor("txtcanselec".$li_fila,"");
$ld_precio = $io_funciones_soc->uf_obtenervalor("txtpreuniselec".$li_fila,"");
$ld_moniva = $io_funciones_soc->uf_obtenervalor("txtivaselec".$li_fila,"");
$ld_monto = $io_funciones_soc->uf_obtenervalor("txtmonselec".$li_fila,"");
$ls_observacion = $io_funciones_soc->uf_obtenervalor("txtobservacion".$li_fila,"");
$ls_numcot = $io_funciones_soc->uf_obtenervalor("txtnumcotsele".$li_fila,"");
$ivaselec = formato_numerico_us($ls_ivaselec,2);
$monselec = formato_numerico_us($ls_monselec,2);
$porciva = number_format(round((($ivaselec/($monselec-$ivaselec))*100),2),2,",",".");
//$ls_observacion = $porciva;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="
";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
$lo_object[$li_fila][8]="
";
$li_fila++;
}
$io_grid->make_gridScroll($li_fila-1,$lo_title,$lo_object,775,$ls_titulo,"griditems",200);
}// end function uf_print_items()
//-------------------------------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------
function formato_numerico_us($numero,$redondeo=2){
$busca = array(".", ",");
$sustituye = array("", ".");
number_format(str_replace($busca,$sustituye,$numero),$redondeo,'.','');
return number_format(str_replace($busca,$sustituye,$numero),$redondeo,'.','');
}
function uf_actualizar_items($ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_actualizar_items
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que actualiza el grid de los bienes/servicios
// Creado Por: Ing. Laura Cabré
// Fecha Creación: 28/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc;
$lo_object=array();
// Titulos del Grid de Cotizaciones
//Se determita si el analisis es de bienes o servicios
$ls_tipsolcot=$io_funciones_soc->uf_obtenervalor("tipsolcot1","");
$li_total=$io_funciones_soc->uf_obtenervalor("total","");
if($ls_tipsolcot=="B")
$ls_titulo="Bienes";
else
$ls_titulo="Servicios";
// Titulos del Grid de Items
$lo_title[1]="Codigo";
$lo_title[2]="Descripcion";
$lo_title[3]="Proveedor";
$lo_title[4]="Cantidad";
$lo_title[5]="Precio/Unid";
$lo_title[6]="I.V.A.";
$lo_title[7]="Monto Total";
$lo_title[8]="Observacion";
// Recorrido de todos las items del Grid
for($li_fila=1;$li_fila<=$li_total;$li_fila++)
{
$ls_coditem = trim($io_funciones_soc->uf_obtenervalor("txtcoditem".$li_fila,""));
$ls_nomitem = $io_funciones_soc->uf_obtenervalor("txtnomitem".$li_fila,"");
$ls_nomproitem = $io_funciones_soc->uf_obtenervalor("txtnomproitem".$li_fila,"");
$ls_canselec = $io_funciones_soc->uf_obtenervalor("txtcanselec".$li_fila,"");
$ls_preuniselec = $io_funciones_soc->uf_obtenervalor("txtpreuniselec".$li_fila,"");
$ls_ivaselec = $io_funciones_soc->uf_obtenervalor("txtivaselec".$li_fila,"");
$ls_monselec = $io_funciones_soc->uf_obtenervalor("txtmonselec".$li_fila,"");
$ls_observacion = $io_funciones_soc->uf_obtenervalor("txtobservacion".$li_fila,"");
$ls_numcot = $io_funciones_soc->uf_obtenervalor("txtnumcotsele".$li_fila,"");
$ls_codpro = $io_funciones_soc->uf_obtenervalor("txtcodproselec".$li_fila,"");
$ivaselec = formato_numerico_us($ls_ivaselec,2);
$monselec = formato_numerico_us($ls_monselec,2);
$porciva = number_format(round((($ivaselec/($monselec-$ivaselec))*100),2),2,",",".");
//$ls_observacion = $porciva;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="
";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
$lo_object[$li_fila][8]="
";
}
$io_grid->make_gridScroll($li_total,$lo_title,$lo_object,775,$ls_titulo,"griditems",200);
print " ";
}// end function uf_actualizar_items
//-------------------------------------------------------------------------------------------------------------------------------------------------------
//-------------------------------------------------------------------------------------------------------------------------------------------------------
function uf_select_items_cotizacion($as_numcot,$as_codpro,$as_tipcot,&$aa_items)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_select_items_cotizacion
// Access: public
// Arguments: $as_numcot-->Numero de Cotizacion
// $as_codpro--->Codigo del Proveedor
// $as_tipsolcot--->Si la cotizacion es de bienes o servicios
// return : arreglo con los bienes/servicios
// Description: Metodo que devuelve los bienes/servicios de una cotizacion
// Creado Por: Ing. Laura Cabré
// Fecha: 29/04/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_empresa,$io_sql,$io_mensajes,$io_funciones,$io_funciones_soc;
$aa_items = array();
$lb_valido = false;
$ls_sqlaux = $ls_strsql = "";
$ls_strsql = $io_funciones_soc->uf_obtenervalor("hidsqlaux","");
$ls_strsql = str_replace('numcot = ',"numcot = '",$ls_strsql);
$ls_strsql = str_replace(';',"'",$ls_strsql);
if (!empty($ls_strsql) && $as_tipcot=='B')
{
$ls_sqlaux = "AND soc_dtcot_bienes.codart NOT IN (SELECT soc_dtcot_bienes.codart
FROM soc_dtcot_bienes
WHERE $ls_strsql)";
}
elseif(!empty($ls_strsql) && $as_tipcot=='S')
{
$ls_sqlaux = "AND soc_dtcot_servicio.codser NOT IN (SELECT soc_dtcot_servicio.codser
FROM soc_dtcot_servicio
WHERE $ls_strsql)";
}
if ($as_tipcot=='B')
{
$ls_sql = "SELECT DISTINCT soc_dtcot_bienes.codart as codigo,siv_articulo.denart as denominacion
FROM soc_dtcot_bienes, siv_articulo
WHERE soc_dtcot_bienes.codemp='".$ls_empresa."'
AND soc_dtcot_bienes.numcot='".$as_numcot."'
AND soc_dtcot_bienes.cod_pro='".$as_codpro."'
AND soc_dtcot_bienes.codemp=siv_articulo.codemp
AND siv_articulo.codart=soc_dtcot_bienes.codart $ls_sqlaux";
}
elseif($as_tipcot=='S')
{
$ls_sql= "SELECT DISTINCT soc_dtcot_servicio.codser as codigo,soc_servicios.denser as denominacion
FROM soc_dtcot_servicio, soc_servicios
WHERE soc_dtcot_servicio.codemp='".$ls_empresa."'
AND soc_dtcot_servicio.numcot='".$as_numcot."'
AND soc_dtcot_servicio.cod_pro='".$as_codpro."'
AND soc_dtcot_servicio.codemp=soc_servicios.codemp
AND soc_servicios.codser=soc_dtcot_servicio.codser $ls_sqlaux";
}
//echo $ls_sql.' ';
$rs_data=$io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_mensajes->message("CLASS->sigesp_soc_c_analisis_cotizacion_ajax.php;Metodo->;ERROR->uf_select_items_cotizacion".$io_funciones->uf_convertirmsg($io_sql->message));
$lb_valido=false;
}
else
{
$li_i = 0;
while($row=$io_sql->fetch_row($rs_data))
{
$li_i++;
$aa_items[$li_i]["codigo"] = trim($row["codigo"]);
$aa_items[$li_i]["denominacion"] = $row["denominacion"];
}
}
} //Fin funcion uf_select_items_cotizacion.
function uf_cargar_cotizaciones()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_cotizaciones
// Access: public
// return : arreglo que contiene las cotizaciones que participaron en un determinado analisis
// Description: Metodo que devuelve las cotizaciones que participaron en un determinado analisis
// Creado Por: Ing. Laura Cabré
// Fecha: 10/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_empresa;
global $io_sql;
global $io_mensajes;
global $io_funciones;
global $io_funciones_soc;
$aa_items=array();
$lb_valido=false;
$ls_numanacot=$io_funciones_soc->uf_obtenervalor("numanacot","");
$ls_sql= "SELECT a.numanacot, a.fecanacot, a.obsana, a.tipsolcot, a.numsolcot, cxa.numcot, cxa.cod_pro,c.feccot, c.montotcot,c.poriva,p.nompro
FROM soc_analisicotizacion a, soc_cotizacion c, rpc_proveedor p, soc_cotxanalisis cxa
WHERE a.codemp='$ls_empresa' AND a.numanacot='$ls_numanacot'
AND a.codemp=c.codemp AND cxa.cod_pro=c.cod_pro AND cxa.numcot=c.numcot
AND a.codemp=p.codemp AND cxa.cod_pro=p.cod_pro
AND a.codemp=cxa.codemp and a.numanacot=cxa.numanacot";
//echo $ls_sql.'
';
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->uf_cargar_cotizaciones".$io_funciones->uf_convertirmsg($io_sql->message));
$lb_valido=false;
}
else
{
$li_i=0;
while($row=$io_sql->fetch_row($rs_data))//Se verifica si la solicitud es de bienes o de servicios
{
$li_i++;
$aa_items[$li_i]=$row;
}
}
return $aa_items;
}
function uf_cargar_items(&$aa_items)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_items
// Access: public
// return : arreglo que contiene los items que participaron en un determinado analisis
// Description: Metodo que devuelve los items que participaron en un determinado analisis
// Creado Por: Ing. Laura Cabré
// Fecha: 10/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_empresa;
global $io_sql;
global $io_mensajes;
global $io_funciones;
global $io_funciones_soc;
$aa_items=array();
$lb_valido=false;
$ls_numanacot=$io_funciones_soc->uf_obtenervalor("numanacot","");
$ls_tipsolcot=$io_funciones_soc->uf_obtenervalor("txttipsolcot1","");
if($ls_tipsolcot=="Bienes" || $ls_tipsolcot=="B")
{
$ls_sql="SELECT d.codart as codigo, a.denart as denominacion, p.nompro, dt.canart as cantidad, dt.preuniart as precio, dt.moniva,dt.montotart as monto,
d.obsanacot, d.numcot, d.cod_pro
FROM soc_dtac_bienes d,siv_articulo a, rpc_proveedor p,soc_dtcot_bienes dt
WHERE
d.codemp='$ls_empresa' AND d.numanacot='$ls_numanacot' AND d.codemp=a.codemp AND a.codemp=p.codemp AND p.codemp=dt.codemp AND
d.codart=a.codart AND d.cod_pro=p.cod_pro AND d.numcot=dt.numcot AND d.cod_pro=dt.cod_pro AND d.codart=dt.codart";
}
elseif($ls_tipsolcot=="Servicios" || $ls_tipsolcot=="S")
{
$ls_sql="SELECT d.codser as codigo, a.denser as denominacion, p.nompro, dt.canser as cantidad, dt.monuniser as precio, dt.moniva,dt.montotser as monto,
d.obsanacot, d.numcot, d.cod_pro
FROM soc_dtac_servicios d,soc_servicios a, rpc_proveedor p,soc_dtcot_servicio dt
WHERE
d.codemp='$ls_empresa' AND d.numanacot='$ls_numanacot' AND d.codemp=a.codemp AND a.codemp=p.codemp AND p.codemp=dt.codemp AND
d.codser=a.codser AND d.cod_pro=p.cod_pro AND d.numcot=dt.numcot AND d.cod_pro=dt.cod_pro AND d.codser=dt.codser";
}
$rs_data=$io_sql->select($ls_sql);
//echo $ls_sql.'
';
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
$lb_valido=false;
}
else
{
$li_i=0;
while($row=$io_sql->fetch_row($rs_data))//Se verifica si la solicitud es de bienes o de servicios
{
$li_i++;
$aa_items[$li_i]=$row;
}
}
return $aa_items;
}
function uf_cargar_analisis()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_analisis
// Access: public
// return :
// Description: Metodo que carga un analisis de cotizacion seleccionado de un catalogo
// Creado Por: Ing. Laura Cabré
// Fecha: 10/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$la_cotizaciones=uf_cargar_cotizaciones();
$li_totalcotizaciones=count($la_cotizaciones);
uf_print_cotizaciones(($li_totalcotizaciones+1),$la_cotizaciones);
}
?>
