/**
  * Muestra el Plan de Pagos en Texto, o HTML, Simple o Completo
  *
  * @param string $InOut		Tipo de Sal�ida, por Defecto HTML
  * @param boolean $simple	Solo Imprime el Plan de Pagos sin detallarla Lista
  * @param boolen $NoExtend	SI es a TRue solo muestra el Plan de pagos
  * @return string			Plan de Pagos en Formto definido en OUT
  */
 function getPlanDePago($InOut = "html", $simple = false, $NoExtend = false)
 {
     $PlanBody = "";
     if ($this->mCreditoInicializado == false) {
         $this->init();
     }
     $xF = new cFecha();
     $xL = new cLang();
     $xQ = new MQL();
     $xF->init(FECHA_FORMATO_MX);
     $xF->setSeparador("/");
     if ($this->mPagosAutorizados > 1) {
         if (setNoMenorQueCero($this->mNumeroDePlanDePago) <= 0) {
             $extras = $this->getDatosDelPlanDePagos();
         } else {
             $sqlrs = "SELECT *\n\t\t\t\t\t\tFROM operaciones_recibos\n\t\t\t\t\t\tWHERE idoperaciones_recibos=" . $this->getNumeroDePlanDePagos();
             $idrecibo = $this->getNumeroDePlanDePagos();
             $extras = obten_filas($sqlrs);
         }
         //------------------------------------- DATOS DEL RECIBO
         //TODO: Validar IDRECIBO, si es Mayor a cero y si existe 2014-10-31
         //XXX: Terminar valicacion de IDRECIBO 201/10/31
         $idrecibo = $extras["idoperaciones_recibos"];
         $idsocio = $extras["numero_socio"];
         //"numero_socio"
         $idsolicitud = $extras["docto_afectado"];
         // docto_afectado
         $sumrec = $extras["total_operacion"];
         $nombre = getNombreSocio($idsocio);
         $SUMCap = 0;
         $SUMInt = 0;
         $SUMIva = 0;
         $SUMAh = 0;
         $SUMOtros = 0;
         $SumTotal = 0;
         // ------------------------------------ DATOS DE LA SOLICITUD.
         if ($this->mCreditoInicializado == false) {
             $sqlsol = "SELECT * FROM creditos_solicitud WHERE numero_solicitud={$idsolicitud}";
             $dsol = obten_filas($sqlsol);
             $tasa_ahorro = $dsol["tasa_ahorro"] * 100;
             $tasa_interes = $dsol["tasa_interes"] * 100;
             $dias_totales = $dsol["dias_autorizados"];
             $numero_pagos = $dsol["pagos_autorizados"];
             $nombre_otro = "";
         } else {
             $tasa_ahorro = $this->mTasaAhorro * 100;
             $tasa_interes = $this->mTasaInteres * 100;
             $dias_totales = $this->mDiasAutorizados;
             $numero_pagos = $this->mPagosAutorizados;
             $nombre_otro = "";
         }
         $this->mLimitPlan = ceil($numero_pagos / 3);
         if ($NoExtend == false) {
             $PlanBody .= $this->getFichaDeSocio();
             $PlanBody .= $this->getFicha();
         }
         if ($simple == false) {
             $sql = "\n\t\t\t\t\tSELECT operaciones_mvtos.periodo_socio AS 'parcialidad', fecha_afectacion,\n\t\t\t\t\t\t\toperaciones_tipos.idoperaciones_tipos  As 'tipo',\n\t\t\t\t\t\t\toperaciones_tipos.descripcion_operacion AS 'concepto' ,\n\t\t\t\t\t\t\toperaciones_mvtos.afectacion_real AS 'monto',\n\t\t\t\t\t\t\toperaciones_mvtos.saldo_actual AS 'saldo'\n\n\t\t\t\t\tFROM \t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos`\n\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t\t\t\t\t`idoperaciones_tipos`\n\n\t\t\t\t\tWHERE operaciones_mvtos.recibo_afectado={$idrecibo}\n\t\t\t\t\tORDER BY operaciones_mvtos.periodo_socio, operaciones_tipos.idoperaciones_tipos";
             $rs = $xQ->getDataRecord($sql);
             $trs = "";
             //Parcialidad, evaluador de inciio y final
             $PInit = 0;
             $PFin = 0;
             $capital = 0;
             $interes = 0;
             $iva = 0;
             $ahorro = 0;
             $otros = 0;
             $total = 0;
             $saldo = 0;
             $tds = "";
             foreach ($rs as $rw) {
                 $PInit = $rw["parcialidad"];
                 $tipo = $rw["tipo"];
                 switch ($tipo) {
                     case 410:
                         $capital = $rw["monto"];
                         $SUMCap += $capital;
                         $saldo = $rw["saldo"];
                         if ($saldo < 0) {
                             $saldo = 0;
                         }
                         break;
                     case 411:
                         $interes = $rw["monto"];
                         $SUMInt += $interes;
                         break;
                     case 412:
                         $ahorro = $rw["monto"];
                         $SUMAh += $ahorro;
                         break;
                     case 413:
                         $iva = $rw["monto"];
                         $SUMIva += $iva;
                         break;
                     default:
                         $otros = $rw["monto"];
                         $SUMOtros += $otros;
                         $top = getInfTOperacion($tipo);
                         $nombre_otro = $top["descripcion_operacion"];
                         break;
                 }
                 if ($PInit != $PFin) {
                     $trs .= $tds;
                 } else {
                     $total = $capital + $interes + $ahorro + $iva;
                     $tdAhorro = "<td class='mny'>" . getFMoney($ahorro) . "</td>";
                     $tdOtros = "<td class='mny'>" . getFMoney($otros) . "</td>";
                     if ($ahorro == 0) {
                         $tdAhorro = "";
                     }
                     if ($otros == 0) {
                         $tdOtros = "";
                     }
                     $tds = "<tr>\n\t\t\t\t\t\t\t<td>" . $rw["parcialidad"] . "</td>\n\t\t\t\t\t\t\t<td class='ctr'>" . getDiaDeLaSemana($rw["fecha_afectacion"]) . "</td><td class='ctr'>" . $xF->getFechaCorta($rw["fecha_afectacion"]) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($capital) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($interes) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($iva) . "</td>\n\t\t\t\t\t\t\t{$tdAhorro}\n\t\t\t\t\t\t\t{$tdOtros}\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($total) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($saldo) . "</td>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t";
                 }
                 $PFin = $PInit;
             }
             $trs .= $tds;
             $SumTotal = $SUMCap + $SUMAh + $SUMInt + $SUMIva + $SUMOtros;
             $thAhorro = " <th>" . $xL->getT("TR.Ahorro") . "</th>";
             $thOtros = "<th>{$nombre_otro}</th>";
             $tfAhorro = "<th class='mny'>" . getFMoney($SUMAh) . "</th>";
             $tfOtros = "<th class='mny'>" . getFMoney($SUMOtros) . "</th>";
             if ($SUMAh == 0) {
                 $thAhorro = "";
                 $tfAhorro = "";
             }
             if ($SUMOtros == 0) {
                 $thOtros = "";
                 $tfOtros = "";
             }
             $PlanBody .= "<table >\n\t\t\t  <tbody>\n\t\t\t    <tr>\n\t\t\t      <th>" . $xL->getT("TR.Pago") . "</th>\n\t\t\t      <th colspan='2'>" . $xL->getT("TR.Fecha de Pago") . "</th>\n\t\t\t      <th>" . $xL->getT("TR.Capital") . "</th>\n\t\t\t      <th>" . $xL->getT("TR.Interes") . "</th>\n\t\t\t      <th>" . $xL->getT("TR.IVA") . "</th>\n\t\t\t     {$thAhorro}\n\t\t\t      {$thOtros}\n\t\t\t      <th>" . $xL->getT("TR.Total") . "</th>\n\t\t\t      <th>" . $xL->getT("TR.saldo") . "</th>\n\t\t\t    </tr>\n\t\t\t    {$trs}\n\t\t\t    <tr>\n\t\t\t      <td colspan='3'>" . $xL->getT("TR.SUMAS") . "</td>\n\t\t\t      <th class='mny'>" . getFMoney($SUMCap) . "</th>\n\t\t\t      <th class='mny'>" . getFMoney($SUMInt) . "</th>\n\t\t\t      <th class='mny'>" . getFMoney($SUMIva) . "</th>\n\t\t\t      {$tfAhorro}\n\t\t\t      {$tfOtros}\n\t\t\t      <th class='mny'>" . getFMoney($SumTotal) . "</th>\n\t\t\t      <td />\n\t\t\t    </tr>\n\t\t\t  </tbody>\n\t\t\t</table>";
         } else {
             $sqlparc = "SELECT periodo_socio AS 'parcialidad', MAX(fecha_afectacion)\n\t\t\t\t\t\t\t\tAS 'fecha_de_pago', SUM(afectacion_real) AS 'total_parcialidad',\n\t\t\t\t\t\t\t\t MAX(saldo_anterior) AS 'saldo_anterior_', MIN(saldo_actual) AS 'saldo_actual_'\n\t\t\t\t\t\t\t\tFROM operaciones_mvtos\n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\trecibo_afectado={$idrecibo}\n\t\t\t\t\t\t\tGROUP BY periodo_socio ORDER BY periodo_socio";
             $rs = $xQ->getDataRecord($sqlparc);
             $pi = 1;
             $tp = "";
             $pt = 1;
             $lim = $xQ->getNumberOfRows();
             //si el Limite es mayor a 100, restar 100 y poner
             if ($lim > $this->mLimitPlan * 4) {
                 $this->mLimitPlan = ceil($lim / 4);
             }
             if ($lim < $this->mLimitPlan) {
                 $this->mLimitPlan = ceil($lim / 2);
             }
             $items = 1;
             foreach ($rs as $rw) {
                 $saldo = $rw["saldo_actual_"];
                 $saldo = $saldo < 0 ? 0 : $saldo;
                 $SumTotal += $rw["total_parcialidad"];
                 if ($items == 1) {
                     $this->mFechaPrimeraParc = $rw["fecha_de_pago"];
                 }
                 if ($pi == $this->mLimitPlan or $pt == $lim) {
                     $tp .= "\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td>" . $rw["parcialidad"] . "</td>\n\t\t\t\t\t\t<td>" . $xF->getFechaCorta($rw["fecha_de_pago"]) . "</td>\n\t\t\t\t\t\t<td class='mny'>" . getFMoney($rw["total_parcialidad"]) . "</td>\n\t\t\t\t\t\t<td class='mny'>" . getFMoney($saldo) . "</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t</tbody>\n\t\t\t\t\t</table>\n\t\t\t\t\t</td>";
                     $pi = 1;
                 } elseif ($pi == 1) {
                     $tp .= "\n\t\t\t\t\t\t<td>\n\n\t\t\t\t\t\t<table class='sector_plan_simplificado'>\n\t\t\t\t\t\t<tbody>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<th>" . $xL->getT("TR.PAGO") . "</th>\n\t\t\t\t\t\t\t<th>" . $xL->getT("TR.Fecha") . "</th>\n\t\t\t\t\t\t\t<th>" . $xL->getT("TR.Monto") . "</th>\n\t\t\t\t\t\t\t<th>" . $xL->getT("TR.Saldo") . "</th>\n\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td>" . $rw["parcialidad"] . "</td>\n\t\t\t\t\t\t\t<td>" . $xF->getFechaCorta($rw["fecha_de_pago"]) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($rw["total_parcialidad"]) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($saldo) . "</td>\n\t\t\t\t\t\t</tr>";
                     $pi++;
                 } else {
                     $tp .= "\n\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t<td>" . $rw["parcialidad"] . "</td>\n\t\t\t\t\t\t\t<td>" . $xF->getFechaCorta($rw["fecha_de_pago"]) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($rw["total_parcialidad"]) . "</td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($saldo) . "</td>\n\t\t\t\t\t\t</tr>";
                     $pi++;
                 }
                 $pt++;
                 $items++;
                 $this->mFechaUltimaParc = $rw["fecha_de_pago"];
             }
             $PlanBody .= "<table class='plan_de_pagos'>\n\t\t\t\t\t\t\t\t<tbody>\n\t\t\t\t\t\t\t\t{$tp}\n\t\t\t\t\t\t\t\t</tbody>\n\t\t\t\t\t\t\t\t<!-- SUMAS -->\n\t\t\t\t\t\t\t\t<tfoot>\n\t\t\t\t\t\t\t\t\t<tr>\n\t\t\t\t\t\t\t\t\t\t<td colspan='2'><hr />TOTAL</th>\n\t\t\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\t\t<td  class='mny'><hr />" . getFMoney($SumTotal) . "</th>\n\t\t\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\t</tr>\n\t\t\t\t\t\t\t\t</tfoot>\n\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t";
         }
         //END IF
         $PlanFoot = "<hr />\n\t\t\t<table>\n\t\t\t\t<tr>\n\t\t\t\t\t<td><center>" . $xL->getT("TR.Firma del Solicitante") . "</td>\n\t\t\t\t\t<td><center>" . $xL->getT("TR.Genera el Plan de Pagos") . "</center></td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td><br /><br /><br /> </td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t\t<td><center>{$nombre}</center></td>\n\t\t\t\t\t\t<td><center>" . $this->mOficialQueGenera . "</center></td>\n\t\t\t\t</tr>\n\t\t\t\t</table>";
         if ($NoExtend == false) {
             $PlanBody .= "<hr />\n\t\t\t\t\t\t<table>\n\t\t\t\t\t\t  \t<tr>\n\t\t\t\t\t\t    \t<td>" . $xL->getT("TR.Dias Totales") . ":</td>\n\t\t\t\t\t\t    \t<th>{$dias_totales} Dias</th>\n\t\t\t\t\t\t    \t<td>" . $xL->getT("TR.Tasa de Interes") . " :</td>\n\t\t\t\t\t\t    \t<th>{$tasa_interes} %</th>\n\t\t\t\t\t\t    \t<td>" . $xL->getT("TR.Tasa de Ahorro") . " :</td>\n\t\t\t\t\t\t    \t<th>{$tasa_ahorro} %</th>\n\t\t\t\t\t\t    </tr>\n\t\t\t\t\t    </table>\n\t\t\t\t\t\t";
             $PlanBody .= $PlanFoot;
         }
     }
     //End evaluate si es Mas Planes de pagos
     return $PlanBody;
 }
