$c4Tbl->setKeyField("idsocios_memo");
$c4Tbl->addTool(2);
$xHTabs->addTab($oFrm->lang("NOTAS"), $c4Tbl->Show());
//1
$xHTabs->addTab("TR.DOMICILIO", "");
//2
$xHTabs->addTab(PERSONAS_TITULO_PARTES, "");
//3
$xHTabs->addTab("TR.ACTIVIDAD_ECONOMICA", "");
//tab4
// Tabla de Relacion Patrimonial
$xHTabs->addTab("TR.PATRIMONIO", "");
//tab5?
//=======================================================================
$cnt = "";
$xB = new cBases();
$mems = $xSoc->getEsPersonaFisica() == true ? $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_FISICAS) : $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_MORALES);
$rsDocs = $ql->getDataRecord($xql->getListadoDePersonasDoctos($idsocio));
$xTbl = new cHTabla();
foreach ($rsDocs as $rows) {
$iddocto = $rows["archivo_de_documento"];
$fecha = $xF->getFechaByInt($rows["fecha_de_carga"]);
$xTbl->initRow();
$xTbl->addTD($rows["tipo"]);
$xTbl->addTD($xF->getFechaCorta($fecha));
$xTbl->addTD($xBtn->getBasic($rows["archivo_de_documento"], "var xPers = new PersGen();xPers.getDocumento({persona:{$idsocio}, docto: '" . $rows["archivo_de_documento"] . "'});", $oFrm->ic()->TIPO));
$xTbl->addTD($rows["observaciones"]);
$xTbl->endRow();
}
$xHTabs->addTab("TR.DOCUMENTOS", $xTbl->get());
//tabs
function setVerificarDocumentosCompletos($fecha_de_verificacion = false)
{
$xB = new cBases();
$xSoc = $this->getOPersona();
$mems = $xSoc->getEsPersonaFisica() == true ? $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_FISICAS) : $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_MORALES);
$sql = "SELECT `clave_de_control`, `tipo_de_documento`,`clave_de_persona` FROM `personas_documentacion` WHERE \n\t\t\t\t\t(`clave_de_persona` =" . $this->mClaveDePersona . ") AND (`estado_en_sistema` =" . AML_KYC_DOCTO_ACTIVO . ") ";
$mql = new cPersonas_documentacion();
$tdoctos = new cPersonas_documentacion_tipos();
$TipoDeAlerta = 801005;
$PersonaDeDestino = AML_OFICIAL_DE_CUMPLIMIENTO;
$q = $mql->query()->select();
$q->set($sql);
$data = $q->exec();
$doctos = array();
$msg = "";
foreach ($data as $campos) {
$v = $campos[$mql->tipo_de_documento()->get()];
$doctos[$v] = $v;
//$this->mMessages .= "Agregar " . $doctos[$mql->tipo_de_documento()->get()] . "\r\n";
}
if (MODO_DEBUG == true) {
//$this->mMessages .= $q->log();
}
foreach ($mems as $clave => $valor) {
$tdoctos->setData($tdoctos->query()->initByID($valor));
//var_dump($doctos[$valor]);
if (!isset($doctos[$valor])) {
$msg .= "ERROR\t" . $this->mClaveDePersona . "\tDocumento ({$valor}) " . $tdoctos->nombre_del_documento()->v() . " NO encontrado\r\n";
} else {
$msg .= "OK\t" . $this->mClaveDePersona . "\tDocumento " . $tdoctos->nombre_del_documento()->v() . " encontrado\r\n";
}
}
//TODO: Verificar domicilios
$dv = $xSoc->getODomicilio();
if ($dv == null) {
$msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos de la Vivienda\r\n";
} else {
if ($dv->isInit() == false) {
$msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos de la Vivienda\r\n";
}
}
//TODO. Verificar Actividad Economica
$da = $xSoc->getOActividadEconomica();
if ($da == null) {
$msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos del la Actividad Economica\r\n";
} else {
if ($da->isInit() == false) {
$msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos del Actividad Economica\r\n";
}
}
$this->mMessages .= $msg;
if ($this->mForceAvisos == true) {
//generar aviso
$xAml = new cAML();
$xAml->setForceAlerts(true);
$xAml->sendAlerts(getUsuarioActual(), $PersonaDeDestino, $TipoDeAlerta, $msg);
}
}
$xPlan->init($xCred->getNumeroDePlanDePagos());
$xPlan->setEliminar();
}
if (MODO_CORRECION == true) {
//my_query("DELETE FROM operaciones_mvtos WHERE socio_afectado=$socio AND docto_afectado=$solicitud AND (tipo_operacion=410 OR tipo_operacion=412 OR tipo_operacion=413)");
}
if ($sucess == true) {
$FInteres_normal = new cFormula("interes_normal");
$factor_interes = $xPlan->getFactorIVA($iva_incluido);
$DatosDePagos = array();
if ($xCred->initPagosEfectuados() == true) {
$DatosDePagos = $xCred->getListadoDePagos();
}
//=========================== Corrige el Monto extra de bonificaciones ================================================================
$bonificaciones = 0;
$xB = new cBases(7022);
//base son bonificaciones
$xB->init();
if ($xB->getIsMember($tipo_monto_extra) == true) {
$msg .= "{$socio}\t{$solicitud}\tLa operacion {$tipo_monto_extra} es de Bonificaciones\r\n";
$bonificaciones = round($monto_extra / $PAGOS_AUTORIZADOS, 2);
$monto_extra = 0;
}
//=====================================================================================================================================
$total_ahorro = $monto_autorizado * $tasa_ahorro;
$parcialidad_capital = ($FormaDePago == CREDITO_TIPO_PAGO_INTERES_PERIODICO or $FormaDePago == CREDITO_TIPO_PAGO_INTERES_COMERCIAL) ? 0 : $monto_autorizado / $PAGOS_AUTORIZADOS;
$parcialidad_ahorro = round($total_ahorro / $PAGOS_AUTORIZADOS, 2);
$parcialidad_interes = 0;
$parcialidad_iva = 0;
$parcialidad_cargo = round($monto_extra / $PAGOS_AUTORIZADOS, 2);
$saldo_inicial = 0;
header("Content-type: application/x-msdownload");
header("Content-Disposition: attachment; filename={$filename}");
header("Pragma: no-cache");
header("Expires: 0");
}
$varByFechas = "";
$porSocio = false;
$tInts = 0;
$tCap = 0;
$tOtros = 0;
$tSdos = 0;
//Describe Movimientos de Capital
$BCapital = new cBases(1010);
//Describe Movimientos de Interes
$BInteres = new cBases(1011);
$BIva = new cBases(7021);
$xF = new cFecha();
$xSQL = new cSQLListas();
$ByCredito = $credito != false ? "" : "";
$solo_este_mvto = $f18 == "yes" ? " AND operaciones_mvtos.tipo_operacion={$operacion} " : "";
$SinEstadisticos = " AND operaciones_mvtos.valor_afectacion!=0 AND operaciones_tipos.es_estadistico='0' ";
$solo_con_saldos = " ";
if ($f14 == "yes") {
$SinEstadisticos = "";
}
//if ($f16=="yes"){ $solo_con_saldos = " AND saldo_actual > 0 "; }
$sqlcred = "SELECT numero_socio, numero_solicitud,\tsaldo_actual, monto_autorizado\tFROM creditos_solicitud\tWHERE\tnumero_solicitud={$credito} {$solo_con_saldos}\tORDER BY fecha_vencimiento DESC";
if (isset($credito)) {
$persona = mifila($sqlcred, "numero_socio");
}
$NCreditos = 0;
echo "var DEFAULT_CUENTA_BANCARIA\t= " . DEFAULT_CUENTA_BANCARIA . ";\n";
echo "var FALLBACK_CUENTA_BANCARIA\t= " . FALLBACK_CUENTA_BANCARIA . ";\n";
echo "var FALLBACK_CLAVE_EMPRESA\t= " . FALLBACK_CLAVE_EMPRESA . ";\n";
echo "var SYS_AUTOMATICO\t\t= '" . SYS_AUTOMATICO . "';\n";
echo "var TESORERIA_COBRO_TRANSFERENCIA\t\t= '" . TESORERIA_COBRO_TRANSFERENCIA . "';\n";
echo "var TESORERIA_COBRO_EFECTIVO\t\t= '" . TESORERIA_COBRO_EFECTIVO . "';\n";
echo "var SVC_REMOTE_HOST\t\t= '" . SVC_REMOTE_HOST . "';\n";
echo "var CREDITO_TIPO_DIAS_DE_PAGO_PERSONALIZADOS\t\t= '" . CREDITO_TIPO_DIAS_DE_PAGO_PERSONALIZADOS . "';\n";
echo "var CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO\t\t= " . CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO . ";\n";
echo "var CREDITO_TIPO_PERIOCIDAD_DIARIO\t= " . CREDITO_TIPO_PERIOCIDAD_DIARIO . ";\n";
echo "var TESORERIA_MONTO_MAXIMO_OPERADO\t\t= " . TESORERIA_MONTO_MAXIMO_OPERADO . ";\n";
echo "var CREDITO_TIPO_PAGO_UNICO\t\t= " . CREDITO_TIPO_PAGO_UNICO . ";\n";
echo "var CREDITO_TIPO_PAGO_PERIODICO\t\t= " . CREDITO_TIPO_PAGO_PERIODICO . ";\n";
echo "var DIGITOS_DE_CODIGO_POSTAL\t= " . DIGITOS_DE_CODIGO_POSTAL . ";\n";
echo "var EACP_CLAVE_DE_PAIS\t= \"" . EACP_CLAVE_DE_PAIS . "\";\n";
echo "var CAPTACION_TIPO_PLAZO\t= " . CAPTACION_TIPO_PLAZO . ";\n";
echo "var CAPTACION_ORIGEN_CONDICIONADO\t= " . CAPTACION_ORIGEN_CONDICIONADO . ";\n";
echo "var iDE_CREDITO\t= " . iDE_CREDITO . ";\n";
echo "var iDE_CAPTACION\t= " . iDE_CAPTACION . ";\n";
echo "var iDE_SOCIO\t= " . iDE_SOCIO . ";\n";
echo "var STD_LITERAL_DIVISOR\t= '" . STD_LITERAL_DIVISOR . "';\n";
$xLoc = new cLocal();
echo "var LOCAL_DOMICILIO_CLAVE_ENTIDAD\t= '" . $xLoc->DomicilioEstadoClaveNum() . "';\n";
if (PERSONAS_VIVIENDA_MANUAL == true) {
echo "var PERSONAS_VIVIENDA_MANUAL\t\t= true;\n";
} else {
echo "var PERSONAS_VIVIENDA_MANUAL\t\t= false;\n";
}
$xB = new cBases();
$strA = $xB->getMembers_InString(false, BASE_ES_PERSONA_MORAL);
echo "var ARR_FIGURA_MORAL\t\t= new Array({$strA});\n";
function getEsPersonaFisica()
{
$xB = new cBases(BASE_ES_PERSONA_MORAL);
$this->mMessages .= "PERSONALIDAD LEGAL " . $this->mTipoFiguraJu . "\r\n";
return $xB->getIsMember($this->mTipoFiguraJu) == false ? true : false;
}
function setRecibo($recibo)
{
$xRec = new cReciboDeOperacion(false, false, $recibo);
if ($xRec->init() == true) {
$this->setPersona($xRec->getCodigoDeSocio());
$OTipo = $xRec->getOTipoRecibo();
$origen = $OTipo->getOrigen();
$afectEfvo = $OTipo->getAfectacionEnEfvo();
$xCant = new cCantidad($xRec->getTotal());
$QL = new MQL();
$xF = new cFecha();
$describe = "";
$xCta = null;
$xCred = null;
//Bases de Operaciones de Captacion en Inversiones
$xB3100 = new cBases(3100);
$DB3100 = $xB3100->getMembers_InArray();
$xB3200 = new cBases(3200);
$DB3200 = $xB3200->getMembers_InArray();
switch ($origen) {
case RECIBOS_ORIGEN_MIXTO:
$this->setCredito($xRec->getCodigoDeDocumento());
break;
case RECIBOS_ORIGEN_COLOCACION:
$this->setCredito($xRec->getCodigoDeDocumento());
break;
case RECIBOS_ORIGEN_CAPTACION:
$this->setCuentaDeCaptacion($xRec->getCodigoDeDocumento());
break;
}
$this->mArr["variable_tipo_de_recibo"] = $OTipo->getNombre();
$this->mArr["variable_datos_del_pago"] = $xRec->getDatosDeCobro();
$this->mArr["variable_numero_de_recibo"] = $recibo;
$this->mArr["variable_docto_fecha_larga_actual"] = $xF->getFechaLarga($xRec->getFechaDeRecibo());
$this->mArr["variable_observacion_del_recibo"] = $xRec->getObservaciones();
$this->mArr["variable_monto_del_recibo_en_letras"] = $xCant->letras();
$this->mArr["variable_monto_del_recibo"] = $xCant->moneda();
///$this->mArr["variable_nombre_del_cajero"] = $xRec->getOUsuario()->getNombreCompleto();
$this->mEsRecibo = true;
$this->setUsuario($xRec->getCodigoDeUsuario());
//obtener operaciones
$this->mRecibo = $recibo;
$sqlmvto = "SELECT\n\t\t\t`operaciones_mvtos`.`socio_afectado` AS `numero_de_socio`,\n\t\t\t`operaciones_mvtos`.`docto_afectado` AS `numero_de_documento`,\n\t\t\t`operaciones_mvtos`.`recibo_afectado` AS `numero_de_recibo`,\n\t\t\t`operaciones_mvtos`.`idoperaciones_mvtos` AS `numero_del_movimiento`,\n\t\t\t`operaciones_tipos`.`descripcion_operacion` AS `concepto_del_movimiento`,\n\t\t\t`operaciones_mvtos`.`afectacion_real` AS `monto_del_movimiento`,\n\t\t\t`operaciones_mvtos`.`valor_afectacion` AS `naturaleza_del_movimiento`,\n\t\t\t`operaciones_tipos`.`nombre_corto` \t\t\tAS `concepto_nombre_corto`,\n\t\t\t`operaciones_mvtos`.`periodo_socio` \tAS `parcialidad`,\n\t\t\t`operaciones_mvtos`.`detalles` \t\t\t\tAS `observacion_del_mvto`,\n\t\t\t`operaciones_mvtos`.`tipo_operacion`\t\tAS `tipo_de_movimiento`\n\t\t\tFROM\n\t\t\t`operaciones_mvtos` `operaciones_mvtos`\tINNER JOIN `operaciones_tipos` `operaciones_tipos` ON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.`idoperaciones_tipos`\n\t\t\tWHERE (`operaciones_mvtos`.`recibo_afectado` = {$recibo} ) ORDER BY `operaciones_mvtos`.`afectacion_real` DESC";
$rs = $QL->getDataRecord($sqlmvto);
//destino_del_movimiento
foreach ($rs as $row) {
$rwx = $row;
$tipo = $row["tipo_de_movimiento"];
$docto = $row["numero_de_documento"];
$rwx["monto_del_movimiento"] = getFMoney($row["monto_del_movimiento"] * $row["naturaleza_del_movimiento"] * $afectEfvo);
$rwx["destino_del_movimiento"] = " " . $row["numero_de_documento"];
if (in_array($tipo, $DB3100) == true or in_array($tipo, $DB3200)) {
if ($origen == RECIBOS_ORIGEN_MIXTO) {
//TODO: Cargar datos de la cuenta de captacion y mostrar sus caracteristicas
} else {
//if($xCta == null){ $xCta = new cCuentaDeCaptacion($docto); $xCta->init(); }
$rwx["destino_del_movimiento"] .= "|" . $this->mArr["variable_tipo_de_cuenta"];
}
} else {
$rwx["destino_del_movimiento"] .= "|" . substr($this->mArr["variable_tipo_de_credito"], 0, 5);
$rwx["destino_del_movimiento"] .= "|" . substr($this->mArr["variable_estado_de_credito"], 0, 3);
$rwx["destino_del_movimiento"] .= "|" . $row["parcialidad"] . "/" . $this->mArr["variable_credito_numero_de_pagos"];
}
$this->mDataMvto[] = $rwx;
}
}
}
function setAcumularIntereses($Forzar = false, $credito = false)
{
$msg = "";
$ql = new MQL();
if ($Forzar == true) {
$msg .= "======\t\tActualizacion FORZADA\r\n";
}
$ByWCredito = $credito == false ? "" : " WHERE numero_solicitud={$credito} ";
$sqlACero = "UPDATE creditos_solicitud\n\t\t\t\t\tSET sdo_int_ant=0, interes_normal_devengado=0, interes_normal_pagado=0,\n\t\t\t\t\tinteres_moratorio_devengado=0, interes_moratorio_pagado=0 {$ByWCredito}";
my_query($sqlACero);
$xB = new cBases(0);
$xB->setClave(2200);
$aMorDev = $xB->getBaseMvtosInArray();
$xB->setClave(2210);
$aMorPag = $xB->getBaseMvtosInArray();
$xB->setClave(2100);
$aNorDev = $xB->getBaseMvtosInArray();
$xB->setClave(2110);
$aNorPag = $xB->getBaseMvtosInArray();
$conteo = 1;
$sql = "SELECT * FROM creditos_solicitud {$ByWCredito} ORDER BY saldo_actual, fecha_ministracion";
$rs = $ql->getDataRecord($sql);
//getRecordset($sql);
foreach ($rs as $rw) {
$socio = $rw["numero_socio"];
$solicitud = $rw["numero_solicitud"];
$saldo = $rw["saldo_actual"];
$IntMorDev = isset($aMorDev["{$socio}@{$solicitud}"]) ? round(setNoMenorQueCero($aMorDev["{$socio}@{$solicitud}"]), 2) : 0;
$IntMorPag = isset($aMorPag["{$socio}@{$solicitud}"]) ? round(setNoMenorQueCero($aMorPag["{$socio}@{$solicitud}"]), 2) : 0;
$IntNorDev = isset($aNorDev["{$socio}@{$solicitud}"]) ? round(setNoMenorQueCero($aNorDev["{$socio}@{$solicitud}"]), 2) : 0;
$IntNorPag = isset($aNorPag["{$socio}@{$solicitud}"]) ? round(setNoMenorQueCero($aNorPag["{$socio}@{$solicitud}"]), 2) : 0;
$sdoNorm = round($IntNorDev - $IntNorPag, 2);
$sdoMor = round($IntMorDev - $IntMorPag, 2);
if ($saldo <= TOLERANCIA_SALDOS and $Forzar == false) {
$msg .= "{$conteo}\t{$socio}\t{$solicitud}\tNOTA_INTERES\tCredito Pagado, Saldo {$saldo}, Intereses a Cero\r\n ";
$IntMorDev = 0;
$IntMorPag = 0;
$IntNorDev = 0;
$IntNorPag = 0;
$sdoNorm = 0;
$sdoMor = 0;
}
$sql = "UPDATE creditos_solicitud\n\t\t\t\t\t\t\t\tSET sdo_int_ant=0, interes_normal_devengado={$IntNorDev}, interes_normal_pagado={$IntNorPag},\n\t\t\t\t\t\t\t\tinteres_moratorio_devengado={$IntMorDev}, interes_moratorio_pagado={$IntMorPag}\n\t\t\t\t\t\t\t\tWHERE numero_solicitud={$solicitud} AND numero_socio={$socio} ";
my_query($sql);
$msg .= "{$conteo}\t{$socio}\t{$solicitud}\tINT_NORMAL_C\tDevengado:\t{$IntNorDev}\tPagado:\t{$IntNorPag}\tSaldo\t{$sdoNorm}\r\n ";
if ($IntMorPag != 0 and $IntMorDev != 0) {
$msg .= "{$conteo}\t{$socio}\t{$solicitud}\tINT_MORATORIO\tDevengado:\t{$IntMorDev}\tPagado:\t{$IntMorPag}\tSaldo\t{$sdoMor}\r \r\n ";
}
$conteo++;
}
return $msg;
}
var mSaldoCred = <?php
echo $xCred->getSaldoActual();
?>
;
var desdeAjuste = false;
var mMontoCapital = <?php
echo $mAfectCapital;
?>
;
var mCapitalAmort = 0;
var EsFinalPlazo = <?php
echo $xCred->isAFinalDePlazo() == true ? "true" : "false";
?>
;
<?php
$xB = new cBases(0);
$strGrav = $xB->getMembers_InString(true, BASE_IVA_INTERESES);
$strGrav .= ", 'corriente-1', 'moroso-1', 'vencido-1', 'remanente-1'";
$strOGrav = $xB->getMembers_InString(true, BASE_IVA_OTROS);
if ($tasa_iva <= 0) {
echo "var BaseGravados = new Array();\n";
} else {
echo "var BaseGravados = new Array({$strGrav});\n";
}
echo "var BaseGravadosO = new Array({$strOGrav});\n";
?>
var aIvaCalculado = new Array("id-ivaintereses", "id-ivaotros", "id-413", "id-1201", "id-1202", "id-1203", "id-1204");
var aCapital = new Array("id-410", "id-capital");
//No es efectivo, no causa IVA
function chPendiente(idTrat){
var kID = String(idTrat).split("-", 2);
