function jsaSetCreditosADespedidos($credito, $fecha, $observaciones)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_DESTINO_DESCARTADOS);
$xCred->setResetPersonaAsociada($fecha, $observaciones);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_DESVINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xRN = new cReglaDeNegocio();
$xEmp = new cEmpresas($xCred->getClaveDeEmpresa());
$xEmp->init();
$oP = $xCred->getOPersona();
$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_DESPEDIR);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
if ($action == "p" and isset($idsolicitud) and isset($monto) and $monto > 0) {
$observaciones = $_POST["observaciones"];
$iva = $_POST["montoiva"];
$comopago = $_POST["ctipo_pago"];
$cheque = $_POST["cheque"];
$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);
//
}
?>
$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>
function Common_c5fe0408555dbf392918c6f77a4d01b2($params)
{
$stdDiv = STD_LITERAL_DIVISOR;
$DPar = explode($stdDiv, $params, 10);
//mensajes
//grupo
$xTip = new cTipos();
//
$socio = $xTip->cInt($DPar[0]);
$credito = $xTip->cInt($DPar[1]);
$letra = $xTip->cInt($DPar[2]);
$capital = $xTip->cFloat($DPar[3]);
$interes = $xTip->cFloat($DPar[4]);
$iva = $xTip->cFloat($DPar[5]);
$ahorro = $xTip->cFloat($DPar[6]);
$nota = $xTip->cChar($DPar[7]);
$numero = $xTip->cInt($DPar[8]);
$limit = $xTip->cInt($DPar[9]);
$msg = "====================== MOVIMIENTO {$numero} DE {$limit} ====================\r\n";
//Datos del Credito
$Cred = new cCredito($credito, $socio);
$Cred->initCredito();
$DCred = $Cred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"] - $capital;
$contrato_captacion = $DCred["contrato_corriente_relacionado"];
$grupo = $DCred["grupo_asociado"];
$msg .= $Cred->getMessages();
if (isset($_SESSION["recibo_en_proceso"])) {
$recibo = $_SESSION["recibo_en_proceso"];
$fecha = fechasys();
$_SESSION["total_recibo_en_proceso"] += $capital + $interes + $ahorro;
$xRec = new cReciboDeOperacion(200, false, $recibo);
$xRec->setNumeroDeRecibo($recibo, true);
$xRec->setNumeroDeRecibo($recibo, true);
$DRec = $xRec->getDatosInArray();
$cheque = $DRec["cheque_afectador"];
$tipopago = $DRec["tipo_pago"];
$recibofiscal = $DRec["recibo_fiscal"];
$xRec->setGenerarPoliza();
$msg .= "{$socio}\t{$credito}\tCREDITO\tMovimiento {$i} del Credito {$credito} del Socio {$socio} con Saldo {$saldo}\r\n ";
$msg .= "{$socio}\t{$credito}\tMONTOS\tCapital: {$capital} || Interes: {$interes} || Ahorro: {$ahorro} \r\n";
//Agregando Capital
if ($capital > 0) {
$xRec->setNuevoMvto($fecha, $capital, 120, $letra, $nota . ";SDO:" . $saldo, 1, TM_ABONO, $socio, $credito);
$arrCred = array("saldo_actual" => $saldo);
$Cred->setUpdate($arrCred);
}
//Agregando Interes
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $interes, 140, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//agregando el IVA
if ($interes > 0) {
$xRec->setNuevoMvto($fecha, $iva, 151, $letra, $nota, 1, TM_ABONO, $socio, $credito);
}
//Agregando Ahorro
if ($ahorro > 0) {
$xC = new cCuentaALaVista($contrato_captacion);
if (!isset($contrato_captacion) or $contrato_captacion == CTA_GLOBAL_CORRIENTE or $contrato_captacion == 0) {
$contrato_captacion = $xC->setNuevaCuenta(2, 1, $socio, "CUENTA_AUTOMATICA", $credito);
$msg .= "{$socio}\t{$credito}\tNuevaCta\tse dio de alta a la cuenta {$contrato_captacion}\r\n";
//2011-nov-30 se agrego la actualizacion del contrato relacionado
$arrCred = array("contrato_corriente_relacionado" => $contrato_captacion);
$Cred->setUpdate($arrCred);
}
$xC = new cCuentaALaVista($contrato_captacion);
$xC->setSocioTitular($socio);
$xC->setReciboDeOperacion($recibo);
$xC->setDeposito($ahorro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo);
$msg .= $xC->getMessages("txt");
$msg .= "{$socio}\t{$credito}\tAhorro\t El Saldo Quedo en " . $xC->getNuevoSaldo() . "\r\n";
}
$msg .= "{$socio}\t{$credito}\tObservacion\t {$nota}\r\n";
$msg .= $xRec->getMessages("txt");
} else {
$msg .= "NO_SE_HA_DEFINIDO_UN_RECIBO";
}
$xLog = new cFileLog("log_de_recibo_" . $recibo);
$xLog->setWrite($msg);
$xLog->setClose();
$MsgEnd = "";
if ($numero == $limit) {
$xRec->setForceUpdateSaldos();
$xRec->setFinalizarRecibo(true);
//$MsgEnd .= "**** proceso terminado ****";
}
//retorna el id del control de origen para neutralizar
return "-{$numero}";
}
$recibo_pendientes = $xRec->setNuevoRecibo($socio, $solicitud, $fecha_operacion, $parcialidad, false, $mobserva, "", "ninguno", "NA", $grupo);
$xRec->setNumeroDeRecibo($recibo_pendientes);
$xRec->init();
} else {
$recibo_pendientes = $xPlan;
$xRec->setNumeroDeRecibo($recibo_pendientes);
$xRec->init($dxplan);
}
//recorre los pendientes
//--29Dic2014
foreach ($p as $clave_operacion => $monto_pendiente) {
if ($monto_pendiente > TOLERANCIA_SALDOS) {
if ($clave_operacion == OPERACION_CLAVE_PLAN_INTERES and $monto_pendiente > 0 and $tasa_iva > 0) {
//agregar Interes
$iva_pendiente = $monto_pendiente * $tasa_iva;
$xRec->setNuevoMvto($fecha_operacion, $iva_pendiente, OPERACION_CLAVE_PLAN_IVA, $parcialidad, $mobserva);
$total_pendientes += $iva_pendiente;
}
$xRec->setNuevoMvto($fecha_operacion, $monto_pendiente, $clave_operacion, $parcialidad, $mobserva);
$total_pendientes += $monto_pendiente;
}
}
//Arreglo para no Emilinar el Recibo de pendientes
if ($recibo_pendientes != $xPlan) {
$xRec->init();
$xRec->setSumaDeRecibo($total_pendientes);
$xRec->setFinalizarRecibo(true);
$msg .= $xRec->getMessages(OUT_TXT);
}
//la Parcialidad se resetea a la anterior
if ($total_pendientes > TOLERANCIA_SALDOS) {
/**
* Funcion que asiste en la Ministracion del Credito
*/
function setMinistrar($recibo_fiscal, $cheque, $monto_cheque = 0, $cuenta_cheques = false, $cheque2 = 0, $cuenta_cheques2 = 0, $observaciones = "", $fecha = false, $recibo = false, $tipo_de_pago = TESORERIA_PAGO_CHEQUE)
{
$sucess = true;
$monto_cheque = $monto_cheque == 0 ? $this->getMontoAutorizado() : $monto_cheque;
$cuenta_cheques = $cuenta_cheques == false ? DEFAULT_CUENTA_BANCARIA : $cuenta_cheques;
$cheque = setNoMenorQueCero($cheque);
$xSocio = new cSocio($this->mNumeroSocio);
$xSocio->init();
//Corrige la Inicializacion del credito
if (!isset($this->mNumeroSocio) or $this->mNumeroSocio == 1) {
$this->init();
}
$DIngreso = $xSocio->getDatosDeIngreso_InArray();
$msg = "";
//$tipo_de_pago = TESORERIA_PAGO_CHEQUE;
$recibo = setNoMenorQueCero($recibo);
$DConvenio = $this->getDatosDeProducto();
$idsolicitud = $this->mNumeroCredito;
$solicitud = $this->mNumeroCredito;
/* ------------------------------ obtiene el Monto Autorizado ---------------------------------- */
$dsol = $this->getDatosDeCredito();
$montoaut = $this->getMontoAutorizado();
// $dsol["monto_autorizado"]; // Monto Autorizado
$fvcred = $dsol["fecha_vencimiento"];
$modpagos = $this->getPeriocidadDePago();
$tasacred = $this->getTasaDeInteres();
$totalop = $montoaut;
$tipoaut = $dsol["tipo_autorizacion"];
$socio = $this->mNumeroSocio;
$intdi = $dsol["interes_diario"];
$diasa = $dsol["dias_autorizados"];
$tipoconvenio = $dsol["tipo_convenio"];
$elgrupo = $dsol["grupo_asociado"];
$grupo = $elgrupo;
$idsocio = $socio;
$fecha_propuesta = $dsol["fecha_ministracion"];
$tasa_ordinaria_de_interes = $tasacred;
$monto_autorizado_a_ministrar = $dsol["monto_autorizado"];
$grupo = $this->mGrupoAsociado;
if ($fecha == false) {
$fecha = $this->mFechaOperacion;
}
$socio = $this->mNumeroSocio;
//Valores conservados
$fechavcto = $fvcred;
$diasaut = $diasa;
$intdiario = $intdi;
/**
* Corrige la opcion de que el Cheque es Igual a Cero
*/
if ($monto_cheque == 0) {
$monto_cheque = $montoaut;
}
//Corrige el dato de recibo no valido
if ($recibo <= 0 and setNoMenorQueCero($this->mReciboDeOperacion) > 0) {
$recibo = $this->mReciboDeOperacion;
}
/* --------------------------------------------------------------------------------------------------------- */
$OConv = $this->getOProductoDeCredito($tipoconvenio);
if ($this->mForceMinistracion == false) {
// Checa si el credito ya fue Ministrado
//Modificar
$montomin = $this->getSumMovimiento(OPERACION_CLAVE_MINISTRACION);
if ($montomin > 1) {
$msg .= "ERROR\tEl credito se ha ministrado de forma parcial / Total, o se ha forzado su edicion; el Monto Ministrado es {$montomin} \r\n";
$sucess = false;
}
}
// verificar si tiene aportaciones sociales
if ($this->mForceMinistracion == false) {
$aportaciones = $xSocio->getAportacionesSociales();
$cuotas = $DIngreso["parte_social"] + $DIngreso["parte_permanente"];
if ($aportaciones < $cuotas) {
$msg .= "ERROR\tNo ha Pagado sus Cuotas Sociales por {$cuotas}, ha pagado {$aportaciones} \r\n";
$sucess = false;
}
}
// verificar si pago su fondo de defuncion. // SI ES DIFERENTE A AUTOMATIZADO
if ($this->mForceMinistracion == false) {
$fondo_def_ob = $DConvenio["monto_fondo_obligatorio"];
$fondo_def_pag = $xSocio->getFondoDeDefuncion();
if ($fondo_def_pag < $fondo_def_pag) {
$msg .= "ERROR\tNo ha Pagado sus Fondo de Defuncion por {$fondo_def_pag}, ha pagado {$fondo_def_pag} \r\n";
$sucess = false;
}
}
// condiciones del credito autorizado por sesion de credito.
//si el convenio Aplica Gtos Notariales
$aplica_gtos_not = $DConvenio["aplica_gastos_notariales"];
if ($aplica_gtos_not == 1 and $this->mForceMinistracion == false) {
$gastos_not_pagados = $this->getPagoDeGastosNotariales();
if ($gastos_not_pagados < TOLERANCIA_SALDOS) {
$msg .= "ERROR\tNo ha Pagado sus Gastos Notariales\r\n";
$sucess = false;
}
}
// verificar si tiene garantia liquida
$porc_garantia_liquida = $OConv->getTasaDeGarantiaLiquida();
if ($porc_garantia_liquida > 0 and $this->mForceMinistracion == false) {
$msg .= "WARN\tLa Garantia Liquida es de {$porc_garantia_liquida} sobre el Monto Autorizado\r\n";
if ($OConv->getEsProductoDeGrupos() == true) {
$condicionante_de_garantia_liquida = " (`socios_general`.`grupo_solidario` = {$elgrupo}) ";
$msg .= "WARN\tLa Garantia Liquida es valuado por GRUPO \r\n";
} else {
$condicionante_de_garantia_liquida = " (`socios_general`.`codigo` = {$idsocio})";
$msg .= "WARN\tLa Garantia Liquida es valuado por SOCIO \r\n";
}
$tgtia = $montoaut * $porc_garantia_liquida;
$subproducto_de_ahorro_inicial = CAPTACION_PRODUCTO_GARANTIALIQ;
$sqlSUMDepInicial = "\n\t\t\t\t\t\t\t\t\t\t\t\tSELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general`.`grupo_solidario`,\n\t\t\t\t\t\t\t\t\t\t\t\t\tSUM(`captacion_cuentas`.`saldo_cuenta`) AS 'sumas'\n\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general` `socios_general`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `socios_general`.`codigo` = `captacion_cuentas`.`numero_socio`\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_subproducto` ={$subproducto_de_ahorro_inicial})\n\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t{$condicionante_de_garantia_liquida}\n\t\t\t\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t\t\t\t`socios_general`.`grupo_solidario`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`tipo_cuenta` ";
$garliq = mifila($sqlSUMDepInicial, "sumas");
if ($garliq < $tgtia - TOLERANCIA_SALDOS) {
$msg .= "ERROR\tNo ha depositado el su totalidad la Garantia Liquida, ha Depositado {$garliq} de un total de {$tgtia} \r\n";
$msg .= "WARN\tRecuerde que el DEPOSITO DE LA GARANTIA LIQUIDA se efectua en el Modulo de Captacion \r\n";
$sucess = false;
}
}
//END: verificar Garantia
// VERIFICA LA GARANTIA SEGUN TIPO CONVENIO.- La seleccion se hace segun el Numero de Socio y no debe estar entregada
// NO APLICA EN GRUPOS SOLIDARIOS
$razon_garantias = $DConvenio["razon_garantia"];
if ($razon_garantias > 0 and $this->mForceMinistracion == false) {
$monto_garantizado = $xSocio->getGarantiasFisicasDepositadas();
$monto_a_garantizar = $montoaut * $razon_garantias;
if ($monto_garantizado < $monto_a_garantizar) {
$msg .= "ERROR\tNo ha garantizado el Total del Credito, se debe garantizar {$monto_a_garantizar} y solamente se tiene en resguardo {$monto_garantizado} \r\n";
$sucess = false;
}
}
// SI EL CREDITO ES AUTOMATIZADO
if ($modpagos == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$diasaut = restarfechas($fechavcto, $fecha);
//$dsol["dias_autorizados"]; // Dias Autorizados.
$msg .= "WARN\tLos dias Autorizados se cambian a {$diasaut}\r\n";
//$fechavcto = sumardias($fecha, $diasaut); // Fecha del Sistema + Dias Autorizados
$intdiario = $montoaut * $tasacred / EACP_DIAS_INTERES;
} else {
//Verifica si existe el Plan de Pagos:
$sqlck = "SELECT COUNT(tipo_docto) AS 'planes' FROM operaciones_recibos WHERE docto_afectado={$idsolicitud} AND tipo_docto=11";
$plan = $this->getNumeroDePlanDePagos();
if (!isset($plan) or empty($plan)) {
$msg .= "ERROR\tNo se ha Generado el PLAN DE PAGOS \r\n";
$sucess = false;
}
if (strtotime($fecha) != strtotime($fecha_propuesta)) {
$msg .= "ERROR\tNo se puede ministrar el Credito({$fecha}), ya que el PLAN DE PAGO de calcula desde la fecha " . getFechaLarga($fecha_propuesta) . ", vuelva a elaborar el PLAN DE PAGOS\r\n";
$sucess = false;
}
}
//VERIFICA EL ICA A PAGAR
$razon_interes_anticipado = $DConvenio["porcentaje_ica"];
$iva_incluido = $DConvenio["iva_incluido"];
$tasa_iva = $DConvenio["tasa_iva"];
//RULE: Modificar segun el Tipo de pago
if ($razon_interes_anticipado > 0 and $this->mForceMinistracion == false) {
// verifica si tiene el Pago de Int Anticipado
$sumia = $dsol["sdo_int_ant"];
$mIntDiario = $monto_autorizado_a_ministrar * $tasa_ordinaria_de_interes / EACP_DIAS_INTERES;
$mntia = $mIntDiario * $diasa * $razon_interes_anticipado - TOLERANCIA_SALDOS;
$MontoICA = $mntia;
if ($iva_incluido == '1') {
$MontoICA = $MontoICA * (1 / (1 + $tasa_iva));
}
if ($sumia < $MontoICA) {
$msg .= "ERROR\tNo se ha cubierto el Interes Anticipado, se ha pagado {$sumia} de {$MontoICA} \r\n";
$sucess = false;
} else {
//
}
}
if ($this->mForceMinistracion == true) {
$sucess = true;
$msg .= "WARN\tLa Ministracion es FORZADA \r\n";
}
/*------------------------------- AFECTACIONES ------------------------------------------------- */
if ($sucess == true) {
$monto = $montoaut;
$parcialidad = 1;
if ($monto != 0) {
$CRecibo = new cReciboDeOperacion(RECIBOS_TIPO_MINISTRACION, true, $recibo);
//Set a Mvto Contable
//$CRecibo->setGenerarPoliza();
$CRecibo->setGenerarTesoreria();
$CRecibo->setGenerarBancos(true);
//Agregar recibo si no hay
if (setNoMenorQueCero($recibo) <= 0) {
$recibo = $CRecibo->setNuevoRecibo($socio, $solicitud, $fecha, $parcialidad, RECIBOS_TIPO_MINISTRACION, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if (setNoMenorQueCero($recibo) > 0) {
$this->mMessages .= "OK\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCredito . " \r\n";
$this->mReciboDeOperacion = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCredito . " \r\n";
$this->mSucess = false;
}
}
$this->mReciboDeOperacion = $recibo;
if (setNoMenorQueCero($recibo) > 0) {
//Agregar el Movimiento
$CRecibo->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MINISTRACION, $parcialidad, $observaciones, 1, TM_CARGO, $socio, $solicitud);
/** @since 2010-11-21 */
$this->addSDPM(0, 0, $fecha, 0, CREDITO_ESTADO_VIGENTE, $fecha, OPERACION_CLAVE_MINISTRACION);
//$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tNo Existe Recibo con el cual trabajar ({$recibo}) \r\n";
}
$CRecibo->setFinalizarRecibo(true);
$this->mMessages .= $CRecibo->getMessages();
}
// Actualiza el estatus del credito a Vigente, la fecha de Operacion y la de vencimiento.
$arrAct = array("fecha_ministracion" => $fecha, "fecha_ultimo_mvto" => $fecha, "estatus_actual" => CREDITO_ESTADO_VIGENTE, "fecha_vencimiento" => $fechavcto, "plazo_en_dias" => $diasaut, "dias_autorizados" => $diasaut, "interes_diario" => $intdiario, "saldo_actual" => $montoaut);
$this->setUpdate($arrAct);
// --------------------------------- ENVIA LAS SENTENCIAS SQL----------------------------------------
//verifica la dif entre cheque 1 y el monto a ministrar
if ($monto_cheque <= 0) {
$monto_cheque = $montoaut;
}
$difCheque = $montoaut - $monto_cheque;
$beneficiario = $xSocio->getNombreCompleto();
$descuento = 0;
//Separar la generación del cheque
setNuevoCheque($cheque, $cuenta_cheques, $recibo, $beneficiario, $monto_cheque, $fecha, false, $descuento);
setUltimoCheque($cuenta_cheques, $cheque);
if ($difCheque > 0) {
//setPolizaProforma($recibo, 9200, $difCheque, $socio, $idsolicitud, TM_ABONO);
setNuevoCheque($cheque2, $cuenta_cheques2, $recibo, $beneficiario, $difCheque, $fecha, false, $descuento);
setUltimoCheque($cuenta_cheques2, $cheque2);
}
//Agregar Avisos de Credito por renovacion
if ($this->getTipoDeAutorizacion() == CREDITO_TIPO_AUTORIZACION_RENOVACION) {
//$xSoc = $this->getOPersona();
$xSocio->initDatosDeCredito();
$DCreds = $xSocio->getDatosDeCreditos();
$xCred = new cCreditos_solicitud();
foreach ($DCreds as $clave => $valores) {
$xCred->setData($valores);
if ($xCred->saldo_actual()->v() >= TOLERANCIA_SALDOS) {
if ($xCred->numero_solicitud()->v() != $this->getNumeroDeCredito()) {
//agregar aviso
$xSocio->addMemo(MEMOS_TIPO_NOTA_RENOVACION, "Credito Renovado en la solicitud #" . $this->getNumeroDeCredito(), $xCred->numero_solicitud()->v(), $fecha);
$msg .= $xSocio->getMessages();
}
}
}
}
//ejecutar alertas por Ministracion de Reglas de Negocios
//Ministracion de Credito de la persona {clave_de_persona} {nombre_de_persona}
//credito numero {clave_de_credito} con monto {monto_de_credito} y tipo de autorizacion {tipo_de_autorizacion}.
$OTipoAut = new cCreditos_tipo_de_autorizacion();
$OTipoAut->setData($OTipoAut->query()->initByID($this->getTipoDeAutorizacion()));
$xRegla = new cReglaDeNegocio();
$xRegla->setVariables(array("clave_de_persona" => $xSocio->getCodigo(), "nombre_de_persona" => $xSocio->getNombreCompleto(), "clave_de_credito" => $this->getNumeroDeCredito(), "monto_de_credito" => $this->getMontoAutorizado(), "tipo_de_autorizacion" => $OTipoAut->descripcion_tipo_de_autorizacion()->v(OUT_TXT)));
$xRegla->setExecuteActions($xRegla->reglas()->RN_MINISTRAR_CREDITO);
} else {
$msg .= "ERROR\tNo se efectua operacion alguna\r\n";
}
$this->mMessages .= $msg;
return $recibo;
}
function getGenerarBaseGravadaMensualIDE($fecha = false)
{
if ($fecha == false) {
$fecha = fechasys();
}
$msg = "";
$msg .= "============== GENERANDO EL MOVIMIENTO DE BASE GRAVABLE DEL IDE\t==========\r\n";
$msg .= "============== FECHA: {$fecha} ==========\r\n";
$xF = new cFecha(0, $fecha);
$dia_inicial = $xF->getDiaInicial();
$dia_final = $xF->getDiaFinal();
$sqlGravados = "SELECT\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS 'monto'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\t\tINNER JOIN `operaciones_recibos` `operaciones_recibos`\n\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`recibo_afectado` = `operaciones_recibos`.\n\t\t\t\t\t\t\t\t\t`idoperaciones_recibos`\n\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` >='{$dia_inicial}')\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_afectacion` <='{$dia_final}')\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 2600)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(`operaciones_recibos`.`tipo_pago` = 'efectivo' )\n\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\t`operaciones_recibos`.`tipo_pago` ";
//$msg .= "$sqlGravados\r\n";
//Agregar Recibo
$xRec = new cReciboDeOperacion(10);
//$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$idrecibo = $xRec->setNuevoRecibo(1, 1, $fecha, 1, 10, "BASE_REMANENTE_GRAVABLE_AL_IDE", "NA", "ninguno", "NA", DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$rs = getRecordset($sqlGravados);
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["socio_afectado"];
$excencion = EXCENCION_IDE;
$base_gravada = setNoMenorQueCero($rw["monto"] - $excencion);
if ($base_gravada > 0) {
$xRec->setNuevoMvto($dia_final, $base_gravada, 9302, 1, "", 1, false, $socio, 1);
}
}
$xRec->setFinalizarRecibo();
$msg .= $xRec->getMessages("txt");
return $msg;
}
function setRetenerIDE($fecha = false, $recibo = false, $monto = false, $observaciones = "RETENCION AUTOMATICA DE IDE")
{
$grupo = $this->mGrupoAsociado;
$recibo_fiscal = "NA";
$tipo_de_pago = "descuento";
$cheque = "NA";
$tipo_de_recibo = 23;
if ($monto == false) {
$monto = $this->mIDExRetener;
}
if (!isset($this->mSocioTitular) or $this->mSocioTitular == 1) {
$this->initCuentaByCodigo();
}
if ($fecha == false) {
$fecha = $this->mFechaOperacion;
}
$socio = $this->mSocioTitular;
//Inicializar el Recibo
$CRecibo = new cReciboDeOperacion($tipo_de_recibo, true, $recibo);
//Set a Mvto Contable
$CRecibo->setGenerarPoliza();
$CRecibo->setForceUpdateSaldos();
//Agregar recibo si no hay
if ($recibo == false or !isset($recibo)) {
$recibo = $CRecibo->setNuevoRecibo($socio, $this->mNumeroCuenta, $this->mFechaOperacion, $this->mPeriodoCuenta, $tipo_de_recibo, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if ($recibo != false) {
$this->mMessages .= "SUCESS\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " \r\n";
$this->mReciboDeIDE = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " \r\n";
$this->mSucess = false;
}
} else {
$CRecibo->setNumeroDeRecibo($recibo, true);
}
$this->mReciboDeIDE = $recibo;
//si hay recibo, agregar
if ($recibo != false) {
//Agregar el Movimiento de Reinversion
$CRecibo->setNuevoMvto($fecha, $monto, 235, $this->mPeriodoCuenta, $observaciones, 1, TM_ABONO, $socio, $this->mNumeroCuenta);
$this->mMessages .= "MVTO_IDE\tAgregando el IDE por un Monto de {$monto} de la Cuenta " . $this->mNumeroCuenta . " \r\n";
$CRecibo->setFinalizarRecibo(true);
$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
//Actualizar la Cuenta
$this->mNuevoSaldo = $this->mNuevoSaldo - $monto;
$this->setUpdateSaldo();
} else {
$this->mMessages .= "REC_ERR\tNo Existe Recibo con el cual trabajar({$recibo}) \r\n";
}
$this->mMessages .= $CRecibo->getMessages();
return $recibo;
}
$xCred->setAbonoCapital(9200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-06");
$xCred->setAbonoCapital(9200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-10");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(2200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-15");
$xCred->setAbonoCapital(2200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-20");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(4200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-25");
$idrec = $xCred->setAbonoCapital(4200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-28");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xRec->init();
$xRec->setFinalizarRecibo(true);
$xRec->setMoneda("USD");
$xRec->setUnidadesOriginales(100);
$x2Rec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_APORTACIONES, true);
$x2Rec->setNuevoRecibo($xCred->getClaveDePersona(), DEFAULT_CREDITO, "2013-01-01", 1);
$x2Rec->setNuevoMvto("2013-01-01", 15000, OPERACION_CLAVE_APORT_CORRIENTE, 1, "Prueba de AML");
$x2Rec->setNuevoMvto("2013-01-02", 1500, OPERACION_CLAVE_APORT_FONDO, 1, "Prueba de AML 2");
$x2Rec->setNuevoMvto("2013-01-03", 45000, OPERACION_CLAVE_APORT_VOLUNTARIA, 1, "Prueba de AML 3");
$x2Rec->setFinalizarRecibo(true);
$xHFrm->addHElem("<p class='aviso'>" . $x2Rec->getMessages(OUT_HTML) . "</p>");
$xAML->setGuardarPerfilTransaccional(101, "MX", 10000, 10, "");
$xAML->setGuardarPerfilTransaccional(201, "MX", 20000, 2, "");
$xAML->setGuardarPerfilTransaccional(301, "MX", 30000, 3, "");
$xAML->setGuardarPerfilTransaccional(401, "MX", 40000, 4, "");
}
$xHFrm->addHElem("<p class='aviso'>" . $xCred->getMessages(OUT_HTML) . "</p>");
}
//$xHFrm->addHElem( $txt );
//$xHFrm->addHElem( $xF->show(true) );
//$xHFrm->addHElem( "<p class='aviso'>La $miFecha, Dias del Mes==". $xF->getDiasDelMes() ."</p>");
//$xAML->getSimilaresPorNombre("jose leonides", "cocom");
$xCta->setDeposito($monto2, $cheque, $comopago, $foliofiscal, "Origen {$tipo2}:" . $observaciones, DEFAULT_GRUPO, $fecha, $cRec->getCodigoDeRecibo());
}
if ($tipo3 != false and $monto3 > 0) {
$xCta->setDeposito($monto2, $cheque, $comopago, $foliofiscal, "Origen {$tipo2}:" . $observaciones, DEFAULT_GRUPO, $fecha, $cRec->getCodigoDeRecibo());
}
} else {
$msg .= "ERROR\tError en la carga de la cuentar {$cuenta}\r\n";
$sucess = false;
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
}
} else {
$idrecibo = $cRec->setNuevoRecibo($persona, DEFAULT_CREDITO, $fecha, 1, 5, $observaciones, $cheque, $comopago, $foliofiscal);
if ($tipo1 != false and $monto1 > 0) {
$cRec->setNuevoMvto($fecha, $monto1, $tipo1, 1, $observaciones, 1, TM_ABONO, $persona);
}
if ($tipo2 != false and $monto2 > 0) {
$cRec->setNuevoMvto($fecha, $monto2, $tipo2, 1, $observaciones, 1, TM_ABONO, $persona);
}
if ($tipo3 != false and $monto3 > 0) {
$cRec->setNuevoMvto($fecha, $monto3, $tipo3, 1, $observaciones, 1, TM_ABONO, $persona);
}
}
if (MODO_DEBUG == true) {
$msg .= $cRec->getMessages();
}
if ($sucess == true) {
$cRec->setFinalizarRecibo(true);
$xFRM->addHTML($cRec->getOPersona()->getFicha());
$xFRM->addHTML($cRec->getFicha());
<input type='button' name='btsend' value='GUARDAR DATOS'onClick='frmSubmit();'>
</form>
</fieldset>
<?php
$socio = $_POST["idsocio"];
$documento = $_POST["idsolicitud"];
$tipo = $_POST["tipodescuento"];
$monto = $_POST["monto"];
$parcialidad = $_POST["idparcialidad"];
$observaciones = $_POST["observaciones"];
$fecha_operacion = fechasys();
if (isset($socio) and $monto > 0) {
$xBtn = new cHButton("id-cmdImprimir");
$xRec = new cReciboDeOperacion(96, false);
$recibo = $xRec->setNuevoRecibo($socio, $documento, $fecha_operacion, $parcialidad, 96, $observaciones);
$xRec->setNuevoMvto($fecha_operacion, $monto, $tipo, $parcialidad, $observaciones, -1, TM_ABONO);
$xRec->setFinalizarRecibo();
echo $xRec->getFichaSocio();
echo $xRec->getFicha(true, "<tr><th colspan='4'>" . $xBtn->getImprimirRecibo() . "</th></tr>");
}
// end if
?>
</body>
<script >
<?php
if (isset($socio) and $monto > 0) {
echo $xRec->getJsPrint();
}
?>
</script>
</html>
function setEliminarInteresesDeCreditosPagados()
{
$msg = "";
//==============================================================================
$fecha = fechasys();
$cheque = DEFAULT_CHEQUE;
$recibo_fiscal = "NA";
$observaciones = "GENERADO_EN_LA_UTILERIA_883";
//==============================================================================
$CRecibo = new cReciboDeOperacion(1, false);
//Set a Mvto Contable
//$CRecibo->setGenerarPoliza();
//$CRecibo->setGenerarTesoreria();
$recibo = $CRecibo->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fecha, 1, 1, $observaciones, $cheque, "ninguno", $recibo_fiscal, DEFAULT_GRUPO);
$CRecibo->setNumeroDeRecibo($recibo);
//
$sql = "SELECT\n\t\t\t\t*\n\t\t\tFROM\n\t\t\t\t`creditos_solicitud` `creditos_solicitud`\n\t\t\tWHERE\n\t\t\t\t(`creditos_solicitud`.`saldo_actual` <= 0) AND\n\t\t\t\t(\n\t\t\t\t\t(`creditos_solicitud`.`interes_moratorio_devengado` != 0)\n\t\t\tOR\n\t\t\t\t\t(`creditos_solicitud`.`interes_normal_devengado` != 0)\n\t\t\t\t)";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$solicitud = $rw["numero_solicitud"];
$OpNormal = 420;
//420;
$OpMora = 421;
//431;
$MontoM = 0;
$MontoN = 0;
//terminado: oct/2011
$interesDN = $rw["interes_normal_devengado"];
$interesDM = $rw["interes_moratorio_devengado"];
$interesPN = $rw["interes_normal_pagado"];
$interesPM = $rw["interes_moratorio_pagado"];
if ($interesDN > $interesPN) {
$OpNormal = 140;
$MontoN = $interesDN - $interesPN;
} else {
$MontoN = $interesPN - $interesDN;
}
if ($interesDM > $interesPM) {
$OpNormal = 141;
$MontoM = $interesDM - $interesPM;
} else {
$MontoM = $interesPM - $interesDM;
}
if ($MontoN > 0) {
$CRecibo->setNuevoMvto($fecha, $MontoN, $OpNormal, 1, " Ajuste por {$MontoN} de {$interesDN} | {$interesPN} ", 1, TM_CARGO, $socio, $solicitud);
$msg .= "{$socio}\t{$solicitud}\tINTERES_NORMAL_DEV\tAjuste por {$MontoN} de {$interesDN} | {$interesPN} \r\n";
} else {
}
if ($MontoM > 0) {
$CRecibo->setNuevoMvto($fecha, $MontoN, $OpMora, 1, "Ajuste por {$MontoM} de {$interesDM} | {$interesPM}", 1, TM_CARGO, $socio, $solicitud);
$msg .= "{$socio}\t{$solicitud}\tINTERES_MOR_DEV\tAjuste por {$MontoM} {$interesDM} | {$interesPM} \r\n";
} else {
}
}
$msg .= $CRecibo->getMessages("txt");
$xCUtils = new cUtileriasParaCreditos();
$msg .= $xCUtils->setAcumularIntereses(true);
return $msg;
}
echo "<p class='warn'>La Clave de Persona de la representante(" . $codigo_rep . ") <br />\n\t\t\t\t\t\t\t\t\t\tNo concide con el Numero de la Planeacion (" . $DRec["socio"] . ") <br />\n\t\t\t\t\t\t\t\t\t\tSegun la Planeacion " . $DRec["recibo"] . " </p>";
} else {
//retirar de la cuenta 50
//obtener recibo de la garantia
if ($solo_simular == 0) {
$messages .= "Efectuar Retiro de la Socia {$codigo_rep} <br /> ";
$sqlSumGtiaLiquida = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tSUM( (`eacp_config_bases_de_integracion_miembros`.`afectacion` *\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real`) ) AS 'monto'\n\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =2500)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`docto_afectado` = {$credito})\n\t\t\t\t\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado` ";
$DG = obten_filas($sqlSumGtiaLiquida);
$GDocto = $DG["docto_afectado"];
$monto = $DG["monto"];
$GDate = date("Y-m-d");
//=============================retirar de garantia Liquida
if ($monto > 0) {
$xr = new cReciboDeOperacion(17);
$xr->setNuevorecibo($codigo_rep, $GDocto, $GDate, 1, 17, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", "NA", "ninguno", "NA", $grupo);
$xr->setNuevoMvto($GDate, $monto, 353, 1, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", 1, TM_CARGO);
$xr->setFinalizarRecibo();
//Mensages
$messages .= $xr->getMessages() . "<br />";
}
//===============================Retirar el Ahorro
//Buscar Ahorro
$xCR = new cCuentaALaVista("50" . $codigo_rep . "01");
$exist = $xCR->setContarCuentaBySocio($codigo_rep, 50);
//Si el Ahorro exisre proseguir en el retiro
if ($exist >= 1) {
$messages .= "Efectuar Retiro de Ahorro de la Socia {$codigo_rep} <br /> ";
$sqlSCta = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.*\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`numero_socio` = {$codigo_rep})\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_subproducto` = 50)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tLIMIT 0,1";
$RDG = obten_filas($sqlSCta);
$RCta = $RDG["numero_cuenta"];
$RMonto = $RDG["saldo_cuenta"];
$comopago = parametro("ctipo_pago", DEFAULT_TIPO_PAGO, MQL_RAW);
$foliofiscal = parametro("foliofiscal", DEFAULT_RECIBO_FISCAL);
$fecha = parametro("idfechacomision", fechasys());
$fecha = $xF->getFechaISO($fecha);
$com1 = parametro("idcom1", 0, MQL_FLOAT);
$ob1 = parametro("idob1", "");
$com2 = parametro("idcom2", 0, MQL_FLOAT);
$ob2 = parametro("idob2", "");
$com3 = parametro("idcom3", 0, MQL_FLOAT);
$ob3 = parametro("idob3", "");
$iva = parametro("idiva", 0, MQL_FLOAT);
$monto = $com1 + $com2 + $com3 + $iva;
$idrecibo = $xRec->setNuevoRecibo($persona, $credito, $fecha, 1, RECIBOS_TIPO_OINGRESOS, $detalles, $cheque, $comopago, $foliofiscal);
if (setNoMenorQueCero($idrecibo) > 0) {
if ($com1 > 0) {
$xRec->setNuevoMvto($fecha, $com1, OPERACION_CLAVE_COMISION_APERTURA, 1, $ob1, 1, TM_ABONO, $persona);
}
if ($com2 > 0) {
$xRec->setNuevoMvto($fecha, $com2, OPERACION_CLAVE_PAGO_CBZA, 1, $ob2, 1, TM_ABONO, $persona);
}
if ($com3 > 0) {
$xRec->setNuevoMvto($fecha, $com3, OPERACION_CLAVE_PAGO_COM_VARIAS, 1, $ob3, 1, TM_ABONO, $persona);
}
if ($iva > 0) {
$xRec->setNuevoMvto($fecha, $iva, OPERACION_CLAVE_PAGO_IVA_OTROS, 1, $detalles, 1, TM_ABONO, $persona);
}
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
if ($xRec->setFinalizarRecibo(true) == true) {
$xFRM->setAction("");
$xFRM->addHElem($xRec->getFichaSocio());
$xFRM->addHElem($xRec->getFicha(true));
function setGenerarPlanDePagos()
{
$msg = "";
$cRec = new cReciboDeOperacion(10);
$xRec = $cRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, fechasys(), 1, 10, "RECIBO_DE_AJUSTES_DE_PLAN_DE_PAGOS");
$msg .= "\t\tRECIBO\tEl Recibo de Operacion es {$xRec}\r\n";
$cRec->setNumeroDeRecibo($xRec, true);
//Concilia Creditos sin Planes de Pago a SISBANCS
$sql = "SELECT * FROM creditos_solicitud WHERE (SELECT\n\t\t\t\t\t\t\t\tCOUNT(credito) FROM sisbancs_suma_amorizaciones\n\t\t\t\t\t\t\t\tWHERE credito = creditos_solicitud.numero_solicitud) = 0\n\t\t\t\t\t\t\t\tAND saldo_actual > 0\n\t\t\t\t\t\t\t\tAND estatus_actual != 50 ";
$rs = getRecordset($sql);
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$credito = $rw["numero_solicitud"];
$saldo_actual = $rw["saldo_actual"];
$letra = $rw["ultimo_periodo_afectado"] + 1;
$fecha = sumardias($rw["fecha_ultimo_mvto"], $rw["periocidad_de_pago"]);
$monto = $saldo_actual;
$msg .= "{$socio}\t{$credito}\tAGREGAR\tUnica Letra por el SALDO de {$saldo_actual} \r\n";
$sqlIS = "INSERT INTO sisbancs_amortizaciones(socio, credito, parcialidad, fecha_de_vencimiento,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_vigente, saldo_vencido, interes_vigente, interes_vencido, saldo_interes_vencido, interes_moratorio,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testatus, iva_interes_normal, iva_interes_moratorio)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES ({$socio}, {$credito}, {$letra}, '{$fecha}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t{$saldo_actual}, 0, 0, 0, 0, 0,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t1, 0, 0)";
$cRec->setNuevoMvto($fecha, $monto, 410, $letra, "", 1, false, $socio, $credito);
$x = my_query($sqlIS);
if ($x["stat"] == false) {
$msg .= "{$socio}\t{$credito}\tERROR\t \r\n";
}
}
$msg .= $cRec->getMessages("txt");
return $msg;
}
if ($xRecCapt->setFinalizarRecibo(true) == true) {
$xFRM->OButton("TR.Recibo de Abono", "jsImprimirReciboCapital()", "imprimir");
$xFRM->addHTML($xRecCapt->getJsPrint(true, "jsImprimirReciboCapital"));
//finalizar tesoreria
$xRecCapt->setFinalizarTesoreria(array("cuenta" => $cuenta_cheques, "cheque" => $cheque));
}
$msg .= MODO_DEBUG == true ? $xRecCapt->getMessages() : "";
}
}
if ($montocomision > 0) {
$xRec = new cReciboDeOperacion();
$idrecibo = $xRec->setNuevoRecibo($idsocio, $idsolicitud, $fecha, 1, RECIBOS_TIPO_OINGRESOS, $observaciones, $cheque, TESORERIA_COBRO_DESCTO, $recibo_fiscal);
if (setNoMenorQueCero($idrecibo) > 0) {
$montocomision = round($montocomision * (1 / (1 + TASA_IVA)), 2);
$montoivacomi = round($montocomision * TASA_IVA, 2);
$xRec->setNuevoMvto($fecha, $montocomision, OPERACION_CLAVE_COMISION_APERTURA, 1, $observaciones, 1, TM_CARGO, $idsocio);
$xRec->setNuevoMvto($fecha, $montoivacomi, OPERACION_CLAVE_PAGO_IVA_OTROS, 1, $observaciones, 1, TM_CARGO, $idsocio);
//$xRec->addMvtoContableByTipoDePago($montocomision, TM_CARGO);
if ($xRec->setFinalizarRecibo(true) == true) {
$xFRM->OButton("TR.Recibo de Comisiones", "jsImprimirRecibo()", "imprimir");
$xFRM->addHTML($xRec->getJsPrint(true));
$xRec->setFinalizarTesoreria(array("cuenta" => $cuenta_cheques, "cheque" => $cheque));
}
$msg .= MODO_DEBUG == true ? $xRec->getMessages() : "";
}
}
//Buttons
$xFRM->OButton("TR.VER/IMPRIMIR PAGARE DE CREDITO", "printpagare();", "imprimir", 'id1');
$xFRM->OButton("TR.VER/IMPRIMIR CONTRATO DE CREDITO", "contratocredito();", "imprimir", 'id2');
$xFRM->OButton("TR.IMPRIMIR MANDATO", "printmandato()", "imprimir", "id3");
} else {
if (setNoMenorQueCero($monto) > 0) {
$xT = new cTipos();
$Fecha = parametro("idfechadepago", false);
$Fecha = $Fecha == false ? fechasys() : $xF->getFechaISO($Fecha);
$observacion = parametro("idobservaciones", "");
$monto = parametro("idmonto", 0, MQL_FLOAT);
$cheque = parametro("cheque", DEFAULT_CHEQUE);
$comopago = parametro("ctipo_pago", DEFAULT_TIPO_PAGO, MQL_RAW);
$foliofiscal = parametro("foliofiscal", DEFAULT_RECIBO_FISCAL);
$fecha_de_operacion = $Fecha;
$xRec = new cReciboDeOperacion(20);
//$xRec->setGenerarBancos();
//$xRec->setGenerarPoliza();
//$xRec->setGenerarTesoreria();
$idrecibo = $xRec->setNuevoRecibo($persona, 1, $fecha_de_operacion, 1, 20, $observacion, $cheque, $comopago, $foliofiscal, DEFAULT_GRUPO);
$xRec->setNuevoMvto($fecha_de_operacion, $monto, 1001, 1, $observacion, 1, TM_ABONO);
//agregar Poliza
$xRec->addMvtoContableByTipoDePago();
//Finalizar recibo
$xRec->setFinalizarRecibo(true);
$xRec->init();
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha(true));
$xFRM->addHTML($xRec->getJsPrint(true));
$xFRM->OButton("TR. Imprimir recibo", "jsImprimirRecibo()", "imprimir", "idrec-dep");
$xFRM->addCerrar();
if (MODO_DEBUG == true) {
$msg .= $xRec->getMessages();
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
function jsaVincularEmpresa($credito, $observaciones, $empresa)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->get();
// FechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_NOMINA);
$xCred->setResetPersonaAsociada($fecha, $observaciones, $empresa);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_VINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
$idsolicitud = $_POST["idsolicitud"];
$montoop = $_POST["monto_cargado"];
$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;
$comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO;
$foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL;
if (setNoMenorQueCero($idsocio) <= 0) {
//header("location: frmcobrodemultas.php?msg=FALTAN_DATOS");
$xFRM->addAvisoRegistroError();
} else {
if (setNoMenorQueCero($monto) <= 0) {
$xFRM->addAvisoRegistroError();
} else {
$iddocto = DEFAULT_CREDITO;
$xRec = new cReciboDeOperacion(RECIBOS_TIPO_TERCEROS, false, false);
$xRec->setGenerarBancos();
$xRec->setGenerarPoliza();
$xRec->setGenerarTesoreria();
$idrecibo = $xRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, RECIBOS_TIPO_TERCEROS, $observaciones, $cheque, $comopago, $foliofiscal);
$xRec->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MULTAS, 1, $observaciones, 1, TM_ABONO, $idsocio);
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$xRec->setFinalizarRecibo(true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha());
$xFRM->addPrintRecibo();
$xFRM->addHTML($xRec->getJsPrint(true));
$xFRM->addAvisoRegistroOK();
if (MODO_DEBUG == true) {
$xFRM->addAviso($xRec->getMessages());
}
}
}
}
echo $xFRM->get();
$xHP->fin();
$fecha = $VR["elanno98"] . "-" . $VR["elmes98"] . "-" . $VR["eldia98"];
$cheque = $VR["cheque"];
$comopago = $VR["ctipo_pago"];
$foliofiscal = $VR["foliofiscal"];
//--------------------------------------- DATOS DEL RECIBO -----------------------------------------------
$montooperacion = $monto;
// AFECTACION DEL MONTO, SEGUN RECIBO.
$sdoin = $VR["montooriginal"];
// SALDO INICIAL DEL RECIBO.
$sdofin = $sdoin - $monto;
// SALDO FINAL DEL RECIBO.
$cRec = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false);
//$cRec->setGenerarBancos();
$cRec->setGenerarPoliza();
$cRec->setGenerarTesoreria();
$idrecibo = $cRec->setNuevoRecibo($idsocio, DEFAULT_CREDITO, $fecha, 1, 99, $observaciones, $cheque, $comopago, $foliofiscal);
$cRec->setNuevoMvto($fecha, $monto, $tipo_de_operacion, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$cRec->setFinalizarRecibo(true);
$cfSocio = new cFicha(iDE_SOCIO, $idsocio);
$cfSocio->setTableWidth();
$cfSocio->show();
echo $cRec->getFicha(true);
echo $msg_rec_end;
echo $cRec->getJsPrint(true);
}
?>
</fieldset>
</body>
</html>
<?php
} else {
$fecha = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$banco = isset($_POST["cBanco"]) ? $_POST["cBanco"] : false;
$numOperacion = isset($_POST["cOperacion"]) ? $_POST["cOperacion"] : false;
$monto = isset($_POST["cMonto"]) ? $_POST["cMonto"] : false;
$observaciones = isset($_POST["observaciones"]) ? $_POST["observaciones"] : "";
if ($monto != false and $banco != false) {
$xRec = new cReciboDeOperacion(201, true);
$xRec->setGenerarBancos(false);
$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$xRec->setCuentaBancaria($banco);
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, 1, $fecha, 1, 201, $observaciones, "NA", "efectivo", "NA", DEFAULT_GRUPO, $banco);
$xRec->setNumeroDeRecibo($idrecibo);
$xRec->setNuevoMvto($fecha, $monto, 9301, 1, $observaciones, 1, TM_ABONO, DEFAULT_SOCIO);
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$xRec->setFinalizarRecibo(true);
//Agregar la Operacion Bancaria
$xB = new cCuentaBancaria($banco);
$xB->setNewRetiro($numOperacion, $idrecibo, "PAGO DEL IDE", $monto, $fecha);
//
echo $xRec->getFicha();
//
echo "<input type='button' onclick='jsPrintIDE()' value='Imprimir Recibo' />";
}
}
?>
</body>
<script >
function jsPrintIDE() {
function jsaAjustarTotal($recibo, $nuevoTotal, $nuevaletra)
{
$xRec = new cReciboDeOperacion(false, true, $recibo);
$xRec->init();
$xRec->setGenerarBancos(false);
$xRec->setGenerarPoliza(false);
$xRec->setGenerarTesoreria(false);
$xRec->setForceUpdateSaldos(true);
$total = $xRec->getTotal();
$QL = new MQL();
$DMov = new cOperaciones_mvtos();
$msg = "";
if ($nuevoTotal < $total) {
$NRec = new cReciboDeOperacion($xRec->getTipoDeRecibo(), false, $recibo);
$idNRec = $NRec->setNuevoRecibo($xRec->getCodigoDeSocio(), $xRec->getCodigoDeDocumento(), $xRec->getFechaDeRecibo(), 0, $xRec->getTipoDeRecibo(), "AJUSTE DEL RECIBO {$recibo}");
$NRec->setForceUpdateSaldos(true);
$NRec->setGenerarBancos(false);
$NRec->setGenerarPoliza(false);
$NRec->setGenerarTesoreria(false);
/*`idoperaciones_mvtos`,
`operaciones_mvtos`.`fecha_operacion`,
`operaciones_mvtos`.`fecha_afectacion`,
`operaciones_mvtos`.`recibo_afectado`,
`operaciones_mvtos`.`socio_afectado`,
`operaciones_mvtos`.`docto_afectado`,
`operaciones_mvtos`.`tipo_operacion`,
`operaciones_mvtos`.`afectacion_real` */
$sql = "SELECT\n\t\t\t`operaciones_mvtos`.*\n\n\t\tFROM\n\t\t\t`operaciones_mvtos` `operaciones_mvtos` \n\t\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos` \n\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t\t`idoperaciones_tipos` \n\t\tWHERE\n\t\t\t(`operaciones_mvtos`.`recibo_afectado` ={$recibo}) \n\t\tORDER BY\n\t\t\t`operaciones_mvtos`.`tipo_operacion` DESC ";
$rs = $QL->getDataRecord($sql);
$arrops = array();
foreach ($rs as $rw) {
$DMov->setData($rw);
$NMonto = $DMov->afectacion_real()->v();
$IDOpe = $DMov->idoperaciones_mvtos()->v();
if ($nuevoTotal > 0) {
$nuevoTotal -= $NMonto;
$msg .= $IDOpe . " \t {$nuevoTotal} DE {$NMonto}\r\n";
if ($nuevoTotal < 0) {
$msg .= "CUADRAR {$NMonto} DE {$nuevoTotal} \r\n";
$nuevoTotal = $nuevoTotal * -1;
$dif = $NMonto - $nuevoTotal;
$sql = "UPDATE operaciones_mvtos \n\t\t\t\t\t\t\tSET afectacion_real={$dif}, afectacion_cobranza={$dif}, afectacion_contable={$dif},\n\t\t\t\t\t\t\tafectacion_estadistica={$dif} WHERE idoperaciones_mvtos={$IDOpe} ";
$x = my_query($sql);
$msg .= $x[SYS_INFO];
//agregar el movimiento al nuevo recibo con cargos
$NRec->setNuevoMvto($DMov->fecha_operacion()->v(), $nuevoTotal, $DMov->tipo_operacion()->v(), $DMov->periodo_socio()->v(), "SEPARACION DEL MVTO {$IDOpe} {$nuevoTotal}", $DMov->valor_afectacion()->v(), false, $DMov->socio_afectado()->v(), $DMov->docto_afectado()->v(), $DMov->fecha_afectacion()->v(), $DMov->fecha_vcto()->v(), $DMov->saldo_anterior()->v(), $DMov->saldo_actual()->v());
//listo
$nuevoTotal = 0;
}
} else {
$arrops[$DMov->idoperaciones_mvtos()->v()] = $DMov->afectacion_real()->v();
}
}
//$total = $total * -1;
foreach ($arrops as $operacion => $monto) {
$x = my_query("UPDATE operaciones_mvtos SET recibo_afectado={$idNRec} WHERE idoperaciones_mvtos={$operacion}");
//100 - 50
//$dif = $monto - $total;
$msg .= $x[SYS_INFO];
}
$NRec->setFinalizarRecibo(true);
$msg .= $NRec->getMessages(OUT_TXT);
$xRec->setFinalizarRecibo(true);
} else {
$msg .= "WARN\tNO SE MODIFICA NADA({$nuevoTotal}|{$total})\r\n";
}
$msg .= $xRec->getMessages(OUT_TXT);
return $msg;
}
