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","");
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
switch($ls_proceso)
{
case "BUSCAR":
uf_load_ordenes_compra($ls_numordcom,$ld_fecdes,$ld_fechas,$ls_codpro);
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_ordenes_compra($as_numordcom,$ad_fecdes,$ad_fechas,$as_codpro)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_ordenes_compra
// 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_orden_compra.php");
$io_anulacion = new sigesp_soc_c_anulacion_orden_compra("../../");
$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] = "Tipo";
$lo_title[6] = "Fecha";
$lo_title[7] = "Monto";
$lo_object[0] = "";
$rs_data = $io_anulacion->uf_load_ordenes_compra($as_numordcom,$ad_fecdes,$ad_fechas,$as_codpro);
$li_fila=0;
while ($row=$io_anulacion->io_sql->fetch_row($rs_data))
{
$ls_numordcom = str_pad($row["numordcom"],15,0,0);
$ls_codpro = str_pad($row["cod_pro"],10,0,0);
$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"];
$ls_numanacot = trim($row["numanacot"]);
$ld_monordcom = number_format($row["montot"],2,",",".");
$ld_fecordcom = $io_funcion->uf_convertirfecmostrar($row["fecordcom"]);
$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]="";
}
}
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 ($li_fila>=1)
{
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,785,"Ordenes de Compra","gridcompras",120);
}
unset($io_anulacion);
}// end function uf_load_sep
//-----------------------------------------------------------------------------------------------------------------------------------
?>