uf_obtenervalor("numcot","");
//Código del Proveedor Asociado a la Orden de Compra.
$ls_codpro = $io_funciones_soc->uf_obtenervalor("codpro","");
//Fecha a partir del cual realizaremos la busqueda.
$ld_fecdes = $io_funciones_soc->uf_obtenervalor("fecdes","");
//Fecha hasta el cual realizaremos la busqueda.
$ld_fechas = $io_funciones_soc->uf_obtenervalor("fechas","");
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
switch($ls_proceso)
{
case "BUSCAR":
uf_load_registro_cotizacion($ls_numcot,$ld_fecdes,$ld_fechas,$ls_codpro);
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_registro_cotizacion($as_numcot,$ad_fecdes,$ad_fechas,$as_codpro)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_analisis_cotizacion
// Access: private
// Arguments:
// $as_numordcom //Número de la Orden de Compra
// $ad_fecdes //Fecha a partir del cual realizaremos la búsqueda de las Ordenes de Compra.
// $ad_fechas //Fecha a hasta el cual realizaremos la búsqueda de las Ordenes de Compra.
// $as_codpro //Código del Proveedor asociado a las Ordenes de Compra.
// Description: Método que busca las Ordenes de compra que pueden ser Anuladas.
// Creado Por: Ing. Néstor Falcon.
// Fecha Creación: 09/06/2007 Fecha Última Modificación : 09/06/2007.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funcion;
require_once("sigesp_soc_c_anulacion_registro_cotizacion.php");
$io_anulacion = new sigesp_soc_c_anulacion_registro_cotizacion("../../");
$ls_nivapro=$_SESSION["la_empresa"]["nivapro"];
$ls_codasiniv="";
$ls_codusu=$_SESSION["la_logusr"];
$ls_codasiniv=$io_anulacion->uf_nivel_aprobacion_usu($ls_codusu,'2');
$li_monnivhas=0;
if($ls_codasiniv!="")
{
$ls_codniv=$io_anulacion->uf_nivel($ls_codasiniv);
if($ls_codniv!="")
{
$li_monnivhas=$io_anulacion->uf_nivel_aprobacion_montohasta($ls_codniv);
}
}
// Titulos del Grid de Ordenes de compra.
$lo_title[1] = "";
$lo_title[2] = "Número";
$lo_title[3] = "Proveedor";
$lo_title[4] = "Observación";
$lo_title[5] = "Fecha";
$lo_title[6] = "Analisis Relacionado";
$lo_object[0] = "";
$rs_data = $io_anulacion->uf_load_registros_cotizacion($as_numcot,$ad_fecdes,$ad_fechas,$as_codpro);
$li_fila=0;
while ($row=$io_anulacion->io_sql->fetch_row($rs_data))
{
$ls_numcot= $row["numcot"];
$ls_codpro= $row["cod_pro"];
$ls_nompro= $row["nompro"];
$ls_numanacot= trim($row["numanacot"]);
//$ld_monordcom= number_format($row["montot"],2,",",".");
$ld_feccot= $io_funcion->uf_convertirfecmostrar($row["feccot"]);
$ls_obscot= $row["obscot"];
$ls_tipanacot = $row["tipsolcot"];
if ($ls_tipanacot=='B')
{
$ls_tipanacot = 'Bienes';
}
elseif($ls_tipanacot=='S')
{
$ls_tipanacot = 'Servicios';
}
$li_montocotizacion = $io_anulacion->uf_load_monto_cotizacion_nivel($ls_numanacot,$ls_tipanacot);
if ($ls_nivapro==1)
{
if(($ls_codniv!="")&&($li_monnivhas!=0)&&($li_montocotizacion <= $li_monnivhas))
{
$li_fila++;
$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]="";
}
}
else
{
$li_fila++;
$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>=1)
{
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,785,"Cotizaciones","gridcompras",120);
}
unset($io_anulacion);
}// end function uf_load_sep
//-----------------------------------------------------------------------------------------------------------------------------------
?>