PHP cnnGeneral函数代码示例

function jsaShowCatalogo($codigo)
{
    //$idcta = substr($idcta, 1, -1);
    $sql = "SELECT numero, nombre FROM contable_catalogo WHERE numero LIKE '" . $codigo . "%' AND afectable=1  ORDER BY numero LIMIT 0,20";
    $rs = mysql_query($sql, cnnGeneral());
    $tds = "";
    $i = 1;
    while ($row = mysql_fetch_array($rs)) {
        $ctaformateada = $row["numero"];
        $nombrecuenta = htmlentities($row["nombre"]);
        if ($i == 2) {
            $i = 1;
        } else {
            $i++;
        }
        $tds .= " \n\n\t\t<option value=\"{$row['0']}\" >{$ctaformateada} - {$nombrecuenta}</option>";
    }
    return "<select name=\"underCuenta\" id=\"idUnderCuenta\" size=\"10\"\n\t\t\tonclick=\"setCuenta(this.value);\"\n\t\t\tonblur=\"setCuenta(this.value);\" >\n\t\t\t\t{$tds} \n\t\t\t</select>";
}

function jsaGetPolizas($tipo = false, $dia = false)
{
    $ByDia = "";
    $ByTipo = "";
    $tbl = "";
    $td = "";
    if ($tipo != false and $tipo != "todas") {
        $ByTipo = " AND\n\t\t(`contable_polizas`.`tipopoliza` = {$tipo} ) ";
    }
    if ($dia != false and $dia != "todas") {
        $dia = EJERCICIO_CONTABLE . "-" . EACP_PER_CONTABLE . "-" . $dia;
        $ByDia = " AND\n\t\t(`contable_polizas`.`fecha` = '{$dia}' ) ";
    }
    $sql = "\nSELECT\n\tCONCAT(`contable_polizas`.`ejercicio`, '" . STD_LITERAL_DIVISOR . "' ,\n\t`contable_polizas`.`periodo`, '" . STD_LITERAL_DIVISOR . "' ,\n\t`contable_polizas`.`tipopoliza`, '" . STD_LITERAL_DIVISOR . "' ,\n\t`contable_polizas`.`numeropoliza`) AS 'codigo',\n\t`contable_polizas`.`numeropoliza` AS 'numero',\n\t`contable_polizasdiarios`.`nombre_del_diario` AS 'tipo',\n\t`contable_polizas`.`fecha`,\n\t`contable_polizas`.`cargos`,\n\t`contable_polizas`.`abonos`\nFROM\n\t`contable_polizas` `contable_polizas`\n\t\tINNER JOIN `contable_polizasdiarios` `contable_polizasdiarios`\n\t\tON `contable_polizas`.`tipopoliza` = `contable_polizasdiarios`.\n\t\t`idcontable_polizadiarios`\nWHERE\n\t\t`contable_polizas`.`ejercicio` = " . EJERCICIO_CONTABLE . "\n\t\tAND\n\t\t`contable_polizas`.`periodo` = " . EACP_PER_CONTABLE . "\n\t\t{$ByDia}\n\t\t{$ByTipo}\nORDER BY\n\t\t`contable_polizas`.`ejercicio`,\n\t\t`contable_polizas`.`periodo`,\n\t\t`contable_polizas`.`fecha` DESC,\n\t\t`contable_polizas`.`tipopoliza`,\n\t\t`contable_polizas`.`numeropoliza` DESC\nLIMIT 0,100\n\t";
    $rs = mysql_query($sql, cnnGeneral());
    while ($rw = mysql_fetch_array($rs)) {
        $td .= "<tr>\n\t\t\t\t\t<th onclick=\"setValueKey('" . $rw["codigo"] . "')\">" . $rw["numero"] . "</th>\n\t\t\t\t\t<td>" . $rw["tipo"] . "</td>\n\t\t\t\t\t<td>" . $rw["fecha"] . "</td>\n\t\t\t\t\t<td>" . $rw["cargos"] . "</td>\n\t\t\t\t\t<td>" . $rw["abonos"] . "</td>\n\t\t\t\t</tr>";
    }
    $tbl = "<table width='100%' aling='center'>\n\t\t\t\t<thead>\n\t\t\t\t\t<th>Codigo</th>\n\t\t\t\t\t<th>Tipo</th>\n\t\t\t\t\t<th>Fecha</th>\n\t\t\t\t\t<th>Cargos</th>\n\t\t\t\t\t<th>Abonos</th>\n\t\t\t\t</thead>\n\t\t\t\t<tbody>\n\t\t\t\t{$td}\n\t\t\t\t</tbody>\n\t\t\t</table>";
    return $tbl;
}

function dat_convenio($str_pedimiento = "99|1")
{
    $info = "NO HAY INFORMACION";
    $array_str = explode("|", $str_pedimiento);
    $idconvenio = $array_str[0];
    $id = $array_str[1];
    $sql_convenio = "SELECT * FROM creditos_tipoconvenio WHERE idcreditos_tipoconvenio={$idconvenio}";
    $rsconv = mysql_query($sql_convenio, cnnGeneral());
    while ($row = mysql_fetch_array($rsconv)) {
        $info = $row[$id];
    }
    @mysql_free_result($rsconv);
    return $info;
}