//
$xGr = new cGrupo($idgrupo, true);
$xGr->init();
echo $xGr->getFicha(true);
//
$sqlgs = "SELECT codigo, nombrecompleto FROM socios_general WHERE grupo_solidario={$idgrupo} LIMIT 0,100 ";
$rsgs = mysql_query($sqlgs);
echo "<hr /><form name='myformls' action='clsgrupossolidarioscreditos.php?grupo={$idgrupo}' method='post'>\n\t<table   border='0'>\n\t<caption>Nivel de Ministracion {$nivel}<caption>\n\t<tr>\n\t<th>Clave de Persona</th>\n\t<th>Nombre Completo</th>\n\t<th>Monto que se le Autoriza</th>\n\t<th>Observaciones</th>\n\t</tr>";
$foliorec = folios(4);
// Folio de Recibo
$idrecibo = $foliorec;
// Numero de Recibo: user + tipooper + folio obtenido
$i = 0;
while ($rwgs = mysql_fetch_array($rsgs)) {
    $codigo = $rwgs[0];
    $nombre = getNombreSocio($codigo);
    $folioop = folios(2);
    $idoper = $folioop + $i;
    echo "<tr>\n\t\t\t<td>{$codigo}</td>\n\t\t\t<td>{$nombre}</td>\n\t\t\t<td><input type='text' name='monto{$i}' value='{$monto}' class='mny'>\n\t\t\t<input type='hidden' name='idsocio{$i}' value='{$codigo}'>\n\t\t\t<input type='hidden' name='operacion{$i}' value='{$idoper}'>\n\t\t\t<td><input type='text' name='observacion{$i}' value='' size='50'></td>\n\n\t\t</tr>";
    $i++;
}
echo "</table>\n\t<p class='aviso'>Este Grupo Solidario tiene el Nivel {$nivel} para Pasar al Nivel {$pnivel} <br />\n\tLa Planeacion Actual Eliminar&aacute; las anteriores <br />\n\tN&oacute; se Agrega&aacute; la Plenaci&oacute;n si el Credito ya Fue Autorizado</p>\n\t<input type='hidden' name='integrantes' value='{$i}' />\n\t<input type='hidden' name='idrecibo' value='{$idrecibo}' />\n\t<input type='button' name='btsend' value='ALMACENAR PLANEACION DE CREDITO'onClick='envCrypt();' />\n\t<input type='hidden' name='ordencompleta' value='' />\n\t\t</form>";
@mysql_free_result($rsgs);
//--------------------------------------- DATOS DEL RECIBO -----------------------------------------------
// PERIODOS
$percont = EACP_PER_CONTABLE;
// Periodo Contable
$percbza = EACP_PER_COBRANZA;
// Periodo Cobranza.
$perseg = EACP_PER_SEGUIMIENTO;
// Periodo de Seguimiento.
</head>
	<link href="<?php 
