//Agregar convenios
$xTListaCreds = new cTabla($xql->getListadoDeCreditos($idsocio), 2);
$xTListaCreds->OButton("TR.Panel", "jsGoToPanelCredito(" . HP_REPLACE_ID . ")", $xTListaCreds->ODicIcons()->CONTROL);
$xHTabs->addTab("TR.Creditos", $xTListaCreds->Show());
//agregar cuenta de ahorro
$xTListaCapt = new cTabla($xql->getListadoDeCuentasDeCapt($idsocio));
$xHTabs->addTab("TR.Captacion", $xTListaCapt->Show());
//Actualizar Descuentos
$xDiv2 = new cHDiv("inv", "iddivdescuento");
$xFRM10 = new cHForm("frmdescuento");
$xFRM10->addSubmit("", "jsGuardarDescuento()", "jsCancelarAccion()");
$xFRM10->OMoneda("iddescuento", 0, "TR.Monto");
//======================================== AML
/*Validacion*/
if (MODO_DEBUG == true) {
$xHTabs->addTab("TR.Validacion", $xSoc->getValidacion(OUT_HTML));
}
$xDiv2->addHElem($xFRM10->get());
$oFrm->addHTML($xHTabs->get());
$oFrm->addHTML($xDiv2->get());
$oFrm->OHidden("idsocio", $idsocio);
$oFrm->OHidden("idmodificado", "");
$oFrm->OHidden("idcantidad", "0");
$oFrm->addFooterBar(" ");
echo $oFrm->get();
}
?>
</body>
<script>
var mSocio = <?php
echo $idsocio === false ? "0" : $idsocio;
$msg .= "================== REESTRUCTURANDO SALDOS DE INTERESES EN CREDITOS\r\n ";
$msg .= "================== USUARIO: {$oficial} \r\n ";
//Actualiza los Intereses Devengados y Pagados, asi como los no pagados en base a los movimientos que tengan.
//lleva a cero los registros
$xCUtils = new cUtileriasParaCreditos();
$msg .= $xCUtils->setAcumularIntereses($Forzar);
break;
case 858:
$validar = strtolower($id);
$sqlSocs = "SELECT\n\t\t\t\t\t\t\t\t`socios_general`.*\n\t\t\t\t\t\t\tFROM\n\t\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`.`estatusactual` !=20) ";
$rs = mysql_query($sqlSocs, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$xSoc = new cSocio($rw["codigo"]);
$xSoc->init($rw);
//$DSoc = $xSoc->
$msg .= $xSoc->getValidacion();
}
break;
case 859:
$clx = new cCajaLocal(99);
$msg .= $clx->setReestablecerNumeracion();
break;
//Creditos.- Elimina Movimientos Estadisticos de Creditos Pagados
//Creditos.- Elimina Movimientos Estadisticos de Creditos Pagados
case 860:
//Construir la Array de Letras
$EsSucursal = strtolower($id);
$EnDetalle = strtolower($id2);
$Avisar = strtolower($id3);
$xSI = new cMigracionSIBANCS();
$msg .= $xSI->setCrearLetras($EsSucursal, $EnDetalle, $Avisar);