function setCompacWtExportarPolizas($fecha_inicial, $fecha_final, $FolioInicial = 0, $FolioFinal = 999999, $mTipo = "todas")
{
    $sucursal = getSucursal();
    //Traducciones del ContPaqw
    $CWTipoMvto = array("1" => 1, "-1" => "2");
    //Formato	:	polizas + fecha + sucursal;
    $mTmpFileAlias = "{$sucursal}-polizas-" . date("Y-m-d") . "";
    $mNametmpFile = PATH_TMP . $mTmpFileAlias . ".txt";
    if (file_exists($mNametmpFile)) {
        $BKPFile = fopen($mNametmpFile, "a+");
    } else {
        //$mNametmpFile = tempnam (PATH_BACKUPS, "polizas" . date("Y-m-d") . $sucursal . ".sbk");
        $BKPFile = fopen($mNametmpFile, "a");
    }
    //filtros
    $wByTipo = $mTipo == "todas" ? "" : " AND (`contable_polizas`.`tipopoliza` =" . $mTipo . ")  ";
    //Generar Polizas
    $FInicial = $FolioInicial;
    $FFinal = $FolioFinal;
    $sqlPol = "SELECT\r\n\t\t\t\t\t\t*\r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`contable_polizas` `contable_polizas` \r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`contable_polizas`.`fecha` >='{$fecha_inicial}')\r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(`contable_polizas`.`fecha` <='{$fecha_final}')\r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(\r\n\t\t\t\t\t\t\t(`contable_polizas`.`numeropoliza` >={$FInicial}) \r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(`contable_polizas`.`numeropoliza` <={$FFinal}) \r\n\t\t\t\t\t\t\t) {$wByTipo} ";
    //echo $sqlPol;
    $rs = mysql_query($sqlPol, cnnGeneral());
    if (!$rs) {
        //Codigo de Control de Error
        saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sqlPol);
    }
    while ($rw = mysql_fetch_array($rs)) {
        //Seleccionar los Movimientos
        $ejercicio = $rw["ejercicio"];
        $periodo = $rw["periodo"];
        $tipoPoliza = $rw["tipopoliza"];
        $numeroPoliza = $rw["numeropoliza"];
        $fechaPoliza = $rw["fecha"];
        $conceptoPoliza = $rw["concepto"];
        $WriteText = "P " . date("Ymd", strtotime($fechaPoliza));
        $WriteText .= " " . $tipoPoliza;
        $WriteText .= " " . substr(str_pad($numeroPoliza, 8, "0", STR_PAD_LEFT), -8);
        $WriteText .= " 1 000 " . substr(str_pad($conceptoPoliza, 100, " ", STR_PAD_RIGHT), 0, 100);
        $WriteText .= " 01 2 \r\n";
        //Escribe la Poliza
        @fwrite($BKPFile, $WriteText);
        /*
        3 Caracter para quien sabe.- Diario.- supongo
        2 Caracter para quien sabe
        1 Caracter Espacion
        1 Caracter Para quien Sabe
        1 Caracter Espacio
        */
        $sqlMvtos = "SELECT\r\n\t\t\t\t\t\t`contable_movimientos`.* \r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`contable_movimientos` `contable_movimientos` \r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`ejercicio` ={$ejercicio}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`periodo` ={$periodo}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`tipopoliza` ={$tipoPoliza}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`numeropoliza` ={$numeroPoliza})\r\n\t\t\t\t\t\tORDER BY `contable_movimientos`.`ejercicio`,\r\n\t\t\t\t\t\t`contable_movimientos`.`periodo`,\r\n\t\t\t\t\t\t`contable_movimientos`.`tipopoliza`,\r\n\t\t\t\t\t\t`contable_movimientos`.`numeropoliza`,\r\n\t\t\t\t\t\t`contable_movimientos`.`numeromovimiento`\r\n\t\t\t\t\t\t";
        $MRs = mysql_query($sqlMvtos, cnnGeneral());
        while ($MRw = mysql_fetch_array($MRs)) {
            $cuenta = $MRw["numerocuenta"];
            $referencia = $MRw["referencia"];
            //Corrige la Cuenta de Cuadre
            if ($cuenta == CUENTA_DE_CUADRE) {
                $cuenta = "_CUADRE";
            }
            //Tipo M + espacio
            //Cuenta   20
            //Referencia 10
            //TipoMvto 2 espacios 1 Cargo 2 Abono
            //Importe 16 Alineado
            //espacio + 000 + espacio + "            0.00 "
            //concepto 30 + espacio
            $WriteMvto = "M " . substr(str_pad($cuenta, 20, " ", STR_PAD_RIGHT), 0, 20);
            $WriteMvto .= " " . substr(str_pad($referencia, 10, " ", STR_PAD_RIGHT), 0, 10);
            $WriteMvto .= " " . $CWTipoMvto[$MRw["tipomovimiento"]];
            $WriteMvto .= " " . substr(str_pad($MRw["importe"], 16, " ", STR_PAD_LEFT), -16);
            $WriteMvto .= " 000 " . "            0.00 " . substr(str_pad($MRw["concepto"], 30, " ", STR_PAD_RIGHT), 0, 30) . " \r\n";
            @fwrite($BKPFile, $WriteMvto);
        }
    }
    @fclose($BKPFile);
    return "<a href=\"../utils/download.php?type=txt&download={$mTmpFileAlias}&file={$mTmpFileAlias}\" target=\"_blank\" class='boton'>Descargar Archivo de Polizas</a>";
}

    $IDERet = $xSoc->getIDEPagadoByPeriodo($fecha_final);
    $MontoGrav = $xSoc->getBaseGravadaIDE($fecha_final);
    $IDECalc = $xSoc->getIDECalculado($fecha_final);
    $totalExcedente += $MontoGrav;
    $totalOperaciones++;
    $totalPendiente += $IDEPend;
    $totalRecaudado += $IDERet;
    $totalDeterminados += $IDECalc;
    $totalRemanenteDep += $RemPerA;
    echo "\n\t\t\t\t<PersonaFisica curp=\"{$curp}\" rfc=\"{$rfc}\">\n\t\t\t\t\t<Nombre>\n\t\t\t\t\t\t<NombreCompleto>{$nombre}</NombreCompleto>\n\t\t\t\t\t</Nombre>\n\t\t\t\t\t<Domicilio>\n\t\t\t\t\t\t<DomicilioCompleto>{$domicilio}</DomicilioCompleto>\n\t\t\t\t\t</Domicilio>\n\t\t\t\t</PersonaFisica>\n\n\t\t\t\t<DepositoEnEfectivo impuestoDeterminado=\"{$IDECalc}\"\n                                        remanentePeriodosAnteriores=\"{$RemPerA}\"\n                                        montoExcedente=\"{$MontoGrav}\"\n                                        impuestoRecaudado=\"{$IDERet}\"\n                                        recaudacionPendiente=\"{$IDEPend}\"\n                                        />\n";
}
echo "</RegistroDeDetalle>";
//Registra el Pago diario del IDE
$sqlPagos = "SELECT\n\t\t\t`operaciones_mvtos`.`idoperaciones_mvtos`,\n\t\t\t`operaciones_mvtos`.`fecha_operacion`,\n\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t`operaciones_mvtos`.`recibo_afectado`,\n\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t`operaciones_mvtos`.`afectacion_real`\n\t\tFROM\n\t\t\t`operaciones_mvtos`\n\t\tWHERE\n\t\t\t(`operaciones_mvtos`.`fecha_operacion` >='{$fecha_inicial}')\n\t\t\tAND\n\t\t\t(`operaciones_mvtos`.`fecha_operacion` <='{$fecha_final}')\n\t\t\tAND\n\t\t\t(`operaciones_mvtos`.`tipo_operacion` = 9301 )\n\t\tORDER BY\n\t\t\t`operaciones_mvtos`.`fecha_operacion` ";
//echo $sqlPagos;
$rsPagos = mysql_query($sqlPagos, cnnGeneral());
while ($rwPagos = mysql_fetch_array($rsPagos)) {
    $fecha_de_pago = $rwPagos["fecha_operacion"];
    $monto = $rwPagos["afectacion_real"];
    $numero_operac = $rwPagos["idoperaciones_mvtos"];
    $recibo = $rwPagos["recibo_afectado"];
    $sqlOps = "SELECT\n\t\t\t\t\t        numero_de_documento\n\t\t\t\t\t        recibo_relacionado,\n\t\t\t\t\t        fecha_expedicion,\n\t\t\t\t\t        cuenta_bancaria\n\t\t\t\t\t    FROM bancos_operaciones\n\t\t\t\t\tWHERE recibo_relacionado = {$recibo}\n\t\t\t\t\t\tAND fecha_expedicion ='{$fecha_de_pago}'\n\t\t\t\t\t\tAND tipo_operacion = 'retiro'\n\t\t\t\t\tLIMIT 0,1 ";
    $DOps = obten_filas($sqlOps);
    $operacion = $DOps["numero_de_documento"];
    $banco = $DOps["cuenta_bancaria"];
    $xBanc = new cCuentaBancaria($banco);
    $DBanc = $xBanc->getDatosInArray();
    $banco_nom = $DBanc["nombre_de_la_entidad"];
    $banco_rfc = $DBanc["rfc_de_la_entidad"];
    $totalEnterado += $monto;
    $totalOperaciones++;

 $WriteText = "P " . date("Ymd", strtotime($fechaPoliza));
 $WriteText .= " " . $tipoPoliza;
 $WriteText .= " " . substr(str_pad($numeroPoliza, 8, "0", STR_PAD_LEFT), -8);
 $WriteText .= " 1 000 " . substr(str_pad($conceptoPoliza, 100, " ", STR_PAD_RIGHT), 0, 100);
 $WriteText .= " 01 2 \n";
 //Escribe la Poliza
 @fwrite($BKPFile, $WriteText);
 /*
 3 Caracter para quien sabe.- Diario.- supongo
 2 Caracter para quien sabe
 1 Caracter Espacion
 1 Caracter Para quien Sabe
 1 Caracter Espacio
 */
 $sqlMvtos = "SELECT\n\t\t\t\t\t\t`contable_movimientos`.* \n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`contable_movimientos` `contable_movimientos` \n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`contable_movimientos`.`ejercicio` ={$ejercicio}) AND\n\t\t\t\t\t\t\t(`contable_movimientos`.`periodo` ={$periodo}) AND\n\t\t\t\t\t\t\t(`contable_movimientos`.`tipopoliza` ={$tipoPoliza}) AND\n\t\t\t\t\t\t\t(`contable_movimientos`.`numeropoliza` ={$numeroPoliza})\n\t\t\t\t\t\tORDER BY `contable_movimientos`.`ejercicio`,\n\t\t\t\t\t\t`contable_movimientos`.`periodo`,\n\t\t\t\t\t\t`contable_movimientos`.`tipopoliza`,\n\t\t\t\t\t\t`contable_movimientos`.`numeropoliza`,\n\t\t\t\t\t\t`contable_movimientos`.`numeromovimiento`\n\t\t\t\t\t\t";
 $MRs = mysql_query($sqlMvtos, cnnGeneral());
 while ($MRw = mysql_fetch_array($MRs)) {
     $cuenta = $MRw["numerocuenta"];
     $referencia = $MRw["referencia"];
     //Corrige la Cuenta de Cuadre
     if ($cuenta == CUENTA_DE_CUADRE) {
         $cuenta = "_CUADRE";
     }
     //Tipo M + espacio
     //Cuenta   20
     //Referencia 10
     //TipoMvto 2 espacios 1 Cargo 2 Abono
     //Importe 16 Alineado
     //espacio + 000 + espacio + "            0.00 "
     //concepto 30 + espacio
     $WriteMvto = "M " . substr(str_pad($cuenta, 20, " ", STR_PAD_RIGHT), 0, 20);

function SearchRecord($filter)
{
    $limit_find = 5;
    $n_type = gettype($filter);
    if ($n_type == "string") {
        $filter = "'%{$filter}%'";
    } else {
        $filter = "'%{$filter}%'";
    }
    $sql = "SELECT * FROM general_formulas WHERE aplicado_a LIKE {$filter} LIMIT 0,{$limit_find}";
    $rs = mysql_query($sql, cnnGeneral());
    if (!$rs) {
        saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|Numero: " . mysql_errno() . "|Instruccion SQL:" . $sql);
    }
    $tds = "";
    while ($row = mysql_fetch_array($rs)) {
        $tds = $tds . "<tr> \r\n\r\n          <th onclick='cmdClick(" . $row["aplicado_a"] . "); jsGetRegistro(); '>" . $row["aplicado_a"] . "</th>\r\n          <td>{$row['1']}</td> \r\n\r\n      </tr> \r\n ";
    }
    @mysql_free_result($rs);
    return "<div id='i_lst'>\r\n    <table border='1'> \r\n  {$tds} \r\n </table>\r\n    </div>\r\n    ";
}

</form>
<?php 
} else {
    ?>
<form name="frm_division_montos" method="POST" action="./frmgrupossolidarioscreditos.php?a=2">

<?php 
    //Imprimir el Grupos
    $Grupo = $_POST["cGrupo"];
    $tds = "";
    $cG = new cGrupo($Grupo);
    $DMonto = $cG->getDatosNivelProximo();
    $monto = $DMonto["monto"];
    $sqlGrupos = "SELECT\n\t\t\t\t\t\t`socios_general`.`codigo`,\n\t\t\t\t\t\tCONCAT(`socios_general`.`nombrecompleto`, ' ',\n\t\t\t\t\t\t`socios_general`.`apellidopaterno`, ' ',\n\t\t\t\t\t\t`socios_general`.`apellidomaterno`) AS 'nombre'\n\t\t\t\t\t\n\t\t\t\t\tFROM\n\t\t\t\t\t\t`socios_general` `socios_general` \n\t\t\t\t\tWHERE\n\t\t\t\t\t\t(`socios_general`.`grupo_solidario` ={$Grupo}) \n\t\t\t\t\t\tAND\n\t\t\t\t\t\t(`socios_general`.`grupo_solidario` !=" . DEFAULT_GRUPO . ")";
    $rs = mysql_query($sqlGrupos, cnnGeneral());
    $i = 0;
    while ($rw = mysql_fetch_array($rs)) {
        $codigo = $rw["codigo"];
        $nombre = $rw["nombre"];
        $tds .= "<tr id='tr-{$i}'>\n\t\t\t\t\t\t<td>{$codigo}\n\t\t\t\t\t\t\t<input type='hidden' name='cSocio-{$i}' id='idSocio-{$i}' value='{$codigo}'></td>\n\t\t\t\t\t\t<td>{$nombre}</td>\n\t\t\t\t\t\t<td><input type='text' name='cMonto-{$i}' id='idMonto-{$i}' value='{$monto}' class='mny'></td>\n\t\t\t\t\t\t<td><input type='text' name='cObservacion-{$i}' id='idObservacion-{$i}' value='' size='50'  /></td>\n\t\t\t\t\t</tr>";
        $i++;
    }
    //Imprimir datos de grupo
    echo "<input type='hidden' name='cGrupo' id='idGrupo' value='{$Grupo}' />";
    echo $cG->getFicha(true);
    echo "<fieldset>\n\t\t<legend>Planeaci&oacute;n del Cr&eacute;dito</legend>\n\t\t<table width='100%' align='center'>\n\t\t\t<tr>\n\t\t\t\t<th>Numero</th>\n\t\t\t\t<th>Nombre</th>\n\t\t\t\t<th>Monto</th>\n\t\t\t\t<th>Observaciones</th>\n\t\t\t</tr>\n\t\t\t{$tds}\n\t\t</table>\n\t\t</fieldset>";
}
?>
</form>
<?php 

 function setCrearLetras($EsSucursal, $EnDetalle, $Avisar)
 {
     //Construir la Array de Letras
     $BySucursal = "";
     $sucursal = getSucursal();
     $arrLetras = array();
     $arrFechas = array();
     if ($EsSucursal == "si") {
         $BySucursal = " AND sucursal = '{$sucursal}' ";
     }
     //Eliminar las letras
     $sqlDSB = "DELETE FROM `sisbancs_amortizaciones` ";
     my_query($sqlDSB);
     $msg = "\t\tEliminar todas las letras\r\n";
     $sqlLetras = "SELECT\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`fecha_afectacion`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio`,\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) AS 'monto'\n\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =2601)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`afectacion_real` >0)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` !=413)\n\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`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio` ";
     $rsA = getRecordset($sqlLetras);
     while ($rw = mysql_fetch_array($rsA)) {
         $arrLetras[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-" . $rw["tipo_operacion"]] = $rw["monto"];
         if (!isset($arrFechas[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-fecha"])) {
             $arrFechas[$rw["docto_afectado"] . "-" . $rw["periodo_socio"] . "-fecha"] = $rw["fecha_afectacion"];
         }
     }
     $sqlCreds = "SELECT\n\t\t\t\t\t`creditos_solicitud`.*,\n\t\t\t\t\t`creditos_tipoconvenio`.*,\n\t\t\t\t\t`creditos_periocidadpagos`.*,\n\t\t\t\t\t`creditos_estatus`.*,\n\t\t\t\t\t`creditos_solicitud`.`tasa_interes` AS `tasa_ordinaria_anual`,\n\t\t\t\t\t`creditos_solicitud`.`tipo_autorizacion` AS `tipo_de_autorizacion`,\n                    `creditos_solicitud`.`tasa_ahorro` AS `tasa_de_ahorro`\n\t\t\t\tFROM\n\t\t\t\t\t`creditos_tipoconvenio` `creditos_tipoconvenio`\n\t\t\t\t\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud`\n\t\t\t\t\t\tON `creditos_tipoconvenio`.`idcreditos_tipoconvenio`\n\t\t\t\t\t\t= `creditos_solicitud`.`tipo_convenio`\n\t\t\t\t\t\t\tINNER JOIN `creditos_periocidadpagos`\n\t\t\t\t\t\t\t`creditos_periocidadpagos`\n\t\t\t\t\t\t\tON `creditos_periocidadpagos`.\n\t\t\t\t\t\t\t`idcreditos_periocidadpagos` =\n\t\t\t\t\t\t\t`creditos_solicitud`.`periocidad_de_pago`\n\t\t\t\t\t\t\t\tINNER JOIN `creditos_estatus`\n\t\t\t\t\t\t\t\t`creditos_estatus`\n\t\t\t\t\t\t\t\tON `creditos_estatus`.`idcreditos_estatus` =\n\t\t\t\t\t\t\t\t`creditos_solicitud`.`estatus_actual`\n\t\t\t\tWHERE\n\t\t\t\t\t(`creditos_solicitud`.`saldo_actual` >0.99)\n\t\t\t\t\tAND (`creditos_solicitud`.`estatus_actual` !=50)\n\t\t\t\t\t{$BySucursal}";
     $rsC = mysql_query($sqlCreds, cnnGeneral());
     $contar = 0;
     $NetoDisminuir = 0;
     $NetoCap = 0;
     $NetoLetra = 0;
     while ($rw = mysql_fetch_array($rsC)) {
         //Validar el Credito
         $socio = $rw["numero_socio"];
         $credito = $rw["numero_solicitud"];
         $oficial = $rw["oficial_credito"];
         $numero_pagos = $rw["pagos_autorizados"];
         $TasaIVA = $rw["tasa_iva"];
         $saldo_actual = $rw["saldo_actual"];
         $periocidad_de_pago = $rw["periocidad_de_pago"];
         $fecha_de_vencimiento = $rw["fecha_vencimiento"];
         $interes_pagado = $rw["interes_normal_pagado"];
         $interes_devengado = $rw["interes_normal_devengado"];
         $NetoCap += $saldo_actual;
         $TotalCap = 0;
         $TotalInt = 0;
         if ($periocidad_de_pago == 360) {
             $numero_pagos = 1;
         }
         $xc = new cCredito($credito, $socio);
         $xc->initCredito($rw);
         //$msg .=	"$contarINICIO\t$credito\t=============\tSALDO\t$saldo_actual\r\n";
         for ($i = 1; $i <= $numero_pagos; $i++) {
             $capital = 0;
             $interes = 0;
             $lkey = $credito . "-" . $i . "-";
             $fecha = isset($arrFechas[$lkey . "fecha"]) ? $arrFechas[$lkey . "fecha"] : fechasys();
             $txtLog = "";
             if ($periocidad_de_pago != 360) {
                 //Si el Capital Existe
                 if (isset($arrLetras[$lkey . 410])) {
                     $capital = $arrLetras[$lkey . 410];
                 }
                 //Si el Interes Existe
                 if (isset($arrLetras[$lkey . 411])) {
                     $interes = $arrLetras[$lkey . 411];
                 }
             } else {
                 $fecha = $fecha_de_vencimiento;
                 $capital = $saldo_actual;
                 $interes = setNoMenorQueCero($interes_devengado - $interes_pagado);
             }
             //recompocision a 2 digitos por letra
             $capital = round($capital, 2);
             $interes = round($interes, 2);
             $iva = round($interes * $TasaIVA, 2);
             //SUMAS
             $total_letra = $capital + $interes + $iva;
             $TotalCap += $capital;
             $TotalInt += $interes;
             //Global
             $NetoLetra += $capital;
             if ($total_letra > TOLERANCIA_SALDOS) {
                 $sqlI = "INSERT INTO sisbancs_amortizaciones\n\t\t\t\t\t\t\t\t\t\t(socio, credito, parcialidad, fecha_de_vencimiento, saldo_vigente, saldo_vencido,\n\t\t\t\t\t\t\t\t\t\tinteres_vigente, interes_vencido,\n\t\t\t\t\t\t\t\t\t\tsaldo_interes_vencido, interes_moratorio,\n\t\t\t\t\t\t\t\t\t\testatus, iva_interes_normal, iva_interes_moratorio,\n\t\t\t\t\t\t\t\t\t\tfecha_de_abono)\n\t\t\t\t\t\t\t\t\t\tVALUES\n\t\t\t\t\t\t\t\t\t\t({$socio}, {$credito}, {$i}, '{$fecha}', {$capital}, 0,\n\t\t\t\t\t\t\t\t\t\t{$interes}, 0,\n\t\t\t\t\t\t\t\t\t\t0, 0, 1, {$iva}, 0,\n\t\t\t\t\t\t\t\t\t\t'{$fecha}')";
                 my_query($sqlI);
                 if ($EnDetalle == "si") {
                     $msg .= "{$contar}\tLETRA\t{$credito}\t{$i}\tAGREGANDO PARCIALIDAD POR {$total_letra}\r\n";
                 }
             }
         }
         if ($TotalCap > $saldo_actual + TOLERANCIA_SALDOS or $TotalCap < $saldo_actual - TOLERANCIA_SALDOS) {
             $txtLog .= "{$contar}\tERROR\t{$credito}\tERROR EL SALDO({$saldo_actual})ES DIFERENTE A LA SUMA DE LETRAS({$TotalCap})\r\n";
             if ($Avisar == "si") {
                 $xo = new cOficial();
                 $xo->addNote(iDE_CREDITO, $oficial, $socio, $credito, $txtLog);
             }
             $msg .= $txtLog;
         }
         $msg .= "{$contar}\t{$credito}\t=============\tCAPITAL\t{$TotalCap}\r\n";
         $msg .= "{$contar}\t{$credito}\t=============\tINTERES\t{$TotalInt}\r\n";
         $msg .= "{$contar}\tFIN\t=================================================================\r\n";
         $contar++;
     }
//.........这里部分代码省略.........

 function setGenerarIDExPagar($fecha)
 {
     $fecha_inicial = date("Y-m-", strtotime($fecha)) . "01";
     $fecha_final = date("Y-m-t", strtotime($fecha));
     $sql = "SELECT\r\n\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\r\n\t\t\t\t\t\t`operaciones_recibos`.`tipo_pago`,\r\n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\r\n\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS 'monto'\r\n\t\t\t\t\tFROM\r\n\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\r\n\t\t\t\t\t\t\tINNER JOIN `operaciones_recibos` `operaciones_recibos`\r\n\t\t\t\t\t\t\tON `operaciones_mvtos`.`recibo_afectado` = `operaciones_recibos`.\r\n\t\t\t\t\t\t\t`idoperaciones_recibos`\r\n\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\r\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\r\n\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\r\n\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\r\n\t\t\t\tWHERE\r\n\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` >='{$fecha_inicial}')\r\n\t\t\t\t\tAND\r\n\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` <='{$fecha_final}')\r\n\t\t\t\t\tAND\r\n\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 2600)\r\n\t\t\t\t\tAND\r\n\t\t\t\t\t(`operaciones_recibos`.`tipo_pago` = 'efectivo' )\r\n\t\t\t\t\t{$BySucursal}\r\n\t\t\t\t\tGROUP BY\r\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\r\n\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\r\n\t\t\t\t\t`operaciones_recibos`.`tipo_pago`";
     $rsIDE = mysql_query($sql, cnnGeneral());
     while ($rwIDE = mysql_fetch_array($rsIDE)) {
         $socio = $rwIDE["socio_afectado"];
         $monto = $rwIDE["monto"];
         if ($monto > EXCENCION_IDE) {
             $cSoc = new cSocio($socio, true);
             $nombre = $cSoc->getNombreCompleto();
             $DSoc = $cSoc->getDatosInArray();
             $rfc = $DSoc["rfc"];
             $ide_pagado = $cSoc->getIDEPagadoByPeriodo($fecha_final);
             $ide_pendiente = $cSoc->getIDExPagarByPeriodo($fecha_final);
             $base_gravada = $cSoc->getBaseGravadaIDE();
         }
     }
 }

$SQLTCred = "SELECT * FROM creditos_modalidades WHERE idcreditos_modalidades=" . $DCred["tipo_credito"];
$tipo_de_credito = mifila($SQLTCred, "descripcion_modalidades");
//Datos del Grupo Solidarios por SQL
$SQLGAsoc = "SELECT * FROM socios_grupossolidarios\n\t\t\t\t\t\t\t\t\t\tWHERE idsocios_grupossolidarios=" . $DCred["grupo_asociado"];
$InfoGrupo = obten_filas($SQLGAsoc);
$nombre_rep_social = $InfoGrupo["representante_nombrecompleto"];
$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);

$xSoc->init();
$DSoc = $xSoc->getDatosInArray();
if ($idsocio != DEFAULT_SOCIO) {
    $nombre = $xSoc->getNombreCompleto();
} else {
    $nombre = $DRec["cadena_distributiva"];
}
$direccion = sociodom($idsocio);
$rfc = $DSoc["rfc"];
$curp = $DSoc["curp"];
// obtiene datos del documento que ayudaran al detalle en contabilidad
$observaciones = mifila($sqlrec, "observacion_recibo");
echo "<table width='100%'  border='0'>\n  <tr>\n    <td class='title'>Clave de Persona</td>\n    <td>{$idsocio}</td>\n    <td class='title'>Nombre Completo</td>\n    <td>{$nombre}</td>\n  </tr>\n  <tr>\n  \t<td class='title'>Domicilio</td>\n  \t<td colspan='3'>{$direccion}</td>\n  </tr>\n  <tr>\n    <td class='title'>R. F. C.</td> <td>{$rfc}</td>\n    <td class='title'>C. U. R. P.</td>    <td>{$curp}</td>\n  </tr>\n  <tr>\n    <td class='title'>Rec. Fiscal</td>\t<td><b>" . $DRec["recibo_fiscal"] . "</b></td>\n    <td class='title'>Tipo de Pago</td>    <td>" . strtoupper($DRec["tipo_pago"]) . "</td>\n  </tr>\n</table>\n<hr>\n";
echo "<table width='100%'  border='0'>\n  <tr>\n  \t<th scope='col' width='8%'>#Op.</th>\n    <th scope='col' width='50%'>Concepto</th>\n    <th scope='col'  width='20%'>Monto</th>\n    <th scope='col' width='22%'>Destino</th>\n  </tr>";
$sqlmvto = "SELECT * FROM operaciones_mvtos WHERE recibo_afectado={$recibo}";
$rsmvto = mysql_query($sqlmvto, cnnGeneral());
while ($rwm = mysql_fetch_array($rsmvto)) {
    $tipomvto = eltipo("operaciones_tipos", $rwm["tipo_operacion"]);
    $montomvto = getFMoney($rwm["afectacion_real"]);
    $documento = $rwm["docto_afectado"];
    $operacion = $rwm["idoperaciones_mvtos"];
    echo " <tr>\n\t\t\t<td>{$operacion}</td>\n    \t\t<td>{$tipomvto}</td>\n\t\t    <td class='money'>{$montomvto}</td>\n\t\t    <td>{$documento}</td>\n\t\t\t</tr>";
}
echo "</table>\n\t<hr>";
@mysql_free_result($rsmvto);
echo "\t<table border='0'  >\n\t\t<tr>\n\t\t\t<td class='title'>TOTAL RECIBO: ({$montoletras})</td>\n\t\t\t<td class='mny'>{$total_fmt}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t\t<td>Observaciones</td><td>{$observaciones}</td>\n\t\t</tr>\n\t</table>";
echo "\n\t<hr />\n\t<table border='0' width='100%' align='center'>\n\t<tr>\n\t\n\t<td><center>Por la Caja</center></td>\n\t<td><center>Firma de Conformidad</center></td>\n\t\n\t</tr>\n\t<tr>\n\t<td><br /><br /></td>\n\t</tr>\n\t<tr>\n\t\n\t<td><center>\n\t\t{$oficial}<br />\n\t\t" . date("Y-m-d H:s:i") . "|{$recibo}</center>\n\t\t\n\t</td>\n\t\n\t<td><center>{$nombre}</center></td>\n\t\n\t</tr>\n\t</table>";
echo getRawFooter();
?>
</body>
</html>

$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());
while ($rwae = mysql_fetch_array($rsae)) {
    $taec = eltipo("socios_aeconomica_tipos", $rwae[2]);
    $tse = eltipo("socios_aeconomica_sector", $rwae[3]);
    $antiguedad = eltipo("socios_tiempo", $rwae[12]);
    echo "<table border='0' width='100%'>\n\t\t<tr>\n\t\t<td>Tipo de Actividad</td><td class='ths'>{$taec}</td>\n\t\t<td>Sector Economico</td><td>{$tse}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Nombre o Razon Social</td><td>{$rwae['4']}</td>\n\t\t<td>Domicilio</td><td>{$rwae['5']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Telefono</td><td>{$rwae['9']}</td>\n\t\t<td>Telefono M&oacute;vil</td><td>{$rwae['10']}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td>Departamento</td><td>{$rwae['13']}</td>\n\t\t<td>Antig?edad</td><td>{$antiguedad}</td>\n\t\t</tr>\n\t\t<tr>\n\t\t<td></td><td></td>\n\t\t<td></td><td></td>\n\t\t</tr>\n\t\t</table>";
}
@mysql_free_result($rsae);
/* ---------------------------------------------------------------- */
echo "</fieldset>\n\t\t<fieldset>\n\t\t<legend>| DATOS DE RELACION PATRIMONIAL |</legend>";
$sqlactivos = "SELECT socios_patrimoniotipo.descripcion_patrimoniotipo AS 'Tipo_de_patrimonio', socios_patrimonio.monto_patrimonio AS 'Monto_Patrimonio', ";
$sqlactivos .= " socios_patrimonio.fecha_expiracion AS 'Fecha_Expiracion', socios_patrimonio.documento_presentado AS 'Documento_Presentado' ";
$sqlactivos .= " FROM socios_patrimonio, socios_patrimoniotipo WHERE socios_patrimonio.socio_patrimonio={$idsocio} ";
$sqlactivos .= " AND socios_patrimoniotipo.idsocios_patrimoniotipo=socios_patrimonio.tipo_patrimonio";
// activos.
//echo $sqlactivos;

 function ArrayByQuery($FieldRequired = 0)
 {
     $mArr = array();
     $rs = mysql_query($this->mSql, cnnGeneral());
     while ($rw = mysql_fetch_array($rs)) {
         $mArr[$rw[$this->mKey]] = $rw[$FieldRequired];
     }
     @mysql_free_result($rs);
     unset($rs);
     return $mArr;
 }

 function setEliminarInteresesDeCreditosPagados()
 {
     $msg = "";
     //==============================================================================
     $fecha = fechasys();
     $cheque = DEFAULT_CHEQUE;
     $recibo_fiscal = "NA";
     $observaciones = "GENERADO_EN_LA_UTILERIA_883";
     //==============================================================================
     $CRecibo = new cReciboDeOperacion(1, false);
     //Set a Mvto Contable
     //$CRecibo->setGenerarPoliza();
     //$CRecibo->setGenerarTesoreria();
     $recibo = $CRecibo->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fecha, 1, 1, $observaciones, $cheque, "ninguno", $recibo_fiscal, DEFAULT_GRUPO);
     $CRecibo->setNumeroDeRecibo($recibo);
     //
     $sql = "SELECT\n\t\t\t\t*\n\t\t\tFROM\n\t\t\t\t`creditos_solicitud` `creditos_solicitud`\n\t\t\tWHERE\n\t\t\t\t(`creditos_solicitud`.`saldo_actual` <= 0) AND\n\t\t\t\t(\n\t\t\t\t\t(`creditos_solicitud`.`interes_moratorio_devengado` != 0)\n\t\t\tOR\n\t\t\t\t\t(`creditos_solicitud`.`interes_normal_devengado` != 0)\n\t\t\t\t)";
     $rs = mysql_query($sql, cnnGeneral());
     while ($rw = mysql_fetch_array($rs)) {
         $socio = $rw["numero_socio"];
         $solicitud = $rw["numero_solicitud"];
         $OpNormal = 420;
         //420;
         $OpMora = 421;
         //431;
         $MontoM = 0;
         $MontoN = 0;
         //terminado: oct/2011
         $interesDN = $rw["interes_normal_devengado"];
         $interesDM = $rw["interes_moratorio_devengado"];
         $interesPN = $rw["interes_normal_pagado"];
         $interesPM = $rw["interes_moratorio_pagado"];
         if ($interesDN > $interesPN) {
             $OpNormal = 140;
             $MontoN = $interesDN - $interesPN;
         } else {
             $MontoN = $interesPN - $interesDN;
         }
         if ($interesDM > $interesPM) {
             $OpNormal = 141;
             $MontoM = $interesDM - $interesPM;
         } else {
             $MontoM = $interesPM - $interesDM;
         }
         if ($MontoN > 0) {
             $CRecibo->setNuevoMvto($fecha, $MontoN, $OpNormal, 1, " Ajuste por {$MontoN} de {$interesDN} | {$interesPN} ", 1, TM_CARGO, $socio, $solicitud);
             $msg .= "{$socio}\t{$solicitud}\tINTERES_NORMAL_DEV\tAjuste por {$MontoN} de {$interesDN} | {$interesPN} \r\n";
         } else {
         }
         if ($MontoM > 0) {
             $CRecibo->setNuevoMvto($fecha, $MontoN, $OpMora, 1, "Ajuste por {$MontoM} de {$interesDM} | {$interesPM}", 1, TM_CARGO, $socio, $solicitud);
             $msg .= "{$socio}\t{$solicitud}\tINTERES_MOR_DEV\tAjuste por {$MontoM} {$interesDM} | {$interesPM} \r\n";
         } else {
         }
     }
     $msg .= $CRecibo->getMessages("txt");
     $xCUtils = new cUtileriasParaCreditos();
     $msg .= $xCUtils->setAcumularIntereses(true);
     return $msg;
 }