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ón del Cré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++;
}
return $msg;
}
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ó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;
}
function jsaDeletePoliza($idejercicio, $idperiodo, $idtipopol, $idpoliza)
{
//Eliminar Poliza
$SQLDP = "DELETE FROM contable_polizas WHERE ejercicio={$idejercicio}\n\t\t\t\tAND periodo={$idperiodo}\n\t\t\t\tAND tipopoliza={$idtipopol}\n\t\t\t\tAND numeropoliza={$idpoliza} ";
my_query($SQLDP);
//Eliminar Movimientos
$sqlSM = "SELECT * FROM contable_movimientos\n\tWHERE ejercicio={$idejercicio} AND periodo={$idperiodo}\n\t AND numeropoliza={$idpoliza} AND tipopoliza={$idtipopol}";
$rs = mysql_query($sqlSM, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$MTipoMvto = $rw["tipomovimiento"];
$MCuenta = $rw["numerocuenta"];
$MMonto = $rw["importe"];
$DCta = getInfCatalogoTipo($MCuenta);
$DTipo = getInfCatalogoTipo($DCta["tipo"]);
$MNaturaleza = $DTipo["naturaleza"] * $DTipo["naturaleza_del_sector"];
setRevertirMvto($MCuenta, $idperiodo, $idejercicio, $MNaturaleza, $MTipoMvto, $MMonto);
}
@mysql_free_result($rs);
$sqlDMM = "DELETE FROM contable_movimientos\n\tWHERE ejercicio={$idejercicio} AND periodo={$idperiodo} AND numeropoliza={$idpoliza} AND tipopoliza={$idtipopol}";
my_query($sqlDMM);
}
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>PAGARE GRUPO SOLIDARIO</title>
</head>
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
<style>
body{
text-transform: uppercase;
}
</style>
<body>
<?php
if (!$id) {
exit($msg_rec_exit . $fhtm);
}
$select = "SELECT numero_socio, grupo_asociado, monto_autorizado,\n\t\t\t\t\tfecha_vencimiento, dias_autorizados, interes_diario,\n\t\t\t\t\ttasa_moratorio, periocidad_de_pago\n\t\t\t\t\tFROM creditos_solicitud\n\t\t\t\t\tWHERE numero_solicitud={$id}";
$rsmill = mysql_query($select, cnnGeneral());
while ($rt = mysql_fetch_array($rsmill)) {
$monto = $rt[2];
$fecha = $rt[3];
$dias = $rt[4];
$idiario = $rt["interes_diario"];
$imora = $rt["tasa_moratorio"];
$idgrupo = $rt["grupo_asociado"];
$codigorep = $rt["numero_socio"];
$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";
function setEliminarRecibosDuplicados()
{
$msg = "============= PURGANDO FOLIOS DUPLICADOS AL " . date("Y-m-d") . "\r\n";
$sql = "SELECT idoperaciones_recibos,\r\n\t\t\t\tCOUNT(idoperaciones_recibos) AS 'repetidos' FROM operaciones_recibos\r\n\t\t\t\tGROUP BY idoperaciones_recibos\r\n\t\t\t\tHAVING repetidos>1 ";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$SQLoD = "SELECT idoperaciones_recibos, numero_socio, fecha_operacion FROM operaciones_recibos\r\n\t\t\t\t\tWHERE idoperaciones_recibos = " . $rw["idoperaciones_recibos"] . "\r\n\t\t\t\t\tORDER BY fecha_operacion ASC\r\n\t\t\t\t\tLIMIT 0,1";
$DFol = obten_filas($SQLoD);
$xRec = new cReciboDeOperacion(false, false, $DFol["idoperaciones_recibos"]);
$msg .= $xRec->setCambiarCodigo();
unset($DFol);
}
return $msg;
}
include_once "../core/core.fechas.inc.php";
$oficial = elusuario($iduser);
?>
<!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_set = "SELECT\t\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\t`creditos_solicitud`.fecha_ministracion AS 'ministrado',\n\t\t\t\t\t\t`creditos_solicitud`.fecha_vencimiento AS 'vencimiento',\n\t\t\t\t\t\t`seguimiento_notificaciones`.*\n\t\t\t\t\t\n\t\t\t\t\tFROM\n\t\t\t\t\t\t`seguimiento_notificaciones` `seguimiento_notificaciones` \n\t\t\t\t\t\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud` \n\t\t\t\t\t\t\tON `seguimiento_notificaciones`.`numero_solicitud` = \n\t\t\t\t\t\t\t`creditos_solicitud`.`numero_solicitud` \n\t\t\t\t\t\t\t\tINNER JOIN `socios_general` `socios_general` \n\t\t\t\t\t\t\t\tON `seguimiento_notificaciones`.`socio_notificado` = \n\t\t\t\t\t\t\t\t`socios_general`.`codigo` \n\t\t\t\t\tWHERE\n\t\t\t\t\t\t(`seguimiento_notificaciones`.`numero_notificacion` =0)\n\t\t\t\t\t\tAND\n\t\t\t\t\t\t(`seguimiento_notificaciones`.`socio_notificado` >={$socio_inicial}) \n\t\t\t\t\t\tAND\n\t\t\t\t\t\t(`seguimiento_notificaciones`.`socio_notificado` <={$socio_final})";
$rsnoa = mysql_query($sql_set, cnnGeneral());
while ($rws = mysql_fetch_array($rsnoa)) {
echo getRawHeader();
?>
<p class='bigtitle'>RECORDATORIO DE PAGO</p>
<br />
<div class='numc'>
<table width="60%" >
<tr>
<td><?php
echo $rws["codigo"];
?>
</td>
</tr>
<tr>
<td><?php
function SearchRecord($filter)
{
$limit_find = 5;
$n_type = gettype($filter);
if ($n_type == "string") {
$filter = "'%{$filter}%'";
} else {
$filter = "'%{$filter}%'";
}
$sql = "SELECT * FROM operaciones_recibostipo WHERE idoperaciones_recibostipo LIKE {$filter} LIMIT 0,{$limit_find}";
$rs = mysql_query($sql, cnnGeneral());
$tds = "";
while ($row = mysql_fetch_array($rs)) {
$tds = $tds . "<tr> \r\n\r\n\t\t\t\t\t<td><strong onclick='accion_click(" . $row["idoperaciones_recibostipo"] . "); ff_2651169204622cb80ec4b28ac12285ac(); '>" . $row["idoperaciones_recibostipo"] . "</strong></td>\r\n\t\t\t\t\t<td>{$row['1']}</td> \r\n\r\n\t\t\t</tr> \r\n ";
}
@mysql_free_result($rs);
return "<div id='i_lst'>\r\n\t\t<table border='1'> \r\n {$tds} </table>\r\n\t\t</div>\r\n\t\t";
}
function setExport($FechaInicial = false, $FechaFinal = false)
{
$wByFi = $FechaInicial == false ? "" : " WHERE fecha_de_alta>='{$FechaInicial}' ";
$wByFf = $FechaFinal == false ? "" : " AND fecha_de_alta<='{$FechaFinal}' ";
$sucursal = getSucursal();
$arrTipos = array("AD" => "A", "AA" => "B", "PD" => "C", "PA" => "D", "CD" => "E", "CA" => "F", "RD" => "G", "RA" => "H", "OD" => "K", "OA" => "L", "ED" => "I", "EA" => "J");
//safe => Compaq
$arrMayor = array("3" => "1", "4" => "2", "1" => "3", "2" => "4");
//3 safe mayor
$WriteText = "F 00000000000000\r\n";
//cuenta de flujo de efectivo
$sql = "SELECT numero, equivalencia, nombre, tipo, ctamayor, afectable, centro_de_costo, fecha_de_alta, digitoagrupador \r\n \t\t\tFROM contable_catalogo {$wByFi} {$wByFf} \r\n \t\t\tORDER BY numero\r\n \t\t\t";
$rs = mysql_query($sql, cnnGeneral());
if (!$rs) {
//Codigo de Control de Error
saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sql);
}
//$WriteText .= "$sql\r\n";
while ($rw = mysql_fetch_array($rs)) {
//XXX: Si el titulo asignar 0 a superior
//$WriteText .= "C ";
//CompAQi
$WriteText .= "C ";
//$WriteText .= substr(str_pad($rw["numero"], 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= substr(str_pad($rw["numero"], 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= substr(str_pad(trim($rw["nombre"]), 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
$WriteText .= substr(str_pad("", 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
//cuenta superior, mod a 30. compaqi
//$WriteText .= substr(str_pad( cuenta_superior( $rw["numero"] ), 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= $rw["ctamayor"] == 1 ? substr(str_pad(cuenta_superior("0"), 30, " ", STR_PAD_RIGHT), 0, 30) : substr(str_pad(cuenta_superior($rw["numero"]), 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= $arrTipos[$rw["tipo"]];
$WriteText .= " ";
$WriteText .= "0 ";
//Baja
$WriteText .= $arrMayor[$rw["ctamayor"]];
$WriteText .= " ";
$WriteText .= "0 ";
$WriteText .= date("Ymd", strtotime($rw["fecha_de_alta"]));
$WriteText .= " ";
//Actualizacion ContPAQi
$WriteText .= "81 ";
//Sistema de Origen
$WriteText .= " 1 ";
//Moneda
$WriteText .= " 0 ";
//Digito Agrupador
$WriteText .= "0 ";
//Segmento de Negocio
$WriteText .= "0 ";
//Mvto.Segmento de Negocio
$WriteText .= "\r\n";
//$WriteText .= "01 01 0000 000\r\n";
}
$nombre = "{$sucursal}-catalogo-contable-" . date("Ymd", strtotime(fechasys())) . "-" . rand(0, 1000) . "";
$xFile = new cFileLog($nombre);
$xFile->setWrite($WriteText);
$xFile->setClose();
return $xFile->getLinkDownload($nombre);
}
/**
* Obtiene telefonos en una Array
* @return array
*/
function getTelefonos()
{
$socio = $this->mCodigo;
$mArrTelefonos = array();
$sql = "SELECT\n\t\t\t\t\tTRIM(`socios_vivienda`.`telefono_residencial`) AS 'telefono'\n\t\t\t\tFROM\n\t\t\t\t\t`socios_vivienda` `socios_vivienda`\n\t\t\t\tWHERE\n\t\t\t\t\t(`socios_vivienda`.`socio_numero` ={$socio})\n\t\t\t\tUNION\n\t\t\t\tSELECT\n\t\t\t\t\tTRIM(`socios_vivienda`.`telefono_movil`)\n\t\t\t\tFROM\n\t\t\t\t\t`socios_vivienda` `socios_vivienda`\n\t\t\t\tWHERE\n\t\t\t\t\t(`socios_vivienda`.`socio_numero` ={$socio})";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$mArrTelefonos[] = $rw["telefono"];
}
$mArrTelefonos["principal"] = $this->mTelefonoP;
return $mArrTelefonos;
}
$msgD .= "SOCIO\tSDOSAFE\tSDOCW\tDIFERENCIA\tCUENTA1\tSDO1\tCUENTA2\tSDO2\r\n";
switch ($TipoDeImportacion) {
case "credito":
//carga ultimas fechas de saldos
//Sql Creditos
$sqlCreds = "SELECT\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`numero_socio`,\n\t\t\t\t\t\t\t\t\t\tSUM(`creditos_solicitud`.`saldo_actual`) AS 'saldo',\n\t\t\t\t\t\t\t\t\t\tSUM(`creditos_solicitud`.`saldo_conciliado`) AS 'saldo_al_corte'\n\t\t\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud` `creditos_solicitud`\n\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`estatus_actual` != 50 \n\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`numero_socio`\n\t\t\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`numero_socio`,\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`saldo_actual` ";
$rsC = mysql_query($sqlCreds, cnnGeneral());
while ($rwC = mysql_fetch_array($rsC)) {
$aCreditos[$rwC["numero_socio"]] += $cT->cFloat($rwC[$arrComp[$TipoDeComparacion]], 2);
//$msg .= "SAFE\tSocio: " . $rwC["numero_socio"] . " Saldo: " . $rwC["saldo_actual"] . " \r\n";
}
@mysql_free_result($rsC);
break;
case "ahorro":
$sqlCreds = "SELECT\n\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`numero_socio`,\n\t\t\t\t\t\t\t\t\t\tSUM(`captacion_cuentas`.`saldo_cuenta`) AS `saldo`, \n\t\t\t\t\t\t\t\t\t\tSUM(`captacion_cuentas`.`saldo_conciliado`) AS 'saldo_al_corte'\n\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t`captacion_cuentas` `captacion_cuentas` \n\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`numero_socio` ";
$rsC = mysql_query($sqlCreds, cnnGeneral());
while ($rwC = mysql_fetch_array($rsC)) {
$aCaptacion[$rwC["numero_socio"]] += $cT->cFloat($rwC[$arrComp[$TipoDeComparacion]], 2);
//$msg .= "SAFE\tSocio: " . $rwC["numero_socio"] . " Saldo: " . $rwC["saldo_actual"] . " \r\n";
}
@mysql_free_result($rsC);
break;
}
for ($i = 0; $i <= $lim; $i++) {
if (isset($usrFiles[$i]) == true) {
//Obtener Extension
$DExt = explode(".", substr($usrFiles[$i]['name'], -6));
$mExt = trim($DExt[1]);
if ($mExt == "csv") {
$completePath = $prePath . $usrFiles[$i]['name'];
if (file_exists($completePath) == true) {
function getListadoDeGrupoParaGuardar($solicitud, $socio)
{
$xNot = new cHNotif();
$xCred = new cCredito($solicitud, $socio);
$xCred->initCredito();
$DCred = $xCred->getDatosDeCredito();
$OConv = $xCred->getOProductoDeCredito();
$grupo = $xCred->getClaveDeGrupo();
$body = "";
$elements = 0;
$avisos = "";
if ($OConv->getEsProductoDeGrupos() == true) {
$body .= "<p class='aviso'>SE HA DETECTADO QUE ESTE CREDITO ES DEL GRUPO {$grupo}</p>";
$xGrp = new cGrupo($grupo);
$DPlan = $xGrp->getDatosDePlaneacionInArray();
$recibo = $DPlan["idoperaciones_recibos"];
$presidenta = $xGrp->getRepresentanteCodigo();
$tds = "";
if (isset($recibo)) {
$body .= "<p class='aviso'>SE CARGAN DATOS DE LA PLANEACION # {$recibo}</p>";
$sql = "SELECT\n\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado`,\n\t\t\t\t\t`socios_general`.`codigo`,\n\t\t\t\t\tCONCAT(`socios_general`.`apellidopaterno`, ' ',\n\t\t\t\t\t`socios_general`.`apellidomaterno`, ' ',\n\t\t\t\t\t`socios_general`.`nombrecompleto`) AS 'nombre',\n\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'monto',\n\t\t\t\t\t`operaciones_mvtos`.`detalles`\n\t\t\t\tFROM\n\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\tINNER JOIN `socios_general` `socios_general`\n\t\t\t\t\t\tON `operaciones_mvtos`.`socio_afectado` = `socios_general`.`codigo`\n\t\t\t\tWHERE\n\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` =112) AND\n\t\t\t\t\t(`operaciones_mvtos`.`recibo_afectado` ={$recibo})";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["codigo"];
$tds .= "\n\t\t\t\t\t\t\t<tr id=\"tr-{$grupo}-{$socio}\">\n\t\t\t\t\t\t\t\t<th>" . $socio . " <input type=\"hidden\" id=\"socio-{$grupo}-{$socio}\" value=\"" . $socio . "\" /></th>\n\t\t\t\t\t\t\t\t<td>" . htmlentities($rw["nombre"]) . "</td>\n\t\t\t\t\t\t\t\t<td><input type=\"text\" id=\"monto-{$grupo}-{$socio}\" value=\"" . $rw["monto"] . "\" class='mny' onchange=\"jsUpdateAutorizacion();\" maxlength=\"20\" /></td>\n\t\t\t\t\t\t\t\t<td><input type=\"text\" id=\"detalles-{$grupo}-{$socio}\" value=\"" . htmlentities($rw["detalles"]) . "\" maxlength=\"60\" /></td>\n\t\t\t\t\t\t\t</tr>";
$elements++;
}
$body .= "<fieldset>\n\t\t\t\t\t\t\t<legend>| GUARDAR DATOS DE LA AUTORIZACION POR GRUPO |</legend>\n\t\t\t\t\t\t\t\t<table width='100%' align='center'>\n\t\t\t\t\t\t\t<th>Socio(a)</th>\n\t\t\t\t\t\t\t<th>Nombre Completo</th>\n\t\t\t\t\t\t\t<th>Monto Autorizado</th>\n\t\t\t\t\t\t\t<th>Observaciones</th>\n\t\t\t\t\t\t\t\t\t<tbody>\n\t\t\t\t\t\t\t\t\t\t{$tds}\n\t\t\t\t\t\t\t\t\t</tbody>\n\t\t\t\t\t\t\t\t\t<th colspan='4'><a class='button' id='icmdGoGroup' onclick='jsSavePlaneacion({$elements})'>Guardar Autorizacion Grupal y Enviar Autorizacion</a></th>\n\t\t\t\t\t\t\t\t</table>\n\t\t\t\t\t\t\t</fieldset>";
//Crear el recibo
$fecha = fechasys();
$oficial = elusuario($_SESSION["SN_b80bb7740288fda1f201890375a60c8f"]);
$xRec = setNuevorecibo($presidenta, $solicitud, $fecha, 1, 40, "CREDITO_DE_GRUPO_ELABORADO_POR_{$oficial}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, $grupo);
$body .= "<p class='aviso'>Se Crea el Recibo # {$xRec} para Trabajar</p>";
if (isset($_SESSION["recibo_en_proceso"])) {
$body .= "<p class='aviso'>Se Ha Liberado el Recibo # " . $_SESSION["recibo_en_proceso"] . " para Trabajar con # {$xRec}</p>";
unset($_SESSION["recibo_en_proceso"]);
}
$_SESSION["recibo_en_proceso"] = $xRec;
}
} else {
//XXX: COOOOOOOOOOOOOOOOOOOOOOOOOOOREGIR
$body .= $xNot->get("Credito Sin problemas<input type='hidden' id='idesautorizado' />");
}
$body .= $avisos;
return $body;
}
function jsGetCreditosByCriteria($convenio, $estatus, $periocidad, $oficial)
{
$ByConvenio = "";
$ByEstatus = "";
$ByPeriocidad = "";
$ByOficial = "";
$ByInclude = "";
if ($estatus != "todas") {
$ByEstatus = " AND\n\t\t(`creditos_solicitud`.`estatus_actual` = {$estatus}) ";
}
if ($oficial != "todas") {
$ByOficial = "\tAND\n\t(`creditos_solicitud`.`oficial_credito` = {$oficial})";
}
if ($convenio != "todas") {
$ByConvenio = "\t AND\n\t(`creditos_solicitud`.`tipo_convenio` ={$convenio}) ";
}
if ($periocidad != "todas") {
$ByPeriocidad = " AND (`creditos_solicitud`.`periocidad_de_pago` ={$periocidad})";
}
$sqlCred = "SELECT\n\t`socios_general`.`codigo`,\n\tCONCAT(\n\t\t`socios_general`.`apellidopaterno`, ' ',\n\t\t`socios_general`.`apellidomaterno`, ' ',\n\t\t`socios_general`.`nombrecompleto`\n\t\t)\tAS 'nombre',\n\t`creditos_solicitud`.`grupo_asociado`,\n\t`creditos_solicitud`.`contrato_corriente_relacionado`,\n\n\t`creditos_solicitud`.`numero_solicitud`,\n\t`creditos_solicitud`.`tipo_convenio`,\n\t`creditos_solicitud`.`fecha_ministracion`,\n\t`creditos_solicitud`.`fecha_vencimiento`,\n\t`creditos_solicitud`.`pagos_autorizados`,\n\t`creditos_solicitud`.`saldo_actual`,\n\t`creditos_solicitud`.`monto_parcialidad` ,\n\t`creditos_solicitud`.`ultimo_periodo_afectado`,\n\t`creditos_solicitud`.`tasa_ahorro`,\n\t`creditos_solicitud`.`periocidad_de_pago`\nFROM\n\t`socios_general` `socios_general`\n\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud`\n\t\tON `socios_general`.`codigo` = `creditos_solicitud`.`numero_socio`\nWHERE\n\t(`creditos_solicitud`.`saldo_actual` >=" . TOLERANCIA_SALDOS . ")\n\t{$ByEstatus}\n\t{$ByInclude}\n\t{$ByPeriocidad}\n\t{$ByConvenio}\n\t{$ByOficial}\n\t";
$rs = mysql_query($sqlCred, cnnGeneral());
$tds = "";
$xTbl = "";
$ix = 0;
$SqlConv = "SELECT\n\t\t\t\t\t\t\t`creditos_tipoconvenio`.`idcreditos_tipoconvenio`,\n\t\t\t\t\t\t\t`creditos_tipoconvenio`.`descripcion_tipoconvenio`\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`creditos_tipoconvenio` `creditos_tipoconvenio`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`creditos_tipoconvenio`.`idcreditos_tipoconvenio` !=99) ";
$SConvenio = new cSelect("c-{$ix}-conv", "i-{$ix}-conv", $SqlConv);
$SConvenio->setEsSql();
while ($rw = mysql_fetch_array($rs)) {
//Informacion del credito
$socio = $rw["codigo"];
$nombre = htmlentities($rw["nombre"]);
$credito = $rw["numero_solicitud"];
$grupo = $rw["grupo_asociado"];
$contrato = $rw["contrato_corriente_relacionado"];
$convenio = $rw["tipo_convenio"];
$ministrado = $rw["fecha_ministracion"];
$vencimiento = $rw["fecha_vencimiento"];
$pagos = $rw["pagos_autorizados"];
$saldo = $rw["saldo_actual"];
$parcialidad = $rw["monto_parcialidad"];
$periodo = $rw["ultimo_periodo_afectado"];
$tasa_ahorro = $rw["tasa_ahorro"];
$vperiocidad = $rw["periocidad_de_pago"];
$Cred = new cCredito($credito, $socio);
//opciones Especiales
$CtrlGroup = "hidden";
$CtrlAhorro = "text";
$CtrlPeriocidad = "text";
//Convenio
$SConvenio->setOptionSelect($convenio);
$SConvenio->addEvent("onchange", "markMe", $ix);
$iConv = $SConvenio->show();
$DConv = $Cred->getDatosDeProducto($convenio);
$clase_grupal = $DConv["tipo_de_integracion"];
$OConv = $Cred->getOProductoDeCredito($convenio);
//Variaciones de los controles
if ($OConv->getEsProductoDeGrupos() == true) {
$CtrlGroup = "text";
}
if ($tasa_ahorro == 0) {
$CtrlAhorro = "hidden";
}
if ($vperiocidad == 360) {
$CtrlPeriocidad = "hidden";
}
$tds .= "<tr>\n\t\t\t\t\t\t<td><input type='hidden' id='i-{$ix}-soc' name='c-{$ix}-soc' value='{$socio}' />{$socio}</td>\n\t\t\t\t\t\t<td>{$nombre}</td>\n\t\t\t\t\t\t<td><input type='hidden' id='i-{$ix}-cred' name='c-{$ix}-cred' value='{$credito}' />{$credito}</td>\n\t\t\t\t\t\t<td><input type='{$CtrlGroup}' id='i-{$ix}-grup' name='c-{$ix}-grup' value='{$grupo}' size='3' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlAhorro}' id='i-{$ix}-capt' name='c-{$ix}-capt' value='{$contrato}' size='10' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td>{$iConv}</td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-fminis' name='c-{$ix}-fminis' value='{$ministrado}' size='10' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-fvenc' name='c-{$ix}-fvenc' value='{$vencimiento}' size='10' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlPeriocidad}' id='i-{$ix}-pagos' name='c-{$ix}-pagos' value='{$pagos}' size='3' class='mny' /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-saldo' name='c-{$ix}-saldo' value='{$saldo}' size='12' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='text' id='i-{$ix}-parc' name='c-{$ix}-parc' value='{$parcialidad}' size='10' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<td><input type='{$CtrlPeriocidad}' id='i-{$ix}-per' name='c-{$ix}-per' value='{$periodo}' size='3' class='mny' onchange=\"markMe({$ix})\" /></td>\n\t\t\t\t\t\t<th><input type=\"checkbox\" id=\"chk-{$ix}\" /></th>\n\t\t\t\t\t</tr>";
$ix++;
}
$xTbl = "<table width='100%'>\n\t\t\t\t<tr>\n\t\t\t\t\t<th>Socio</th>\n\t\t\t\t\t<th>Nombre</th>\n\t\t\t\t\t<th>Num.<br/>Solicitud</th>\n\t\t\t\t\t<th>Grupo</th>\n\t\t\t\t\t<th>Contrato<br />de Ahorro</th>\n\t\t\t\t\t<th>Convenio</th>\n\t\t\t\t\t<th>Ministracion</th>\n\t\t\t\t\t<th>Vencimiento</th>\n\t\t\t\t\t<th>Pagos</th>\n\t\t\t\t\t<th>Saldo</th>\n\t\t\t\t\t<th>Parcialidad</th>\n\t\t\t\t\t<th>#Letra</th>\n\t\t\t\t\t<th></th>\n\t\t\t\t</tr>\n\t\t\t\t<tbody>\n\t\t\t\t\t{$tds}\n\t\t\t\t</tbody>\n\t\t\t\t</table>\n\t\t\t\t<input type='hidden' name='cCount' id='idCount' value = '{$ix}' />";
return $xTbl;
}
function setDelete($NewUser = false)
{
$NewUser = $NewUser == false ? getUsuarioActual() : $NewUser;
$OldUser = $this->mCodeUser;
$sqlST = "SHOW TABLES IN " . MY_DB_IN;
$rs = getRecordset($sqlST, cnnGeneral());
$msg = "============= \tCAMBIANDO DATOS DEL USUARI {$OldUserO} AL USUARIO {$NewUser}\r\n";
while ($rw = mysql_fetch_array($rs)) {
$table = $rw[0];
$sqlMT = "UPDATE {$table} SET idusuario = {$NewUser} WHERE idusuario = {$OldUser} ";
$x = my_query($sqlMT);
$msg .= $x["info"];
}
return $msg;
}
function setCuadrarCuentasByMvtos($forzar = "NO")
{
$force = strtoupper($forzar);
/**
* Actualiza los saldos de la cuenta de captacion
*/
$msg = "==============\tACTUALIZANDO SALDOS DE CUENTAS DE CAPTACION\t========\r\n";
$msg .= "==============\tCHECANDO CUENTAS A LA VISTA\t\t========\r\n";
$sqlChck = "SELECT\n\t\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`numero_socio`,\n\t\t\t\t\t\t`captacion_cuentas`.`tipo_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`fecha_apertura`,\n\t\t\t\t\t\n\t\t\t\t\t\t`captacion_cuentas`.`tipo_subproducto`,\n\t\t\t\t\t\t\n\t\t\t\t\t\n\t\t\t\t\t\tROUND(SUM( (`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) ),2) AS 'saldo_obtenido',\n\t\t\t\t\t\tMAX( `operaciones_mvtos`.`fecha_afectacion` ) AS 'fecha'\n\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\t\t\tINNER JOIN `captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\tON `operaciones_mvtos`.`docto_afectado` = `captacion_cuentas`.\n\t\t\t\t\t\t\t`numero_cuenta`\n\t\t\t\tWHERE\n\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 3100)\n\t\t\t\tAND\n\t\t\t\t(`captacion_cuentas`.`tipo_cuenta` = " . CAPTACION_TIPO_VISTA . ")\n\t\t\t\tGROUP BY\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`\n\t\t\t\tORDER BY\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`\n\t\t\t\t\t";
$rs = mysql_query($sqlChck, cnnGeneral());
if (!$rs) {
$msg .= date("H:i:s") . "\tERROR : EL SISTEMA DEVOLVIO : " . mysql_error() . "\r\n";
}
//nuevo
if ($force == "SI") {
$sqlDef = "UPDATE captacion_cuentas SET saldo_cuenta=0 WHERE (`captacion_cuentas`.`tipo_cuenta` = 10)";
my_query($sqlDef);
$msg .= date("H:i:s") . "\tFORZAR: El sistema ha forzado el saldo a Cero\r\n";
}
while ($rw = mysql_fetch_array($rs)) {
$xT = new cTipos();
$socio = $rw["numero_socio"];
$cuenta = $rw["numero_cuenta"];
$saldo = $xT->cFloat($rw["saldo_cuenta"], 2);
$NSaldo = $xT->cFloat($rw["saldo_obtenido"], 2);
$NFecha = $rw["fecha"] == "0000-00-00" ? $rw["fecha_apertura"] : $rw["fecha"];
$tipo = $rw["tipo_cuenta"];
$subproducto = $rw["tipo_subproducto"];
if ($tipo == 10) {
if ($saldo != $NSaldo or $force == "SI") {
$diferencia = round($saldo - $NSaldo, 2);
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tDIFERENCIA {$diferencia}\t Saldo {$saldo}, Saldo por MVTOS {$NSaldo}, Fecha : {$NFecha} \r\n";
//Actualizar la Cuenta al Obtenido
//XXX: 1.- Cambiar Tasa de Calculo
$tasa = setNoMenorQueCero(obtentasa($NSaldo, CAPTACION_TIPO_VISTA, 0, $subproducto));
$sqlUS = "UPDATE captacion_cuentas\n\t\t\t\t\t\t\t\t\t\tSET saldo_cuenta={$NSaldo},\n\t\t\t\t\t\t\t\t\t\t\tfecha_afectacion = '{$NFecha}',\n\t\t\t\t\t\t\t\t\t\ttasa_otorgada={$tasa}\n\t\t\t\t\t\t\t\t\t\t\tWHERE numero_cuenta={$cuenta}";
$x = my_query($sqlUS);
if ($x["stat"] == false) {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\\ERROR : EL SISTEMA DEVOLVIO . " . $x["error"] . "\r\n";
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tSUCESS\tActualizacion Satisfactoria al Monto de {$NSaldo}, de un saldo inicial de {$saldo}\r\n";
}
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tSIN CONTINGENCIAS\t NO HAY DIFERENCIAS\tSaldo {$saldo}\r\n";
}
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tNO_APP\tLa Cuenta es INVERSION tiene un Saldo de {$saldo} y uno por MVTOS de {$NSaldo}\r\n";
}
}
unset($rw);
unset($rs);
//====================================================================================================================================================================================================
$msg .= "============== CHECANDO CUENTAS DE INVERSION\t\t========\r\n";
$sqlChck = "SELECT\n\t\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`numero_socio`,\n\t\t\t\t\t\t`captacion_cuentas`.`tipo_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta`,\n\t\t\t\t\t\t`captacion_cuentas`.`fecha_apertura`,\n\t\t\t\t\t\t`captacion_cuentas`.`inversion_fecha_vcto`,\n\t\t\t\t\t\t`captacion_cuentas`.`dias_invertidos`,\n\t\t\t\t\t\n\t\t\t\t\t\t`captacion_cuentas`.`tipo_subproducto`,\n\t\t\t\t\t\n\t\t\t\t\t\tROUND(SUM( (`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) ),2) AS 'saldo_obtenido',\n\t\t\t\t\t\tMAX( `operaciones_mvtos`.`fecha_afectacion` ) AS 'fecha'\n\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\t\t\tINNER JOIN `captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\tON `operaciones_mvtos`.`docto_afectado` = `captacion_cuentas`.\n\t\t\t\t\t\t\t`numero_cuenta`\n\t\t\t\tWHERE\n\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 3200)\n\t\t\t\tAND\n\t\t\t\t(`captacion_cuentas`.`tipo_cuenta` = " . CAPTACION_TIPO_PLAZO . ")\n\t\t\t\tGROUP BY\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`\n\t\t\t\tORDER BY\n\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`\n\t\t\t\t\t";
$rs = mysql_query($sqlChck, cnnGeneral());
if (!$rs) {
$msg .= date("H:i:s") . "\tERROR : EL SISTEMA DEVOLVIO : " . mysql_error() . "\r\n";
}
//nuevo
if ($force == "SI") {
$sqlDef = "UPDATE captacion_cuentas SET saldo_cuenta=0 WHERE (`captacion_cuentas`.`tipo_cuenta` = 20)";
my_query($sqlDef);
$msg .= date("H:i:s") . "\tFORZAR: El sistema ha forzado el saldo a Cero\r\n";
}
while ($rw = mysql_fetch_array($rs)) {
$xT = new cTipos();
$socio = $rw["numero_socio"];
$cuenta = $rw["numero_cuenta"];
$saldo = $xT->cFloat($rw["saldo_cuenta"], 2);
$NSaldo = $xT->cFloat($rw["saldo_obtenido"], 2);
$NFecha = $rw["fecha"] == "0000-00-00" ? $rw["inversion_fecha_vcto"] : $rw["fecha"];
$tipo = $rw["tipo_cuenta"];
$dias = $rw["dias_invertidos"];
if ($tipo == 20) {
if ($saldo != $NSaldo or $force == "SI") {
$diferencia = round($saldo - $NSaldo, 2);
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tDIFERENCIA {$diferencia}\t Saldo {$saldo}, Saldo por MVTOS {$NSaldo}, Fecha : {$NFecha} \r\n";
//Actualizar la Cuenta al Obtenido
//XXX: 1.- Cambiar Tasa de Calculo
$tasa = setNoMenorQueCero(obtentasa($NSaldo, CAPTACION_TIPO_PLAZO, $dias));
$sqlUS = "UPDATE captacion_cuentas\n\t\t\t\t\t\t\t\t\t\tSET saldo_cuenta={$NSaldo},\n\t\t\t\t\t\t\t\t\t\t\tfecha_afectacion = '{$NFecha}',\n\t\t\t\t\t\t\t\t\t\ttasa_otorgada={$tasa}\n\t\t\t\t\t\t\t\t\t\t\tWHERE numero_cuenta={$cuenta} ";
$x = my_query($sqlUS);
if ($x["stat"] == false) {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\\ERROR : EL SISTEMA DEVOLVIO . " . $x["error"] . "\r\n";
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tSUCESS\tActualizacion Satisfactoria al Monto de {$NSaldo}, de un saldo inicial de {$saldo}\r\n";
}
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tSIN CONTINGENCIAS\t NO HAY DIFERENCIAS\tSaldo {$saldo}\r\n";
}
} else {
$msg .= date("H:i:s") . "\t{$socio}\t{$cuenta}\tNO_APP\tLa Cuenta es ORDINARIA tiene un Saldo de {$saldo} y uno por MVTOS de {$NSaldo}\r\n";
}
}
//====================================================================================================================================================================================================
return $msg;
}
function setFinalizar($ForzarSumas = false)
{
//Forzar Sumas S/N
$ajuste = 0;
$msg = "";
$xT = new cTipos();
$this->mTotalCargos = $xT->cFloat($this->mTotalCargos, 2);
$this->mTotalAbonos = $xT->cFloat($this->mTotalAbonos, 2);
if (setNoMenorQueCero($this->mTotalAbonos + $this->mTotalAbonos) <= 0) {
$msg .= "ELIMINAR\tPOLIZA SIN MOVIMIENTOS\r\n";
$this->setDeletePoliza();
} else {
if ($this->mTotalCargos > $this->mTotalAbonos) {
$ajuste = $this->mTotalCargos - $this->mTotalAbonos;
$this->addMovimiento(CUENTA_DE_CUADRE, 0, $ajuste, "Ajuste {$ajuste}");
$msg .= "CUADRE\tABONO\tSe Ajustan los Abonos por {$ajuste}\r\n";
} elseif ($this->mTotalCargos < $this->mTotalAbonos) {
$ajuste = $this->mTotalAbonos - $this->mTotalCargos;
$this->addMovimiento(CUENTA_DE_CUADRE, $ajuste, 0, "Ajuste {$ajuste}");
$msg .= "CUADRE\tCARGO\tSe ajustan los Cargos por {$ajuste}\r\n";
}
$totalCargos = $this->mTotalCargos;
$totalAbonos = $this->mTotalAbonos;
if ($this->mReestructurarEfvo == true) {
//reestructurar la poliza
//obtener el listado de cambio de afectacion por suma
//agregar una cuenta global por sum
//eliminar las otras cuentas
//$arrEfvo;
//FIXME: Componer
$xCEfvo = new cCuentaContable(CUENTA_CONTABLE_EFECTIVO);
$ExtraM = $xCEfvo->getMayor();
$sqlRF = "SELECT\n\t\t\t\t\t\t\t\t\t\t`contable_movimientos`.`numerocuenta` AS `NCuenta`,\n\t\t\t\t\t\t\t\t\t\t`contable_movimientos`.`tipomovimiento` AS `TMvto`,\n\t\t\t\t\t\t\t\t\t\tSUM(`contable_movimientos`.`importe`) AS `TImporte`,\n\t\t\t\t\t\t\t\t\t\tMAX(`contable_movimientos`.`fecha`) AS `FechaM`,\n\t\t\t\t\t\t\t\t\t\tSUM(`contable_movimientos`.`cargo`) AS `cargos`,\n\t\t\t\t\t\t\t\t\t\tSUM(`contable_movimientos`.`abono`) AS `abonos`\n\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t`contable_movimientos` `contable_movimientos` \n\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`ejercicio` = " . $this->mEjercicioPoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`periodo` = " . $this->mPeriodoPoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`tipopoliza` =" . $this->mTipoDePoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`numeropoliza` =" . $this->mNumeroDePoliza . ")\n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`numerocuenta` LIKE \"{$ExtraM}%\")\n\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t`contable_movimientos`.`numerocuenta`,\n\t\t\t\t\t\t\t\t\t\t`contable_movimientos`.`tipomovimiento` ";
//$msg .= "$sqlRF\r\n";
$rsNV = mysql_query($sqlRF, cnnGeneral());
while ($r1 = mysql_fetch_array($rsNV)) {
$mCuenta = $r1["NCuenta"];
$mTMvto = $r1["TMvto"];
$mTMonto = $r1["TImporte"];
$mFecha = $r1["FechaM"];
$mCargos = $r1["cargos"];
$mAbonos = $r1["abonos"];
$sqlDM = "DELETE FROM `contable_movimientos` WHERE\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`ejercicio` = " . $this->mEjercicioPoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`periodo` = " . $this->mPeriodoPoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`tipopoliza` =" . $this->mTipoDePoliza . ") \n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`numeropoliza` =" . $this->mNumeroDePoliza . ")\n\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t(`contable_movimientos`.`numerocuenta` = {$mCuenta} ) AND `contable_movimientos`.`tipomovimiento` = {$mTMvto} ";
my_query($sqlDM);
//$msg .= "$sqlDM\r\n";
$msg .= $this->addMovimiento($mCuenta, $mCargos, $mAbonos, "", "RST");
}
}
$arrUp = array("cargos" => $totalCargos, "abonos" => $totalAbonos);
$msg .= $this->setUpdatePoliza($arrUp);
}
$this->mMessages .= $msg;
return $msg;
}
" rel="stylesheet" type="text/css">
<body onLoad="initComponents();">
<?php
} else {
$filename = $_SERVER['SCRIPT_NAME'];
$filename = str_replace(".php", "", $filename);
$filename = str_replace("rpt", "", $filename);
$filename = str_replace("-", "", $filename);
$filename = "{$filename}-" . date("YmdHi") . "-from-" . $iduser . ".xls";
header("Content-type: application/x-msdownload");
header("Content-Disposition: attachment; filename={$filename}");
header("Pragma: no-cache");
header("Expires: 0");
}
$sql = "SELECT *\n FROM captacion_cuentas\nWHERE\n\t(`captacion_cuentas`.`tipo_cuenta` !=20) AND\n\t(`captacion_cuentas`.`saldo_cuenta` >0) ";
$rs = mysql_query($sql, cnnGeneral());
echo "<table>";
while ($rw = mysql_fetch_array($rs)) {
$a = $rw["numero_socio"];
$b = $rw["numero_cuenta"];
$c = $rw["fecha_afectacion"];
$d = $rw["fecha_apertura"];
$e = $rw["dias_invertidos"];
$f = $rw["tasa_otorgada"] * 100;
$g = $rw["saldo_cuenta"];
$h = $rw["saldo_cuenta"] * $rw["tasa_otorgada"] * $rw["dias_invertidos"] / EACP_DIAS_INTERES;
$i = 0;
$j = 0;
$k = 0;
$l = 0;
echo "\n\t\t\t<tr>\n\t\t\t\t<td>{$a}</td>\n\t\t\t\t<td>{$b}</td>\n\t\t\t\t<td>{$c}</td>\n\t\t\t\t<td>{$d}</td>\n\t\t\t\t<td>{$e}</td>\n\t\t\t\t<td>{$f}</td>\n\t\t\t\t<td>{$g}</td>\n\t\t\t\t<td>{$h}</td>\n\t\t\t\t<td>{$i}</td>\n\t\t\t\t<td>{$j}</td>\n\t\t\t\t<td>{$k}</td>\n\t\t\t</tr>";
/**
* lleva el nombre de la sucursales a minusculas por todas la tablas de la BD
* @return string Texto de los resultados de las consultas
* */
function setLowerSucursal()
{
$sqlST = "SHOW TABLES IN " . MY_DB_IN;
$rs = mysql_query($sqlST, cnnGeneral());
$msg = "============= \tREPARANDO DATOS DE SUCURSAL \r\n";
while ($rw = mysql_fetch_array($rs)) {
$table = $rw[0];
$sqlMT = "UPDATE {$table} SET sucursal = LCASE(sucursal) ";
$x = my_query($sqlMT);
$msg .= $x["info"];
}
return $msg;
}