/** ------------------------------ Devuelve la Descripcion del Credito----------------------- */
function dsolicitud($idsol)
{
$descripcion = "NO_EXISTEN_DATOS";
if (isset($idsol)) {
$cCred = new cCredito($idsol);
$cCred->initCredito();
$descripcion = $cCred->getShortDescription();
}
return $descripcion;
}
function jsaGetDatosDelCredito($credito, $socio)
{
$cred = new cCredito($credito, $socio);
$cred->initCredito();
$DC = $cred->getDatosDeCredito();
$tab = new TinyAjaxBehavior();
$tab->add(TabSetValue::getBehavior('idMonto', $DC["saldo_actual"]));
$tab->add(TabSetValue::getBehavior('idIntereses', $DC["interes_normal_devengado"]));
$tab->add(TabSetValue::getBehavior('idTasa', $DC["tasa_interes"]));
return $tab->getString();
}
function setRevertir()
{
$sucess = true;
$arrValuesRev = array("-1" => "1", "1" => "-1", "0" => "0");
if ($this->mInit == false) {
$this->init();
}
$rw = $this->mArrayData;
$codigo = $rw["idoperaciones_mvtos"];
$docto = $rw["docto_afectado"];
$socio = $rw["socio_afectado"];
$preservar_mvto = $rw["preservar_movimiento"];
$CodeRevertir = $rw["formula_de_cancelacion"];
$monto = $rw["afectacion_real"];
$afectacion = $rw["valor_afectacion"];
$recibo = $rw["recibo_afectado"];
$colocacion = array();
$captacion = array();
//selecciona un comportamiento segun el Origen del Recibo
switch ($this->mAplicadoA) {
case "colocacion":
//cargar datos del credito
$Credito = new cCredito($docto, $socio);
$Credito->initCredito();
$colocacion = $Credito->getDatosDeCredito();
break;
case "captacion":
//cargar datos de la cuenta
$Cuenta = new cCuentaALaVista($docto);
$Cuenta->initCuentaByCodigo();
$captacion = $Cuenta->getDatosInArray();
break;
case "mixto":
//cargar datos de la cuenta y del credito
$Credito = new cCredito($docto, $socio);
$Credito->initCredito();
$colocacion = $Credito->getDatosDeCredito();
$Cuenta = new cCuentaALaVista($docto);
$Cuenta->initCuentaByCodigo();
$captacion = $Cuenta->getDatosInArray();
$this->mMessages .= "WARN\tEL Recibo es Mixto, se carga tanto Captacion como Colocacion\r\n";
break;
default:
$this->mMessages .= "ERROR\tEL Recibo es " . $this->mAplicadoA . ", NO SE CARGA CODIGO\r\n";
break;
}
eval($CodeRevertir);
if ($preservar_mvto == '1') {
$SQL_DM = "UPDATE operaciones_mvtos\n\t\t\t\t\t\tSET afectacion_estadistica=afectacion_real,\n\t\t\t\t\t\tafectacion_real = 0, afectacion_contable=0,\n\t\t\t\t\t\tafectacion_cobranza=0, valor_afectacion=0,\n\t\t\t\t\t\testatus_mvto = 99,\n\t\t\t\t\t\tdocto_neutralizador = " . DEFAULT_RECIBO . ",\n\t\t\t\t\t\trecibo_afectado\t= " . DEFAULT_RECIBO . "\n\t\t\t\t\t\tWHERE idoperaciones_mvtos = {$codigo}\n\t\t\t\t\t\t";
$this->mMessages .= "Actualizando el Movimiento {$codigo}\r\n";
} else {
$SQL_DM = "DELETE FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE idoperaciones_mvtos = {$codigo}";
$this->mMessages .= "Eliminado el Movimiento {$codigo}\r\n";
}
my_query($SQL_DM);
}
//ini_set("display_errors", "on");
$xHP->init();
?>
<style>
body { padding-top:1in;
padding-bottom:1in;
padding-left:1in;
padding-right:1in;
}
</style>
<!-- -->
<?php
$xFecha = new cFecha();
$xCred = new cCredito($idsolicitud);
$xCred->initCredito();
$acreditante = $xCred->getClaveDePersona();
$xFMT = new cFormato($formato);
$xFMT->setCredito($idsolicitud);
$xFMT->setProcesarVars();
echo $xFMT->get();
$mSQL = new cSQLListas();
$mql = new MQL();
$sql = $mSQL->getListadoDeAvales($idsolicitud, $acreditante);
$rs = $mql->getDataRecord($sql);
//setLog($sql);
$forma = 5002;
//$xAval = new cSocios_relaciones();
foreach ($rs as $rows) {
echo "<br class='nuevapagina' />";
$persona = $rows["numero_socio"];
//
if ($persona) {
$sqlcred = "SELECT numero_socio, numero_solicitud, saldo_actual, monto_autorizado FROM creditos_solicitud\t\tWHERE numero_socio={$persona} {$solo_con_saldos} ORDER BY fecha_ministracion, fecha_vencimiento DESC";
$persona = $persona;
$porSocio = true;
}
$xSoc = new cSocio($persona);
$xSoc->init();
echo $xSoc->getFicha(true);
echo "<hr />";
$mycred = getRecordset($sqlcred);
while ($rwc = mysql_fetch_array($mycred)) {
$solicitud = $rwc["numero_solicitud"];
$NCreditos++;
$cFC = new cCredito($solicitud);
$cFC->initCredito();
$cFC->setForceVista($ExtInf);
$sdoTemp = $cFC->getSaldoActual();
echo $cFC->getFicha(true, "", true);
$MontoAutorizado = $rwc["monto_autorizado"];
echo "<hr />";
$where = "";
if ($f15 == "yes") {
$where = " AND (operaciones_mvtos.docto_afectado={$solicitud}) {$SinEstadisticos} {$solo_este_mvto} {$varByFechas}";
} else {
$where = " AND (operaciones_mvtos.docto_afectado={$solicitud}) {$SinEstadisticos} {$solo_este_mvto} {$varByFechas}";
}
$sqlST = $xSQL->getEstadoDeCuentaDeCreditos($where);
$trs = "";
$cap = 0;
$ints = 0;
function jsa_getDatosDeCredito($solicitud)
{
$xCred = new cCredito($solicitud);
$xCred->initCredito();
$xF = new cFecha();
$xT = new cTipos();
$dCreds = $xCred->getDatosDeCredito();
$periocidad = $xCred->getPeriocidadDePago();
$FMinistracion = $xCred->getFechaDeMinistracion();
$contrato_corriente = $xCred->getContratoCorriente();
$xPlanGen = new cPlanDePagosGenerador();
$xPlanGen->initPorCredito($solicitud);
$FPrimerAb = $xPlanGen->getFechaDePrimerPago();
$xF = new cFecha(0, $FMinistracion);
$FM_d = $xF->dia();
$FM_a = $xF->anno();
$FM_m = $xF->mes();
$xF2 = new cFecha(1, $FPrimerAb);
$xF2->set($FPrimerAb);
$PA_d = $xF2->dia();
$PA_a = $xF2->anno();
$PA_m = $xF2->mes();
$tab = new TinyAjaxBehavior();
//setLog("$PA_d --- $PA_m ---- $PA_a - - - - - $FPrimerAb");
$tab->add(TabSetvalue::getBehavior('ideldia1', $FM_d));
$tab->add(TabSetvalue::getBehavior('idelmes1', $FM_m));
$tab->add(TabSetvalue::getBehavior('idelanno1', $FM_a));
$tab->add(TabSetvalue::getBehavior('ideldia0', $PA_d));
$tab->add(TabSetvalue::getBehavior('idelmes0', $PA_m));
$tab->add(TabSetvalue::getBehavior('idelanno0', $PA_a));
$tab->add(TabSetvalue::getBehavior('idDescripcionSolicitud', $xCred->getShortDescription()));
$tab->add(TabSetvalue::getBehavior('idcuenta', $contrato_corriente));
//$xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL
if ($xCred->getTipoEnSistema() == CREDITO_PRODUCTO_NOMINA) {
$tab->add(TabSetvalue::getBehavior('idFormaDePago', $xCred->getTipoDePago()));
//setLog("El pago es " . $xCred->getPeriocidadDePago() );
if ($xCred->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_CATORCENAL) {
$tab->add(TabSetvalue::getBehavior('idtipo_plan_pagos', CREDITO_TIPO_DIAS_DE_PAGO_PERSONALIZADOS));
}
}
return $tab->getString();
}
function Common_c5fe0408555dbf392918c6f77a4d01b2($params)
{
$stdDiv = STD_LITERAL_DIVISOR;
$DPar = explode($stdDiv, $params, 10);
//mensajes
//grupo
$xTip = new cTipos();
//
$socio = $xTip->cInt($DPar[0]);
$credito = $xTip->cInt($DPar[1]);
$letra = $xTip->cInt($DPar[2]);
$capital = $xTip->cFloat($DPar[3]);
$interes = $xTip->cFloat($DPar[4]);
$iva = $xTip->cFloat($DPar[5]);
$ahorro = $xTip->cFloat($DPar[6]);
$nota = $xTip->cChar($DPar[7]);
$numero = $xTip->cInt($DPar[8]);
$limit = $xTip->cInt($DPar[9]);
$msg = "====================== MOVIMIENTO {$numero} DE {$limit} ====================\r\n";
//Datos del Credito
$Cred = new cCredito($credito, $socio);
$Cred->initCredito();
$DCred = $Cred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"] - $capital;
$contrato_captacion = $DCred["contrato_corriente_relacionado"];
$grupo = $DCred["grupo_asociado"];
$msg .= $Cred->getMessages();
if (isset($_SESSION["recibo_en_proceso"])) {
$recibo = $_SESSION["recibo_en_proceso"];
$fecha = fechasys();
$_SESSION["total_recibo_en_proceso"] += $capital + $interes + $ahorro;
$xRec = new cReciboDeOperacion(200, false, $recibo);
$xRec->setNumeroDeRecibo($recibo, true);
$xRec->setNumeroDeRecibo($recibo, true);
$DRec = $xRec->getDatosInArray();
$cheque = $DRec["cheque_afectador"];
$tipopago = $DRec["tipo_pago"];
$recibofiscal = $DRec["recibo_fiscal"];
$xRec->setGenerarPoliza();
$msg .= "{$socio}\t{$credito}\tCREDITO\tMovimiento {$i} del Credito {$credito} del Socio {$socio} con Saldo {$saldo}\r\n ";
$msg .= "{$socio}\t{$credito}\tMONTOS\tCapital: {$capital} || Interes: {$interes} || Ahorro: {$ahorro} \r\n";
//Agregando Capital
if ($capital > 0) {
$xRec->setNuevoMvto($fecha, $capital, 120, $letra, $nota . ";SDO:" . $saldo, 1, TM_ABONO, $socio, $credito);
$arrCred = array("saldo_actual" => $saldo);
$Cred->setUpdate($arrCred);
}
//Agregando Interes
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $interes, 140, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//agregando el IVA
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $iva, 151, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//Agregando Ahorro
if ($ahorro > 0) {
$xC = new cCuentaALaVista($contrato_captacion);
if (!isset($contrato_captacion) or $contrato_captacion == CTA_GLOBAL_CORRIENTE or $contrato_captacion == 0) {
$contrato_captacion = $xC->setNuevaCuenta(2, 1, $socio, "CUENTA_AUTOMATICA", $credito);
$msg .= "{$socio}\t{$credito}\tNuevaCta\tse dio de alta a la cuenta {$contrato_captacion}\r\n";
//2011-nov-30 se agrego la actualizacion del contrato relacionado
$arrCred = array("contrato_corriente_relacionado" => $contrato_captacion);
$Cred->setUpdate($arrCred);
}
$xC = new cCuentaALaVista($contrato_captacion);
$xC->setSocioTitular($socio);
$xC->setReciboDeOperacion($recibo);
$xC->setDeposito($ahorro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
$msg .= $xC->getMessages("txt");
$msg .= "{$socio}\t{$credito}\tAhorro\t El Saldo Quedo en " . $xC->getNuevoSaldo() . "\r\n";
}
$msg .= "{$socio}\t{$credito}\tObservacion\t {$nota}\r\n";
$msg .= $xRec->getMessages("txt");
} else {
$msg .= "NO_SE_HA_DEFINIDO_UN_RECIBO";
}
$xLog = new cFileLog("log_de_recibo_" . $recibo);
$xLog->setWrite($msg);
$xLog->setClose();
$MsgEnd = "";
if ($numero == $limit) {
$xRec->setForceUpdateSaldos();
$xRec->setFinalizarRecibo(true);
//$MsgEnd .= "**** proceso terminado ****";
}
//retorna el id del control de origen para neutralizar
return "-{$numero}";
}
function getListadoDeGrupoParaGuardar($solicitud, $socio)
{
$xNot = new cHNotif();
$xCred = new cCredito($solicitud, $socio);
$xCred->initCredito();
$DCred = $xCred->getDatosDeCredito();
$OConv = $xCred->getOProductoDeCredito();
$grupo = $xCred->getClaveDeGrupo();
$body = "";
$elements = 0;
$avisos = "";
if ($OConv->getEsProductoDeGrupos() == true) {
$body .= "<p class='aviso'>SE HA DETECTADO QUE ESTE CREDITO ES DEL GRUPO {$grupo}</p>";
$xGrp = new cGrupo($grupo);
$DPlan = $xGrp->getDatosDePlaneacionInArray();
$recibo = $DPlan["idoperaciones_recibos"];
$presidenta = $xGrp->getRepresentanteCodigo();
$tds = "";
if (isset($recibo)) {
$body .= "<p class='aviso'>SE CARGAN DATOS DE LA PLANEACION # {$recibo}</p>";
$sql = "SELECT\n\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado`,\n\t\t\t\t\t`socios_general`.`codigo`,\n\t\t\t\t\tCONCAT(`socios_general`.`apellidopaterno`, ' ',\n\t\t\t\t\t`socios_general`.`apellidomaterno`, ' ',\n\t\t\t\t\t`socios_general`.`nombrecompleto`) AS 'nombre',\n\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'monto',\n\t\t\t\t\t`operaciones_mvtos`.`detalles`\n\t\t\t\tFROM\n\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\tINNER JOIN `socios_general` `socios_general`\n\t\t\t\t\t\tON `operaciones_mvtos`.`socio_afectado` = `socios_general`.`codigo`\n\t\t\t\tWHERE\n\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` =112) AND\n\t\t\t\t\t(`operaciones_mvtos`.`recibo_afectado` ={$recibo})";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["codigo"];
$tds .= "\n\t\t\t\t\t\t\t<tr id=\"tr-{$grupo}-{$socio}\">\n\t\t\t\t\t\t\t\t<th>" . $socio . " <input type=\"hidden\" id=\"socio-{$grupo}-{$socio}\" value=\"" . $socio . "\" /></th>\n\t\t\t\t\t\t\t\t<td>" . htmlentities($rw["nombre"]) . "</td>\n\t\t\t\t\t\t\t\t<td><input type=\"text\" id=\"monto-{$grupo}-{$socio}\" value=\"" . $rw["monto"] . "\" class='mny' onchange=\"jsUpdateAutorizacion();\" maxlength=\"20\" /></td>\n\t\t\t\t\t\t\t\t<td><input type=\"text\" id=\"detalles-{$grupo}-{$socio}\" value=\"" . htmlentities($rw["detalles"]) . "\" maxlength=\"60\" /></td>\n\t\t\t\t\t\t\t</tr>";
$elements++;
}
$body .= "<fieldset>\n\t\t\t\t\t\t\t<legend>| GUARDAR DATOS DE LA AUTORIZACION POR GRUPO |</legend>\n\t\t\t\t\t\t\t\t<table width='100%' align='center'>\n\t\t\t\t\t\t\t<th>Socio(a)</th>\n\t\t\t\t\t\t\t<th>Nombre Completo</th>\n\t\t\t\t\t\t\t<th>Monto Autorizado</th>\n\t\t\t\t\t\t\t<th>Observaciones</th>\n\t\t\t\t\t\t\t\t\t<tbody>\n\t\t\t\t\t\t\t\t\t\t{$tds}\n\t\t\t\t\t\t\t\t\t</tbody>\n\t\t\t\t\t\t\t\t\t<th colspan='4'><a class='button' id='icmdGoGroup' onclick='jsSavePlaneacion({$elements})'>Guardar Autorizacion Grupal y Enviar Autorizacion</a></th>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</fieldset>";
//Crear el recibo
$fecha = fechasys();
$oficial = elusuario($_SESSION["SN_b80bb7740288fda1f201890375a60c8f"]);
$xRec = setNuevorecibo($presidenta, $solicitud, $fecha, 1, 40, "CREDITO_DE_GRUPO_ELABORADO_POR_{$oficial}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, $grupo);
$body .= "<p class='aviso'>Se Crea el Recibo # {$xRec} para Trabajar</p>";
if (isset($_SESSION["recibo_en_proceso"])) {
$body .= "<p class='aviso'>Se Ha Liberado el Recibo # " . $_SESSION["recibo_en_proceso"] . " para Trabajar con # {$xRec}</p>";
unset($_SESSION["recibo_en_proceso"]);
}
$_SESSION["recibo_en_proceso"] = $xRec;
}
} else {
//XXX: COOOOOOOOOOOOOOOOOOOOOOOOOOOREGIR
$body .= $xNot->get("Credito Sin problemas<input type='hidden' id='idesautorizado' />");
}
$body .= $avisos;
return $body;
}
function setCrearLetras($EsSucursal, $EnDetalle, $Avisar)
{
//Construir la Array de Letras
$BySucursal = "";
$sucursal = getSucursal();
$arrLetras = array();
$arrFechas = array();
if ($EsSucursal == "si") {
$BySucursal = " AND sucursal = '{$sucursal}' ";
}
//Eliminar las letras
$sqlDSB = "DELETE FROM `sisbancs_amortizaciones` ";
my_query($sqlDSB);
$msg = "\t\tEliminar todas las letras\r\n";
$sqlLetras = "SELECT\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`fecha_afectacion`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio`,\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) AS 'monto'\n\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =2601)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`afectacion_real` >0)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` !=413)\n\n\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio` ";
$rsA = getRecordset($sqlLetras);
while ($rw = mysql_fetch_array($rsA)) {
$arrLetras[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-" . $rw["tipo_operacion"]] = $rw["monto"];
if (!isset($arrFechas[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-fecha"])) {
$arrFechas[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-fecha"] = $rw["fecha_afectacion"];
}
}
$sqlCreds = "SELECT\n\t\t\t\t\t`creditos_solicitud`.*,\n\t\t\t\t\t`creditos_tipoconvenio`.*,\n\t\t\t\t\t`creditos_periocidadpagos`.*,\n\t\t\t\t\t`creditos_estatus`.*,\n\t\t\t\t\t`creditos_solicitud`.`tasa_interes` AS `tasa_ordinaria_anual`,\n\t\t\t\t\t`creditos_solicitud`.`tipo_autorizacion` AS `tipo_de_autorizacion`,\n `creditos_solicitud`.`tasa_ahorro` AS `tasa_de_ahorro`\n\t\t\t\tFROM\n\t\t\t\t\t`creditos_tipoconvenio` `creditos_tipoconvenio`\n\t\t\t\t\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud`\n\t\t\t\t\t\tON `creditos_tipoconvenio`.`idcreditos_tipoconvenio`\n\t\t\t\t\t\t= `creditos_solicitud`.`tipo_convenio`\n\t\t\t\t\t\t\tINNER JOIN `creditos_periocidadpagos`\n\t\t\t\t\t\t\t`creditos_periocidadpagos`\n\t\t\t\t\t\t\tON `creditos_periocidadpagos`.\n\t\t\t\t\t\t\t`idcreditos_periocidadpagos` =\n\t\t\t\t\t\t\t`creditos_solicitud`.`periocidad_de_pago`\n\t\t\t\t\t\t\t\tINNER JOIN `creditos_estatus`\n\t\t\t\t\t\t\t\t`creditos_estatus`\n\t\t\t\t\t\t\t\tON `creditos_estatus`.`idcreditos_estatus` =\n\t\t\t\t\t\t\t\t`creditos_solicitud`.`estatus_actual`\n\t\t\t\tWHERE\n\t\t\t\t\t(`creditos_solicitud`.`saldo_actual` >0.99)\n\t\t\t\t\tAND (`creditos_solicitud`.`estatus_actual` !=50)\n\t\t\t\t\t{$BySucursal}";
$rsC = mysql_query($sqlCreds, cnnGeneral());
$contar = 0;
$NetoDisminuir = 0;
$NetoCap = 0;
$NetoLetra = 0;
while ($rw = mysql_fetch_array($rsC)) {
//Validar el Credito
$socio = $rw["numero_socio"];
$credito = $rw["numero_solicitud"];
$oficial = $rw["oficial_credito"];
$numero_pagos = $rw["pagos_autorizados"];
$TasaIVA = $rw["tasa_iva"];
$saldo_actual = $rw["saldo_actual"];
$periocidad_de_pago = $rw["periocidad_de_pago"];
$fecha_de_vencimiento = $rw["fecha_vencimiento"];
$interes_pagado = $rw["interes_normal_pagado"];
$interes_devengado = $rw["interes_normal_devengado"];
$NetoCap += $saldo_actual;
$TotalCap = 0;
$TotalInt = 0;
if ($periocidad_de_pago == 360) {
$numero_pagos = 1;
}
$xc = new cCredito($credito, $socio);
$xc->initCredito($rw);
//$msg .= "$contarINICIO\t$credito\t=============\tSALDO\t$saldo_actual\r\n";
for ($i = 1; $i <= $numero_pagos; $i++) {
$capital = 0;
$interes = 0;
$lkey = $credito . "-" . $i . "-";
$fecha = isset($arrFechas[$lkey . "fecha"]) ? $arrFechas[$lkey . "fecha"] : fechasys();
$txtLog = "";
if ($periocidad_de_pago != 360) {
//Si el Capital Existe
if (isset($arrLetras[$lkey . 410])) {
$capital = $arrLetras[$lkey . 410];
}
//Si el Interes Existe
if (isset($arrLetras[$lkey . 411])) {
$interes = $arrLetras[$lkey . 411];
}
} else {
$fecha = $fecha_de_vencimiento;
$capital = $saldo_actual;
$interes = setNoMenorQueCero($interes_devengado - $interes_pagado);
}
//recompocision a 2 digitos por letra
$capital = round($capital, 2);
$interes = round($interes, 2);
$iva = round($interes * $TasaIVA, 2);
//SUMAS
$total_letra = $capital + $interes + $iva;
$TotalCap += $capital;
$TotalInt += $interes;
//Global
$NetoLetra += $capital;
if ($total_letra > TOLERANCIA_SALDOS) {
$sqlI = "INSERT INTO sisbancs_amortizaciones\n\t\t\t\t\t\t\t\t\t\t(socio, credito, parcialidad, fecha_de_vencimiento, saldo_vigente, saldo_vencido,\n\t\t\t\t\t\t\t\t\t\tinteres_vigente, interes_vencido,\n\t\t\t\t\t\t\t\t\t\tsaldo_interes_vencido, interes_moratorio,\n\t\t\t\t\t\t\t\t\t\testatus, iva_interes_normal, iva_interes_moratorio,\n\t\t\t\t\t\t\t\t\t\tfecha_de_abono)\n\t\t\t\t\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t\t\t\t\t({$socio}, {$credito}, {$i}, '{$fecha}', {$capital}, 0,\n\t\t\t\t\t\t\t\t\t\t{$interes}, 0,\n\t\t\t\t\t\t\t\t\t\t0, 0, 1, {$iva}, 0,\n\t\t\t\t\t\t\t\t\t\t'{$fecha}')";
my_query($sqlI);
if ($EnDetalle == "si") {
$msg .= "{$contar}\tLETRA\t{$credito}\t{$i}\tAGREGANDO PARCIALIDAD POR {$total_letra}\r\n";
}
}
}
if ($TotalCap > $saldo_actual + TOLERANCIA_SALDOS or $TotalCap < $saldo_actual - TOLERANCIA_SALDOS) {
$txtLog .= "{$contar}\tERROR\t{$credito}\tERROR EL SALDO({$saldo_actual})ES DIFERENTE A LA SUMA DE LETRAS({$TotalCap})\r\n";
if ($Avisar == "si") {
$xo = new cOficial();
$xo->addNote(iDE_CREDITO, $oficial, $socio, $credito, $txtLog);
}
$msg .= $txtLog;
}
$msg .= "{$contar}\t{$credito}\t=============\tCAPITAL\t{$TotalCap}\r\n";
$msg .= "{$contar}\t{$credito}\t=============\tINTERES\t{$TotalInt}\r\n";
$msg .= "{$contar}\tFIN\t=================================================================\r\n";
$contar++;
}
return $msg;
}
function show($return = false)
{
$exoFicha = "";
$iNumTools = sizeof($this->mTool);
$trTool = "";
$wTable = $this->mTableWidth;
if ($iNumTools > 0) {
$iTools = "";
foreach ($this->mTool as $key => $value) {
$TParts = explode("@", $value);
$iImg = $TParts[0];
$iTitle = $TParts[1];
$srcImg = vIMG_PATH . "/common/{$iImg}";
$iTools = $iTools . "<td><img src=\"{$srcImg}\" onclick=\"{$key}(" . $this->mKey . ")\" />{$iTitle}</td>";
}
$trTool = "<tr>\r\n\t\t\t<td colspan=\"4\">\r\n\t\t\t<table width=\"100%\">\r\n\t\t\t\t<tbody>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t{$iTools}\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</tbody>\r\n\t\t\t</table>\r\n\t\t\t</td>\r\n\t\t\t</tr>";
}
// end iNumTools
$cTyp = new cTipos();
switch ($this->mType) {
case iDE_SOCIO:
//INFO del Socio
$cSoc = new cSocio($this->mKey, true);
$exoFicha = $cSoc->getFicha($this->mSocioWithDomExt, false, $trTool);
unset($cSoc);
break;
case iDE_CREDITO:
// Creditos iDE_CREDITO
$cF = new cCredito($this->mKey);
$cF->initCredito();
$exoFicha = $cF->getFicha(false, $trTool);
unset($cF);
break;
case 101:
//Grupos iDE_GRUPO
$cG = new cGrupo($this->mKey);
$exoFicha = $cG->getFicha(false, $trTool);
unset($cG);
break;
case iDE_GARANTIA:
$sql = "SELECT creditos_garantias.idcreditos_garantias,\r\n\t\t\t\tcreditos_tgarantias.descripcion_tgarantias AS 'Tipo_de_Garantia',\r\n\t\t\t\t creditos_tvaluacion.descripcion_tvaluacion AS 'Tipo_de_Valuacion',\r\n\t\t\t\t creditos_garantias.fecha_recibo AS 'Fecha_de_Recibo',\r\n\t\t\t\t FORMAT(creditos_garantias.monto_valuado, 2) AS 'Monto_valuado',\r\n\t\t\t\t creditos_garantias.fecha_adquisicion AS 'Fecha_de_Adquisicion',\r\n\t\t\t\t creditos_garantias.documento_presentado AS 'Documento_Presentado',\r\n\t\t\t\t creditos_garantias.descripcion AS 'Descripcion',\r\n\t\t\t\t creditos_garantias.propietario AS 'Propietario'\r\n\t\t\t\t FROM creditos_tvaluacion, creditos_garantias, creditos_tgarantias\r\n\t\t\t\t WHERE creditos_tgarantias.idcreditos_tgarantias=creditos_garantias.tipo_garantia\r\n\t\t\t\t AND creditos_tvaluacion.idcreditos_tvaluacion=creditos_garantias.tipo_valuacion\r\n\t\t AND creditos_garantias.idcreditos_garantias=" . $this->mKey;
$tool = $trTool;
$rwt = obten_filas($sql);
$exoFicha = "\r\n\t<table {$wTable} border='0'>\r\n\t<tbody>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Identificador</th><td>{$rwt['0']}</td>\r\n\t\t\t<th class='izq'>Tipo</th><td>{$rwt['1']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Tipo de Valuacion</th><td>{$rwt['2']}</td>\r\n\t\t\t<th class='izq'>Fecha de Resguardo</th><td>{$rwt['3']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Fecha de Adquisicion</th><td>{$rwt['5']}</td>\r\n\t\t\t<th class='izq'>Documento / Factura</th><td>{$rwt['6']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Monto Valuado</th><td>" . getFMoney($rwt[4]) . "</td>\r\n\t\t\t<th class='izq'>Propietario</th><td>{$rwt['8']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th>Descripción</th>\r\n\t\t\t<td>{$rwt['7']}</td>\r\n\t\t</tr>\r\n\t\t{$tool}\r\n\t</tbody>\r\n\t</table>";
break;
case 300:
//TODO: Change this line.- cambiar por la clase global
$sqli = "\r\n\t\t\tSELECT\r\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`,\r\n\t\t\t\t\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `modalidad`,\r\n\t\t\t\t\t`captacion_subproductos`.`descripcion_subproductos` AS `subproducto`,\r\n\t\t\t\t\t`captacion_cuentas`.`fecha_apertura` AS `fecha_de_apertura`,\r\n\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta` AS `saldo_actual`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_grupo` AS `grupo_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_solicitud` AS `credito_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`tasa_otorgada` AS `tasa`,\r\n\t\t\t\t\t`captacion_cuentas`.`observacion_cuenta` AS `observaciones`\r\n\t\t\t\tFROM\r\n\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\r\n\t\t\t\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\r\n\t\t\t\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\r\n\t\t\t\t\t\t`idcaptacion_cuentastipos`\r\n\t\t\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\r\n\t\t\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` = `captacion_subproductos`\r\n\t\t\t\t\t\t\t.`idcaptacion_subproductos`\r\n\t\t\t\tWHERE\r\n\t\t\t\t\t(`captacion_cuentas`.`numero_cuenta` =" . $this->mKey . ")";
$rw = obten_filas($sqli);
$exoFicha = "\r\n\t\t\t\t<table width='100%' border='0'>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Numero de Cuenta</th class='mny'><td>" . $rw["numero_cuenta"] . "</td>\r\n\t\t\t\t\t<th class='izq' >Fecha de Apertura</th><td>" . getFechaMediana($rw["fecha_de_apertura"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Modalidad</th><td>" . $rw["modalidad"] . "</td>\r\n\t\t\t\t\t<th class='izq'>Producto</th><td>" . $rw["subproducto"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Tasa Actual</th><td class='mny'>% " . getFMoney($rw["tasa"] * 100) . "</td>\r\n\t\t\t\t\t<th class='izq'>Saldo Actual</th>\r\n\t\t\t\t\t<td class='mny'>" . getFMoney($rw["saldo_actual"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Observaciones</th><td colspan='2'>" . $rw["observaciones"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t</table>";
break;
case 310:
//Depositos a la vista iDE_CVISTA
$cCapt = new cCuentaALaVista($this->mKey);
$cCapt->init();
$exoFicha = $cCapt->getFicha(false, $trTool);
break;
case 320:
//iDE_CINVERSION
$xCI = new cCuentaInversionPlazoFijo($this->mKey);
$xCI->init();
$exoFicha = $xCI->getFicha(false, $trTool);
break;
case 400:
//RECIBO DE OPERACION
$cRec = new cReciboDeOperacion(99, false, $this->mKey);
//$cRec->initRecibo();
$exoFicha = $cRec->getFicha(false, $trTool);
unset($cRec);
break;
default:
break;
}
//retoque fieldset
if ($this->mTitle != "") {
$this->mTitle = "| " . $this->mTitle . " |";
}
$exoFicha = "<fieldset>\r\n\t\t\t\t\t\t<legend>" . $this->mTitle . "</legend>\r\n\t\t\t\t\t\t\t{$exoFicha}\r\n\t\t\t\t\t</fieldset>";
if ($return == true) {
return $exoFicha;
} else {
echo $exoFicha;
}
}
