$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);