$recibo = $xCta->setRetiro($monto, $cheque, $comopago, $foliofiscal, $detalles, DEFAULT_GRUPO, $Fecha);
}
} else {
$sucess = false;
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
}
$xFRM->addAviso($msg);
if ($sucess == true) {
//Imprime la Ficha del socio
$xCta->init();
$xSoc = new cSocio($xCta->getClaveDePersona());
$xSoc->init();
$xFRM->addHTML($xSoc->getFicha());
$xFRM->addHTML($xCta->getFicha(true));
$xFRM->addHTML($xCta->getORec()->getFicha(true));
$xFRM->addHTML($xCta->getORec()->getJsPrint(true));
// *****************************************************************************
$xFRM->addPrintRecibo();
$xFRM->addAvisoRegistroOK();
}
}
}
echo $xFRM->get();
?>
</body>
<?php
/*$jsb = new jsBasicForm("retiroahorro", iDE_CAPTACION);
//$jsb->setConCaptacion(true);
$jsb->setTypeCaptacion(CAPTACION_TIPO_VISTA);
if ($tipoDestino == CAPTACION_TIPO_PLAZO) {
$xCDestino = new cCuentaInversionPlazoFijo($cuentaDestino, $socio);
} else {
$xCDestino = new cCuentaALaVista($cuentaDestino, $socio);
}
$xCDestino->init();
$msg .= $xCOrigen->setTraspaso($cuentaDestino, $tipoDestino, $observaciones, $monto);
$ReciboTrasp = $xCOrigen->getReciboDeOperacion();
$msg .= $xCOrigen->getMessages();
$msg .= $xCDestino->getMessages();
//Imprime la Ficha del socio
echo $xSoc->getFicha();
//$cCta->init();
//Imprime la Ficha del Documento
$xCDestino->init();
$fd = $xCDestino->getFicha(true);
$xCOrigen->init();
$fo = $xCOrigen->getFicha(true);
echo "<fieldset><legend>DATOS DEL TRAPASO</legend>\n\t\t\t\tCuenta de Origen:<br />\n\t\t\t\t{$fo}\t\n\t\tCuenta de Destino:<br />\n\t\t{$fd}\n\t\t</fieldset>";
$mRec = new cFicha(iDE_RECIBO, $ReciboTrasp);
$mRec->setTableWidth();
$mRec->show();
// *****************************************************************************
echo "<input type='button' name='btsend' value='IMPRIMIR/VER RECIBO DE TRASPASO' onClick='jsGetComprobanteDeTraspaso();'>";
} else {
$xBtn = new cHButton("");
if (MODO_DEBUG == true) {
$msg .= $xSoc->getMessages("html");
}
echo "<p class='aviso'>{$msg}<br />" . $xBtn->getRegresar() . "</p>";
}
<table width='100%'>
<tr>
<td class='ths'>Numero de cuenta</td><td>$idcuenta</td>
<td class='ths'>Modalidad de la Cuenta</td><td>$tipocuenta</td>
</tr>
<tr>
<td class='ths'>Tasa Actual</td><td>$tasa %</td>
<td class='ths'>Fecha de Apertura</td><td>$rwc[5]</td>
</tr>
<tr>
<td class='ths'>Saldo Actual</td><td>$ $sdoact</td>
<td class='ths'>Fecha de Ult. Afectacion</td><td>$rwc[6]</td>
</tr>
</table>
<hr />";*/
$xRPT->addContent($xCuenta->getFicha(true));
//DAtOS DE LA CUENTA
$sqlMvtos = "SELECT\n\t\t\t`operaciones_mvtos`.*,\n\t\t\t\t(`operaciones_mvtos`.`afectacion_real` *\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) AS 'monto',\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion`\n\t\t\tFROM\n\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\tWHERE\n\t\t\t(`operaciones_mvtos`.`docto_afectado` =" . $idcuenta . ") AND\n\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 3100)\n\n\t\t\tORDER BY\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t`operaciones_mvtos`.`fecha_afectacion`,\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion` DESC\n\t\t\t";
$rsmvto = $xQL->getDataRecord($sqlMvtos);
$xRPT->addContent("<table width='100%' border='0'><tr>\n\t\t<th scope='col'>Fecha Afec.</th>\n\t\t<th scope='col'>Recibo</th>\n\t\t<th scope='col'>Tipo Operacion</th>\n\t\t<th scope='col'>Depositos</th>\n\t\t<th scope='col'>Retiros</th>\n\t\t<th scope='col'>Saldo</th>\n\t\t<th scope='col'>Detalles</th>\n\t</tr>");
$sdo_al_corte = 0;
foreach ($rsmvto as $ryx) {
$tr = "";
$tipoop = eltipo("operaciones_tipos", $ryx["tipo_operacion"]);
$fecha = $ryx["fecha_afectacion"];
$sdo_al_corte += $ryx["monto"];
$detallado = substr($ryx["detalles"], 0, 15);
$oes = "";
if ($ryx["afectacion"] < 0) {
$oes = "<td> </td>\n\t\t\t\t\t\t\t<td class='mny'>" . getFMoney($ryx["afectacion_real"]) . "</td>";
$retiros = $retiros + $ryx["afectacion_real"];
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;
}
}
