function jsaSetDesvincularPersona($credito, $fecha, $observaciones) { $msg = ""; $xLng = new cLang(); $xCred = new cCredito($credito); $xCred->init(); $xdat = new cFecha(0); $fecha = $xdat->getFechaISO($fecha); $xCred->setResetPersonaAsociada($fecha, $observaciones); $oP = $xCred->getOPersona(); $xEmp = new cEmpresas($xCred->getClaveDeEmpresa()); $xEmp->init(); $xRN = new cReglaDeNegocio(); $xRN->setVariables(array("nombre_de_persona" => $oP->getNombreCompleto(), "mensaje" => $observaciones, "saldo_del_credito" => $xCred->getSaldoActual(), "nombre_de_la_empresa" => $xEmp->getNombreCorto())); $xRN->setExecuteActions($xRN->reglas()->RN_NOMINA_AL_DESVINCULAR); return $xLng->get(MSG_READY_SAVE); }
function getFicha($mark = true, $extraTool = "", $extendido = false, $ConPersona = false) { if ($this->mCreditoInicializado == false) { $this->initCredito(); } $lafila = $this->getDatosDeCredito(); $xL = new cLang(); $solicitud = $this->getNumeroDeCredito(); $convenio = $lafila["descripcion_tipoconvenio"]; $fministracion = $lafila["fecha_ministracion"]; $fvencimiento = $lafila["fecha_vencimiento"]; $periocidad_pago = $lafila["descripcion_periocidadpagos"]; $autorizado = getFMoney($lafila["monto_autorizado"]); $saldo = getFMoney($lafila["saldo_actual"]); $estatus = $lafila["descripcion_estatus"]; $tool = $extraTool; $tasa = getFMoney($lafila["tasa_interes"] * 100); $mora = $lafila["tasa_moratorio"] * 100; $pagos = $lafila["pagos_autorizados"]; $ultimopago = $lafila["ultimo_periodo_afectado"]; $cls = ""; $xD = new cFecha(0); $TasaIVA = $this->getTasaIVA(); $TasaMora = $this->getTasaDeMora(); $trInicial = ""; $cls = "credito-estado-" . $this->getEstadoActual(); $montoParc = getFMoney($this->mMontoFijoParcialidad); $activo = true; if ($ConPersona == true) { $xSoc = $this->getOPersona(); // new cSocio($this->getClaveDePersona(), true); $trInicial = "<tr><th>" . $xL->getT("TR.Persona") . "</th><td>" . $xSoc->getCodigo() . "</td><td colspan='2'>" . $xSoc->getNombreCompleto() . "</td></tr>"; } if ($this->getTipoEnSistema() == CREDITO_PRODUCTO_NOMINA) { if ($this->getClaveDeEmpresa() != DEFAULT_EMPRESA) { $xEmp = new cEmpresas($this->getClaveDeEmpresa()); $xEmp->init(); $convenio = "{$convenio} - " . $xEmp->getNombreCorto(); } else { $convenio = "{$convenio} - ND"; } } $tdSaldo = "<th class='izq'>" . $xL->getT("TR.Saldo Principal") . "</th><td class='mny'>{$saldo}</td>"; $tdMonto = "<th class='izq'>" . $xL->getT("TR.Monto Original") . "</th><td class='mny'>{$autorizado}</td>"; $tdFecha = "<th class='izq'>" . $xL->getT("TR.fecha de desembolso") . "</th><td>" . $xD->getFechaCorta($fministracion) . "</td>"; $tdPagos = $this->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO ? "<td class='mny'>{$ultimopago} de {$pagos} POR \$ {$montoParc}</td>" : "<td class='izq'>UNICO</td>"; $tdVencimiento = "<th class='izq'>" . $xL->getT("TR.Fecha de Vencimiento") . "</th><td>" . $xD->getDayName($fvencimiento) . "; " . $xD->getFechaCorta($fvencimiento) . "</td>"; //Si el Estatus es AUTORIZADO if ($this->getEstadoActual() == CREDITO_ESTADO_AUTORIZADO) { $tdSaldo = ""; $tdFecha = "<th class='izq'>" . $xL->getT("TR.Fecha de Autorizacion") . "</th><td>" . $xD->getFechaCorta($this->getFechaDeAutorizacion()) . "</td>"; $activo = false; $tdPagos = "<td class='mny'>{$pagos}</td>"; } elseif ($this->getEstadoActual() == CREDITO_ESTADO_SOLICITADO) { $tdSaldo = ""; $tdMonto = "<th class='izq'>" . $xL->getT("TR.Monto Solicitado") . "</th><td class='mny'>" . getFMoney($this->getMontoSolicitado()) . "</td>"; $tdFecha = "<th class='izq'>" . $xL->getT("TR.Fecha de Solicitud") . "</th><td>" . $xD->getFechaCorta($this->getFechaDeMinistracion()) . "</td>"; $activo = false; $tdPagos = "<td class='mny'>{$pagos}</td>"; } if ($this->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $fvencimiento = $this->getFechaDeMora(); $tdVencimiento = "<th class='izq'>" . $xL->getT("TR.Fecha de Vencimiento") . "</th><td>" . $xD->getDayName($fvencimiento) . "; " . $xD->getFechaCorta($fvencimiento) . "</td>"; } if ($extendido == true) { $xPP = new cCreditos_destinos(); $xPP->setData($xPP->query()->initByID($this->getClaveDeDestino())); $tdExigible = $activo == false ? "" : "<th class='izq'>" . $xL->getT("TR.Saldo exigible") . "</th><td class='mny'>" . getFMoney($this->getSaldoIntegrado(false, true)) . "</td>"; $oficial = $this->getOOficial()->getNombreCompleto(); $codigo_de_oficial = $this->getClaveDeOficialDeCredito(); $tool = "<tr>\n\t\t\t\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Tasa Anualizada de Moratorio") . "</th><td class='mny'>" . getFMoney($TasaMora * 100) . "%</td>\n\t\t\t\t\t\t\t\t{$tdExigible}</tr>\n\t\t\t\t\t<tr><th class='izq'>" . $xL->getT("TR.Destino del Credito") . "</th><td colspan='3'>" . $xPP->descripcion_destinos()->v() . ": " . $this->mDescripcionDestino . "</td></tr>\n\t\t\t\t\t<tr><th class='izq'>Oficial a Cargo</td><td class='notice' colspan='3'>{$oficial}</td></tr>" . $tool; if ($activo == true) { if ($this->getPeriocidadDePago() != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) { $letra = $this->getPeriodoActual() + 1; $IntAct = $this->getInteresDevengado(fechasys(), $letra, false, true); } else { $IntAct = $this->getInteresDevengado(); } $IntDevNorm = $this->getInteresNormalDevengado(); $IntDevMor = $this->getInteresMoratorioDev(); $IntPerNor = $IntAct[SYS_INTERES_NORMAL]; $IntPerMor = $IntAct[SYS_INTERES_MORATORIO]; $IntPagMor = $this->getInteresMoratorioPagado(); $IntPagNor = $this->getInteresNormalPagado(); $TIntNorm = $IntDevNorm + $IntPerNor - $IntPagNor; $TIntMor = $IntDevMor + $IntPerMor - $IntPagMor; $BaseIVA = $TIntNorm > 0 ? $TIntNorm : 0; $BaseIVA += $TIntMor > 0 ? $TIntMor : 0; $IntIVA = setNoMenorQueCero(($TIntNorm + $TIntMor) * $TasaIVA); $cargos = $this->getCargosDeCobranza(); $cargosIVA = setNoMenorQueCero($cargos * TASA_IVA); $trCargos = ""; if ($cargos > 0) { $trCargos = "<tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Cargos por Cobranza") . "</th><td class='mny'>" . getFMoney($cargos) . "</td>\n\t\t\t\t\t</tr><tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.IVA de Otros cargos") . "</th><td class='mny'>" . getFMoney($cargosIVA) . "</td>\n\t\t\t\t\t</tr>\t"; } $tool .= "<tr>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Normal Generado") . "</th><td class='mny'>" . getFMoney($IntDevNorm) . "</td>\n\t\t\t\t\t\t\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Moratorio Generado") . "</th><td class='mny'>" . getFMoney($IntDevMor) . "</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Normal del Mes") . "</th><td class='mny'>" . getFMoney($IntPerNor) . "</td>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Moratorio del mes") . "</th><td class='mny'>" . getFMoney($IntPerMor) . "</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Normal Pagado") . "</th><td class='mny'>(" . getFMoney($IntPagNor) . ")</td>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.Interes Moratorio Pagado") . "</th><td class='mny'>(" . getFMoney($IntPagMor) . ")</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.TOTAL INTERES NORMAL") . "</th><th class='mny'>" . getFMoney($TIntNorm) . "</th>\n\t\t\t\t\t\t<th>" . $xL->getT("TR.TOTAL INTERES MORATORIO") . "</th><th class='mny'>" . getFMoney($TIntMor) . "</th>\n\t\t\t\t\t</tr>\n\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.SALDO DE CAPITAL") . "</th><td class='total, mny'>" . getFMoney($this->getSaldoActual()) . "</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.TOTAL INTERESES") . "</th><td class='mny'>" . getFMoney($TIntNorm + $TIntMor) . "</td>\n\t\t\t\t\t</tr>\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.IVA POR INTERESES") . "</th><td class='mny'>" . getFMoney($IntIVA) . "</td>\n\t\t\t\t\t</tr>\t\t\t\t\t\n\t\t\t\t\t\t\t\t{$trCargos}\n\t\t\t\t\t<tr>\n\t\t\t\t\t\t<td /><td />\n\t\t\t\t\t\t<th>" . $xL->getT("TR.TOTAL POR PAGAR") . "</th><td class='total, mny'>" . getFMoney($TIntNorm + $TIntMor + $IntIVA + $this->getSaldoActual() + ($cargos + $cargosIVA)) . "</td>\n\t\t\t\t\t</tr>"; } $tool = "<tfoot>{$tool}</tfoot>"; } $exoFicha = "\n\t\t<table id='fichadecredito'>\n\t\t\t<tbody>\n\t\t\t\t{$trInicial}\n\t\t\t\t<tr>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Numero de Credito") . "</th><td>{$solicitud}</td>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Producto") . "</th><td>{$convenio}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Periocidad de Pago") . "</th><td>{$periocidad_pago}</td>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Numero de Pagos") . "</th>{$tdPagos}\n\t\t\t\t<tr>\n\t\t\t\t<tr>\n\t\t\t\t\t\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Tasa Anualizada de interes") . "</th><td class='mny'>" . getFMoney($tasa) . "%</td>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Estado_actual") . "</th><td class='{$cls}'>{$estatus}</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th class='izq'>" . $xL->getT("TR.Tasa de IVA") . "</th><td class='mny'>" . getFMoney($TasaIVA * 100) . "%</td>\n\t\t\t\t\t<th class='izq'>CAT</th><td class='mny'>" . $this->getCAT() . "</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>{$tdFecha} {$tdVencimiento}</tr>\n\t\t\t\t<tr>{$tdMonto} {$tdSaldo}</tr>\n\t\t\t</tbody>\n\t\t\t{$tool}\n\t\t</table>"; if ($mark == true) { $exoFicha = "<fieldset><legend>| " . $xL->getT("TR.Informacion de Credito") . " |</legend>{$exoFicha}</fieldset>"; } return $exoFicha; }
$ByAll = ""; $senders = getEmails($_REQUEST); $empresa = parametro("dependencia", SYS_TODAS, MQL_INT); $empresa = parametro("empresa", $empresa, MQL_INT); if (isset($_REQUEST["fechaMX"])) { $fecha_inicial = $xF->getFechaISO($_REQUEST["fechaMX"]); $fecha_final = $xF->getFechaISO($_REQUEST["fechaMX"]); } $ByDependencia = $empresa == SYS_TODAS ? "" : " AND `socios`.`iddependencia`=" . $empresa; $ByUsuario = $cajero == SYS_TODAS ? "" : " AND operaciones_recibos.idusuario={$cajero} "; $ByFecha = " AND (operaciones_recibos.fecha_operacion>='{$fecha_inicial}' AND operaciones_recibos.fecha_operacion<='{$fecha_final}') "; $nombre_empresa = ""; if ($empresa != SYS_TODAS) { $xEmp = new cEmpresas($empresa); $xEmp->init(); $nombre_empresa = $xEmp->getNombreCorto(); } //XXX: Hacer un UNION para captacion $setSql = "\nSELECT\n\t`operaciones_recibos`.`idoperaciones_recibos`,\n\t`operaciones_recibos`.`fecha_operacion`,\n\t`operaciones_recibos`.`docto_afectado`,\n\t`operaciones_recibos`.`numero_socio`,\n\t`socios`.`nombre`,\n\t\n\t(CASE WHEN (`creditos_solicitud`.`persona_asociada` = " . DEFAULT_EMPRESA . ")\n\tTHEN ''\n\tELSE `socios`.`dependencia` END) AS 'dependencia',\n\t\n\t`operaciones_recibos`.`tipo_docto`,\n\t`operaciones_recibostipo`.`descripcion_recibostipo` AS `tipo_de_recibo`,\n\t`operaciones_recibos`.`tipo_pago`,\n\t`operaciones_recibos`.`recibo_fiscal`,\t\n\t\n\t`operaciones_recibos`.`total_operacion`,\n\t`operaciones_recibos`.`observacion_recibo`,\n\n\t\n\t`operaciones_recibos`.`idusuario`\n\t\n\t\n\tFROM\n\t`operaciones_recibos` `operaciones_recibos` \n\t\tLEFT OUTER JOIN `creditos_solicitud` `creditos_solicitud` \n\t\tON `operaciones_recibos`.`docto_afectado` = `creditos_solicitud`.\n\t\t`numero_solicitud` \n\t\t\tINNER JOIN `operaciones_recibostipo` `operaciones_recibostipo` \n\t\t\tON `operaciones_recibos`.`tipo_docto` = `operaciones_recibostipo`.\n\t\t\t`idoperaciones_recibostipo` \n\t\t\t\tINNER JOIN `socios` `socios` \n\t\t\t\tON `operaciones_recibos`.`numero_socio` = `socios`.`codigo`\n\t\t\t\t\n\tWHERE operaciones_recibostipo.mostrar_en_corte!='0'\n\t\t\t{$ByFecha}\n\t\t\t{$ByUsuario}\n\t\t\t{$ByDependencia}\n\t\tORDER BY\n\t\t\t`operaciones_recibos`.`tipo_pago`,\n\t\t\t`operaciones_recibos`.`fecha_operacion`,\n\t\t\t`operaciones_recibos`.`tipo_docto`,\n\t\t\t`socios`.`dependencia`,\n\t\t\t`operaciones_recibos`.`idoperaciones_recibos`\n\t"; $output = $output == SYS_DEFAULT ? OUT_RXML : $output; $xRPT = new cReportes($xHP->getTitle() . "-{$nombre_empresa}"); $xRPT->setSenders($senders); $xRPT->setFile("report38"); $xRPT->setOut($output); $xRPT->setSQL($setSql); echo $xRPT->render(true); //exit( $setSql); /*if ($input!=OUT_EXCEL) { $oRpt = new PHPReportMaker(); $oRpt->setDatabase(MY_DB_IN); $oRpt->setUser(RPT_USR_DB);
$xOEmp->oficial_que_cierra($oficial); $xOEmp->nombre_corto($alias); $xOEmp->producto_preferente($producto); $xOEmp->email_de_envio($emails); $xOEmp->clave_de_persona($idsocio); $xOEmp->query()->update()->save($empresa); $xEmp = new cEmpresas($empresa); $xEmp->init(); $xEmp->setActualizarPorPersona(); $msg .= $xEmp->getMessages(); } if (setNoMenorQueCero($empresa) > 0) { $xEmp = new cEmpresas($empresa); $xEmp->init(); if ($xEmp->isInit() == true) { $alias = $xEmp->getNombreCorto(); //$iddirectivo= $iddirectivo = $xEmp->getClaveDeContacto(); $directivo = $xEmp->getNombreContacto(); $idsocio = $xEmp->getClaveDePersona(); $periocidad1 = $xEmp->getPeriocidadPref(); $lstPeriodos = $xEmp->getListaDePeriocidad(); $periocidad2 = isset($lstPeriodos[1]) ? $lstPeriodos[1] : $periocidad1; $producto = $xEmp->getProductoPref(); $mails = $xEmp->getEmailsDeEnvio(); $oficial = $xEmp->getClaveDeOficial(); $mail1 = isset($mails[0]) ? $mails[0] : ""; $mail2 = isset($mails[1]) ? $mails[1] : ""; $mail3 = isset($mails[2]) ? $mails[2] : ""; $diasaviso1 = $xEmp->getDiasDeAviso($periocidad1, MQL_STRING); $diasaviso2 = $xEmp->getDiasDeAviso($periocidad2, MQL_STRING);
function setEmpresa($empresa, $puesto, $depto = "", $idempleado = "", $nss = 0, $ExtTelefonica = 0) { //cargar datos de la empresa $this->mClaveEmpresa = $empresa; $this->mPuesto = $puesto; $this->mDepto = $depto; $this->mIDEmpleado = $idempleado; $this->mNSS = $nss; $this->mExtTelefonica = $ExtTelefonica; //iniciar domicilio? $xEmp = new cEmpresas($this->mCodigoPostal); if ($xEmp->init() == true) { $this->mNombreEmpresa = $xEmp->getNombreCorto(); $this->mDomicilio = $xEmp->getDomicilio(); $OPers = $xEmp->getOPersona(); if ($OPers != null) { $xViv = $OPers->getODomicilio(); if ($xViv != null) { $this->mClaveDeEstado = $xViv->getClaveDeEstado(); $this->mClaveDeMunicipio = $xViv->getClaveDeMunicipio(); $this->mClaveDeLocalidad = $xViv->getClaveDeLocalidad(); $this->mNombreDeLocalidad = $xViv->getLocalidad(); $this->mNombreDeMunicipio = $xViv->getMunicipio(); $this->mNombreDeEstado = $xViv->getEstado(); $this->mCodigoPostal = $xViv->getCodigoPostal(); $this->mIDDomicilio = $xViv->getClaveUnica(); } } } }
function jsaSetGuardarDeposito($tipo_pago, $banco, $monto, $cobranza, $fecha, $observaciones, $empresa, $periodo) { //'idtipo_pago', 'idcodigodecuenta', 'idmontodeposito', 'idsumacbza', 'idfecha-0', 'idobservaciones', 'idcodigodeempresas', 'idperiodo' $diferencia = $monto - $cobranza; $xEmp = new cEmpresas($empresa); $xEmp->init(); $persona = $xEmp->getClaveDePersona(); $xF = new cFecha(); $fecha = $xF->getFechaISO($fecha); $xCaja = new cCaja(); $documento = DEFAULT_CREDITO; $nombreemp = $xEmp->getNombreCorto(); $xPer = $xEmp->getOPeriodo(false, false, $periodo); $periodo2 = $xPer->periodo_marcado()->v(); $periocidad = $xPer->periocidad()->v(); $observaciones = "{$empresa}-{$nombreemp}-{$periocidad}-{$periodo2}-ID.{$periodo}-" . $observaciones; if ($tipo_pago == TESORERIA_COBRO_TRANSFERENCIA) { $op = $xCaja->setCobroTransferencia(DEFAULT_RECIBO, $banco, $monto, $diferencia, $fecha, $observaciones, $persona, $documento); } elseif ($tipo_pago == TESORERIA_COBRO_EFECTIVO) { $xCaja->setCobroEfectivo(DEFAULT_RECIBO, $monto, $cobranza, $observaciones); } //Agregar operacion de la empresa $xEmp->addOperacion($monto, $periodo2, $periocidad, $fecha, -1, false, $observaciones); }