echo CSS_GENERAL_FILE;
?>
" rel="stylesheet" type="text/css">
	<script   src="../js/jsrsClient.js"></script>
<body>
<fieldset>
<legend>Linea de Credito Autorizada</legend>
<?php 
$idsocio = $_POST["idsocio"];
$montolinea = $_POST["montolinea"];
$observaciones = $_POST["observaciones"];
$numerohipoteca = $_POST["numerohipoteca"];
$montohipoteca = $_POST["montohipoteca"];
$fechavenc = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$fechaalta = fechasys();
$eacp = EACP_CLAVE;
$sucursal = getSucursal();
$estado = 1;
// VIGENTE
$sqllcf = "numero_socio, monto_linea, observaciones, numerohipoteca, monto_hipoteca, \r\n\t\t\t\t\tfecha_de_vencimiento, fecha_de_alta, estado, idusuario, sucursal, eacp";
$sqllcv = "{$idsocio}, {$montolinea}, '{$observaciones}', '{$numerohipoteca}', {$montolinea}, \r\n\t\t\t\t'{$fechavenc}', '{$fechaalta}', {$estado}, {$iduser}, '{$sucursal}', '{$eacp}'";
$sqllc = "INSERT INTO creditos_lineas({$sqllcf}) VALUES ({$sqllcv})";
my_query($sqllc);
echo "<p class='aviso'>la Linea de Credito ha Sido Agregada como Autorizada, de esta fecha en adelante, el Socio <b>" . getNombreSocio($idsocio) . "</b>\r\n\tsera tomado en cuenta para Ministrarse Creditos por un monto no mayor a {$montolinea}; por lo que se tendra que respetar dicha cantidad.</p> \r\n\t<input type='button' name='btnprint' value='IMPRIMIR AUTORIZACION'>\r\n\t";
?>
</fieldset>
</body>
</html>
    $sql_cargos .= " AND operaciones_mvtos.docto_afectado={$rws['1']}  AND operaciones_tipos.afectacion_en_notificacion!=0 AND operaciones_mvtos.estatus_mvto=50 ";
    $sql_cargos .= " GROUP BY operaciones_tipos.idoperaciones_tipos";
    $rscc = mysql_query($sql_cargos);
    echo "<div align='right'><table border='0' width='45%'>";
    while ($rwcc = mysql_fetch_array($rscc)) {
        echo "<tr>\n\t\t\t\t\t<td class='class_ligth'>{$rwcc['1']}</td><td class='class_right'> {$rwcc['0']}</td>\n\t\t\t\t\t<tr>";
    }
    echo "<tr>\n\t\t\t\t\t<td class='class_ligth'>CAPITAL VENCIDO</td><td class='class_right'> {$rws['8']}</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td class='class_ligth'>TOTAL</td><td class='class_right'> {$total}</td>\n\t\t\t\t\t</tr>\n\t\t\t\t</table></div>";
    @mysql_free_result($rscc);
    ?>
			<br />			
	<p class="legal">Como es de su conocimiento, el d&iacute;a <strong><?php 
    echo fecha_larga($rws[2]);
    ?>
