function setRepararPlanDePagos() { $msg = ""; $msg .= "============= RECONSTRUYENDO LETRAS SISBANCS \r\n"; //Selecciona todo los pagos segun letra, en una base $arrFechas = array(); $arrMontos = array(); $sqlLetras = "SELECT SQL_CACHE\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio`,\n\t\t\t\t\t\t\tMAX(`operaciones_mvtos`.`fecha_afectacion`) AS 'fecha',\n\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS 'monto'\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` = 2003)\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\tGROUP BY\n\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`periodo_socio`\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)) { $arrFechas[$rw["docto_afectado"] . "-" . $rw["periodo_socio"]] = $rw["fecha"]; $arrMontos[$rw["docto_afectado"] . "-" . $rw["periodo_socio"]] = $rw["monto"]; } $fecha_de_migracion = fechasys(); //DELETE FROM sisbancs_amortizaciones WHERE credito = 0 AND parcialidad = 1 $sql = "SELECT\n\t\t\t\t\t\t\t\t`sisbancs_amortizaciones`.*\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`sisbancs_amortizaciones` `sisbancs_amortizaciones` "; $rs = getRecordset($sql); $contar = 0; while ($rw = mysql_fetch_array($rs)) { $credito = $rw["credito"]; $socio = $rw["credito"]; $parcialidad = $rw["parcialidad"]; $vencimiento = $rw["fecha_de_vencimiento"]; $saldo_vigente = $rw["saldo_vigente"]; $saldo_vencido = 0; $interes_vigente = $rw["interes_vigente"]; $interes_vencido = 0; $interes_moratorio = 0; $dias_en_mora = 0; $estatus = $rw["estatus"]; $fecha_de_abono = $rw["fecha_de_abono"]; $iva_normal = 0; $iva_moratorio = 0; $tasa_normal = 0; $tasa_moratorio = 0; $monto_abonado = 0; $saldo_teorico = 0; $DCredito = array(); //TODO: Actualizar sentencia de obtencion de IVA $msg .= "{$contar}\t{$credito}\t{$parcialidad}\t\t=================================================\r\n"; //Actualizar le fecha de Pago if (isset($arrFechas["{$credito}-{$parcialidad}"])) { $fecha_de_abono = $arrFechas["{$credito}-{$parcialidad}"]; $monto_abonado = $arrMontos["{$credito}-{$parcialidad}"]; //Corrige las idioteces de reestructuras if (strtotime($vencimiento) > strtotime($fecha_de_abono)) { $fecha_de_abono = $vencimiento; $msg .= "{$contar}\t{$credito}\t{$parcialidad}\tERROR_DE_FECHA\tLa fecha de abono(" . getFechaMediana($fecha_de_abono) . ") es menor a la de vencimiento " . getFechaMediana($vencimiento) . " \r\n"; } $saldo_teorico = $saldo_vigente - $monto_abonado; $msg .= "{$contar}\t{$credito}\t{$parcialidad}\tFECHA_DE_ABONO\tLa fecha de Abono Existente es " . getFechaMediana($fecha_de_abono) . " y suma de {$monto_abonado} (saldo teorico {$saldo_teorico})\r\n"; } if (strtotime($vencimiento) < strtotime($fecha_de_migracion)) { $msg .= "{$contar}\t{$credito}\t{$parcialidad}\tFECHA_DE_VCTO\tLa Vencimiento (" . getFechaMediana($vencimiento) . ") es Menor a la Fecha de Migracion\r\n"; $estatus = 2; $saldo_vencido = $saldo_vigente; $saldo_vigente = 0; $interes_vencido = $interes_vigente; $interes_vigente = 0; $xCred = new cCredito($credito, $socio); $xCred->init(); $DCredito = $xCred->getDatosDeCredito(); $tasa_moratorio = $DCredito["tasa_moratorio"]; $dias_morosos = setNoMenorQueCero(restarfechas($fecha_de_migracion, $fecha_de_abono)); $interes_moratorio = $saldo_vencido * $dias_morosos * $tasa_moratorio / EACP_DIAS_INTERES; $msg .= "{$contar}\t{$credito}\t{$parcialidad}\tINTERES_MORATORIO\tEl Interes Moratorio es {$interes_moratorio}, por {$dias_morosos} dias en Mora y Capital {$saldo_vencido}\r\n"; } $iva_normal = ($interes_vigente + $interes_vencido) * 0.15; $iva_moratorio = $interes_moratorio * 0.15; $sqlUD = "UPDATE sisbancs_amortizaciones\n\t\t\t\t\t\t\t\t\t\t\t\t SET fecha_de_abono='{$fecha_de_abono}', saldo_vigente={$saldo_vigente},\n\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_vencido={$saldo_vencido}, interes_vigente={$interes_vigente}, interes_vencido={$interes_vencido},\n\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_interes_vencido=0, interes_moratorio={$interes_moratorio}, estatus={$estatus},\n\t\t\t\t\t\t\t\t\t\t\t\t\tiva_interes_normal={$iva_normal}, iva_interes_moratorio={$iva_moratorio}\n\t\t\t\t\t\t\t\t\t\t\t\t WHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\tcredito={$credito}, parcialidad={$parcialidad} "; my_query($sqlUD); $contar++; } return $msg; }
function show($return = false) { $exoFicha = ""; $iNumTools = sizeof($this->mTool); $trTool = ""; $wTable = $this->mTableWidth; if ($iNumTools > 0) { $iTools = ""; foreach ($this->mTool as $key => $value) { $TParts = explode("@", $value); $iImg = $TParts[0]; $iTitle = $TParts[1]; $srcImg = vIMG_PATH . "/common/{$iImg}"; $iTools = $iTools . "<td><img src=\"{$srcImg}\" onclick=\"{$key}(" . $this->mKey . ")\" />{$iTitle}</td>"; } $trTool = "<tr>\r\n\t\t\t<td colspan=\"4\">\r\n\t\t\t<table width=\"100%\">\r\n\t\t\t\t<tbody>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t{$iTools}\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</tbody>\r\n\t\t\t</table>\r\n\t\t\t</td>\r\n\t\t\t</tr>"; } // end iNumTools $cTyp = new cTipos(); switch ($this->mType) { case iDE_SOCIO: //INFO del Socio $cSoc = new cSocio($this->mKey, true); $exoFicha = $cSoc->getFicha($this->mSocioWithDomExt, false, $trTool); unset($cSoc); break; case iDE_CREDITO: // Creditos iDE_CREDITO $cF = new cCredito($this->mKey); $cF->initCredito(); $exoFicha = $cF->getFicha(false, $trTool); unset($cF); break; case 101: //Grupos iDE_GRUPO $cG = new cGrupo($this->mKey); $exoFicha = $cG->getFicha(false, $trTool); unset($cG); break; case iDE_GARANTIA: $sql = "SELECT creditos_garantias.idcreditos_garantias,\r\n\t\t\t\tcreditos_tgarantias.descripcion_tgarantias AS 'Tipo_de_Garantia',\r\n\t\t\t\t creditos_tvaluacion.descripcion_tvaluacion AS 'Tipo_de_Valuacion',\r\n\t\t\t\t creditos_garantias.fecha_recibo AS 'Fecha_de_Recibo',\r\n\t\t\t\t FORMAT(creditos_garantias.monto_valuado, 2) AS 'Monto_valuado',\r\n\t\t\t\t creditos_garantias.fecha_adquisicion AS 'Fecha_de_Adquisicion',\r\n\t\t\t\t creditos_garantias.documento_presentado AS 'Documento_Presentado',\r\n\t\t\t\t creditos_garantias.descripcion AS 'Descripcion',\r\n\t\t\t\t creditos_garantias.propietario AS 'Propietario'\r\n\t\t\t\t FROM creditos_tvaluacion, creditos_garantias, creditos_tgarantias\r\n\t\t\t\t WHERE creditos_tgarantias.idcreditos_tgarantias=creditos_garantias.tipo_garantia\r\n\t\t\t\t AND creditos_tvaluacion.idcreditos_tvaluacion=creditos_garantias.tipo_valuacion\r\n\t\t AND creditos_garantias.idcreditos_garantias=" . $this->mKey; $tool = $trTool; $rwt = obten_filas($sql); $exoFicha = "\r\n\t<table {$wTable} border='0'>\r\n\t<tbody>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Identificador</th><td>{$rwt['0']}</td>\r\n\t\t\t<th class='izq'>Tipo</th><td>{$rwt['1']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Tipo de Valuacion</th><td>{$rwt['2']}</td>\r\n\t\t\t<th class='izq'>Fecha de Resguardo</th><td>{$rwt['3']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Fecha de Adquisicion</th><td>{$rwt['5']}</td>\r\n\t\t\t<th class='izq'>Documento / Factura</th><td>{$rwt['6']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th class='izq'>Monto Valuado</th><td>" . getFMoney($rwt[4]) . "</td>\r\n\t\t\t<th class='izq'>Propietario</th><td>{$rwt['8']}</td>\r\n\t\t</tr>\r\n\t\t<tr>\r\n\t\t\t<th>Descripción</th>\r\n\t\t\t<td>{$rwt['7']}</td>\r\n\t\t</tr>\r\n\t\t{$tool}\r\n\t</tbody>\r\n\t</table>"; break; case 300: //TODO: Change this line.- cambiar por la clase global $sqli = "\r\n\t\t\tSELECT\r\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta`,\r\n\t\t\t\t\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `modalidad`,\r\n\t\t\t\t\t`captacion_subproductos`.`descripcion_subproductos` AS `subproducto`,\r\n\t\t\t\t\t`captacion_cuentas`.`fecha_apertura` AS `fecha_de_apertura`,\r\n\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta` AS `saldo_actual`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_grupo` AS `grupo_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`numero_solicitud` AS `credito_asociado`,\r\n\t\t\t\t\t`captacion_cuentas`.`tasa_otorgada` AS `tasa`,\r\n\t\t\t\t\t`captacion_cuentas`.`observacion_cuenta` AS `observaciones`\r\n\t\t\t\tFROM\r\n\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\r\n\t\t\t\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\r\n\t\t\t\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\r\n\t\t\t\t\t\t`idcaptacion_cuentastipos`\r\n\t\t\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\r\n\t\t\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` = `captacion_subproductos`\r\n\t\t\t\t\t\t\t.`idcaptacion_subproductos`\r\n\t\t\t\tWHERE\r\n\t\t\t\t\t(`captacion_cuentas`.`numero_cuenta` =" . $this->mKey . ")"; $rw = obten_filas($sqli); $exoFicha = "\r\n\t\t\t\t<table width='100%' border='0'>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Numero de Cuenta</th class='mny'><td>" . $rw["numero_cuenta"] . "</td>\r\n\t\t\t\t\t<th class='izq' >Fecha de Apertura</th><td>" . getFechaMediana($rw["fecha_de_apertura"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Modalidad</th><td>" . $rw["modalidad"] . "</td>\r\n\t\t\t\t\t<th class='izq'>Producto</th><td>" . $rw["subproducto"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Tasa Actual</th><td class='mny'>% " . getFMoney($rw["tasa"] * 100) . "</td>\r\n\t\t\t\t\t<th class='izq'>Saldo Actual</th>\r\n\t\t\t\t\t<td class='mny'>" . getFMoney($rw["saldo_actual"]) . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t<tr>\r\n\t\t\t\t\t<th class='izq'>Observaciones</th><td colspan='2'>" . $rw["observaciones"] . "</td>\r\n\t\t\t\t</tr>\r\n\t\t\t\t</table>"; break; case 310: //Depositos a la vista iDE_CVISTA $cCapt = new cCuentaALaVista($this->mKey); $cCapt->init(); $exoFicha = $cCapt->getFicha(false, $trTool); break; case 320: //iDE_CINVERSION $xCI = new cCuentaInversionPlazoFijo($this->mKey); $xCI->init(); $exoFicha = $xCI->getFicha(false, $trTool); break; case 400: //RECIBO DE OPERACION $cRec = new cReciboDeOperacion(99, false, $this->mKey); //$cRec->initRecibo(); $exoFicha = $cRec->getFicha(false, $trTool); unset($cRec); break; default: break; } //retoque fieldset if ($this->mTitle != "") { $this->mTitle = "| " . $this->mTitle . " |"; } $exoFicha = "<fieldset>\r\n\t\t\t\t\t\t<legend>" . $this->mTitle . "</legend>\r\n\t\t\t\t\t\t\t{$exoFicha}\r\n\t\t\t\t\t</fieldset>"; if ($return == true) { return $exoFicha; } else { echo $exoFicha; } }