";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_cxp.php");
$io_fun_cxp=new class_funciones_cxp();
$io_fun_cxp->uf_load_seguridad("CXP","sigesp_cxp_p_anulacionsolicitudpago.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_fecemides,$ld_fecemihas,$ld_fecaprosol,$li_totrow;
$ls_operacion=$io_fun_cxp->uf_obteneroperacion();
$ls_codtipsol="";
$ld_fecemides=date("01/m/Y");
$ld_fecemihas=date("d/m/Y");
$ld_fecaprosol=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_fecaprosol =$_POST["txtfecaprosol"];
}
//--------------------------------------------------------------
?>
Anulación de Solicitud de Pago
uf_obtenervalor("txtnumsol".$li_i,"");
$ld_fecemisol=$io_fun_cxp->uf_obtenervalor("txtfecemisol".$li_i,"");
switch ($ls_tipope)
{
case 0:
$lb_valido=$io_fecha->uf_comparar_fecha($ld_fecemisol,$ld_fecaprosol);
if($lb_valido)
{
$lb_existe=$io_cxp->uf_validar_estatus_solicitud($ls_numsol,"N");
if(!$lb_existe)
{
$lb_valido=$io_cxp->uf_update_estatus_solicitud($ls_numsol,"N",$ld_fecaprosol,$la_seguridad);
}
else
{
$io_mensajes->message("La solicitud ".$ls_numsol." ya esta anulada");
}
}
else
{
$io_mensajes->message("La Fecha de Registro de la Solicitud ".$ls_numsol." debe ser menor a la fecha de Anulacion");
}
break;
case 1:
$lb_existe=$io_cxp->uf_validar_solicitudes($ls_numsol);
if($lb_existe)
{
$lb_valido=$io_cxp->uf_verificar_montos_recepciones($ls_numsol);
if($lb_valido)
{
$lb_valido=$io_cxp->uf_update_estatus_solicitud($ls_numsol,"E",$ld_fecaprosol,$la_seguridad);
}
else
{
$io_mensajes->message("Se han modificado las Recepciones de Documento asociadas.");
}
}
else
{
$io_mensajes->message("La solicitud ".$ls_numsol." debe estar en Anulada sin Afectacion");
}
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;
}
?>
