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";