function JSsetDomicilioMismo($socio, $HDomicilio, $form)
{
if ($HDomicilio == "mismo") {
$domicilio = domicilio($socio);
$DDom = getDatosDomicilio($socio);
$telefono = $DDom["telefono_residencial"];
$telefonomovil = $DDom["telefono_movil"];
$tab = new TinyAjaxBehavior();
$tab->add(TabSetValue::getBehavior('idTFijo', $telefono));
$tab->add(TabSetValue::getBehavior('idTMovil', $telefonomovil));
$tab->add(TabSetValue::getBehavior('idDomicilio', $domicilio));
return $tab->getString();
}
}
// Monto de la Letra
$frecuencia = $rw["frecuencia_de_pago"];
// Periocidad
$interes = $frecuencia * $rw["interes_diario"];
// periocidad * interes_diario
// (Abono + Interes) * tasa_moratorio * periocidad_de_pago
$interes_moratorio = ($mletra + $interes) * $tasa_m * $frecuencia / EACP_DIAS_INTERES;
$capital = $rw["saldo_actual"];
// Saldo del capital
$otros_cargos = 0;
//
//
//
$total = $mletra + $interes + $interes_moratorio + $otros_cargos;
//Obtiene el Telefono del Socio
$ddomicilio = getDatosDomicilio($socio);
$telefono1 = $ddomicilio[10];
$telefono2 = $ddomicilio[11];
$hora_default = date("H:i");
$fecha_default = fechasys();
$observaciones = "Generado el {$fecha_default} a las {$hora_default} Hrs. por {$oficial}";
switch ($periodos) {
case 1:
$msg .= date("H:s:i") . "\t\t El Socio {$socio} con credito {$solicitud} tiene solo {$periodos} vencidos, y se omite cualquier accion \t\n";
case 2:
$sql_llamada = "INSERT INTO seguimiento_llamadas(numero_socio, numero_solicitud, deuda_total,\n\t\t\t\t\t\t\t\t\t\ttelefono_uno, telefono_dos, fecha_llamada, hora_llamada, observaciones, estatus_llamada)\n\t\t\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t\t\t\t({$socio}, {$solicitud}, {$total}, '{$telefono1}', '{$telefono2}', '{$fecha_default}',\n\t\t\t\t\t\t\t\t\t'{$hora_default}', '{$observaciones}', 'pendiente')";
$x = my_query($sql_llamada);
if ($x["stat"] == false) {
$msg .= date("H:s:i") . "\t\t No se registro la Llamada al socio {$socio} por el Credito {$solicitud} \t\n";
} else {
$msg .= date("H:s:i") . "\t\t Se Agrego una Llamada al socio {$socio} por el Credito {$solicitud} \t\n";
// Nombre Caja Local
$idti = $datos["tipoingreso"];
// Id Tipo ingreso
$nti = eltipo("socios_tipoingreso", $idti);
// Nombre Tipo Ingreso
$idgen = $datos["genero"];
// Id Genero
$ngen = eltipo("socios_genero", $idgen);
// Nombre Genero
$mynom = getNombreSocio($idsocio);
//$nombre = getNombreSocio($idsocio);
//$domi = socio_dom($idsocio);
//
echo "\t<fieldset>\n\t\t<legend>| DATOS GENERALES DE LA PERSONA |</legend>\n\t<table border='0' >\n\t<tr>\n\t<td>Fecha de Solicitud</td><td>{$fecha}</td>\n\t<td>Codigo Asignado</td><td>{$idsocio}</td>\n\t</tr>\n\t<tr>\n\t<td>Tipo de Persona</td><td>{$nti}</td>\n\t<td>Nombre(s) </td><td>{$nom}</td>\n\t</tr>\n\t<tr>\n\t<td>Apellido Paterno</td><td>{$appat}</td>\n\t<td>Apellido Materno</td><td>{$apmat}</td>\n\t</tr>\n\t<tr>\n\t<td>R. F. C. </td><td>{$rfc}</td>\n\t<td>C. U. R. P.</td><td>{$curp}</td>\n\t</tr>\n\t<tr>\n\t<td>Fecha de Nacimiento</td><td>{$fnac}</td>\n\t<td>Lugar de Nacimiento</td><td>{$lnac}</td>\n\t</tr>\n\t<tr>\n\t<td>Genero</td><td>{$ngen}</td>\n\t<td>Estado Civil</td><td>{$ncivil}</td>\n\t</tr>\n\t<tr>\n\t<td>Caja Local</td>\n\t<td>{$ncl}</td>\n\t<td>Region</td>\n\t<td>{$nreg}</td>\n\t</tr>\n\t</table>";
echo "\n\t</fieldset>\n\t<fieldset>\n\t\t<legend>| DATOS DE LA VIVIENDA/DOMICILIO(S) |</legend>";
$rowviv = getDatosDomicilio($datos["codigo"], 99);
$tviv = eltipo("socios_viviendatipo", $rowviv[16]);
$treg = eltipo("socios_regimenvivienda", $rowviv[2]);
$tres = eltipo("socios_tiempo", $rowviv[12]);
echo "<table border='0' width='100%' aling='center'>\n\t\t<tr>\n\t\t\t<td>Tipo de Domicilio</td>\n\t\t\t<td class='ths'>{$tviv}</td>\n\t\t\t<td>Regimen de Vivienda</td>\n\t\t\t<td>{$treg}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<td>Calle </td>\n\t\t\t<td>{$rowviv['3']}</td>\n\t\t\t<td>Num. Ext.</td>\n\t\t\t<td>{$rowviv['4']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<td>Num. Int.</td>\n\t\t\t<td>{$rowviv['5']}</td>\n\t\t\t<td>Colonia</td>\n\t\t\t<td>{$rowviv['6']}</td>\n\t\t</tr>\n\t\t\t<td>Localidad</td>\n\t\t\t<td>{$rowviv['7']}</td>\n\t\t\t<td>Municipio</td>\n\t\t\t<td>" . $rowviv["municipio"] . "</td>\n\t\t<tr>\n\t\t\t<td>Telefono Residencial</td>\n\t\t\t<td>{$rowviv['10']}</td>\n\t\t\t<td>Telefono Movil</td>\n\t\t\t<td>{$rowviv['11']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<td>Codigo Postal</td>\n\t\t\t<td>" . $rowviv["codigo_postal"] . "</td>\n\t\t\t<td>Tiempo de Residencia</td>\n\t\t\t<td>{$tres}</td>\n\t\t</tr>\n\t\t<td>Referencia</td>\n\t\t<td>" . $rowviv["referencia"] . "</td>\n\t\t</table>\n\t\t\n\t\t</fieldset>\n\t\t<fieldset>\n\t\t<legend>| PARTES RELACIONADAS |</legend>";
// Tipo de Parte numero de Socio nombres Apellido Materno, paterno, CURP
$spr = "SELECT * FROM socios_relaciones WHERE socio_relacionado={$idsocio} and tipo_relacion<50 ORDER BY tipo_relacion";
$rspr = mysql_query($spr, cnnGeneral());
while ($rwpr = mysql_fetch_array($rspr)) {
$trelacion = eltipo("socios_relacionestipos", $rwpr[3]);
$tcons = eltipo("socios_consanguinidad", $rwpr[18]);
echo "<table border='0' >\n\t\t<tr>\n\t\t<td>Tipo de Relacion</td><td class='ths'>{$trelacion}</td>\n\t\t<td>Numero de socio Propio</td><td>{$rwpr['4']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>C.U.R.P</td><td>{$rwpr['15']}</td>\n\t\t<td>Nombre(s)</td><td>{$rwpr['5']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Apellido Paterno</td><td>{$rwpr['6']}</td>\n\t\t<td>Apellido Materno</td><td>{$rwpr['7']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Parentesco</td><td>{$tcons}</td>\n\t\t<td>Domicilio Completo</td><td>{$rwpr['8']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Telefono Fijo</td><td>{$rwpr['9']}</td>\n\t\t<td>Telefono Movil</td><td>{$rwpr['10']}</td>\n\t\t</tr>\n\t\t</table>";
}
echo "\n\t\t</fieldset>\n\t\t<fieldset>\n\t\t<legend>| DATOS DE LA(S) ACTIVIDAD(ES) ECONOMICA(S) |</legend>";
$sae = "SELECT * FROM socios_aeconomica WHERE socio_aeconomica={$idsocio}";
$rsae = mysql_query($sae, cnnGeneral());
$nombres = explode(" ", $nombres, 2);
$fecha = date("d.m.y", strtotime($rw["fechaalta"]));
$nombre1 = $nombres[0];
//Obtiene el segundo nombre mediante el array
$nombre2 = trim($nombres[1]);
//
$apPaterno = $rw["apellidopaterno"];
$apMaterno = $rw["apellidomaterno"];
//========== Datos del Domicilio
$CalleNumeroExInt = "";
$Colonia = "";
$MunicipioDelegacion = "";
$CodigoPostal = "";
$Ciudad = "";
$Estado = "";
$DDom = getDatosDomicilio($socio, 99);
$DomID = $DDom["idsocios_vivienda"];
if (isset($DomID)) {
$CalleNumeroExInt = trim($DDom["calle"]) . " " . trim($DDom["numero_exterior"]) . " " . trim($DDom["numero_interior"]);
$CalleNumeroExInt = trim($CalleNumeroExInt);
$Colonia = $DDom["colonia"];
$MunicipioDelegacion = $DDom["municipio"];
$Ciudad = $DDom["localidad"];
$Estado = $DDom["estado"];
$CodigoPostal = $DDom["codigo_postal"];
}
$trs .= "<tr>\n\t\t\t\t\t\t<td>{$contar}</td>\n\t\t\t\t\t\t<td>{$socio}</td>\n\t\t\t\t\t\t<td>{$fecha}</td>\n\t\t\t\t\t\t<td>{$nombre1}</td>\n\t\t\t\t\t\t<td>{$nombre2}</td>\n\t\t\t\t\t\t<td>{$apPaterno}</td>\n\t\t\t\t\t\t<td>{$apMaterno}</td>\n\t\t\t\t\t\t<td>{$CalleNumeroExInt}</td>\n\t\t\t\t\t\t<td>{$Colonia}</td>\n\t\t\t\t\t\t<td>{$MunicipioDelegacion}</td>\n\t\t\t\t\t\t<td>{$CodigoPostal}</td>\n\t\t\t\t\t\t<td>{$Ciudad}</td>\n\t\t\t\t\t\t<td>{$Estado}</td>\n\t\t\t\t\t</tr>";
$contar++;
unset($DDom);
}
$table = "\n\t\t<table width='100%'>\n\t\t<thead>\n\t\t\t{$tbHEAD}\n\t\t</thead>\n\t\t<tbody>\n\t\t\t{$trs}\n\t\t</tbody>\n\t\t</table>\n\t";