</strong>, el socio(a) <strong><?php 
    echo getNombreSocio($rws[0]);
    ?>
</strong>,
	 fue apoyado mediante un Cr&eacute;dito por la cantidad total de <strong>$ <?php 
    echo $rws[8];
    ?>
</strong>,
	 siendo usted y firmando como el <strong>Aval Principal</strong> del cr&eacute;dito, seg&uacute;n consta en el expediente de la persona beneficiada.</p>

	<p class="legal">Por lo anterior, y en virtud de haber cumplido con las fechas programadas para pagar de manera parcial el cr&eacute;dito, por no encontrar informaci?n de la misma, 
	y/o no encontrar a la persona en el domicilio proporcionado, le solicitamos pase a nuestras oficinas a liquidar el adeudo pendiente en un plazo no mayor a 
	<strong><?php 
    echo DEUDORES_DIVERSOS_DIAS;
    ?>
</strong> d&iacute;as h&aacute;biles a partir de la fecha 
 de recepci&oacute;n de la presente notificaci&oacute;n de cobro.</p>
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>NOTIFICACION DE COBRO PARA CREDITOS AUTOMATIZADOS</title>
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
</head>
<body>
<?php 
$socio_inicial = $_GET["on"];
$socio_final = $_GET["off"];
$sql_notificaciones = "SELECT * FROM seguimiento_notificaciones WHERE tipo_credito='planes'\n\tAND estatus_notificacion='pendiente' AND numero_notificacion<3";
$rs = mysql_query($sql_notificaciones);
while ($rw = mysql_fetch_array($rs)) {
    $nombre = getNombreSocio($rw[1]);
    $domicilio = $rw[15];
    if ($domicilio == '0') {
        $domicilio = "NO EXISTE DOMICILIO DEFINIDO. CAPTURELO O EDITELO";
    }
    //Datos del Credito
    $sql_cred = "SELECT * FROM creditos_solicitud WHERE numero_solicitud={$rw['2']} AND numero_socio={$rw['1']} LIMIT 0,1";
    $dsol = obten_filas($sql_cred);
    $dias_venc = restarfechas(fechasys(), $dsol[15]);
    $interes = getFMoney($rw[9]);
    $moratorio = getFMoney($rw[10]);
    $otros_cargos = getFMoney($rw[11]);
    $capital = getFMoney($rw[8]);
    $total = getFMoney($rw[12]);
    echo getRawHeader();
    ?>
//
//$rsrain 	= mysql_query($sqlrain);
$xRec = new cReciboDeOperacion($tipo_docto, $idplan);
$xRec->setNumeroDeRecibo($idplan, true, $rs_find_plan);
$rsr = $xRec->getDatosReciboInArray();
//while ($rsr = mysql_fetch_array($rsrain)) {
$idgrupo = $rsr["grupo_asociado"];
$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();
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$iduser = $_SESSION["log_id"];
$xP = new cHPage("Relacion Patrimonial del Socio");
$idsocio = $_GET["socio"];
echo $xP->getHeader();
echo $xP->setBodyinit("initComponents()");
if (!$idsocio) {
    echo JS_CLOSE;
}
?>
<fieldset>
<legend>Balance Patrimonial <?php 
echo getNombreSocio($idsocio);
?>
</legend>
<form name="frmpatrimonio" action="frmsociospatrimonio.php?socio=<?php 
echo $idsocio;
?>
" method="POST">
	<table      >
		<tr>
			<td>Tipo</td><td>
			<?php 
$xSel1 = new cSelect("tpatrim", "", TPERSONAS_TIPO_PATRIMONIO);
echo $xSel1->get();
?>
			</td>
			<td>Fecha de Expiracion</td><td><?php 
if (!$idgarantia) {
    exit($msg_rpt_exit);
}
//-------------------------------------------
echo "<center><big><b>RECIBO DE GARANTIA EN RESGUARDO</b></big></center>\n\t\t<hr>";
//-------------------------------------------
$sqllg = "SELECT * FROM  creditos_garantias WHERE idcreditos_garantias={$idgarantia}";
$rslg = mysql_query($sqllg);
while ($rwg = mysql_fetch_array($rslg)) {
    $idsocio = $rwg[1];
    // numero de socio
    $idsolicitud = $rwg[2];
    // numero de solicitud
    $idsol = $rwg[2];
    $iduser = $rwg[12];
    $nombre = getNombreSocio($idsocio);
    $domicilio = sociodom($idsocio);
    echo "<table  >\n\t\t\t<tr>\n\t\t\t<td class='ths'>Nombre del Socio</td><td>{$nombre}</td>\n\t\t\t<td class='ths'>Domicilio</td><td>{$domicilio}</td>\n\t\t\t</tr>\n\t\t</table>";
    $montoaut = volcarsol($idsolicitud, 4);
    $fvencimiento = volcarsol($idsolicitud, 15);
    $idtcred = volcarsol($idsolicitud, 11);
    $modalidad = eltipo("creditos_modalidades", $idtcred);
    // */
    echo "<table  >\n\t\t\t<tr>\n\t\t\t\t<td class='ths'>Numero de Solicitud</td><td>{$idsolicitud}</td>\n\t\t\t\t<td class='ths'>Modalidad del credito</td><td>{$modalidad}</td>\n\t\t\t</tr>\n\t\t\t<tr>\n\t\t\t\t<td class='ths'>Monto Autorizado</td><td>{$montoaut}</td>\n\t\t\t\t<td class='ths'>Fecha de Vencimiento</td><td>{$fvencimiento}</td>\n\t\t\t</tr>\n\t\t\t</table>\n\t\t\t<hr>";
    $tipogar = eltipo("creditos_tgarantias", $rwg[3]);
    $tipoval = eltipo("creditos_tvaluacion", $rwg[6]);
    echo "<table  >\n\t\t\t\t<tr>\n\t\t\t\t<td class='ths'>Identificador</td><td>{$rwg['0']}</td>\n\t\t\t\t<td class='ths'>Tipo de Garantia</td><td>{$tipogar}</td>\n\t\t\t\t</tr>\n\n\t\t\t\t<tr>\n\t\t\t\t<td class='ths'>Fecha de Resguardo</td><td>{$rwg['11']}</td>\n\t\t\t\t<td class='ths'>Fecha de Alta</td><td>{$rwg['4']}</td>\n\t\t\t\t</tr>\n\n\t\t\t\t<tr>\n\t\t\t\t<td class='ths'>Tipo de Valuacion</td><td>{$tipoval}</td>\n\t\t\t\t<td class='ths'>Monto valuado</td><td>{$rwg['7']}</td>\n\t\t\t\t</tr>\n\n\t\t\t\t<tr>\n\t\t\t\t<td class='ths'>Documento Presentado</td><td>{$rwg['9']}</td>\n\t\t\t\t<td class='ths'>Observaciones del Resg.</td><td>{$rwg['19']}</td>\n\t\t\t\t</tr>\n\n\t\t\t\t</table>\n\t\t\t\t<p class='ths'>Las Garantias se Entregar Una vez ya Liquidado el credito</p>";
}
@mysql_free_result($rslg);
echo "<hr><table border='0' width='100%'>\n\t<tr>\n\t\t<td><center>Entrega la Garantia</td>\n\t\t<td><center>Recibe en Resguardo</center></td>\n\t\t<td><center>Vo. Bo.</center></td>\n\t</tr>\n\t<tr>\n\t\t<td colspan='2'><br /><br /><br /></td>\n\t</tr>\n\t<tr>\n\t\t<td><center>{$nombre}</center></td>\n\t\t<td><center>{$oficial}</center></td>\n\t\t<td><center>{$titular_gerencia}</center></td>\n\t</tr>\n\t<tr>\n\t\t<td colspan='3' style='font-size: smallest; '>Nota: Al Momento de la liquidaci&oacute;n del Pr&eacute;stamo, la devoluci&oacute;nde garant&iacute;as ser&aacute; exclusivamente al propietario del mismo,\no en caso de ser una persona diferente, favor de traer carta poder notariado. Si su Pr&eacute;stamo fue Hipotecario, deber&aacute; de solicitar adem&aacute;s una constancia de finiquito para tramitar la cancelaci&oacute;n\nde la hipoteca, el cual correr&aacute; a cuenta de usted</td>\n\t</tr>\n\t</table>";
?>
function jsGetNombreSocio($codigo)
{
    if ($codigo != 0 && $codigo != "") {
        return getNombreSocio($codigo);
    }
}
    $periocidad = $rt["periocidad_de_pago"];
}
if (EACP_INCLUDE_INTERES_IN_PAGARE == true) {
    if ($periocidad == 360) {
        $monto = $monto + $idiario * $dias;
    } else {
        $sqlInt = "SELECT\n\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\t\tCOUNT(`operaciones_mvtos`.`idoperaciones_mvtos`) AS `mvtos`,\n\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) AS 'monto'\n\t\t\t\t\tFROM\n\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\tWHERE\n\t\t\t\t\t\t(`operaciones_mvtos`.`docto_afectado` = {$idsolicitud})\n\t\t\t\t\t\tAND\n\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 2601)\n\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`\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`.`fecha_afectacion`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`\n\t\t\t\t\t";
        $xF = obten_filas($sqlInt);
        $monto = $xF["monto"];
    }
}
$tasamor = $imora * 100 / 12;
$montoletras = convertirletras($monto);
$monto = getFMoney($monto);
$nombrerep = getNombreSocio($codigorep);
$domrep = sociodom($codigorep);
$isnow = fecha_larga();
$fecha = fecha_larga($fecha);
echo "<table width='100%' border='0'>\n      <tr>\n        <td bordercolor='#000000' class='bigtitle'>PAGARE</td>\n        <td></td>\n        <td>Numero 01/01</td>\n        <td></td>\n        <td class='midtitle'>Bueno por : </td>\n        <td class='midtitle'>\$ {$monto}</td>\n      </tr>\n\t\t<tr>\n\t\t  <td>&nbsp;</td>\n\t\t  <td>&nbsp;</td>\n\t\t  <td>&nbsp;</td>\n\t\t  <td>&nbsp;</td>\n\t\t  <td class='numc'>EN " . DEFAULT_NOMBRE_LOCALIDAD . ", " . DEFAULT_NOMBRE_ESTADO . " a:</td>\n\t\t  <td class='numc'>{$isnow}</td>\n\t  </tr>\n\t\t<tr>\n\t\t  <td colspan='6' class='legal'>Debo(emos) y Pagare(mos) incondicionalmente por este PAGARE\n\t\t  a la orden de <b>" . EACP_NAME . "</b> ubicada en <b>" . EACP_DOMICILIO_CORTO . "</b> o\n\t\t  en cualquier otra que se me(nos) solicite el pago, el dia <b>{$fecha}</b> la cantidad de <b>\$ {$monto}</b>\n\t\t  - - - - - - - - - - - - - - - - - - - - - -\n\t\t  <b>son:({$montoletras})</b> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n\t\t  - - - - - - - - - - - - - - - - - - - - - - - - - - - - Valor recibido a mi(nuestra) entera\n\t\t  satisfacci&oacute;n. Este PAGAR&Eacute; forma parte de una serie numerada del 01/01 y todos estan sujetos\n\t\t  a la condici&oacute;n de que, al no pagarse cualquiera de ellos a su vencimiento, seran exigibles\n\t\t  todos los que sigan en n&uacute;mero, ademas de los ya vencidos. Desde la fecha de este documento\n\t\t  hasta el dia de su liquidacion, causara intereses moratorios al tipo de <b>{$tasamor} % </b> Mensual, pagadero\n\t\t  en esta ciudad o cualquier otra plaza donde me(nos) sea exigido, conjuntamente con el principal.</td>\n\t  </tr>\n\t\t<tr>\n\t\t  <td colspan='6'>&nbsp;</td>\n\t  </tr>\n\t</table>\n\t<p class='order'>\n\tAcepto\n\t<br />\n\t<br />\n\t<br />\n\t<br />\n\t____________________________________\n\t<br />\n\t{$nombrerep}<br />\n\t{$domrep}<br />\n\t</p>\n<p class='bigtitle'>AVAL(ES)</b>\n";
$segpo = "SELECT codigo FROM socios_general WHERE grupo_solidario={$idgrupo} AND codigo!={$codigorep}";
$rsgpo = mysql_query($segpo);
while ($rwg = mysql_fetch_array($rsgpo)) {
    $name = getNombreSocio($rwg[0]);
    $dom = sociodom($rwg[0]);
    echo "\t<p class='order'>\n\tAcepto Incondicionalmente las Obligaciones de este Pagar&eacute;, como si del deudor Principal se tratar&aacute;<br>\n\t<br>\n\t<br>\n\t<br>\n\t____________________________________<br>\n\t{$name}<br>\n\tDireccion: {$dom}<br>\n\t</p>";
}
@mysql_free_result($rsgpo);
?>
</body>
</html>
    exit("NO HAY SUFICIENTES DATOS\n\t\tPARA LLEVAR A CABO EL INFORME");
}
?>
<!-- -->
<p class="bigtitle">CEDULA DE AUTORIZACI&Oacute;N/INFORMACI&Oacute;N</p>
<hr>
<?php 
$sqlcred = "SELECT * FROM creditos_solicitud WHERE numero_solicitud={$idsolicitud}";
$rscred = mysql_query($sqlcred);
while ($rwc = mysql_fetch_array($rscred)) {
    // datos generales del socio
    $idsocio = $rwc[5];
    // Numero de Socio
    $sqlmysoc = "SELECT * FROM socios_general WHERE codigo={$idsocio}";
    $rsmysoc = mysql_query($sqlmysoc);
    $mynom = getNombreSocio($idsocio);
    while ($rwy = mysql_fetch_array($rsmysoc)) {
        $genero = eltipo("socios_genero", $rwy[15]);
        $civil = eltipo("socios_estadocivil", $rwy[14]);
        $ocupacion = volcartabla("socios_aeconomica", 18, "socio_aeconomica={$idsocio}");
        $thisdom = sociodom($idsocio);
        echo "<table border='0'  >\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>Clave de Persona</td><td>{$rwy['0']}</td>\n\t\t\t\t\t<td class='ths'>Nombre(s)</td><td>{$rwy['1']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>Apellido Paterno</td><td>{$rwy['2']}</td>\n\t\t\t\t\t<td class='ths'>Apellido Materno</td><td>{$rwy['3']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>R. F. C.</td><td>{$rwy['4']}</td>\n\t\t\t\t\t<td class='ths'>C. U. R. P.</td><td>{$rwy['5']}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>Genero</td><td>{$genero}</td>\n\t\t\t\t\t<td class='ths'>Estado Civil</td><td>{$civil}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>Ocupaci&oacute;n</td><td>{$ocupacion}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>Direcci&oacute;n</td><td colspan='3'>{$thisdom}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<td class='ths'>R&eacute;gimen Matrimonial</td>\n\t\t\t\t\t<td>{$rwy['22']}</td>\n\t\t\t\t</tr>\t\n\n\t\t\t</table>\n\t\t\t<hr>";
    }
    //*/
    // datos de la solicitud
    $perpagos = eltipo("creditos_periocidadpagos", $rwc[10]);
    $eldest = eltipo("creditos_destinos", $rwc[19]);
    $montosol = number_format($rwc[4], 2, '.', ',');
    $montoletras = convertirletras($rwc[4]);
    $tasa = $rwc[9] * 100;
    echo "<table  >\n\t\t<tr>\n\t\t<td class='ths'>Numero de Solicitud</td><td>{$rwc['0']}</td>\n\t\t<td class='ths'>Periocidad de Pago</td><td>{$perpagos}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td class='ths'>Destino del Recurso</td><td>{$eldest}</td>\n\t\t<td class='ths'>Fecha de Vencimiento</td><td>{$rwc['15']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td class='ths'>Tasa de Interes</td><td>{$tasa} %</td>\n\t\t<td class='ths'>Numero de Pagos</td><td>{$rwc['16']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td class='ths'>Monto Autorizado</td><td><b>{$montosol}</b></td>\n\t\t<td class='ths' colspan='2'>{$montoletras}</td>\n\t\t</tr>\n\t\t</table>";
/* verifica si el socio o datos son validos */
$arrD = array();
if ($relacionado == DEFAULT_SOCIO) {
    $arrD = array("idsocios_relaciones" => 0, "socio_relacionado" => $idsocio, "credito_relacionado" => DEFAULT_CREDITO, "tipo_relacion" => 11, "numero_socio" => DEFAULT_SOCIO, "nombres" => '', "apellido_paterno" => '', "apellido_materno" => '', "domicilio_completo" => 'mismo', "telefono_residencia" => '0', "telefono_movil" => '0', "fecha_nacimiento" => fechasys(), "monto_relacionado" => 0, "porcentaje_relacionado" => 1, "curp" => 'POR_REGISTRAR', "observaciones" => '', "consanguinidad" => 3, "estatus" => 0, "dependiente" => 1, "ocupacion" => 'POR_REGISTRAR', "calificacion_del_referente" => 0, "codigopostal" => 0);
} else {
    $xSoc = new cSocio($idsocio);
    $arrD = $xSoc->getDatosRelacionInArray($relacionado);
}
//Parche
$arrD["calle"] = "";
$arrD["numero"] = "";
$arrD["colonia"] = "";
$arrD["codigopostal"] = "";
//$xH	= new cHTMLObject("Partes Relacionadas de Socios");
//$xH->setHeaders();
$xHP->setTitle(PERSONAS_TITULO_PARTES . ".-" . getNombreSocio($idsocio));
$xHP->addJsFile("../jsrsClient.js");
$xHP->addJsFile("../js/jquery/jquery.js");
$xHP->addJsFile("../js/jquery/jquery.qtip.min.js");
$xHP->addJsFile("../js/curp.js");
$xHP->addJsFile("../js/config.js.php");
$xHP->addJsFile("../js/general.js");
$xHP->addCSS("../css/jquery.qtip.css");
echo $xHP->getHeader();
$jxc->drawJavaScript(false, true);
?>
<body onload="initComponents()">
<fieldset>
<legend><script> document.write(document.title); </script></legend>
<form name="frmreferencias" id="idfrmreferencias"  action="referencias.directas.cls.php?idsocio=<?php 
echo $_GET["socio"];
		padding-right:1in;	
	}
