<tr>
<td>Observaciones</td>
<td colspan="3"><input type="text" size="40" maxlength="50" name="cObservaciones" id="idObservaciones" /></td>
</tr>
</table>
<input type="button" name="sendme" value="ENVIAR RECONVENIO DE CREDITO" onClick="frmSubmit();">
<p class="aviso">Este Modulo no cuenta con asignacion automatica de criterios, verifique los datos antes de enviarlo</p>
</form>
</fieldset>
<?php
} elseif (isset($action) && $action == "i") {
$idsolicitud = $_POST["idsolicitud"];
$idsocio = $_POST["idsocio"];
//if($idsocio
$mFCred = new cFicha(iDE_CREDITO, $idsolicitud);
$mFCred->setTableWidth();
$mFCred->show();
//---------------------------------------------------
$monto = $_POST["monto"];
$tasa = $_POST["tasa"];
$fechaconv = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$periocidad = $_POST["periocidad"];
$pagos = $_POST["pagos"];
$interesNoPag = $_POST["intereses"];
$observaciones = $_POST["cObservaciones"];
$cCred = new cCredito($idsolicitud, $idsocio);
$cCred->initCredito();
$cCred->setReconvenido($monto, $interesNoPag, $tasa, $periocidad, $pagos, $observaciones, $fechaconv);
$urlDMA = "c={$idsolicitud}&s={$idsocio}&o={$interesNoPag}&i=420";
echo "<p class='aviso'>EL RECONVENIO SE REGISTRO SATISFACTORIAMENTE</p>\n\t\t<input type='button' name='miplan' value='GENERAR PLAN DE PAGOS' onClick='generarplan(\"{$urlDMA}\");'>";
}
//
$sql_d_mvto = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=500 ";
$sql_d_inv = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=223 ";
$sql_d_ide = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\tfecha_operacion = '{$fechaRecibo}'\n\t\t\t\t\t\tAND docto_afectado = {$docto}\n\t\t\t\t\t\tAND tipo_operacion=235 ";
$xInv = new cCuentaInversionPlazoFijo($docto, $idsocio);
$dcuentas = $xInv->getDatosInArray();
$dmvto = obten_filas($sql_d_mvto);
$dInv = obten_filas($sql_d_inv);
$dIDE = obten_filas($sql_d_ide);
//
$iSocio = new cFicha(iDE_SOCIO, $idsocio);
$iSocio->setTableWidth();
$iSocio->show();
echo "<hr />";
$cInv = new cFicha(iDE_CINVERSION, $docto);
$cInv->setTableWidth();
$cInv->show();
?>
<hr />
<?php
$tasa = getFMoney($dcuentas["tasa_otorgada"] * 100);
$interes = getFMoney($dmvto["afectacion_real"]);
//$capital = getFMoney($dInv["afectacion_real"]);
$capital = getFMoney($dcuentas["saldo_cuenta"]);
$dias = $dcuentas["dias_invertidos"];
$isr = getISRByInversion($dcuentas["saldo_cuenta"], $dias);
$isr = round($isr, 2);
$ide = $dIDE["afectacion_real"];
//$ide = 0;
$aliquidar = $dInv["afectacion_real"] + $dmvto["afectacion_real"] - ($isr + $ide);
$vencimiento = $dcuentas["inversion_fecha_vcto"];
$idsocio = $_POST["idsocio"];
$fecha = fechasys();
$iddocto = $idsolicitud;
//===================================================================================================
$cRec = new cReciboDeOperacion(15, true, false);
$cRec->setGenerarBancos();
$cRec->setGenerarPoliza();
$cRec->setGenerarTesoreria();
$idrecibo = $cRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, 15, $observaciones, $cheque, $comopago, $foliofiscal);
$cRec->setNuevoMvto($fecha, $monto, 351, 1, $observaciones, 1, TM_ABONO, $idsocio);
//IVA
$cRec->setNuevoMvto($fecha, $iva, 151, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->addMvtoContableByTipoDePago($montooperacion, TM_CARGO);
$cRec->setFinalizarRecibo(true);
$cfSocio = new cFicha(iDE_SOCIO, $idsocio);
$cfSocio->setTableWidth();
$cfSocio->show();
echo $cRec->getFicha();
echo $msg_rec_end;
// actualiza el interes Anticipado del Credito
$sqlica = "UPDATE creditos_solicitud\n\t\tSET sdo_int_ant=(sdo_int_ant + ({$monto}))\n\t\tWHERE numero_solicitud={$idsolicitud}";
my_query($sqlica);
//
}
?>
</body>
<script >
var wFrm = document.frminteresant;
function printrec() {
var elUrl= "../frmextras/frmrecibodepago.php?recibo=<?php
echo $idrecibo;
$_SESSION["current_file"] = addslashes($theFile);
//=====================================================================================================
$xHP = new cHPage("TR.Credit Scoring", HP_FORM);
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
//$persona = parametro("i");
$xHP->init();
?>
<fieldset>
<legend>Credit Scoring V 0.9</legend>
<?php
if ($persona != DEFAULT_SOCIO) {
$action = $_GET["a"];
$cFSoc = new cFicha(iDE_SOCIO, $persona);
$cFSoc->setTableWidth();
$cFSoc->show();
if (isset($action) and $action == "1") {
//Capturar el resultado del Scoring
$xTyp = new cTipos();
} else {
?>
<form name="credit_scoring" method="post" action="frmscoring_de_creditos.php?a=1&i=<?php
echo $persona;
?>
">
<fieldset>
<legend>Cuestionario Complemetario para Integrar el Scoring</legend>
<table>
<tbody>
<tr>
if ($f16 == "yes") {
$solo_con_saldos = " AND saldo_actual > 0 ";
}
$sqlcred = "SELECT numero_socio, numero_solicitud,\tsaldo_actual, monto_autorizado\tFROM creditos_solicitud\tWHERE\n\t\tnumero_solicitud={$idsolicitud}\t{$solo_con_saldos}\tORDER BY fecha_vencimiento DESC";
if ($idsolicitud) {
$idsocio = mifila($sqlcred, "numero_socio");
}
$NCreditos = 0;
//
if ($id) {
$sqlcred = "SELECT numero_socio, numero_solicitud, saldo_actual, monto_autorizado FROM creditos_solicitud WHERE numero_socio={$id} {$solo_con_saldos} ORDER BY fecha_ministracion, fecha_vencimiento DESC";
$idsocio = $id;
$porSocio = true;
}
$cF = new cFicha(iDE_SOCIO, $idsocio);
$cF->setTableWidth();
$cF->show();
echo "<hr />";
$mycred = getRecordset($sqlcred);
while ($rwc = mysql_fetch_array($mycred)) {
$solicitud = $rwc["numero_solicitud"];
$NCreditos++;
$cFC = new cCredito($solicitud);
$cFC->initCredito();
$cFC->setForceVista($ExtInf);
$sdoTemp = $cFC->getSaldoActual();
echo $cFC->getFicha(true, "");
$MontoAutorizado = $rwc["monto_autorizado"];
echo "<hr />";
$where = "";
if ($f15 == "yes") {
$interes = $_POST["interes"];
$idministrado = $_POST["idministrado"];
$idpago = $_POST["idpago"];
$montooriginal = $_POST["montooriginal"];
$aportsocial = $montoaport * EACP_TASA_RESERVA;
$aportvol = $montoaport - $aportsocial;
$cheque = $_POST["cheque"];
$comopago = $_POST["ctipo_pago"];
$foliofiscal = $_POST["foliofiscal"];
$fecha = fechasys();
$cRec = new cReciboDeOperacion(5, false);
//$cRec->setGenerarBancos();
$cRec->setGenerarPoliza();
$cRec->setGenerarTesoreria();
$idrecibo = $cRec->setNuevoRecibo($idsocio, DEFAULT_CREDITO, $fecha, 1, 5, $observaciones, $cheque, $comopago, $foliofiscal, $idgrupo);
$cRec->setNuevoMvto($fecha, $aportvol, 702, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->setNuevoMvto($fecha, $aportsocial, 710, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->addMvtoContableByTipoDePago($totalcuotas, TM_CARGO);
$cRec->setFinalizarRecibo(true);
//PolizaPorRecibo($idrecibo);
$cFicha = new cFicha(iDE_SOCIO, $idsocio);
$cFicha->setTableWidth();
$cFicha->show();
echo $cRec->getFicha(true);
echo $msg_rec_end;
echo $cRec->getJsPrint(true);
}
?>
</body>
</html>
if (!isset($idsolicitud) or !isset($idsocio) or $montoop <= 0) {
echo "<p class='aviso'>AGREGE UN NUMERO DE SOLICITUD. \n\n\t\t si sabe a Que Parcialidad afectara, indique el Numero\n\t\t</p>";
} else {
$ulper = $_POST["idparcialidad"];
$idparcialidad = $_POST["idparcialidad"];
$iva = $_POST["iva_cargado"];
//$idsocio = mifila($sqlvs, "numero_socio");
$observaciones = $_POST["observaciones"];
$fecha = fechasys();
$cRec = new cReciboDeOperacion(97);
$recibo = $cRec->setNuevoRecibo($idsocio, $idsolicitud, $fecha, $idparcialidad, 97, $observaciones);
$cRec->setDefaultEstatusOperacion(40);
$cRec->setNuevoMvto($fecha, $montoop, 601, $idparcialidad, $observaciones);
$cRec->setNuevoMvto($fecha, $iva, 1202, $idparcialidad, $observaciones);
$mSoc = new cFicha(iDE_SOCIO, $idsocio);
$mSoc->setTableWidth();
$mSoc->show();
$cRec->setFinalizarRecibo(true);
$cRec->getFicha();
echo "<p class='aviso'>EL MONTO DEL CARGO FUE DE: \$ " . getFMoney($montoop) . ", SE PODRA DISMUIR DESDE EL MODULO DE DESCUENTOS</p>";
echo $msg_rec_end;
}
?>
</body>
<script >
function printrec() {
var elUrl= "../rpt_formatos/frmrecibogeneral.php?recibo=<?php
echo $recibo;
?>
";
rptrecibo = window.open( elUrl, "window");
}
if (!$idsol) {
echo "<p class='aviso'>FALTA LA SOLICITUD</p>";
}
$estatus = volcartabla("creditos_garantias", 10, "idcreditos_garantias={$idgar}");
if ($estatus == 3) {
echo "<p class='aviso'>LA GARANTIA YA SE HA ENTREGADO</p>";
} elseif ($estatus == 2) {
echo "<p class='aviso'>LA GARANTIA YA SE HA RESGUARDADO ANTERIORMENTE</p>";
} else {
$fresguardo = fechasys();
$sqlug = "UPDATE creditos_garantias SET estatus_actual=2, fecha_resguardo='{$fresguardo}', idusuario={$iduser},\n\tobservaciones_del_resguardo='{$o_res}'\n\t WHERE socio_garantia={$idsoc} AND idcreditos_garantias={$idgar} AND solicitud_garantia={$idsol}";
my_query($sqlug);
}
$x = new cFicha(iDE_SOCIO, $idsoc);
$x->setTableWidth();
$x->show();
minificha(4, $idgar);
echo "<p class='aviso'>EL REGISTRO SE HA HECHO DE FORMA SATISFACTORIA</P>\n\t<p class='aviso'><input type='button' name='btnprint' value='IMPRIMIR RECIBO DE RESGUARDO' onclick='printrecibo();'>\n\t</p>";
}
?>
</body>
<script>
function printrecibo() {
var nURL = "../rpt_formatos/rptreciboresguardo.php?i=<?php
echo $idgar;
?>
";
var killrpt = window.open(nURL, "window");
killrpt.focus()
}
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
<body>
<!-- -->
<?php
echo getRawHeader();
if (!$idsolicitud) {
exit($msg_rpt_exit . $fhtm);
}
$SQLDCred = "SELECT\n\t`creditos_solicitud`.*,\n\t`creditos_tipoconvenio`.*,\n\t`socios_general`.*\nFROM\n\t`creditos_solicitud` `creditos_solicitud`\n\t\tINNER JOIN `socios_general` `socios_general`\n\t\tON `creditos_solicitud`.`numero_socio` =\n\t\t`socios_general`.`codigo`\n\t\t\tINNER JOIN `creditos_tipoconvenio`\n\t\t\t`creditos_tipoconvenio`\n\t\t\tON `creditos_solicitud`.`tipo_convenio` =\n\t\t\t`creditos_tipoconvenio`.\n\t\t\t`idcreditos_tipoconvenio`\nWHERE\n\t(`creditos_solicitud`.`numero_solicitud` ={$idsolicitud})\n\t";
$DCred = obten_filas($SQLDCred);
$numero_de_socio = $DCred["codigo"];
$domicilio_del_socio = domicilio($DCred["codigo"]);
//Info del Credito
$svar_info_cred = "";
$tblInfCred = new cFicha(iDE_CREDITO, $idsolicitud);
$tblInfCred->setTableWidth("80%");
$svar_info_cred = $tblInfCred->show(true);
//Lista de Beneficiados
$lst_beneficiados = "";
$SQLCBen = "SELECT\n\t`socios_relacionestipos`.`descripcion_relacionestipos` AS 'relacion',\n\t`socios_relaciones`.`nombres`,\n\t`socios_relaciones`.`apellido_paterno`,\n\t`socios_relaciones`.`apellido_materno`,\n\t`socios_consanguinidad`.`descripcion_consanguinidad` AS 'consaguinidad'\nFROM\n\t`socios_relaciones` `socios_relaciones`\n\t\tINNER JOIN `socios_consanguinidad`\n\t\t`socios_consanguinidad`\n\t\tON `socios_relaciones`.`consanguinidad` =\n\t\t`socios_consanguinidad`.`idsocios_consanguinidad`\n\t\t\tINNER JOIN `socios_relacionestipos`\n\t\t\t`socios_relacionestipos`\n\t\t\tON `socios_relaciones`.`tipo_relacion` =\n\t\t\t`socios_relacionestipos`.\n\t\t\t`idsocios_relacionestipos`\nWHERE\n\t(`socios_relaciones`.`socio_relacionado` ={$numero_de_socio}) AND\n\t(`socios_relaciones`.`credito_relacionado` ={$idsolicitud})\n\tAND\n\t(`socios_relaciones`.`tipo_relacion`=11)";
$tblCBen = new cTabla($SQLCBen);
$tblCBen->setWidth(80);
$lst_beneficiados = $tblCBen->Show();
//Caja local por SQL
$SQLCL = "SELECT idsocios_cajalocal, descripcion_cajalocal, ultimosocio, region, sucursal\n \t\tFROM socios_cajalocal\n \t\tWHERE\n \t\tidsocios_cajalocal=" . $DCred["cajalocal"];
$caja_local = mifila($SQLCL, "descripcion_cajalocal");
//Tipo de Credito(COMERCIAL, VIVIENDA) por SQL
//Plan de Pago segun SQL
$splan_pagos = "";
$SQLPPagos = "SELECT\n\tDATE_FORMAT(MAX(`operaciones_mvtos`.`fecha_afectacion`),'%d-%m-%Y') AS `fecha`,\n\tSUM(`operaciones_mvtos`.`afectacion_real`) AS `monto`\nFROM\n\t`operaciones_recibos` `operaciones_recibos`\n\t\tINNER JOIN `operaciones_mvtos` `operaciones_mvtos`\n\t\tON `operaciones_recibos`.`idoperaciones_recibos` =\n\t\t`operaciones_mvtos`.`recibo_afectado`\nWHERE\n\t(`operaciones_recibos`.`numero_socio` ={$numero_de_socio}) AND\n\t(`operaciones_recibos`.`docto_afectado` = {$idsolicitud}) AND\n\t(`operaciones_recibos`.`tipo_docto` =11)\nGROUP BY\n\t`operaciones_mvtos`.`periodo_socio`";
$tblPlan = new cTabla($SQLPPagos);
$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>";
}
}
?>
</body>
<script >
function jsGetCuentas(){
/**
* Muestra una Ficha Informativa segun tipo pedido
* @deprecated v 1.9.42 rev 38
*/
function minificha($orden = 1, $filtro, $table, $showimage = "false", $ret = "false")
{
if (!isset($orden)) {
$exoFicha = "----------------NADA QUE MOSTRAR----------";
}
//FICHA DE SOLICITUD
if ($orden == 2) {
$cF = new cFicha(iDE_CREDITO, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
// FICHA GRUPO SOLIDARIO
} elseif ($orden == 3) {
$cF = new cFicha(iDE_GRUPO, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
//FICHA GARANTIA DE CREDITO
} elseif ($orden == 4) {
$cF = new cFicha(iDE_GARANTIA, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
//CUENTAS DE CAPTACION
} elseif ($orden == 5) {
$cF = new cFicha(iDE_CAPTACION, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
//FICHA DE RECIBO
} elseif ($orden == 6) {
$cF = new cFicha(iDE_RECIBO, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
//FICHA DE SOCIO
} else {
$cF = new cFicha(iDE_SOCIO, $filtro);
$cF->setTableWidth();
$exoFicha = $cF->show(true);
}
if ($ret == "true") {
return $exoFicha;
} else {
echo $exoFicha;
}
}
