function JSsetDatosHeredados($socio, $form)
{
    $DSocio = getDatosSocio($socio);
    $DDom = getDatosDomicilio($socio);
    $telefono = $DDom["telefono_residencial"];
    $telefonomovil = $DDom["telefono_movil"];
    $domicilio = domicilio($socio);
    $tab = new TinyAjaxBehavior();
    $tab->add(TabSetValue::getBehavior('idTFijo', $telefono));
    $tab->add(TabSetValue::getBehavior('idDomicilio', $domicilio));
    $tab->add(TabSetValue::getBehavior('idTMovil', $telefonomovil));
    $tab->add(TabSetValue::getBehavior('idNombres', $DSocio["nombrecompleto"]));
    $tab->add(TabSetValue::getBehavior('idApPaterno', $DSocio["apellidopaterno"]));
    $tab->add(TabSetValue::getBehavior('idApMaterno', $DSocio["apellidomaterno"]));
    $tab->add(TabSetValue::getBehavior('idCurp', $DSocio["curp"]));
    return $tab->getString();
}
?>
<p class="bigtitle">RECIBO DE EGRESOS POR CONCEPTOS VARIOS</p>
<?php 
if (!$idrecibo) {
    exit($msg_rpt_exit . $fhtm);
}
$sqlrec = "SELECT * FROM operaciones_recibos WHERE idoperaciones_recibos={$idrecibo}";
$rsrec = mysql_query($sqlrec);
while ($rwrec = mysql_fetch_array($rsrec)) {
    if ($rwrec[4] == 1) {
        exit($msg_rpt_exit . $fhtm);
    }
    $idsolicitud = $rwrec[3];
    $idsocio = $rwrec[2];
    $domicilio = sociodom($idsocio);
    $x = getDatosSocio($idsocio);
    $rfc = $x[4];
    $curp = $x[5];
    $iddocto = $rwrec["docto_afectado"];
    if ($idsocio != 1) {
        $nombre = getNombreSocio($idsocio);
    } else {
        $rfc = "N/A";
        $curp = "N/A";
        $domicilio = "PARTE RELACIONADA DE LA EMPRESA";
        $nombre = mifila($sqlrec, "cadena_distributiva");
    }
    echo "<hr>\n\t\t<table border='0' width='100%'>\n\t\t<tr>\n\t\t\t<th width='10%'>Referencia:</th>\n\t\t\t<td with='10%'>{$idrecibo} | {$iddocto}</td>\n\t\t\t<td width='80%'>" . DEFAULT_NOMBRE_LOCALIDAD . ", " . DEFAULT_NOMBRE_ESTADO . "; " . fecha_larga($rwrec[1]) . "</td>\n\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>Socio</th>\n\t\t\t<td colspan='2'>[ {$idsocio} ] {$nombre}</td>\n\t\t\t\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>Domicilio</th>\n\t\t\t<td colspan='2'>{$domicilio}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<th>R.F.C./C.U.R.P.</th>\n\t\t\t<td>{$rfc} / {$curp}</td>\n\t\t\t<td />\n\t\t</tr>\n\t\t</table>\n\t\t<hr>";
    $monto = getFMoney($rwrec[5]);
    $letras = convertirletras($rwrec[5]);
    $parrafo = "";