$observaciones = mifila($sqlrec, "observacion_recibo");
//
$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);
}
$_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>
<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}\");'>";
$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>
$foliofiscal = $_POST["foliofiscal"];
$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
$idsocio = $_POST["idsocio"];
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;
?>
";
}
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 = "";
echo "<p class='aviso'>FALTA EL NUMERO DE PERSONA</p>";
}
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()
function setCredito($credito)
{
$this->mDocumento = $credito;
$xFDE = new cFecha();
$xLng = new cLang();
$cCred = new cCredito($credito);
$cCred->init();
$idsolicitud = $credito;
$DCred = $cCred->getDatosDeCredito();
$DProd = $cCred->getOProductoDeCredito();
$OOParam = new cProductoDeCreditoOtrosDatosCatalogo();
$numero_de_socio = $cCred->getClaveDePersona();
$this->mPersona = $numero_de_socio;
$cSoc = new cSocio($numero_de_socio);
$cSoc->init();
$svar_info_cred = "";
$tblInfCred = new cFicha(iDE_CREDITO, $idsolicitud);
$this->setPersona($numero_de_socio);
$svar_info_cred = $tblInfCred->show(true);
//Lista de Beneficiados
$lst_beneficiados = "";
$this->getListadoDeAvales($idsolicitud);
$SQLCBen = "SELECT `socios_relacionestipos`.`descripcion_relacionestipos` AS 'relacion', `socios_relaciones`.`nombres`,\t`socios_relaciones`.`apellido_paterno`,\t`socios_relaciones`.`apellido_materno`,\n\t\t\t`socios_consanguinidad`.`descripcion_consanguinidad` AS 'consaguinidad'\n\t\t\tFROM `socios_relaciones` `socios_relaciones` INNER JOIN `socios_consanguinidad` `socios_consanguinidad` ON `socios_relaciones`.`consanguinidad` = `socios_consanguinidad`.`idsocios_consanguinidad`\n\t\t\tINNER JOIN `socios_relacionestipos` `socios_relacionestipos` ON `socios_relaciones`.`tipo_relacion` = `socios_relacionestipos`.`idsocios_relacionestipos`\n\t\t\tWHERE (`socios_relaciones`.`socio_relacionado` ={$numero_de_socio}) AND (`socios_relaciones`.`credito_relacionado` ={$idsolicitud})\tAND\t(`socios_relaciones`.`tipo_relacion`=11)";
$tblCBen = new cTabla($SQLCBen);
$lst_beneficiados = $tblCBen->Show();
$firmas_de_avales = $this->mFirmasAvales;
// $cSoc->getCoResponsables("firmas", "avales", $idsolicitud );
//Plan de Pago segun SQL
$splan_pagos = $cCred->getPlanDePago(OUT_HTML, true, true);
//==================================================================================
$fichas_de_avales = $this->mFichasAvales;
//$cCred->getAvales_InText();
$fecha_larga_de_documento = $xFDE->getFechaLarga($cCred->getFechaDeMinistracion());
$fichas_de_respsolidarios = "";
//TODO: FALTA
//Otros Datos
$monto_ministrado = $cCred->getMontoAutorizado();
$tasa_interes_mensual_ordinario = round($cCred->getTasaDeInteres() / 12 * 100, 2);
$tasa_interes_anual_ordinario = $cCred->getTasaDeInteres();
$fecha_de_vencimiento = $cCred->getFechaDeVencimiento();
$fecha_de_ministracion = $cCred->getFechaDeMinistracion();
$tasa_garantia_liquida = $DCred["porciento_garantia_liquida"] * 100;
$monto_garantia_liquida = $monto_ministrado * $tasa_garantia_liquida;
$tasa_interes_mensual_moratorio = round($cCred->getTasaDeMora() / 12 * 100, 2);
$dias_del_credito = $cCred->getDiasAutorizados();
$meses_del_credito = sprintf("%02d", ceil($dias_del_credito / 30.416666666666668));
$periocidad = $cCred->getPeriocidadDePago();
//Tipo de Credito por SQL
$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 WHERE 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"];
$domicilio_rep_social = domicilio($codigo_rep_social);
$tabla_asociadas = "";
$lista_asociadas = "";
$tasa_de_cat = $cCred->getCAT();
$DPeriocidad = new cPeriocidadDePago($cCred->getPeriocidadDePago());
$DPeriocidad->init();
$monto_con_interes = "";
$monto_con_interes_letras = "";
if ($DCred["grupo_asociado"] != DEFAULT_GRUPO) {
$SQL_get_grupo = "SELECT `socios_general`.`codigo`, CONCAT(`socios_general`.`nombrecompleto`, ' ', `socios_general`.`apellidopaterno`, ' ', `socios_general`.`apellidomaterno`) AS 'nombre_completo'\n\t\t\t\t\t\t\t\t\tFROM `socios_general` `socios_general` WHERE (`socios_general`.`grupo_solidario` =" . $DCred["grupo_asociado"] . ")";
$rsg = getRecordset($SQL_get_grupo);
while ($rwt = mysql_fetch_array($rsg)) {
$lista_asociadas .= ", " . $rwt["nombre_completo"];
}
}
if (EACP_INCLUDE_INTERES_IN_PAGARE == true) {
if ($periocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$monto_con_interes = $cCred->getMontoAutorizado() + $cCred->getInteresDiariogenerado() * $cCred->getDiasAutorizados();
} else {
$sqlInt = "SELECT `operaciones_mvtos`.`docto_afectado`, `operaciones_mvtos`.`tipo_operacion`, COUNT(`operaciones_mvtos`.`idoperaciones_mvtos`) AS `mvtos`,\n\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real` *\t`eacp_config_bases_de_integracion_miembros`.`afectacion`) AS 'monto'\n\t\t\t\t\tFROM `operaciones_mvtos` `operaciones_mvtos` INNER JOIN `eacp_config_bases_de_integracion_miembros`\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `eacp_config_bases_de_integracion_miembros`.`miembro` WHERE (`operaciones_mvtos`.`docto_afectado` = {$idsolicitud})\n\t\t\t\t\tAND (`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 2601)\n\t\t\t\t\tGROUP BY `operaciones_mvtos`.`docto_afectado`, `eacp_config_bases_de_integracion_miembros`.`codigo_de_base`\n\t\t\t\t\tORDER BY `eacp_config_bases_de_integracion_miembros`.`codigo_de_base`, `operaciones_mvtos`.`fecha_afectacion`, `operaciones_mvtos`.`socio_afectado`\t";
$xF = obten_filas($sqlInt);
$monto_con_interes = $xF["monto"];
}
$monto_con_interes_letras = convertirletras($monto_con_interes);
$monto_con_interes = getFMoney($monto_con_interes);
}
$this->mArr["variable_informacion_del_credito"] = $cCred->getFicha();
//"variable_lista_de_beneficiados" => $lst_beneficiados,
$this->mArr["variable_tipo_de_credito"] = $tipo_de_credito;
$this->mArr["variable_monto2_ministrado_con_intereses_en_letras"] = $monto_con_interes_letras;
$this->mArr["variable_monto2_ministrado_con_intereses"] = $monto_con_interes;
$this->mArr["variable_monto_ministrado"] = getFMoney($monto_ministrado);
$this->mArr["variable_tasa_mensual_de_interes_ordinario"] = $tasa_interes_mensual_ordinario;
$this->mArr["variable_credito_fecha_de_vencimiento"] = $xFDE->getFechaMediana($fecha_de_vencimiento);
$this->mArr["variable_monto_garantia_liquida"] = getFMoney($monto_garantia_liquida);
$this->mArr["variable_tasa_mensual_de_interes_moratorio"] = $tasa_interes_mensual_moratorio . "";
$this->mArr["variable_tasa_de_garantia_liquida"] = $tasa_garantia_liquida . "";
$this->mArr["variable_plan_de_pagos"] = $splan_pagos;
$this->mArr["variable_docto_fecha_larga_actual"] = $fecha_larga_de_documento;
$this->mArr["variable_nombre_de_la_representante_social"] = $nombre_rep_social;
$this->mArr["variable_listado_de_integrantes"] = $lista_asociadas;
$this->mArr["variable_nombre_de_la_vocal_de_vigilancia"] = $nombre_voc_vigila;
$this->mArr["variable_nombre_del_grupo_solidario"] = $nombre_del_grupo;
$this->mArr["variable_domicilio_de_la_representante_social"] = $domicilio_rep_social;
$this->mArr["variable_meses_de_duracion_del_credito"] = $meses_del_credito;
$this->mArr["variable_en_letras_monto_ministrado"] = convertirletras($monto_ministrado);
$this->mArr["variable_credito_fecha_de_ministracion"] = $xFDE->getFechaCorta($fecha_de_ministracion);
$this->mArr["variable_tasa_cat"] = $tasa_de_cat;
$this->mArr["variable_credito_periocidad"] = $DPeriocidad->getNombre();
$this->mArr["variable_credito_monto_parcialidad_fija"] = getFMoney($cCred->getMontoDeParcialidad());
$this->mArr["variable_credito_numero_de_pagos"] = $cCred->getPagosAutorizados();
$this->mArr["variable_tasa_anual_de_interes_moratorio"] = $cCred->getTasaDeInteres() * 2 * 100 . "%";
$this->mArr["variable_tasa_anual_de_interes_ordinario"] = $cCred->getTasaDeInteres() * 100 . "%";
//sobreescribir datos de la empresa
$xEmp = new cEmpresas($cCred->getClaveDeEmpresa());
$xEmp->init();
$this->mArr["variable_nombre_de_la_empresa"] = $xEmp->getNombre();
$this->mArr["variable_nombre_de_empresa"] = $xEmp->getNombre();
$this->mArr["variable_fecha_de_primer_pago"] = $xFDE->getFechaMediana($cCred->getFechaPrimeraParc());
$this->mArr["variable_avales_en_fichas"] = $fichas_de_avales;
$this->mArr["variable_firmas_de_avales"] = $firmas_de_avales;
$this->mArr["variable_avales_autorizacion_central_riesgo"] = $this->mFichaRiesgoAv;
$this->mArr["variable_fecha_ultimo_abono"] = $xFDE->getFechaLarga($cCred->getFechaUltimaParc());
$this->mArr["variable_fecha_de_primer_abono"] = $xFDE->getFechaMediana($cCred->getFechaPrimeraParc());
//$this->mArr["variable_fecha_de_primer_abono"] =
$this->mArr["variable_en_letras_tasa_mensual_de_interes_moratorio"] = convertirletras_porcentaje($tasa_interes_mensual_moratorio);
$this->mArr["variable_lista_de_avales_con_domicilio"] = $this->mLAvalesConDir;
/*variable_aval1_nombre_completo variable_aval1_domicilio_completo variable_aval1_domicilio_localidad variable_aval1_domicilio_municipio*/
//Cargar Avales
$this->mArr["variable_listado_de_garantias"] = $this->getListadoDeGarantias();
//$this->mArr["variable_modalidad_de_credito"] = $cCred->getOEstado()
$this->mArr["variable_estado_de_credito"] = $cCred->getOEstado()->descripcion_estatus()->v(OUT_TXT);
//$this->mArr["variable_credito_num_de_pago_actual"] = $cCred->getPeriodoActual();
$this->mArr["variable_contrato_id_legal"] = $DProd->getOtrosParametros($OOParam->CONTRATO_ID_LEGAL);
$this->mArr["variable_producto_comision_apertura"] = $DProd->getOtrosParametros($OOParam->TASA_DE_COMISION_AP);
}
</head>
<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`";
}
$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 >
/**
* 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;
}
}
