uf_obtenervalor("numordcom","");
//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","");
//Tipo de Operacion a realizar Aprobacion/Reverso de Aprobacion.
$ls_tipope = $io_funciones_soc->uf_obtenervalor("tipope","");
//Tipo de Orden de Compra.
$ls_tipordcom = $io_funciones_soc->uf_obtenervalor("tipordcom","");
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
switch($ls_proceso)
{
case "BUSCAR":
uf_load_ordenes_compra($ls_numordcom,$ls_codpro,$ld_fecdes,$ld_fechas,$ls_tipordcom,$ls_tipope);
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_ordenes_compra($as_numordcom,$as_codpro,$ad_fecdes,$ad_fechas,$as_tipordcom,$as_tipope)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_ordenes_compra
// Access: private
// Arguments: as_numsol // Número de Solicitud
// as_titulo // Titulo de bienes o servicios
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que busca los creditos de una solicitud y las imprime
// Creado Por: Ing. Néstor Falcon.
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funcion;
require_once("sigesp_soc_c_aprobacion_orden_compra.php");
$io_aprobacion = new sigesp_soc_c_aprobacion_orden_compra("../../");
$ls_nivapro=$_SESSION["la_empresa"]["nivapro"];
$ls_codasiniv="";
$ls_codusu=$_SESSION["la_logusr"];
$ls_codasiniv=$io_aprobacion->uf_nivel_aprobacion_usu($ls_codusu,'2');
$li_monnivhas=0;
if($ls_codasiniv!="")
{
$ls_codniv=$io_aprobacion->uf_nivel($ls_codasiniv);
if($ls_codniv!="")
{
$li_monnivhas=$io_aprobacion->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] =" Tipo";
$lo_title[6] = "Fecha";
$lo_title[7] = "Monto";
if ($as_tipope=='R')
{
$lo_title[8] = "Aprobación";
}
$lo_object[0]="";
$rs_data = $io_aprobacion->uf_load_ordenes_compra($as_numordcom,$as_codpro,$ad_fecdes,$ad_fechas,$as_tipordcom,$as_tipope);
$li_fila=0;
while ($row=$io_aprobacion->io_sql->fetch_row($rs_data))
{
$ls_numordcom = str_pad($row["numordcom"],15,0,0);
$ls_codpro = trim($row["cod_pro"]);
$ls_nompro = $row["nompro"];
$ls_tipordcom = $row["estcondat"];
if ($ls_tipordcom=='B')
{
$ls_tipordcom = 'Bienes';
}
elseif($ls_tipordcom=='S')
{
$ls_tipordcom = 'Servicios';
}
$ld_monordcom_comp = $row["montot"];
$ld_monordcom = number_format($row["montot"],2,",",".");
$ld_fecordcom = $io_funcion->uf_formatovalidofecha($row["fecordcom"]);
$ld_fecordcom = $io_funcion->uf_convertirfecmostrar($ld_fecordcom);
$ld_fecaprcom = $io_funcion->uf_formatovalidofecha($row["fecaprord"]);
$ld_fecaprcom = $io_funcion->uf_convertirfecmostrar($ld_fecaprcom);
$ls_obsordcom = $row["obscom"];
if ($ls_nivapro==1)
{
if(($ls_codniv!="")&&($li_monnivhas!=0)&&($ld_monordcom_comp <= $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]="";
$lo_object[$li_fila][7]="";
if ($as_tipope=='R')
{
$lo_object[$li_fila][8]="";
}
}
}
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]="";
$lo_object[$li_fila][7]="";
if ($as_tipope=='R')
{
$lo_object[$li_fila][8]="";
}
}
}
if ($li_fila>=1)
{
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,800,"Ordenes de Compra","gridcompras",250);
}
unset($io_aprobacion);
}// end function uf_load_sep
//-----------------------------------------------------------------------------------------------------------------------------------
?>