EVOLUTION-MANAGER

Edit File: solicitud_de_credito.validacion.frm.php

<?php
/**
 * Solicitud de Creditos, forma de captura
 * @author Balam Gonzalez Luis Humberto
 * @version 1.50
 * @package creditos
 * @subpackage forms
 * 		22/07/2008	Funciones mejoradas de riesgo
 * 					Implementacion de php doc
 */
//=====================================================================================================
//=====>	INICIO_H
	include_once("../core/go.login.inc.php");
	include_once("../core/core.error.inc.php");
	include_once("../core/core.html.inc.php");
	include_once("../core/core.init.inc.php");
	$theFile					= __FILE__;
	$permiso					= getSIPAKALPermissions($theFile);
	if($permiso === false){		header ("location:../404.php?i=999");	}
	$_SESSION["current_file"]	= addslashes( $theFile );
//<=====	FIN_H
	$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP		= new cHPage("TR.Validar Creditos");
$xHP->init();
$xFRM		= new cHForm("frmsolcredvalida", "./");
$xLog		= new cCoreLog();

$persona	= parametro("persona", DEFAULT_SOCIO, MQL_INT); $persona = parametro("socio", $persona, MQL_INT); $persona = parametro("idsocio", $persona, MQL_INT);
$credito	= parametro("credito", DEFAULT_CREDITO, MQL_INT); $credito = parametro("idsolicitud", $credito, MQL_INT); $credito = parametro("solicitud", $credito, MQL_INT);
$cuenta		= parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT); $cuenta = parametro("idcuenta", $cuenta, MQL_INT);
$jscallback	= parametro("callback"); $tiny = parametro("tiny"); $form = parametro("form"); $action = parametro("action", SYS_NINGUNO);
$periocidad	= parametro("periocidad", 0, MQL_INT);
$convenio	= parametro("producto", 0, MQL_INT);
$pagos		= parametro("pagos", 0, MQL_INT);
$contrato	= parametro("contrato", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$vencido	= parametro("vencido");
$ministrado	= parametro("ministrado");
$monto		= parametro("monto", 0, MQL_FLOAT);
$fecha		= parametro("fecha", fechasys(), MQL_DATE);

$tipoorigen	= parametro("tipoorigen",0, MQL_INT);
$claveorigen= parametro("claveorigen",0, MQL_INT);
//function jsaValidarCredito($socio,  $numpagos, $periocidad, $convenio, $contrato, $fechaMin, $fechaVenc, $monto){
	$xSoc			= new cSocio($persona);
	
	$out 			= false;
	
	//"numero_de_solicitud" => $solicitud,
	$arrDatos		= array(
			
			"periocidad_de_pago" => $periocidad,
			"tipo_de_producto" => $convenio,
			"numero_de_pagos" => $pagos,
			"contrato_corriente_relacionado" => $contrato,
			"fecha_de_ministracion" => $ministrado,
			"fecha_de_vencimiento" => $vencido,
			"monto_solicitado"		=> $monto,
			"fecha_de_solicitud" => $fecha,
			"tipo_de_origen" => $tipoorigen,
			"clave_de_origen" => $claveorigen
	);
	if($xSoc->init() == true){
		if(MODULO_AML_ACTIVADO == true){
			$xSoc->setAMLAutoActualizarNivelRiesgo();
		}
		
		$valido		= $xSoc->getValidacion(false, false);
		
		if($xSoc->isOperable() == true AND $valido == true){
			$out	= $xSoc->setPrevalidarCredito($arrDatos);
		} else {
			$xLog->add("ERROR\tLA PERSONA $persona NO PUEDE REALIZAR OPERACIONES\r\n");
		}
	
	} else {
		$xLog->add("ERROR\tLA PERSONA $persona No existe.\r\n");
	}
	$xLog->add($xSoc->getMessages());
	
	if($out == true){
		$_SESSION[SYS_UUID]		= $xSoc->getUUID();
		$xLog->add("OK\tEL CREDITO HA SIDO VALIDADO POR EL SISTEMA - CUMPLE LOS REQUISITOS\r\n");
		//$xFRM->OButton("TR.guardar credito", "var xG = new Gen(); xG.close()", "guardar", "idvalidarok");
		//$xFRM->OButton("TR.validar nuevamente", "jsaValidarCredito()", "checar", "idnuevavalidacion");
		$xFRM->addAvisoRegistroOK($xLog->getMessages());
	} else {
		$_SESSION[SYS_UUID]		= null;
		//$ctrl = "<input type=\"button\" name=\"cmdSubmit\" onclick=\"jsPrevalidarCredito();\" value=\"VALIDAR CREDITO NUEVAMENTE\" />";
		//$xFRM->OButton("TR.validar nuevamente", "jsaValidarCredito()", "checar", "idnuevavalidacion");
		$xFRM->addAvisoRegistroError($xLog->getMessages());
	}
	
	$xFRM->addCerrar();
	echo $xFRM->get();
	
	
$xHP->fin();
?>