$xCat = new cCreditosOtrosDatos();
if ($tieneprops == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROPIETARIO, "1");
}
if ($tieneprovs == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROVEEDOR, "1");
}
if ($xCred->getTipoDeAutorizacion() == CREDITO_TIPO_AUTORIZACION_AUTOMATICA) {
//$saldo_actual = $monto_autorizado;
//TODO: Acabar con este modulo
$xFRM->addToolbar($xBtn->getBasic($xHP->lang("Imprimir", "Orden de Desembolso"), "jsImprimirOrdenDeDesembolso()", "imprimir", "cmdprintdes", false));
}
//----------------------------------------------------------------------
$xFRM->addHTML($xCred->getFichaDeSocio());
$xFRM->addHTML($xCred->getFicha());
$xFRM->addCreditoComandos($xCred->getNumeroDeCredito());
$xFRM->addToolbar($xBtn->getBasic("TR.Autorizar credito", "var CGen=new CredGen();CGen.getFormaAutorizacion({$credito})", "imprimir", "cmdprintdes5", false));
$xFRM->addToolbar($xBtn->getBasic("TR.GENERAR PLAN_DE_PAGOS", "var CGen=new CredGen();CGen.getFormaPlanPagos({$credito})", "reporte", "generar-plan", false));
}
}
$msg .= $xSoc->getMessages();
$xFRM->addAviso($msg);
echo $xFRM->get();
?>
<script>
var xGen = new Gen();
var CGen = new CredGen();
var idcredito = <?php
echo $credito;
?>
$idsocio = $xCred->getClaveDePersona();
}
$xOPdto = $xCred->getOProductoDeCredito();
if ($idsocio != $xCred->getClaveDePersona()) {
$msg = "ERROR\tLa Persona {$idsocio} no es la propietaria del credito, el credito marca " . $xCred->getClaveDePersona() . "\r\n";
$oFrm->addToolbar($xBtn->getRegresar("../index.xul.php?p=frmcreditos/creditos.panel.frm.php", true));
$oFrm->addAviso($msg);
} else {
$oFrm->addHTML($xCred->getFichaDeSocio(true));
$oFrm->addHTML($xCred->getFicha(true, "", true));
$codigo_de_oficial = $xCred->getClaveDeOficialDeCredito();
if (MODO_DEBUG == true) {
$oFrm->addToolbar($xBtn->getBasic("TR.EDICION_AVANZADA", "jsActualizarCreditoRAW()", "aviso", "edit-credito2", false));
$oFrm->addToolbar($xBtn->getBasic("TESTING", "var xG=new Gen();xG.w({url:'../unit/core.creditos.test.php?credito={$idsolicitud}'})", "checar", "test-cred", false));
}
$oFrm->addCreditoComandos($idsolicitud);
$oFrm->addToolbar($xBtn->getBasic("TR.ACTUALIZAR DATOS", "jsActualizarCredito()", "editar", "edit-credito", false));
$oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR PAGARE", "printpagare()", "dinero", "view-pagare", false));
$oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR formato NOTARIAL", "cedulanotario({$idsolicitud})", "reporte", "view-cedula", false));
$oFrm->addToolbar($xBtn->getBasic("TR.ORDEN_DE_DESEMBOLSO", "printodes()", "imprimir", "print-order", false));
$oFrm->addToolbar($xBtn->getBasic("TR.CONTRATO", "contratocredito()", "imprimir", "print-contrato", false));
$oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR RECIBO DE credito", "printrec()", "imprimir", "print-recP", false));
$oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR MANDATO", "printMandato()", "imprimir", "print-mandato", false));
$oFrm->addToolbar($xBtn->getBasic("TR.ESTADO_DE_CUENTA", "getEstadoDeCuenta({$idsolicitud})", "statistics", "estado-cta", false));
$oFrm->addToolbar($xBtn->getBasic("TR.ESTADO_DE_CUENTA Intereses", "getEstadoDeCuentaIntereses({$idsolicitud})", $oFrm->ic()->COBROS, "estado-cta2", false));
$idrecibo = $xCred->getNumeroReciboDeMinistracion();
$idnumeroplan = $xCred->getNumeroDePlanDePagos();
if (setNoMenorQueCero($idnumeroplan) > 0) {
$oFrm->addToolbar($xBtn->getBasic("TR.PLAN_DE_PAGOS #{$idnumeroplan}", "printplan({$idnumeroplan})", "print", "print-plan", false));
}
$oFrm->addToolbar($xBtn->getBasic("TR.RENEGOCIAR", "jsRenegociar()", "editar", "mcediatar", false));
echo $xP->setBodyinit();
//
$fecha = parametro("fecha", fechasys());
/*
Fecha_Cierre_Credito,Forma_Pago_Mop ( Que solo puede salir viendo cuantos dias transcurridos del credito han pasado) y Monto_Ultimo_Pago creo que con eso ya sale para hoy
* */
$credito_de_pruebas = parametro("credito", 209999801, MQL_INT);
//Crear formularios
$xFRM = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
//====================================================================================================
$xFRM->addHElem("<p class='aviso'>Pruebas de la Clase Creditos</p>");
$xCred = new cCredito($credito_de_pruebas);
$xCred->init();
$xFRM->addHElem($xCred->getFicha(true, "", true, true));
$xFRM->addCreditoComandos($credito_de_pruebas);
//$xFRM->addHElem($xCred->setDetermineDatosDeEstatus(fechasys(), true));
$xUtils->setEstatusDeCreditos(false, fechasys(), false, true, false);
//$xFRM->addAviso($xCred->getMessages(), "id2", false, "warning");
//$xFRM->addAviso(, "id2", false, "warning");
$xFRM->addLog($xUtils->getMessages());
/*$xFRM->addHElem( "<p class='aviso'>Vencimiento : " . $xCred->setDetermineDatosDeEstatus(false, true) . "</p>" );
$xFRM->addHElem( "<p class='aviso'>fecha de ultimo pago de CAPITAL : " . $xCred->getFechaUltimoMvtoCapital() . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Monto de Parcialidad : " . $xCred->getMontoDeParcialidad() . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Saldo Actual Normal : " . $xCred->getSaldoActual() . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Saldo Actual FORZADO: " . $xCred->getSaldoActual($fecha) . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Monto de Ultimo Pago : " . $xCred->getMontoUltimoPago() . "</p>" );
if ($idmonto <= TOLERANCIA_SALDOS) {
//Cambiar a 0 de saldo autorizado y 50 de estatus
$xCred->setCancelado($idautorizacion, $fechaaut);
$sucess = false;
}
/*------------------------------ Obtiene datos mediante sentencias dinamicas */
$estatusactual = 98;
/* Determina si el Pago es en una sola Ministracion, genera el IDAD */
if ($periocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$intdev = $idmonto * $tasaot / EACP_DIAS_INTERES;
// Interes Diario para Pagos Fijos
$idpagos = 1;
$fechavcto = $ds_sol["fecha_vencimiento"];
$diasaut = restarfechas($fechavcto, $fecha_ministracion_propuesta);
$msg .= "WARN\tLos Dias Autorizados cambian a {$diasaut}, se respeta la fecha de vencimiento ({$fechavcto})\r\n";
$xFRM->addCreditoComandos($idsolicitud);
} else {
$intdev = $idmonto * $tasaot / EACP_DIAS_INTERES;
// Interes Diario a Cero para otros Casos
$fechavcto = sumardias($fecha_ministracion_propuesta, $diasaut);
$msg .= "WARN\tLa Fecha de Vencimiento es actualizada al " . getFechaLarga($fechavcto) . "; los dias autorizados son de {$diasaut}\r\n";
$msg .= "WARN\tPARA OBTENER LOS DEMAS DOCUMENTOS DEBE GENERAR EL PLAN DE PAGOS\r\n";
}
/* ------------------------------ sentencia update -------------------------- */
if ($sucess == true) {
$xCred->setAutorizado($idmonto, $idpagos, $periocidad, $TipoDeAutorizacion, $fechaaut, $idautorizacion, $idtipodepago, $fecha_ministracion_propuesta, $idnivelderiesgo, $diasaut, $fechavcto, $estatusactual, $sdoactual, $intdev, $fechaultmvto, $TasaDeInteres);
/* si es Credito de Grupos solidarios, Actualiza los Mvtos de Otorgacion */
if ($OConv->getEsProductoDeGrupos() == true) {
$sqlusolc = "UPDATE operaciones_mvtos\tSET estatus_mvto = 10\tWHERE\n\t\t\t\tgrupo_asociado={$gpoasoc}\tAND (tipo_operacion=112) AND (estatus_mvto=40)";
my_query($sqlusolc);
}