<td width="75%"><?php
echo $xLoc->DomicilioMunicipio() . ", " . $xLoc->DomicilioEstado();
?>
</td>
</tr>
<tr>
<th class="der">Fecha Actual</th>
<td><?php
echo getFechaLarga();
?>
</td>
</tr>
<tr>
<th class="der">Fecha de Solicitud</th>
<td><?php
echo getFechaLarga($fecha_de_solicitud);
?>
</td>
</tr>
</tbody>
</table>
</fieldset>
<?php
$sqlconyuge = "SELECT numero_socio, CONCAT(nombres, ' ', apellido_paterno, ' ', apellido_materno)\n\t\t\t\t\tAS 'Nombre_Completo',\n\t \t\t\t\tCONCAT( telefono_residencia, ', ', telefono_movil) as 'telefonos', ocupacion\n\t\t\t\t\tfrom socios_relaciones where consanguinidad=3\n\t\t\t\t\tAND socio_relacionado={$idsocio}";
$conyuge = obten_filas($sqlconyuge);
$txtConyuge = "";
//$conyuge[0] - $conyuge[1] - Tel(s): $conyuge[2] Ocupación: $conyuge[3]
$rwy = $xSocio->getDatosInArray();
$idconyuge = $xSocio->getClaveDePersonaDeConyuge();
if ($conyuge > 0) {
/**
* Funcion que asiste en la Ministracion del Credito
*/
function setMinistrar($recibo_fiscal, $cheque, $monto_cheque = 0, $cuenta_cheques = false, $cheque2 = 0, $cuenta_cheques2 = 0, $observaciones = "", $fecha = false, $recibo = false, $tipo_de_pago = TESORERIA_PAGO_CHEQUE)
{
$sucess = true;
$monto_cheque = $monto_cheque == 0 ? $this->getMontoAutorizado() : $monto_cheque;
$cuenta_cheques = $cuenta_cheques == false ? DEFAULT_CUENTA_BANCARIA : $cuenta_cheques;
$cheque = setNoMenorQueCero($cheque);
$xSocio = new cSocio($this->mNumeroSocio);
$xSocio->init();
//Corrige la Inicializacion del credito
if (!isset($this->mNumeroSocio) or $this->mNumeroSocio == 1) {
$this->init();
}
$DIngreso = $xSocio->getDatosDeIngreso_InArray();
$msg = "";
//$tipo_de_pago = TESORERIA_PAGO_CHEQUE;
$recibo = setNoMenorQueCero($recibo);
$DConvenio = $this->getDatosDeProducto();
$idsolicitud = $this->mNumeroCredito;
$solicitud = $this->mNumeroCredito;
/* ------------------------------ obtiene el Monto Autorizado ---------------------------------- */
$dsol = $this->getDatosDeCredito();
$montoaut = $this->getMontoAutorizado();
// $dsol["monto_autorizado"]; // Monto Autorizado
$fvcred = $dsol["fecha_vencimiento"];
$modpagos = $this->getPeriocidadDePago();
$tasacred = $this->getTasaDeInteres();
$totalop = $montoaut;
$tipoaut = $dsol["tipo_autorizacion"];
$socio = $this->mNumeroSocio;
$intdi = $dsol["interes_diario"];
$diasa = $dsol["dias_autorizados"];
$tipoconvenio = $dsol["tipo_convenio"];
$elgrupo = $dsol["grupo_asociado"];
$grupo = $elgrupo;
$idsocio = $socio;
$fecha_propuesta = $dsol["fecha_ministracion"];
$tasa_ordinaria_de_interes = $tasacred;
$monto_autorizado_a_ministrar = $dsol["monto_autorizado"];
$grupo = $this->mGrupoAsociado;
if ($fecha == false) {
$fecha = $this->mFechaOperacion;
}
$socio = $this->mNumeroSocio;
//Valores conservados
$fechavcto = $fvcred;
$diasaut = $diasa;
$intdiario = $intdi;
/**
* Corrige la opcion de que el Cheque es Igual a Cero
*/
if ($monto_cheque == 0) {
$monto_cheque = $montoaut;
}
//Corrige el dato de recibo no valido
if ($recibo <= 0 and setNoMenorQueCero($this->mReciboDeOperacion) > 0) {
$recibo = $this->mReciboDeOperacion;
}
/* --------------------------------------------------------------------------------------------------------- */
$OConv = $this->getOProductoDeCredito($tipoconvenio);
if ($this->mForceMinistracion == false) {
// Checa si el credito ya fue Ministrado
//Modificar
$montomin = $this->getSumMovimiento(OPERACION_CLAVE_MINISTRACION);
if ($montomin > 1) {
$msg .= "ERROR\tEl credito se ha ministrado de forma parcial / Total, o se ha forzado su edicion; el Monto Ministrado es {$montomin} \r\n";
$sucess = false;
}
}
// verificar si tiene aportaciones sociales
if ($this->mForceMinistracion == false) {
$aportaciones = $xSocio->getAportacionesSociales();
$cuotas = $DIngreso["parte_social"] + $DIngreso["parte_permanente"];
if ($aportaciones < $cuotas) {
$msg .= "ERROR\tNo ha Pagado sus Cuotas Sociales por {$cuotas}, ha pagado {$aportaciones} \r\n";
$sucess = false;
}
}
// verificar si pago su fondo de defuncion. // SI ES DIFERENTE A AUTOMATIZADO
if ($this->mForceMinistracion == false) {
$fondo_def_ob = $DConvenio["monto_fondo_obligatorio"];
$fondo_def_pag = $xSocio->getFondoDeDefuncion();
if ($fondo_def_pag < $fondo_def_pag) {
$msg .= "ERROR\tNo ha Pagado sus Fondo de Defuncion por {$fondo_def_pag}, ha pagado {$fondo_def_pag} \r\n";
$sucess = false;
}
}
// condiciones del credito autorizado por sesion de credito.
//si el convenio Aplica Gtos Notariales
$aplica_gtos_not = $DConvenio["aplica_gastos_notariales"];
if ($aplica_gtos_not == 1 and $this->mForceMinistracion == false) {
$gastos_not_pagados = $this->getPagoDeGastosNotariales();
if ($gastos_not_pagados < TOLERANCIA_SALDOS) {
$msg .= "ERROR\tNo ha Pagado sus Gastos Notariales\r\n";
$sucess = false;
}
}
// verificar si tiene garantia liquida
$porc_garantia_liquida = $OConv->getTasaDeGarantiaLiquida();
if ($porc_garantia_liquida > 0 and $this->mForceMinistracion == false) {
$msg .= "WARN\tLa Garantia Liquida es de {$porc_garantia_liquida} sobre el Monto Autorizado\r\n";
if ($OConv->getEsProductoDeGrupos() == true) {
$condicionante_de_garantia_liquida = " (`socios_general`.`grupo_solidario` = {$elgrupo}) ";
$msg .= "WARN\tLa Garantia Liquida es valuado por GRUPO \r\n";
} else {
$condicionante_de_garantia_liquida = " (`socios_general`.`codigo` = {$idsocio})";
$msg .= "WARN\tLa Garantia Liquida es valuado por SOCIO \r\n";
}
$tgtia = $montoaut * $porc_garantia_liquida;
$subproducto_de_ahorro_inicial = CAPTACION_PRODUCTO_GARANTIALIQ;
$sqlSUMDepInicial = "\n\t\t\t\t\t\t\t\t\t\t\t\tSELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general`.`grupo_solidario`,\n\t\t\t\t\t\t\t\t\t\t\t\t\tSUM(`captacion_cuentas`.`saldo_cuenta`) AS 'sumas'\n\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general` `socios_general`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`codigo` = `captacion_cuentas`.`numero_socio`\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_subproducto` ={$subproducto_de_ahorro_inicial})\n\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t{$condicionante_de_garantia_liquida}\n\t\t\t\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general`.`grupo_solidario`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`tipo_cuenta` ";
$garliq = mifila($sqlSUMDepInicial, "sumas");
if ($garliq < $tgtia - TOLERANCIA_SALDOS) {
$msg .= "ERROR\tNo ha depositado el su totalidad la Garantia Liquida, ha Depositado {$garliq} de un total de {$tgtia} \r\n";
$msg .= "WARN\tRecuerde que el DEPOSITO DE LA GARANTIA LIQUIDA se efectua en el Modulo de Captacion \r\n";
$sucess = false;
}
}
//END: verificar Garantia
// VERIFICA LA GARANTIA SEGUN TIPO CONVENIO.- La seleccion se hace segun el Numero de Socio y no debe estar entregada
// NO APLICA EN GRUPOS SOLIDARIOS
$razon_garantias = $DConvenio["razon_garantia"];
if ($razon_garantias > 0 and $this->mForceMinistracion == false) {
$monto_garantizado = $xSocio->getGarantiasFisicasDepositadas();
$monto_a_garantizar = $montoaut * $razon_garantias;
if ($monto_garantizado < $monto_a_garantizar) {
$msg .= "ERROR\tNo ha garantizado el Total del Credito, se debe garantizar {$monto_a_garantizar} y solamente se tiene en resguardo {$monto_garantizado} \r\n";
$sucess = false;
}
}
// SI EL CREDITO ES AUTOMATIZADO
if ($modpagos == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$diasaut = restarfechas($fechavcto, $fecha);
//$dsol["dias_autorizados"]; // Dias Autorizados.
$msg .= "WARN\tLos dias Autorizados se cambian a {$diasaut}\r\n";
//$fechavcto = sumardias($fecha, $diasaut); // Fecha del Sistema + Dias Autorizados
$intdiario = $montoaut * $tasacred / EACP_DIAS_INTERES;
} else {
//Verifica si existe el Plan de Pagos:
$sqlck = "SELECT COUNT(tipo_docto) AS 'planes' FROM operaciones_recibos WHERE docto_afectado={$idsolicitud} AND tipo_docto=11";
$plan = $this->getNumeroDePlanDePagos();
if (!isset($plan) or empty($plan)) {
$msg .= "ERROR\tNo se ha Generado el PLAN DE PAGOS \r\n";
$sucess = false;
}
if (strtotime($fecha) != strtotime($fecha_propuesta)) {
$msg .= "ERROR\tNo se puede ministrar el Credito({$fecha}), ya que el PLAN DE PAGO de calcula desde la fecha " . getFechaLarga($fecha_propuesta) . ", vuelva a elaborar el PLAN DE PAGOS\r\n";
$sucess = false;
}
}
//VERIFICA EL ICA A PAGAR
$razon_interes_anticipado = $DConvenio["porcentaje_ica"];
$iva_incluido = $DConvenio["iva_incluido"];
$tasa_iva = $DConvenio["tasa_iva"];
//RULE: Modificar segun el Tipo de pago
if ($razon_interes_anticipado > 0 and $this->mForceMinistracion == false) {
// verifica si tiene el Pago de Int Anticipado
$sumia = $dsol["sdo_int_ant"];
$mIntDiario = $monto_autorizado_a_ministrar * $tasa_ordinaria_de_interes / EACP_DIAS_INTERES;
$mntia = $mIntDiario * $diasa * $razon_interes_anticipado - TOLERANCIA_SALDOS;
$MontoICA = $mntia;
if ($iva_incluido == '1') {
$MontoICA = $MontoICA * (1 / (1 + $tasa_iva));
}
if ($sumia < $MontoICA) {
$msg .= "ERROR\tNo se ha cubierto el Interes Anticipado, se ha pagado {$sumia} de {$MontoICA} \r\n";
$sucess = false;
} else {
//
}
}
if ($this->mForceMinistracion == true) {
$sucess = true;
$msg .= "WARN\tLa Ministracion es FORZADA \r\n";
}
/*------------------------------- AFECTACIONES ------------------------------------------------- */
if ($sucess == true) {
$monto = $montoaut;
$parcialidad = 1;
if ($monto != 0) {
$CRecibo = new cReciboDeOperacion(RECIBOS_TIPO_MINISTRACION, true, $recibo);
//Set a Mvto Contable
//$CRecibo->setGenerarPoliza();
$CRecibo->setGenerarTesoreria();
$CRecibo->setGenerarBancos(true);
//Agregar recibo si no hay
if (setNoMenorQueCero($recibo) <= 0) {
$recibo = $CRecibo->setNuevoRecibo($socio, $solicitud, $fecha, $parcialidad, RECIBOS_TIPO_MINISTRACION, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if (setNoMenorQueCero($recibo) > 0) {
$this->mMessages .= "OK\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCredito . " \r\n";
$this->mReciboDeOperacion = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCredito . " \r\n";
$this->mSucess = false;
}
}
$this->mReciboDeOperacion = $recibo;
if (setNoMenorQueCero($recibo) > 0) {
//Agregar el Movimiento
$CRecibo->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MINISTRACION, $parcialidad, $observaciones, 1, TM_CARGO, $socio, $solicitud);
/** @since 2010-11-21 */
$this->addSDPM(0, 0, $fecha, 0, CREDITO_ESTADO_VIGENTE, $fecha, OPERACION_CLAVE_MINISTRACION);
//$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tNo Existe Recibo con el cual trabajar ({$recibo}) \r\n";
}
$CRecibo->setFinalizarRecibo(true);
$this->mMessages .= $CRecibo->getMessages();
}
// Actualiza el estatus del credito a Vigente, la fecha de Operacion y la de vencimiento.
$arrAct = array("fecha_ministracion" => $fecha, "fecha_ultimo_mvto" => $fecha, "estatus_actual" => CREDITO_ESTADO_VIGENTE, "fecha_vencimiento" => $fechavcto, "plazo_en_dias" => $diasaut, "dias_autorizados" => $diasaut, "interes_diario" => $intdiario, "saldo_actual" => $montoaut);
$this->setUpdate($arrAct);
// --------------------------------- ENVIA LAS SENTENCIAS SQL----------------------------------------
//verifica la dif entre cheque 1 y el monto a ministrar
if ($monto_cheque <= 0) {
$monto_cheque = $montoaut;
}
$difCheque = $montoaut - $monto_cheque;
$beneficiario = $xSocio->getNombreCompleto();
$descuento = 0;
//Separar la generación del cheque
setNuevoCheque($cheque, $cuenta_cheques, $recibo, $beneficiario, $monto_cheque, $fecha, false, $descuento);
setUltimoCheque($cuenta_cheques, $cheque);
if ($difCheque > 0) {
//setPolizaProforma($recibo, 9200, $difCheque, $socio, $idsolicitud, TM_ABONO);
setNuevoCheque($cheque2, $cuenta_cheques2, $recibo, $beneficiario, $difCheque, $fecha, false, $descuento);
setUltimoCheque($cuenta_cheques2, $cheque2);
}
//Agregar Avisos de Credito por renovacion
if ($this->getTipoDeAutorizacion() == CREDITO_TIPO_AUTORIZACION_RENOVACION) {
//$xSoc = $this->getOPersona();
$xSocio->initDatosDeCredito();
$DCreds = $xSocio->getDatosDeCreditos();
$xCred = new cCreditos_solicitud();
foreach ($DCreds as $clave => $valores) {
$xCred->setData($valores);
if ($xCred->saldo_actual()->v() >= TOLERANCIA_SALDOS) {
if ($xCred->numero_solicitud()->v() != $this->getNumeroDeCredito()) {
//agregar aviso
$xSocio->addMemo(MEMOS_TIPO_NOTA_RENOVACION, "Credito Renovado en la solicitud #" . $this->getNumeroDeCredito(), $xCred->numero_solicitud()->v(), $fecha);
$msg .= $xSocio->getMessages();
}
}
}
}
//ejecutar alertas por Ministracion de Reglas de Negocios
//Ministracion de Credito de la persona {clave_de_persona} {nombre_de_persona}
//credito numero {clave_de_credito} con monto {monto_de_credito} y tipo de autorizacion {tipo_de_autorizacion}.
$OTipoAut = new cCreditos_tipo_de_autorizacion();
$OTipoAut->setData($OTipoAut->query()->initByID($this->getTipoDeAutorizacion()));
$xRegla = new cReglaDeNegocio();
$xRegla->setVariables(array("clave_de_persona" => $xSocio->getCodigo(), "nombre_de_persona" => $xSocio->getNombreCompleto(), "clave_de_credito" => $this->getNumeroDeCredito(), "monto_de_credito" => $this->getMontoAutorizado(), "tipo_de_autorizacion" => $OTipoAut->descripcion_tipo_de_autorizacion()->v(OUT_TXT)));
$xRegla->setExecuteActions($xRegla->reglas()->RN_MINISTRAR_CREDITO);
} else {
$msg .= "ERROR\tNo se efectua operacion alguna\r\n";
}
$this->mMessages .= $msg;
return $recibo;
}
$tipo_docto = $rsr["tipo_docto"];
//
$sql_infogroup = "select * from socios_grupossolidarios ";
$sql_infogroup .= " where idsocios_grupossolidarios={$idgrupo}";
$lafila = the_row($sql_infogroup);
//
$nombregrupo = $lafila["nombre_gruposolidario"];
$presidenta = $lafila["representante_numerosocio"];
$mynom = getNombreSocio($presidenta);
$nomrep = $lafila["representante_nombrecompleto"];
$nomvv = $lafila["vocalvigilancia_nombrecompleto"];
if ($tipo_docto == 14) {
$title = "PLANEACION DEL CREDITO EN GRUPOS SOLIDARIOS EN ETAPA DE SOLICITUD";
$thTit = "Monto Solicitado";
}
echo "\n<p class='bigtitle'>{$title}</p>\n<hr />\n<table width='100%' border='0'>\n\t\t<tr>\n\t\t\t<th class='izq'>Referencia</th>\n\t\t\t<td>" . $rsr["idoperaciones_recibos"] . "</td>\n\t\t\t<th class='izq'>Fecha de Elaboracion</th>\n\t\t\t<td>" . getFechaLarga($rsr["fecha_operacion"]) . "</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th class='izq'>Codigo de Grupo</th>\n\t\t\t<td>{$idgrupo}</td>\n\t\t\t<th class='izq'>Nombre de Grupo</th>\n\t\t\t<td>{$nombregrupo}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th class='izq'>Responsable del Grupo</td>\n\t\t\t<td>{$nomrep}</td>\n\t\t\t<th class='izq'>Vocal de Vigilancia del Grupo</td>\n\t\t\t<td>{$nomvv}</td>\n\t\t</tr>\n\t</table>\n\t<hr />";
$suma = 0;
$sqlsun = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\t\t\tWHERE recibo_afectado=" . $rsr["idoperaciones_recibos"] . "\n\t\t\t\t\t\t\t\t\t\tAND grupo_asociado={$idgrupo}";
$rss = mysql_query($sqlsun);
echo "<table width='100%' border='0'>\n\t\t<tr>\n <th>Socia(o)</th>\n <th>C.U.R.P.</th>\n\t\t <th>Nombre Completo</th>\n\t\t <th>{$thTit}</th>\n\t\t <th>Firma</th>\n </tr>";
while ($rws = mysql_fetch_array($rss)) {
$xSoc = new cSocio($rws["socio_afectado"], true);
$DS = $xSoc->getDatosInArray();
$socia = $xSoc->getNombreCompleto();
$curp = $DS["curp"];
$suma = $suma + $rws["afectacion_real"];
echo "<tr>\n\t\t\t\t<td class='ctr'>" . $rws["socio_afectado"] . "</td>\n\t\t\t\t<td>{$curp}</td>\n\t\t\t\t<td>{$socia}</td>\n\t\t\t\t<td class='mny'>" . getFMoney($rws["afectacion_real"]) . "</td>\n\t\t\t\t<td><br /><br /><br />______________________</td>\n\t\t\t\t</tr>";
}
$letters = convertirletras($suma);
$suma = getFMoney($suma);
echo "<td>SUMA DE LA PLANEACION</td><th>{$letters}</th><th>{$suma}</th></table>\n\t\t<p>Manifestamos Bajo Protesta de Decir Verdad que las personas que integramos este grupo, nos caracterizamos\n\t\tpor tener gran solvencia Moral, al ser Honestas y responsables, asi como tener la Suficiente solvencia\n\t\tEconomica para cubrir el Monto Manifestado en esta Cedula.</p>\n\t\t<p>El Total de la Planeacion del Credito sera considerado como el Monto del Credito Solicitado.</p>";
$fichas_de_avales = "_NO_APLICA_";
$fichas_de_respsolidarios = "_NO_APLICA_";
$firmas_de_respsolidarios = "_NO_APLICA_";
//Captacion
$numero_de_cuenta = "_NO_APLICA_";
$nombre_mancomunados = "_NO_APLICA_";
$variable_tasa_otorgada = "_NO_APLICA_";
$variable_fecha_vencimiento = "_NO_APLICA_";
$numero_dias = "_NO_APLICA_";
$monto_inicial_letras = "_NO_APLICA_";
$monto_inicial = "_NO_APLICA_";
$monto_letras = "_NO_APLICA_";
$variable_oficial = "_NO_APLICA_";
$descripcion_cajalocal = "_NO_APLICA_";
//Datos de tesoreria
$vars = array("variable_nombre_del_socio" => $variable_nombre_del_socio, "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_del_socio" => trim(substr($cSoc->getDomicilio(), 0, 60)), "variable_documento_de_constitucion_de_la_sociedad" => EACP_DOCTO_CONSTITUCION, "variable_rfc_de_la_entidad" => EACP_RFC, "variable_rfc_del_socio" => $DSoc["rfc"], "variable_curp_del_socio" => $DSoc["curp"], "variable_nombre_del_representante_legal_de_la_sociedad" => EACP_REP_LEGAL, "variable_informacion_del_credito" => $svar_info_cred, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_acta_notarial_de_poder_al_representante" => EACP_DOCTO_REP_LEGAL, "variable_lista_de_beneficiados" => $variable_lista_beneficiados, "variable_numero_de_socio" => $numero_de_socio, "variable_nombre_caja_local" => $caja_local, "variable_caja_local" => $numero_caja_local, "variable_tipo_de_credito" => $tipo_de_credito, "variable_monto_ministrado" => getFMoney($monto_ministrado), "variable_tasa_mensual_de_interes_ordinario" => $tasa_interes_mensual_ordinario, "variable_credito_fecha_de_vencimiento" => getFechaLarga($fecha_de_vencimiento), "variable_monto_garantia_liquida" => getFMoney($monto_garantia_liquida), "variable_tasa_mensual_de_interes_moratorio" => $tasa_interes_mensual_moratorio . " %", "variable_tasa_de_garantia_liquida" => $tasa_garantia_liquida . " %", "variable_plan_de_pagos" => $splan_pagos, "variable_horario_de_trabajo_de_la_entidad" => EACP_HORARIO_DE_TRABAJO, "variable_testigo_del_acto" => $oficial, "variable_fecha_larga_actual" => fecha_larga(), "variable_nombre_de_presidente_de_vigilancia_de_la_entidad" => EACP_PDTE_VIGILANCIA, "variable_nombre_de_la_representante_social" => $nombre_rep_social, "variable_listado_de_integrantes" => $lista_asociadas, "variable_nombre_de_la_vocal_de_vigilancia" => $nombre_voc_vigila, "variable_nombre_del_grupo_solidario" => $nombre_del_grupo, "variable_domicilio_de_la_representante_social" => $domicilio_rep_social, "variable_meses_de_duracion_del_credito" => $meses_del_credito, "variable_en_letras_monto_ministrado" => convertirletras($monto_ministrado), "variable_credito_fecha_de_ministracion" => getFechaLarga($fecha_de_ministracion), "variable_informacion_del_socio" => $ficha_socio, "variable_avales_en_fichas" => $fichas_de_avales, "variable_responsable_solidario_en_fichas" => $fichas_de_respsolidarios, "variable_firmas_de_obligados_solidarios" => $firmas_de_respsolidarios, "variable_numero_de_cuenta" => $numero_de_cuenta, "variable_oficial" => $variable_oficial, "variable_lugar" => $variable_lugar, "variable_lugar_actual" => $variable_lugar, "variable_monto_inicial_en_numero" => $monto_inicial, "variable_monto_inicial_en_letras" => $monto_inicial_letras, "variable_numero_de_dias" => $numero_dias, "variable_fecha_de_vencimiento" => $variable_fecha_vencimiento, "variable_nombre_mancomunados" => $nombre_mancomunados, "variable_tasa_otorgada" => $variable_tasa_otorgada, "variable_nombre_del_cajero" => $variable_nombre_del_cajero, "variable_fecha_del_recibo" => $variable_fecha_del_recibo, "variable_monto_del_recibo_en_letras" => $variable_monto_del_recibo_en_letras, "variable_monto_del_recibo" => $variable_monto_del_recibo, "variable_tipo_de_recibo" => $variable_tipo_de_recibo, "variable_tipo_de_pago" => $variable_tipo_de_pago, "variable_observacion_del_recibo" => $variable_observacion_del_recibo, "variable_marca_de_tiempo" => $variable_marca_de_tiempo, "variable_datos_del_pago" => $variable_datos_de_pago, "variable_numero_de_recibo" => $variable_numero_de_recibo, "variable_docto_fecha_larga_actual" => $xF->getFechaLarga($xRec->getFechaDeRecibo()));
/*,
"variable_operacion_nombre_corto" => $variable_operacion_nombre_corto*/
$texto_contrato = contrato(400, "texto_del_contrato");
//$tamTexto = strlen($texto_contrato);
//Buscar la parte que define el formato de Movimientos
$IniMvtos = strpos($texto_contrato, "---");
$FinMvtos = strrpos($texto_contrato, "---");
$txtMvtos = str_replace("---", "", substr($texto_contrato, $IniMvtos, $FinMvtos - $IniMvtos));
$aSQL = explode("|", $txtMvtos);
//extrae la cadena del formato de movimientos
//eliminar esa parte del contrato
$texto_contrato = str_replace("---{$txtMvtos}---", "_AREA_DE_MOVIMIENTOS_", $texto_contrato);
//echo "$tamTexto .. $IniMvtos .. $FinMvtos <br >";
$equivTit = array("numero_del_movimiento" => "#Op.", "concepto_del_movimiento" => "Concepto", "monto_del_movimiento" => "Monto", "destino_del_movimiento" => "Destino");
//"concepto_nombre_corto" => "Concepto"
/*------------------------------ 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);
}
//Eliminar Plan de Pagos
$plan = setNoMenorQueCero($xCred->getNumeroDePlanDePagos());
if ($plan > 0) {
$xPlan = new cPlanDePagos($plan);
$xPlan->setEliminar();
$numero_parcialidad = setNoMenorQueCero($rw["letra"]) == 0 ? 1 : $rw["letra"];
$numero_de_pagos = $rw["pagos"];
//$DCred[""];
$periocidad_titulo = $xTPer->getNombre();
$tipo_de_credito = "";
$monto_ministrado = "";
$DOficial = $xCred->getDatosOficialDeCredito_InArray();
$oficial = $DOficial["nombre_completo"];
$variable_oficial = $DOficial["nombre_completo"];
$fecha_de_vencimiento = "";
$tasa_interes_mensual_ordinario = "";
$tasa_garantia_liquida = "";
$tasa_interes_mensual_moratorio = 0;
$fecha_de_ministracion = "";
//cargar Datos de la Empresa
$vars = array("variable_nombre_del_socio" => $cSoc->getNombreCompleto(), "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_del_socio" => trim(substr($cSoc->getDomicilio(), 0, 60)), "variable_documento_de_constitucion_de_la_sociedad" => EACP_DOCTO_CONSTITUCION, "variable_rfc_de_la_entidad" => EACP_RFC, "variable_rfc_del_socio" => $DSoc["rfc"], "variable_curp_del_socio" => $DSoc["curp"], "variable_nombre_del_representante_legal_de_la_sociedad" => EACP_REP_LEGAL, "variable_informacion_del_credito" => $svar_info_cred, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_acta_notarial_de_poder_al_representante" => EACP_DOCTO_REP_LEGAL, "variable_numero_de_socio" => $numero_de_socio, "variable_tipo_de_credito" => $tipo_de_credito, "variable_monto_ministrado" => getFMoney($monto_ministrado), "variable_tasa_mensual_de_interes_ordinario" => $tasa_interes_mensual_ordinario, "variable_credito_fecha_de_vencimiento" => getFechaLarga($fecha_de_vencimiento), "variable_tasa_mensual_de_interes_moratorio" => $tasa_interes_mensual_moratorio . " %", "variable_tasa_de_garantia_liquida" => $tasa_garantia_liquida . " %", "variable_horario_de_trabajo_de_la_entidad" => EACP_HORARIO_DE_TRABAJO, "variable_testigo_del_acto" => $oficial, "variable_fecha_larga_actual" => fecha_larga(), "variable_nombre_de_presidente_de_vigilancia_de_la_entidad" => EACP_PDTE_VIGILANCIA, "variable_en_letras_monto_ministrado" => convertirletras($monto_ministrado), "variable_credito_fecha_de_ministracion" => getFechaLarga($fecha_de_ministracion), "variable_informacion_del_socio" => $ficha_socio, "variable_oficial" => $variable_oficial, "variable_lugar" => $variable_lugar, "variable_lugar_actual" => $variable_lugar, "variable_monto_inicial_en_numero" => $monto_inicial, "variable_monto_inicial_en_letras" => $monto_inicial_letras, "variable_numero_de_dias" => $numero_dias, "variable_fecha_de_vencimiento" => $variable_fecha_vencimiento, "variable_tasa_otorgada" => $variable_tasa_otorgada, "variable_nombre_empresa" => $nempresa, "variable_numero_de_pagos" => $numero_de_pagos, "variable_numero_parcialidad_actual" => $numero_parcialidad, "variable_monto_parcialidad" => getFMoney($monto_parcialidad), "variable_monto_letras_parcialidad" => convertirletras($monto_parcialidad), "variable_encabezado_de_reporte" => getRawHeader(false, $out), "variable_pie_de_reporte" => getRawFooter(false, $out), "variable_paginas" => $contar);
if ($out == OUT_DOC) {
$vars["<hr />"] = "";
}
$texto_contrato = $base_contrato;
foreach ($vars as $key => $value) {
$texto_contrato = str_replace($key, $value, $texto_contrato);
}
if ($monto_parcialidad > 0) {
$xRPT->addContent($texto_contrato);
$ppn++;
if ($ppn == 2) {
if ($out == OUT_DOC) {
} else {
$xRPT->addContent("<hr class='divisormedio' />\n");
}
<br>
<?php
echo "<p class='p_right'>" . DEFAULT_NOMBRE_LOCALIDAD . ", " . DEFAULT_NOMBRE_ESTADO . "; A " . fecha_larga() . "</p>";
?>
<br /><br />
<table >
<tr>
<td class="ths2">DEPARTAMENTO DE CREDITO Y COBRANZA</td>
</tr>
<tr>
<td class="ths2">AREA DE CAJA Y TESORERIA</td>
</tr>
</table>
<br><br><br>
<?php
echo "<p class='legal'>POR ESTE CONDUCTO SE LE DA A CONOCER QUE LA PERSONA <b>{$mynom}</b>, PERSONA NÚMERO <b>{$idsocio}</b>;\n SE LE FUE AUTORIZADO EL CRÉDITO CON NÚMERO DE SOLICITUD <b>{$idsolicitud}</b> EL DÍA <b>" . getFechaLarga($fechaaut) . "</b>,\nDE FORMA <b>{$tipoaut}</b>, CON LA MODALIDAD DE <b>\"CREDITO {$modal}\"</b>, EL MONTO DEL <b>CRÉDITO AUTORIZADO</b> FUE DE <b>\$ {$montoaut}</b>\n -- SON: (<b>{$montol}</b>)--- DE UN TOTAL DE <b>\$ {$montosol}</b> QUE FUE SOLICITADO ORIGINALMENTE</p>\n<p class='legal'>LOS PAGOS SERAN DE <b>{$numpagos} {$perpagos}</b>, UN TOTAL DE <b>{$diasaut}</b> DIAS APROXIMADAMENTE, NÚMERO EL CUÁL PODRÁ\nCAMBIAR SEGUN EL PLAN DE PAGOS FINAL; A UNA TASA ANUAL EFECTIVA DE <b> {$tasa} %</b>,\nCON FECHA DE VENCIMIENTO <b>" . getFechaLarga($fechavenct) . "</b>. POR LO QUE PUEDE EMITIR EL RESPECTIVO CHEQUE POR CONCEPTO DE MINISTRACION DEL CREDITO.</p>\n<p class='legal'>CABE MENCIONAR EL SOCIO DEBE CUBRIR LOS REQUISITOS MANIFESTADOS EN EL MANUAL DE CREDITO, POR LO QUE SE RECUERDA QUE\nCUBRA SUS REQUISITOS ECONOMICOS Y DOCUMENTALES, LA FECHA DE PAGO PLANEADA SERÁ EL <strong>" . getFechaLarga($fechamin) . "</strong> </p>";
?>
<br /><br /><br />
<table >
<tr>
<td class="ths2">DEPARTAMENTO DE CREDITO</td>
</tr>
<tr>
<td class="ths2">
<br />
<br />
<br />
<br />
</td>
</tr>
<tr>
$codigo_rep_social = $InfoGrupo["representante_numerosocio"];
$nombre_voc_vigila = $InfoGrupo["vocalvigilancia_nombrecompleto"];
$nombre_del_grupo = $InfoGrupo["nombre_gruposolidario"];
$nivel_ministracion = $InfoGrupo["nivel_ministracion"];
$domicilio_rep_social = domicilio($codigo_rep_social);
$tabla_asociadas = "";
$lista_asociadas = "";
if ($DCred["grupo_asociado"] != 99) {
$SQL_get_grupo = "SELECT\n\t\t\t\t\t\t\t\t`socios_general`.`codigo`,\n\t\t\t\t\t\t\t\tCONCAT(`socios_general`.`nombrecompleto`, ' ',\n\t\t\t\t\t\t\t\t`socios_general`.`apellidopaterno`, ' ',\n\t\t\t\t\t\t\t\t`socios_general`.`apellidomaterno`) AS 'nombre_completo'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`socios_general` `socios_general`\n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`socios_general`.`grupo_solidario` =" . $DCred["grupo_asociado"] . ")";
$rsg = mysql_query($SQL_get_grupo, cnnGeneral());
$il = 0;
while ($rwt = mysql_fetch_array($rsg)) {
if ($il == 0) {
$lista_asociadas .= "" . $rwt["nombre_completo"];
} else {
$lista_asociadas .= ", " . $rwt["nombre_completo"];
}
$il++;
}
}
//variable_firmas_de_obligados_solidarios
$vars = array("variable_nombre_del_socio" => $DCred["apellidopaterno"] . " " . $DCred["apellidomaterno"] . " " . $DCred["nombrecompleto"], "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_del_socio" => $domicilio_del_socio, "variable_documento_de_constitucion_de_la_sociedad" => EACP_DOCTO_CONSTITUCION, "variable_rfc_de_la_entidad" => EACP_RFC, "variable_rfc_del_socio" => $DCred["rfc"], "variable_curp_del_socio" => $DCred["curp"], "variable_nombre_del_representante_legal_de_la_sociedad" => EACP_REP_LEGAL, "variable_informacion_del_credito" => $svar_info_cred, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_acta_notarial_de_poder_al_representante" => EACP_DOCTO_REP_LEGAL, "variable_lista_de_beneficiados" => $lst_beneficiados, "variable_numero_de_socio" => $numero_de_socio, "variable_nombre_caja_local" => $caja_local, "variable_tipo_de_credito" => $tipo_de_credito, "variable_monto_ministrado" => getFMoney($monto_ministrado), "variable_tasa_mensual_de_interes_ordinario" => $tasa_interes_mensual_ordinario, "variable_credito_fecha_de_vencimiento" => $fecha_de_vencimiento, "variable_monto_garantia_liquida" => getFMoney($monto_garantia_liquida), "variable_tasa_mensual_de_interes_moratorio" => $tasa_interes_mensual_moratorio . " %", "variable_tasa_de_garantia_liquida" => $tasa_garantia_liquida . " %", "variable_plan_de_pagos" => $splan_pagos, "variable_horario_de_trabajo_de_la_entidad" => EACP_HORARIO_DE_TRABAJO, "variable_testigo_del_acto" => $oficial, "variable_fecha_larga_actual" => fecha_larga(), "variable_nombre_de_presidente_de_vigilancia_de_la_entidad" => EACP_PDTE_VIGILANCIA, "variable_nombre_de_la_representante_social" => $nombre_rep_social, "variable_listado_de_integrantes" => $lista_asociadas, "variable_nombre_de_la_vocal_de_vigilancia" => $nombre_voc_vigila, "variable_nombre_del_grupo_solidario" => $nombre_del_grupo, "variable_domicilio_de_la_representante_social" => $domicilio_rep_social, "variable_meses_de_duracion_del_credito" => $meses_del_credito, "variable_en_letras_monto_ministrado" => convertirletras($monto_ministrado), "variable_grupo_nivel_ministracion" => $nivel_ministracion, "variable_credito_fecha_de_ministracion" => getFechaLarga($fecha_de_ministracion));
$texto_contrato = contrato(5, "texto_del_contrato");
foreach ($vars as $key => $value) {
$texto_contrato = str_replace($key, $value, $texto_contrato);
}
echo $texto_contrato;
echo getRawFooter();
?>
</body>
</html>
* Obtiene la Lista de Beneficiados
*/
$beneficiados = "";
$sql_beneficiados = "SELECT * FROM socios_relaciones WHERE tipo_relacion=11 AND socio_relacionado={$idsocio} AND credito_relacionado = {$cuenta} LIMIT 0,100";
$rs_beneficiados = mysql_query($sql_beneficiados);
while ($row_beneficiado = mysql_fetch_array($rs_beneficiados)) {
$beneficiados = $beneficiados . "<li>{$row_beneficiado['6']} {$row_beneficiado['7']} {$row_beneficiado['5']}</li> ";
}
$variable_lista_beneficiados = "<ol>\n\t\t\t\t{$beneficiados}\n\t\t\t</ol>";
/**
* Compara si existen Datos de Mancomunados
*/
if ($datos_de_la_cuenta["nombre_mancomunado1"] != "" & $datos_de_la_cuenta["nombre_mancomunado1"] != "_") {
$nombre_mancomunados = "<br /><br /><br />" . $datos_de_la_cuenta["nombre_mancomunado1"] . " <br /> <br /><br />" . $datos_de_la_cuenta["nombre_mancomunado2"];
} else {
$nombre_mancomunados = "";
}
/**
* Empieza el Intercambio de variables en el contrato
*/
$vars = array("variable_numero_de_cuenta" => $cuenta, "variable_nombre_del_socio" => $nombre_del_socio, "variable_numero_de_socio" => $numero_de_socio, "variable_domicilio_del_socio" => $domicilio_del_socio, "variable_nombre_de_la_entidad" => EACP_NAME, "variable_domicilio_de_la_entidad" => EACP_DOMICILIO_CORTO, "variable_monto_inicial_en_numero" => $monto_inicial, "variable_monto_inicial_en_letras" => $monto_inicial_letras, "variable_numero_de_dias" => $numero_dias, "variable_caja_local" => $caja_local, "variable_nombre_caja_local" => $nombre_caja_local, "variable_lugar" => $variable_lugar, "variable_fecha_actual" => $variable_fecha_actual, "variable_nombre_mancomunados" => $nombre_mancomunados, "variable_tasa_otorgada" => $variable_tasa_otorgada, "variable_fecha_de_vencimiento" => $variable_fecha_vencimiento, "variable_oficial" => $variable_oficial, "variable_titular_de_cobranza" => $titular_cobranza, "variable_lista_de_beneficiados" => $variable_lista_beneficiados, "variable_nombre_de_la_sociedad" => EACP_NAME, "variable_monto_ministrado" => getFMoney($DCred["monto_autorizado"]), "variable_tasa_mensual_de_interes_ordinario" => $DCred["tasa_interes"] / 12 * 100, "variable_credito_fecha_de_vencimiento" => getFechaLarga($DCred["fecha_vencimiento"]), "variable_monto_garantia_liquida" => getFMoney($saldo), "variable_credito_fecha_de_ministracion" => getFechaLarga($DCred["fecha_ministracion"]), "variable_tipo_de_credito" => $tipo_de_credito);
$texto_contrato = contrato(6, "texto_del_contrato");
foreach ($vars as $key => $value) {
$texto_contrato = str_replace($key, $value, $texto_contrato);
}
echo $texto_contrato;
echo getRawFooter();
?>
</body>
</html>
function s_week($ignium)
{
$aImgs = array();
$aImgs["no_cumplido"] = "red_dot.png";
$aImgs["cancelado"] = "black_dot.png";
$aImgs["pendiente"] = "yellow_dot.png";
$aImgs["cumplido"] = "green_dot.png";
$aMsg = array();
$aMsg["no_cumplido"] = "NO CUMPLIDO";
$aMsg["cancelado"] = "CANCELADO";
$aMsg["pendiente"] = "PENDIENTE";
$aMsg["cumplido"] = "CUMPLIDO";
$td = "";
$th = "";
$cls = "day_1";
for ($i = 0; $i <= 6; $i++) {
$dia = sumardias($ignium, $i);
$ndia = dia_semana($dia);
$ncdia = getFechaLarga($dia);
$compro = "";
$sqlob = "SELECT socios.codigo,\n\t\t\t\tsocios.nombre,\n\t\t\t\tseguimiento_compromisos.tipo_compromiso,\n\t\t\t\tseguimiento_compromisos.anotacion,\n\t\t\t\tseguimiento_compromisos.idseguimiento_compromisos AS 'id',\n\t\t\t\tseguimiento_compromisos.estatus_compromiso\n\t\t\t\tFROM socios, seguimiento_compromisos\n\t\t\t\tWHERE seguimiento_compromisos.socio_comprometido=socios.codigo\n\t\t\t\tAND seguimiento_compromisos.fecha_vencimiento='{$dia}'";
$rs = mysql_query($sqlob);
while ($rwc = mysql_fetch_array($rs)) {
$imgestat = $aImgs[$rwc["estatus_compromiso"]];
$msgt = $aMsg[$rwc["estatus_compromiso"]];
$id = $rwc["id"];
$tipo = str_replace("promesa_de_", "", $rwc["tipo_compromiso"]);
$compro .= "\n\n\t\t\t\t<tr>\n\t\t\t\t<td \tclass=\"strech\" id=\"c@{$id}\"\n\t\t\t\t\t\ttitle='{$msgt} [{$rwc['1']}]'\n\t\t\t\t\t\tonclick='show_compromiso(\"{$id}\");'><img alt=\"Estatus: {$rwc['5']} \" src=\"../images/seguimiento/{$imgestat}\" align=\"middle\" title='{$msgt} [{$rwc['1']}]' /> {$rwc['0']} - " . $tipo . "</td>\n\t\t\t\t</tr>";
}
@mysql_free_result($rs);
//Agregar compromisos de pago
$sqLetras = "SELECT\n\t\t\t\t`creditos_solicitud`.`numero_socio`,\n\t\t\t\t`socios`.`nombre`,\n\t\t\t\t`creditos_solicitud`.`tipo_convenio`,\n\t\t\t\t`letras`.`periodo_socio`,\n\t\t\t\t`letras`.`letra`,\n\t\t\t\t`letras`.`fecha_de_pago`\n\t\t\tFROM\n\t\t\t\t`letras` `letras` \n\t\t\t\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud` \n\t\t\t\t\tON `letras`.`docto_afectado` = `creditos_solicitud`.`numero_solicitud` \n\t\t\t\t\t\tINNER JOIN `socios` `socios` \n\t\t\t\t\t\tON `creditos_solicitud`.`numero_socio` = `socios`.`codigo`\n\t\t\tWHERE \n\t\t\t`letras`.`fecha_de_pago` = '{$dia}'\n\t\t\tAND letra > 0\n\t\t\tAND ( `creditos_solicitud`.`tipo_convenio` = " . CREDITO_PRODUCTO_INDIVIDUAL . "\n\t\t\t\tOR\n\t\t\t`creditos_solicitud`.`tipo_convenio` = " . CREDITO_PRODUCTO_REVOLVENTES . " ) ";
/*
$mql = new MQL();
$select = $mql->select();
$select->set($sqLetras);
$datos = $select->exec();
foreach($datos as $datos){
$socio = $datos["numero_socio"];
$nombre = $datos["nombre"];
$credito = "";
$parcialidad = $datos["periodo_socio"];
$letra = getFMoney( $datos["letra"]);
$compro .= "\n
<tr>
<td class=\"strech\" id=\"c@$id\"
title='$nombre'
onclick=''><img src=\"../images/bancos.png\" class=\"x16\" /> $socio $parcialidad - $letra </td>
</tr>";
}*/
if ($cls == "day_1") {
$cls = "day_2";
} else {
$cls = "day_1";
}
$td = $td . "\n <td class='{$cls}'>\n\t\t\t\t\t<table width='100%' aling=\"center\">\n\t\t\t\t\t\t<tbody>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td class=\"strech\" title='Compromisos del dia {$ncdia}'><center>\n\t\t\t\t\t\t\t<img src=\"../images/common/icon-new.png\" onclick='addCompromisos(\"0|0|{$dia}\");' alt='Agregar un Compromiso' />\n\t\t\t\t\t\t\t<img src=\"../images/common/stock_navigator-all-or-sel-toggle.png\" onclick='mostrar_un_dia(\"{$dia}\");' alt='Mostrar Compromisos' />\n\t\t\t\t\t\t\t{$ndia}\n\t\t\t\t\t\t\t</center></td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t{$compro}\n\t\t\t\t\t\t</tbody>\n\t\t\t\t\t</table>\n\t\t\t\t\t</td>";
//$th = $th . "<th class='compact'>$ncdia</th>";
}
return "<table class='calendar_day'\n\tcellpadding='2' cellspacing='2' border='2'>\n\t\t<tr>\n\t\t\t{$td}\n\t\t<tr>\n\t</table>";
}
function setLlamadasDiariasPorMora($fecha_operacion, $recibo = 0)
{
$sucursal = getSucursal();
$fecha = sumardias($fecha_operacion, DIAS_DE_ANTICIPACION_PARA_LLAMADAS);
$msg = "====================== GENERAR_LLAMADAS_POR_CREDITOS_NO_360 \r\n";
$msg .= "====================== GENERAR LLAMADAS POR CREDITOS MOROSOS_Y_VENCIDOS \r\n";
$msg .= "====================== GENERAR LLAMADAS PARA EL " . getFechaLarga($fecha) . "\r\n";
$msg .= "\tSocio\tCredito\tObservaciones\r\n";
$sql = "SELECT\n\t`creditos_solicitud`.*\nFROM\n\t`creditos_solicitud` `creditos_solicitud`\nWHERE\n\t(\n\t\t(`creditos_solicitud`.`estatus_actual` =30)\n\t\tOR\n\t\t(`creditos_solicitud`.`estatus_actual` =20)\n\t)\n\tAND\n\t(`creditos_solicitud`.`sucursal` ='{$sucursal}')\n\tAND\n\t(`creditos_solicitud`.`saldo_actual` > " . TOLERANCIA_SALDOS . ")\n\tAND\n\t(`creditos_solicitud`.`periocidad_de_pago` != 360)\n\t";
$fecha_operacion = sumardias($fecha_operacion, 1);
//ma�ana
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$credito = $rw["numero_solicitud"];
$oficial = $rw["oficial_seguimiento"];
$hora = "8:00";
$txt = setNewLlamadaBySocio($socio, $credito, $fecha, $hora, "LLAMADAS DIARIAS AUTOMATICAS : {$recibo}");
$msg .= date("H:i:s") . "\t" . $txt . "\r\n";
}
return $msg;
}