</style>
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
<body>
<!-- -->
<?php 
echo getRawHeader();
$sqlcontrato = "SELECT\n\t\t\t\t\t\t\t\t\t`socios_general`.*,\n\t\t\t\t\t\t\t\t\t`captacion_cuentas`.*\n\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\tINNER JOIN `socios_general` `socios_general`\n\t\t\t\t\t\t\t\t\t\tON `captacion_cuentas`.`numero_socio` = `socios_general`.`codigo`\n\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`numero_cuenta` ={$cuenta})";
$datos_de_la_cuenta = obten_filas($sqlcontrato);
$idsocio = $datos_de_la_cuenta["numero_socio"];
$tasa = $datos_de_la_cuenta["tasa_otorgada"];
$tasa = $tasa * 100;
$saldo = $datos_de_la_cuenta["saldo_cuenta"];
$domicilio_del_socio = sociodom($idsocio);
$nombre_del_socio = getNombreSocio($idsocio);
$numero_de_socio = $idsocio;
/**
 * Busca el Primer Deposito del Socio.
 */
$datos_primer_deposito = obten_filas("SELECT * FROM operaciones_mvtos WHERE docto_afectado={$cuenta} ORDER BY fecha_operacion LIMIT 0,1");
$monto_inicial = $datos_primer_deposito[7];
$monto_inicial_letras = convertirletras($monto_inicial);
$numero_dias = $datos_primer_deposito[29];
$variable_lugar = $eacp_estado . ",  " . $eacp_municipio;
$variable_fecha_actual = fecha_larga();
$variable_tasa_otorgada = $datos_primer_deposito[28] * 100;
$variable_fecha_vencimiento = fecha_larga($datos_primer_deposito[11]);
$variable_oficial = $oficial;
//Datos del Credito
$credito = $datos_de_la_cuenta["numero_solicitud"];
function namesoc($idsocio)
{
    return getNombreSocio($idsocio);
}
         $messages .= "No hay Cuenta de Retiro de la Socia {$codigo_rep} <br /> ";
     }
 }
 //=================================================Otras Cuentas
 $recibo = $DRec["recibo"];
 $sqlPlan = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE recibo_afectado = {$recibo}\n\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\ttipo_operacion = 112";
 $arrDatos = array();
 //echo $sqlPlan;
 $rsPlan = mysql_query($sqlPlan, cnnGeneral());
 $sumPlan = 0;
 $td = "";
 while ($rw = mysql_fetch_array($rsPlan)) {
     //$arrDatos[ $rw["socio_afectado"] ]	= $rw["afectacion_real"];
     $sumPlan += $rw["afectacion_real"];
     $monto_gtia_individual = $rw["afectacion_real"] * $tasa_gtia;
     $NSocio = getNombreSocio($rw["socio_afectado"]);
     //imprimir socio + monto de los planeado + monto de la garantia
     $c = "";
     if ($rw["socio_afectado"] == $codigo_rep) {
         $c = " class='aviso' ";
     }
     $td .= "<tr>\n\t\t\t\t\t\t\t\t\t\t\t\t\t<td {$c}>" . $rw["socio_afectado"] . "</td>\n\t\t\t\t\t\t\t\t\t\t\t\t\t<td>" . $NSocio . "</td>\n\t\t\t\t\t\t\t\t\t\t\t\t\t<td class='mny'>" . $rw["afectacion_real"] . "</td>\n\t\t\t\t\t\t\t\t\t\t\t\t\t<td class='mny'>" . $monto_gtia_individual . "</td>\n\t\t\t\t\t\t\t\t\t\t\t\t</tr>";
     if ($solo_simular == 0) {
         $cuenta = "50" . $rw["socio_afectado"] . "01";
         $xCN = new cCuentaALaVista($cuenta);
         //Contar las cuentas si existen
         $ctas = $xCN->setContarCuentaBySocio($rw["socio_afectado"], 50);
         if ($ctas == 0) {
             //Crear una Cuenta Nueva
             $xCN->setNuevaCuenta(3, 50, $rw["socio_afectado"], "ALTA_AUTOMATICA_POR_{$iduser}", $credito, "", "", $grupo);
         } else {