";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_ins.php");
$io_fun_cxp=new class_funciones_ins("../");
$io_fun_cxp->uf_load_seguridad("INS","sigesp_ins_p_docs_a_libcompra.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
//--------------------------------------------------------------
function uf_limpiarvariables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $io_fun_cxp,$ls_operacion,$ls_codtipsol,$ld_fecregdes,$ld_fecreghas,$ld_fecaprord,$li_totrow;
$ls_operacion=$io_fun_cxp->uf_obteneroperacion();
$ls_codtipsol="";
$ld_fecregdes=date("01/m/Y");
$ld_fecreghas=date("d/m/Y");
$ld_fecaprord=date("d/m/Y");
$li_totrow=0;
}
//--------------------------------------------------------------
//--------------------------------------------------------------
function uf_load_variables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_load_variables
// Access: private
// Description: Función que carga todas las variables necesarias en la página
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $li_totrow,$ls_tipope,$ld_fecaprosol;
$li_totrow = $_POST["totrow"];
$ls_tipope = $_POST["rdtipooperacion"];
$ld_fecaprord =$_POST["txtfecaprord"];
}
//--------------------------------------------------------------
?>
Mantenimiento de Documentos a Libro de Compra
uf_obtenervalor("txtnumrecdoc".$li_i,""));
$ld_fecregdoc=$io_fun_cxp->uf_obtenervalor("txtfecregdoc".$li_i,"");
$ls_codpro=$io_fun_cxp->uf_obtenervalor("txtcodpro".$li_i,"");
$ls_cedben=$io_fun_cxp->uf_obtenervalor("txtcedben".$li_i,"");
$ls_codtipdoc=$io_fun_cxp->uf_obtenervalor("txtcodtipdoc".$li_i,"");
switch ($ls_tipope)
{
case 0:
$lb_valido=$io_fecha->uf_comparar_fecha($ld_fecregdoc,$ld_fecaprord);
if($lb_valido)
{
$lb_existe=$io_cxp->uf_validar_estatus_recepcion($ls_numrecdoc,"1",$ls_codpro,$ls_cedben,$ls_codtipdoc);
if(!$lb_existe)
{
$lb_valido=$io_cxp->uf_update_estatus_recepciones($ls_numrecdoc,1,$ls_codpro,$ls_cedben,
$ls_codtipdoc,$ld_fecregdoc,$la_seguridad);
}
else
{
$io_mensajes->message("La Recepcion de Documentos ".$ls_numrecdoc." ya esta en libro de compra");
}
}
else
{
$io_mensajes->message("La Fecha de Registro de la Recepción de Doumento ".$ls_numrecdoc." debe ser menor a la fecha de Aprobacion");
}
break;
case 1:
$lb_existe=$io_cxp->uf_validar_recepciones($ls_numrecdoc,$ls_codpro,$ls_cedben,$ls_codtipdoc);
if($lb_existe)
{
$lb_valido=$io_cxp->uf_update_estatus_recepciones($ls_numrecdoc,0,$ls_codpro,$ls_cedben,
$ls_codtipdoc,$ld_fecregdoc,$la_seguridad);
}
else
{
$io_mensajes->message("La Recepcion de Documentos ".$ls_numrecdoc." debe estar en Registro");
}
break;
}
}
}
if($lb_valido)
{
$io_mensajes->message("El proceso se realizo con Exito");
}
else
{
$io_mensajes->message("No se pudo realizar el proceso");
}
uf_limpiarvariables();
break;
}
?>
