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"); }
function jsaSetPago($Recibo, $cuentabancaria, $monto, $fecha, $referencia) { $xF = new cFecha(); $fecha = $xF->getFechaISO($fecha); $xCta = new cCuentaBancaria($cuentabancaria); $msg = ""; if ($xCta->init() == true) { $xCta->setNuevoRetiro($referencia, $Recibo, "", $monto, $fecha); $xRec = new cReciboDeOperacion(false, false, $Recibo); $xRec->setDatosDePago(AML_CLAVE_MONEDA_LOCAL, $monto, $referencia, TESORERIA_PAGO_TRANSFERENCIA); } }
function jsaGetReciboEnSesion($ctrl) { if (isset($_SESSION["recibo_en_proceso"])) { $recibo = $_SESSION["recibo_en_proceso"]; $xRec = new cReciboDeOperacion(200, false, $recibo); $xRec->setNumeroDeRecibo($recibo, true); $xRec->setGenerarPoliza(); $xRec->setForceUpdateSaldos(); $xRec->setFinalizarRecibo(true); } return "<input type=\"button\" value=\"Imprimir el Recibo # " . $_SESSION["recibo_en_proceso"] . "\" onclick=\"cImprimirRecibo(" . $_SESSION["recibo_en_proceso"] . ")\" id=\"idButtonGo\" />"; }
function jsaSetPago($Recibo, $cuentabancaria, $monto, $fecha, $cheque) { $xF = new cFecha(); $fecha = $xF->getFechaISO($fecha); $xCta = new cCuentaBancaria($cuentabancaria); $msg = ""; if ($xCta->init() == true) { $xCta->setNuevoCheque($cheque, $cuentabancaria, $Recibo, "", $monto, $fecha); $xRec = new cReciboDeOperacion(false, false, $Recibo); $xRec->setDatosDePago(AML_CLAVE_MONEDA_LOCAL, $monto, $cheque, TESORERIA_PAGO_CHEQUE); } //if(MODO_DEBUG == true){ setLog($xCta->getMessages()); } }
function Common_c8581154ac4e27cb0e122d71341dd7d8($strCmd) { $DPar = explode(STD_LITERAL_DIVISOR, $strCmd); $xTip = new cTipos(); // $socio = $xTip->cInt($DPar[0]); $cuenta = $xTip->cInt($DPar[1]); $deposito = $xTip->cFloat($DPar[2]); $retiro = $xTip->cFloat($DPar[3]); $nota = $xTip->cChar($DPar[4]); $numero = $xTip->cInt($DPar[5]); $limit = $xTip->cInt($DPar[6]); if (isset($_SESSION["recibo_en_proceso"])) { $recibo = $_SESSION["recibo_en_proceso"]; $fecha = fechasys(); $_SESSION["total_recibo_en_proceso"] += $deposito - $retiro; $xRec = new cReciboDeOperacion(200, false, $recibo); $xRec->setNumeroDeRecibo($recibo, true); $DRec = $xRec->getDatosInArray(); $cheque = $DRec["cheque_afectador"]; $tipopago = $DRec["tipo_pago"]; $recibofiscal = $DRec["recibo_fiscal"]; if ($deposito > 0 or $retiro > 0) { $xC = new cCuentaALaVista($cuenta); $grupo = DEFAULT_GRUPO; $xC->setSocioTitular($socio); $xC->setReciboDeOperacion($recibo); if ($deposito > 0) { $xC->setDeposito($deposito, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo); } if ($retiro > 0) { $xC->setRetiro($retiro, $cheque, $tipopago, $recibofiscal, $nota, $grupo, $fecha, $recibo); } } if ($numero == $limit) { $xRec->setForceUpdateSaldos(); $xRec->setFinalizarRecibo(true); //$MsgEnd .= "**** proceso terminado ****"; } } //retorna el id del control de origen para neutralizar return "-{$numero}"; }
$recibo = $xCta->setDeposito($monto, $cheque, $comopago, $folio_fiscal, $detalles, DEFAULT_GRUPO, $Fecha); //si el IDE es mayor a cero if ($ide > 0) { $saldo = $xCta->getNuevoSaldo(); $ide_observacion = "Retencion Generada por un Deposito de {$monto}, Recibo {$recibo}, saldo de {$saldo}"; //Si el Saldo de la Cuenta es Mayor al IDE if ($saldo > $ide) { $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion); } else { //Si no el IDE es igual al Saldo $ide = $saldo; $reciboIDE = $xCta->setRetenerIDE($Fecha, false, $ide, $ide_observacion); } } //Imprime la Ficha del socio $xRec = new cReciboDeOperacion(); $xRec->setNumeroDeRecibo($recibo, true); $xFRM->addHTML($xRec->getFichaSocio()); $xFRM->addHTML($xRec->getFicha(true)); $xFRM->addHTML($xRec->getJsPrint(true)); if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) { if ($ReciboIDE != 0) { $xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de impuestos", "jsPrintIDE()", "imprimir", "idrec-ide", false)); } } if (MODO_DEBUG == true) { $msg .= $xCta->getMessages(); $msg .= $xRec->getMessages(); $xFL = new cFileLog(false, true); $xFL->setWrite($msg); $xFL->setClose();
function add($persona, $tipo, $fecha, $valor, $documento, $tipo_de_documento = false, $usuario = false, $hora = false, $instrumento = false, $tipo_de_operacion = false, $tercero_relacionado = DEFAULT_SOCIO, $mensajes = "", $inmediato = false) { $hora = $hora == false ? date("Hi") : $hora; $usuario = $usuario == false ? getUsuarioActual() : $usuario; $tipo_de_documento = $tipo_de_documento == false ? iDE_RECIBO : $tipo_de_documento; $instrumento = setNoMenorQueCero($instrumento); if ($instrumento <= 0 or setNoMenorQueCero($tipo_de_operacion) <= 0) { switch ($tipo_de_documento) { case iDE_RECIBO: $EqOps = new cSistemaEquivalencias(TOPERACIONES_RECIBOSTIPOS); $EqTes = new cSistemaEquivalencias(TTESORERIA_TIPOS_DE_PAGO); $xRec = new cReciboDeOperacion(false, false, $documento); $instrumento = $EqTes->get($xRec->getTipoDePago()); $tipo_de_operacion = $EqOps->get($xRec->getTipoDeRecibo()); if ($xRec->isDivisaExtranjera() == true) { $instrumento = AML_OPERACIONES_CLAVE_DIVISA; } if ($tipo_de_operacion == null) { $tipo_de_operacion = "01"; } break; } } if ($inmediato == true) { $inmediato = 1; } $inmediato = setNoMenorQueCero($inmediato); $xPR = new cAml_risk_register(); $xPR->clave_de_riesgo($xPR->query()->getLastID()); $xPR->escore($valor); $xPR->fecha_de_reporte($fecha); $xPR->hora_de_reporte($hora); $xPR->persona_relacionada($persona); $xPR->tipo_de_riesgo($tipo); $xPR->usuario_de_origen($usuario); $xPR->tipo_de_documento($tipo_de_documento); $xPR->documento_relacionado($documento); $xPR->estado_de_envio(SYS_UNO); $xPR->fecha_de_envio(0); $xPR->estado_de_envio(0); $xPR->fecha_de_checking(0); $xPR->oficial_de_checking(AML_OFICIAL_DE_CUMPLIMIENTO); $xPR->monto_total_relacionado(0); //cargar datos del recibo $xPR->instrumento_financiero($instrumento); //mejorar segun catalogo CNBV $xPR->tipo_de_operacion($tipo_de_operacion); $xPR->tercero_relacionado($tercero_relacionado); $xPR->mensajes_del_sistema($mensajes); $xPR->reporte_inmediato($inmediato); $ql = $xPR->query()->insert(); $ql->save(); $this->mMessages .= $ql->getMessages(OUT_TXT); }
$xHP = new cHPage("Recibo de Cobros", HP_RECIBO); $xHP->addCSS("../css/tinybox.css"); $xHP->addJsFile("../js/tinybox.js"); $oficial = elusuario($iduser); $xT = new cTipos(); $xFRM = new cHForm("frmrecibo"); $xF = new cFecha(); $recibo = parametro("recibo", false); $xQl = new MQL(); echo $xHP->getHeader(); if ($recibo == false) { header("location:../404.php?i=" . DEFAULT_CODIGO_DE_ERROR); } $arrQ = array("aumento" => 1, "disminucion" => -1, "ninguna" => 0); //capturar datos del recibo $xRec = new cReciboDeOperacion(false, false, $recibo); $xRec->init(); $DRec = $xRec->getDatosInArray(); $idsocio = $xRec->getCodigoDeSocio(); // $DRec["numero_socio"]; $numero_de_socio = $xRec->getCodigoDeSocio(); //$DRec["numero_socio"]; $afectaCaja = $arrQ[$DRec["afectacion_en_flujo_efvo"]]; //datos del socio $cSoc = new cSocio($numero_de_socio); $DSoc = $cSoc->getDatosInArray(); $numero_caja_local = $DSoc["cajalocal"]; $cCL = new cCajaLocal($numero_caja_local); $caja_local = $cCL->getNombre(); $variable_nombre_del_socio = $idsocio == DEFAULT_SOCIO ? $DRec["cadena_distributiva"] : $cSoc->getNombreCompleto(); $tipo_de_pago = $xRec->getTipoDePago();
$title = "PLANEACION DEL CREDITO EN GRUPOS SOLIDARIOS EN ETAPA DE AUTORIZACION"; $thTit = "Monto Autorizado"; $idplan = $_GET["plan"]; $tipo_docto = 40; $rs_find_plan = false; if (!isset($idplan)) { $idgrupo = $_GET["on"]; $sql_find_plan = "SELECT * FROM operaciones_recibos WHERE grupo_asociado={$idgrupo} AND tipo_docto=14 LIMIT 0,1"; $rs_find_plan = obten_filas($sql_find_plan); $idplan = $rs_find_plan["idoperaciones_recibos"]; } // echo ""; // //$rsrain = mysql_query($sqlrain); $xRec = new cReciboDeOperacion($tipo_docto, $idplan); $xRec->setNumeroDeRecibo($idplan, true, $rs_find_plan); $rsr = $xRec->getDatosReciboInArray(); //while ($rsr = mysql_fetch_array($rsrain)) { $idgrupo = $rsr["grupo_asociado"]; $tipo_docto = $rsr["tipo_docto"]; // $sql_infogroup = "select * from socios_grupossolidarios "; $sql_infogroup .= " where idsocios_grupossolidarios={$idgrupo}"; $lafila = the_row($sql_infogroup); // $nombregrupo = $lafila["nombre_gruposolidario"]; $presidenta = $lafila["representante_numerosocio"]; $mynom = getNombreSocio($presidenta); $nomrep = $lafila["representante_nombrecompleto"]; $nomvv = $lafila["vocalvigilancia_nombrecompleto"];
function add($cuenta, $Operacion, $DoctoDeSoporte, $recibo, $beneficiario, $monto, $persona = false, $fecha = false, $autorizo = false, $descuento = 0, $cuenta_de_origen = false, $tipo_de_exhibicion = "", $moneda = AML_CLAVE_MONEDA_LOCAL) { $xF = new cFecha(); $cuenta = setNoMenorQueCero($cuenta); $recibo = setNoMenorQueCero($recibo); $cuenta_de_origen = setNoMenorQueCero($cuenta_de_origen); $monto = setNoMenorQueCero($monto); $DoctoDeSoporte = setNoMenorQueCero($DoctoDeSoporte); $persona = setNoMenorQueCero($persona) == 0 ? DEFAULT_SOCIO : setNoMenorQueCero($persona); $autorizo = setNoMenorQueCero($autorizo); $id = 0; if ($recibo > 0 and $persona <= DEFAULT_SOCIO) { $xRec = new cReciboDeOperacion(false, false, $recibo); if ($xRec->init() == true) { $persona = $persona <= DEFAULT_SOCIO ? $xRec->getCodigoDeSocio() : $persona; $tipo_de_exhibicion = $tipo_de_exhibicion == "" ? $xRec->getTipoDePago() : $tipo_de_exhibicion; $fecha = $fecha == false ? $xRec->getFechaDeRecibo() : $fecha; if (trim($beneficiario) == "") { if ($xRec->getOPersona() != null) { $beneficiario = $xRec->getOPersona()->getNombreCompleto(OUT_TXT); } } } } $fecha = $xF->getFechaISO($fecha); $tipo_de_exhibicion = $tipo_de_exhibicion == "" ? "transferencia" : $tipo_de_exhibicion; if ($cuenta > 0 and $monto > 0) { $xOp = new cBancos_operaciones(); $xOp->idcontrol($xOp->query()->getLastID()); $xOp->beneficiario($beneficiario); $xOp->clave_de_conciliacion(0); $xOp->clave_de_moneda($moneda); $xOp->cuenta_bancaria($cuenta); $xOp->cuenta_de_origen($cuenta_de_origen); $xOp->eacp(EACP_CLAVE); $xOp->estatus($this->AUTORIZADO); $xOp->fecha_expedicion($fecha); $xOp->idusuario(getUsuarioActual()); $xOp->monto_descontado($descuento); $xOp->monto_real($monto); $xOp->numero_de_documento($DoctoDeSoporte); $xOp->numero_de_socio($persona); $xOp->recibo_relacionado($recibo); $xOp->sucursal(getSucursal()); $xOp->tipo_de_exhibicion($tipo_de_exhibicion); $xOp->tipo_operacion($Operacion); $xOp->usuario_autorizo($autorizo); $id = $xOp->query()->insert()->save(); } return $id; }
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"]; $idgrupo = $_POST["idgrupo"]; $idprograma = $_POST["programaorigen"]; $annoinforme = $_POST["annoinforme"]; $capital = $_POST["capital"]; $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);
?> </td> </tr> <tr> <th colspan='2'><input type='button' name='btnEnviar' value='CONSULTAR MOVIMIENTOS DEL RECIBO' onClick='frmdelrecibos.submit();'></th> </tr> </table> </fieldset> </form> <hr /> <?php $idrecibo = $_POST["idrecibo"]; if (!$idrecibo) { exit($msg_rec_warn . $fhtm); } $xRec = new cReciboDeOperacion(false, false, $idrecibo); $xRec->init(); echo $xRec->getFicha(true, "", true); $uri = $xRec->getURI_Formato(); /* ----------------- DATOS --------------- */ // $numeroops = "SELECT COUNT(idoperaciones_mvtos) AS 'obtener' FROM operaciones_mvtos WHERE recibo_afectado=$idrecibo"; // $nopers = mifila($numeroops, "obtener"); $sqlmvto = "SELECT\n\t\t`operaciones_mvtos`.`idoperaciones_mvtos` AS `codigo`,\n\t\t`operaciones_mvtos`.`socio_afectado` AS `socio`,\n\t\t`operaciones_mvtos`.`docto_afectado` AS `documento`,\n\t\t`operaciones_mvtos`.`fecha_operacion` AS `operado`,\n\t\t`operaciones_mvtos`.`fecha_afectacion` AS `afectado`,\n\n\t\t`operaciones_mvtos`.`tipo_operacion` AS `operacion`,\n\t\t`operaciones_tipos`.`descripcion_operacion` AS `descripcion`,\n\t\t`operaciones_mvtos`.`afectacion_real` AS `monto`\n\tFROM\n\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\tINNER JOIN `operaciones_tipos` `operaciones_tipos`\n\t\t\tON `operaciones_mvtos`.`tipo_operacion` = `operaciones_tipos`.\n\t\t\t`idoperaciones_tipos`\n\tWHERE\n\t\t(`operaciones_mvtos`.`recibo_afectado` ={$idrecibo})\n\tORDER BY\n\t\t`operaciones_mvtos`.`fecha_operacion`,\n\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t`operaciones_mvtos`.`docto_afectado`\n\t"; $cEdit = new cTabla($sqlmvto); $cEdit->addTool(1); $cEdit->addTool(2); $cEdit->setKeyField("idoperaciones_mvtos"); $nopers = $cEdit->getRowCount(); $cEdit->Show("", false); echo "<form name='frmgoelim' action='clseliminarrecibos.php' method='POST'>\n\t<hr />\n\t<input type='hidden' name='idrecibo' value='{$idrecibo}'>\n\t<table border='0'>\n\n\t\t<tr>\n\t\t<th><input type='button' name='btsend' value='EDITAR RECIBO' onClick='actualizaRec({$idrecibo});'></th>\n\t\t<th><input type='button' name='btsend' value='ELIMINAR RECIBO Y OPERACIONES' onClick='frmgoelim.submit();'></th>\n\t\t<th><a class=\"button\" onclick=\"ImprimirRecibo();\" > Reimprimir Recibo </a></th>\n\t\t</tr>\n\t</table>\n\t<hr />\n\t</form>\n\t<p class='aviso'>Numero de Operaciones: {$nopers}</p>\n\t</fieldset>"; ?>
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}"; }
$tipo_de_operacion = $VR["tiporecibo"]; $idsocio = $VR["idsocio"]; $observaciones = $VR["observaciones"]; $cadena = $VR["nombresocio"]; $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); } ?>
function setTraspaso($CuentaDestino, $TipoDestino, $observaciones = "", $monto = false) { if ($this->mCuentaIniciada == false) { $this->init(); } $cuentaOrigen = $this->mNumeroCuenta; $socio = $this->mSocioTitular; $saldoOrigen = $this->mSaldoActual; $fechaOperacion = fechasys(); $tipoPago = TESORERIA_COBRO_NINGUNO; $cheque = "NA"; $reciboFiscal = ""; $tipoDocumento = 9; $msg = ""; if ($TipoDestino == CAPTACION_TIPO_PLAZO) { $xCDestino = new cCuentaInversionPlazoFijo($CuentaDestino, $socio); } else { $xCDestino = new cCuentaALaVista($CuentaDestino, $socio); } $xCDestino->init(); if ($monto > $saldoOrigen) { $msg .= "ERROR\tEl Monto a Retirar {$monto} es mayor al saldo de Origen {$saldoOrigen} \r\n"; } else { //Crear el Recibo $xRec = new cReciboDeOperacion($tipoDocumento); $ReciboTrasp = $xRec->setNuevoRecibo($socio, $cuentaOrigen, $fechaOperacion, 1, $tipoDocumento, $observaciones, $cheque, $tipoPago); $xRec->setNumeroDeRecibo($ReciboTrasp); $xRec->setGenerarPoliza(); $xRec->setForceUpdateSaldos(); $xRec->initRecibo(); $this->setCuentaBancaria(DEFAULT_CUENTA_BANCARIA); $this->setReciboDeOperacion($ReciboTrasp); $this->setForceOperations(true); $xCDestino->setReciboDeOperacion($ReciboTrasp); $this->setRetiro($monto, $cheque, $tipoPago, $reciboFiscal, $observaciones, DEFAULT_GRUPO, $fechaOperacion, $ReciboTrasp); $xCDestino->setDeposito($monto, $cheque, $tipoPago, $reciboFiscal, $observaciones, DEFAULT_GRUPO, $fechaOperacion, $ReciboTrasp); $xRec->setFinalizarRecibo(true); $msg .= $xRec->getMessages("txt"); } return $msg; }
$permiso = getSIPAKALPermissions($theFile); if ($permiso === false) { header("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes($theFile); //<===== FIN_H $iduser = $_SESSION["log_id"]; //===================================================================================================== include_once "../core/entidad.datos.php"; include_once "../core/core.deprecated.inc.php"; include_once "../core/core.fechas.inc.php"; include_once "../libs/sql.inc.php"; include_once "../core/core.config.inc.php"; include_once "../core/core.operaciones.inc.php"; $oficial = elusuario($iduser); $idrec = $_POST["idrecibo"]; //$frn = $_GET["u"]; if (!$idrec) { echo JS_CLOSE; } $cRec = new cReciboDeOperacion(false, false, $idrec); $cRec->setNumeroDeRecibo($idrec); $cRec->setRevertir(); //echo $cRec->getMessages("html"); saveError(10, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "EL Usuario {$oficial} Elimino el Recibo {$idrec} y sus Operaciones"); if ($u == "exn") { header("location: frmeditarrecibos.php"); } else { header("location: frmeliminarrecibos.php"); } //*/
$razones = $xRisk->razones_de_reporte()->v(OUT_TXT); //obtiene las razones de cada operacion presente. $recibo = $xRisk->documento_relacionado()->v(); $cont = array(); $linea = ""; $cont[1] = $xLayout->getClave(); $cont[2] = $FechaExtraccion; $cont[3] = $operaciones == 0 ? 1 : $operaciones; $cont[4] = "01" . $xT->cSerial(3, $supervisor); //clave nacional de entidad supervisora 1002 = CNBV $cont[5] = $casfin; $cont[6] = $xLoc->DomicilioLocalidadClave(); // cambiar por la UIF $cont[7] = $xLoc->DomicilioCodigoPostal(); // CP de la sucursal $xRec = new cReciboDeOperacion(false, false, $recibo); $xRec->init(); $docto_relacionado = $xRec->getCodigoDeDocumento() == DEFAULT_CREDITO ? $xRec->getCodigoDeRecibo() : $xRec->getCodigoDeDocumento(); $cont[8] = $xEquivOps->get($xRec->getTipoDeRecibo()); // Tipo de Operacion 01 deposito 02 retiro 03 compra divisas 04 venta divisas $cont[9] = $xEquivInst->get($xRec->getTipoDePago()); //TODO: Instrumento monetario $cont[10] = $docto_relacionado; $cont[11] = $xRec->getTotal(); $cont[12] = $xRec->getMoneda(); $cont[13] = $xRec->getFechaDeRecibo(); $cont[14] = $fechaDetec; //inusuales $cont[15] = $nac; $cont[16] = $tp; $nombresujeto = $xT->getCSV($xSoc->getNombre());
$xCred->init(); $idrecibo = $xCred->getNumeroDePlanDePagos(); if (setNoMenorQueCero($idrecibo) > 0) { } else { exit(JS_CLOSE); } } else { exit(JS_CLOSE); } } $xHP->setTitle($xHP->getTitle() . " # {$idrecibo}"); echo $xHP->getHeader(true); echo $xHP->setBodyinit("window.print()"); echo $xHP->getEncabezado(); $PlanBody = $xHP->h1() . "<hr />"; $xRec = new cReciboDeOperacion(false, false, $idrecibo); $xRec->init(); $xSoc = $xRec->getSocio(); $xSoc->init(); $xCred = $xRec->getCredito(); $xCred->init(); $xF = new cFecha(); $idsocio = $xSoc->getCodigo(); //"numero_socio" $idsolicitud = $xRec->getCodigoDeDocumento(); // docto_afectado $nombre = $xSoc->getNombreCompleto(); // ------------------------------------ DATOS DE LA SOLICITUD. $tasa_ahorro = $xCred->getTasaDeAhorro() * 100; $tasa_interes = $xCred->getTasaDeInteres() * 100; $dias_totales = $xCred->getDiasAutorizados();
$cont[5] = $casfin; $cont[6] = $xLoc->DomicilioLocalidadClave(); // cambiar por la UIF $cont[7] = $xLoc->DomicilioCodigoPostal(); // CP de la sucursal $docto_relacionado = $OAEc == null ? $OAEc->getNumeroDeSeguridadSocial() : $xRisk->documento_relacionado()->v(); //($xRec->getCodigoDeDocumento() == DEFAULT_CREDITO) ? $xRec->getCodigoDeRecibo() : $xRec->getCodigoDeDocumento(); $fecha_de_op = $xF->getFechaByInt($xRisk->fecha_de_reporte()->v()); $instrumento = $xRisk->instrumento_financiero()->v(); $tipo_de_op = $xRisk->tipo_de_operacion()->v(); $total = $xRisk->monto_total_relacionado()->v(); $moneda = AML_CLAVE_MONEDA_LOCAL; //TODO: Agregar soporte para captación y colocación switch ($tipo_de_obj) { case iDE_RECIBO: $xRec = new cReciboDeOperacion(false, false, $recibo); if ($xRec->init() == true) { if ($xRec->getCodigoDeSocio() == $tercero) { $tipo_de_op = $xEquivOps->get($xRec->getTipoDeRecibo()); $instrumento = $xEquivInst->get($xRec->getTipoDePago()); $moneda = $xRec->getMoneda(); $total = $xRec->getTotal(); } else { $msg .= "ERROR\tLa persona {$tercero} no es misma del recibo {$recibo}- " . $xRec->getCodigoDeSocio() . "\r\n"; $totalerrores++; } } else { $msg .= "ERROR\tRecibo no existe {$recibo}\r\n"; $totalerrores++; } break;
function setRegenerarSDPM($PFechaInicial, $PFechaFinal, $GenerarInteres = true, $incluirSinSaldo = false, $NumeroCuenta = false) { // $PFechaFinal = ""; $mBase = 3100; $xT = new cTipos(); $ql = new MQL(); $BySaldo = $incluirSinSaldo == false ? " AND captacion_cuentas.saldo_cuenta >=" . TOLERANCIA_SALDOS : ""; $ByCuentaSDPM = $NumeroCuenta == false ? "" : " AND `captacion_sdpm_historico`.`cuenta` = {$NumeroCuenta} "; $ByCuentaMvto = $NumeroCuenta == false ? "" : " AND `operaciones_mvtos`.`docto_afectado` = {$NumeroCuenta} "; $ByCuentaCta = $NumeroCuenta == false ? "" : " AND captacion_cuentas.numero_cuenta = {$NumeroCuenta} "; $msg = ""; $msg .= "==========================================================================================\r\n"; $msg .= "==================\tGenerando SDPM desde el {$PFechaInicial} al {$PFechaFinal}\r\n"; $msg .= "==========================================================================================\r\n"; $msg .= "Socio\tCuenta\tOPER\tEjercicio\tPeriodo\tFecha\tDias\tMonto\tSaldo\tSDPM\r\n"; $sqlM = "SELECT \n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`fecha_operacion` AS 'fecha_operacion',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado` AS 'recibo_afectado',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado` AS 'docto_afectado',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'afectacion_real',\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`valor_afectacion`,\n\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`afectacion` AS 'afectacion'\n\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos` \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\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\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` ={$mBase})\n\t\t\t\t\t\t\t\t\t{$ByCuentaMvto}\n\t\t\t\t\t\t\t\tORDER BY\n\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`operaciones_mvtos`.`fecha_operacion` ASC"; $rsM = getRecordset($sqlM); $arrOps = array(); //Array de montos de operacion $arrRecs = array(); //Array de Recibos de Operacion while ($rwM = mysql_fetch_array($rsM)) { //clave cuenta fecha $cuenta = $rwM["docto_afectado"]; $fecha = $rwM["fecha_operacion"]; if (isset($arrOps[$cuenta . "-" . $fecha])) { $arrOps[$cuenta . "-" . $fecha] += $rwM["afectacion_real"] * $rwM["afectacion"]; } else { $arrOps[$cuenta . "-" . $fecha] = $rwM["afectacion_real"] * $rwM["afectacion"]; } $arrRecs[$cuenta . "-" . $fecha] = $rwM["recibo_afectado"]; //$msg .= "WARN\t$cuenta\tAgregar " . ($rwM["afectacion_real"] * $rwM["afectacion"] ) . "\r\n"; } //Eliminar periodos anteriores $sqlDF = "DELETE FROM captacion_sdpm_historico WHERE (fecha>='{$PFechaInicial}' AND fecha<='{$PFechaFinal}') {$ByCuentaSDPM} "; my_query($sqlDF); //FECHAS $xF = new cFecha(0); // $xTbl = new cSAFETabla(TCAPTACION_CUENTAS); $sqlCX = $xTbl->getQueryInicial() . " WHERE captacion_cuentas.tipo_cuenta = " . CAPTACION_TIPO_VISTA . " {$BySaldo} {$ByCuentaCta} "; $rs1 = getRecordset($sqlCX); while ($rw1 = mysql_fetch_array($rs1)) { $socio = $rw1["numero_socio"]; $cuenta = $rw1["numero_cuenta"]; $xCta = new cCuentaALaVista($cuenta, $socio); $xCta->init($rw1); $DCta = $xCta->getDatosInArray(); $FApertura = $DCta["fecha_apertura"]; $dias = $xF->setRestarFechas($PFechaFinal, $FApertura); $dias += 1; $sucursal = $DCta["sucursal"]; $FechaAnterior = $FApertura; $saldoAnterior = 0; $xF2 = new cFecha(1); for ($i = 0; $i <= $dias; $i++) { $OpFecha = $xF->setSumarDias($i, $FApertura); $xF->set($OpFecha); $OpFechaFin = $xF->getDiaFinal(); $OpMonto = isset($arrOps[$cuenta . "-" . $OpFecha]) ? $arrOps[$cuenta . "-" . $OpFecha] : 0; $idrecibo = isset($arrRecs[$cuenta . "-" . $OpFecha]) ? $arrRecs[$cuenta . "-" . $OpFecha] : DEFAULT_RECIBO; //si la operacion es mayor a cero o es FIN DE MES if ($OpMonto != 0 or $OpFecha == $OpFechaFin) { $diasTrans = $xF2->setRestarFechas($OpFecha, $FechaAnterior); $xF2->set($OpFecha); $ejercicio = $xF2->anno(); $periodo = $xF2->mes(); $sdpd = $saldoAnterior * $diasTrans; $nuevatasa = $xCta->getTasaAplicable(0, 0, $saldoAnterior); //corregir fecha $sqlUSPM = "INSERT INTO captacion_sdpm_historico\n\t\t\t\t\t\t\t\t\t\t(ejercicio, periodo, cuenta, fecha, dias, tasa, monto, recibo, numero_de_socio, sucursal)\n\t \t\t\t\t\t\t\t\tVALUES( {$ejercicio}, {$periodo}, {$cuenta}, '{$OpFecha}', {$diasTrans}, {$nuevatasa}, {$sdpd}, {$idrecibo}, {$socio}, '{$sucursal}') "; //si es valida la operacion, se actualizan if ($OpFecha >= $PFechaInicial and $OpFecha <= $PFechaFinal) { my_query($sqlUSPM); $msg .= "{$socio}\t{$cuenta}\t+SDPM\t{$ejercicio}\t{$periodo}\t{$OpFecha}\t{$diasTrans}\t{$OpMonto}\t{$saldoAnterior}\t{$sdpd}\r\n"; } else { $msg .= "{$socio}\t{$cuenta}\t=SDPM\t{$ejercicio}\t{$periodo}\t{$OpFecha}\t{$diasTrans}\t{$OpMonto}\t{$saldoAnterior}\t{$sdpd}\r\n"; } $FechaAnterior = $OpFecha; $saldoAnterior += $OpMonto; } } } //Agregar Movimientos Finales del MES. //FIXME: Corregir incidencias //opcional: agregar Interes if ($GenerarInteres == true) { $xRec = new cReciboDeOperacion(12, false); $recibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, 1, $PFechaFinal, 1, 12, "REGENERAR_INTERES_SDPM_{$PFechaFinal}", "NA", "ninguno", "NA", DEFAULT_GRUPO); $msg .= "==========================================================================================\r\n"; $msg .= "==================\tAGREGADO INTERES :: RECIBO {$recibo}\r\n"; $msg .= "==========================================================================================\r\n"; $_SESSION["recibo_en_proceso"] = $recibo; //sumar sdpm del mes por cuenta $sqlSDPM = "SELECT\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`numero_de_socio`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`cuenta`,\n\t\t\t\t\t\t\t\tSUM(`captacion_sdpm_historico`.`dias`) AS `dias_transcurridos`,\n\t\t\t\t\t\t\t\tSUM(`captacion_sdpm_historico`.`monto`) AS `sdpm`,\n\t\t\t\t\t\t\t\tROUND( (`captacion_sdpm_historico`.`monto` / `captacion_sdpm_historico`.`dias`), 2) AS `ultimo_saldo`,\n\t\t\t\t\t\t\t\tMAX(`captacion_sdpm_historico`.`fecha`) AS 'UltimaFecha'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico` `captacion_sdpm_historico` \n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`captacion_sdpm_historico`.`fecha` >= '{$PFechaInicial}')\n\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t(`captacion_sdpm_historico`.`fecha` <= '{$PFechaFinal}')\n\t\t\t\t\t\t\t\t{$ByCuentaSDPM}\n\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`cuenta`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`ejercicio`,\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`periodo`\n\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t`captacion_sdpm_historico`.`fecha` DESC "; $rsCAP = $ql->getDataRecord($sqlSDPM); //setLog($sqlSDPM); foreach ($rsCAP as $rwC) { $socio = $rwC["numero_de_socio"]; $cuenta = $rwC["cuenta"]; $dias_de_calc = $rwC["dias_transcurridos"]; $sumaSDPM = $rwC["sdpm"]; $FechaI = $rwC["UltimaFecha"]; $promedio = $xT->cFloat($sumaSDPM / $dias_de_calc, 2); //XXX: Solucionar Tasa de Interes y hacer las rapida la consulta $xCta = new cCuentaDeCaptacion($cuenta); $xCta->init(); $subtipo = $xCta->getTipoDeSubproducto(); $tasa_nueva = obtentasa($promedio, CAPTACION_TIPO_VISTA, 0, $subtipo); $interes = $sumaSDPM * $tasa_nueva / EACP_DIAS_INTERES; $interes = $xT->cFloat($interes, 2); //agregar movimiento if ($interes > 0) { setNuevoMvto($socio, $cuenta, $recibo, $FechaI, $interes, 222, 1, "CALCULO_AUTOMATICO_DESDE_{$PFechaInicial}"); $msg .= "{$socio}\t{$cuenta}\tAGREGAR\tInteres por {$interes}, tasa {$tasa_nueva}, Promedio {$promedio}, SDPM {$sumaSDPM}, Dias {$dias_de_calc}\r\n"; } else { $msg .= "{$socio}\t{$cuenta}\tIGNORAR\tInteres por {$interes}, tasa {$tasa_nueva}, Promedio {$promedio}, SDPM {$sumaSDPM}, Dias {$dias_de_calc}\r\n"; } } } return $msg; }
</fieldset> <?php $action = $_GET["a"]; $idsolicitud = $_POST["idsolicitud"]; $monto = $_POST["montointeres"]; 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
//=========================================================================== $idsocio = isset($_POST["idsocio"]) ? $xT->cInt($_POST["idsocio"]) : 0; $observaciones = isset($_POST["idconceptomulta"]) ? $xT->cChar($_POST["idconceptomulta"]) : ""; $monto = isset($_POST["idmontomulta"]) ? $xT->cFloat($_POST["idmontomulta"]) : 0; $cheque = isset($_POST["cheque"]) ? $xT->cChar($_POST["cheque"]) : DEFAULT_CHEQUE; $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()); }
$persona = parametro("socio", $persona, MQL_INT); $persona = parametro("idsocio", $persona, MQL_INT); $credito = parametro("credito", DEFAULT_CREDITO, MQL_INT); $credito = parametro("idsolicitud", $credito, MQL_INT); $credito = parametro("solicitud", $credito, MQL_INT); $cuenta = parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT); $cuenta = parametro("idcuenta", $cuenta, MQL_INT); $jscallback = parametro("callback"); $tiny = parametro("tiny"); $form = parametro("form"); $action = parametro("action", SYS_NINGUNO); $xHP->init(); $xFRM = new cHForm("frmcomisiones", "cobro_de_comisiones.frm.php?action=" . MQL_ADD); $msg = ""; if ($action == MQL_ADD) { $xRec = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false); $xRec->setGenerarPoliza(); $xRec->setGenerarTesoreria(); $detalles = 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 = 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", "");
function setCambiarRelacionados($NuevoCredito = false, $NuevaPersona = false) { $xRec = new cReciboDeOperacion(RECIBOS_TIPO_PLAN_DE_PAGO, true, $this->mNumeroDePlan); $xRec->setCambiarRelacionados($NuevoCredito, $NuevaPersona, true); $this->mMessages .= $xRec->getMessages(OUT_TXT); }
function setPolizaPorRecibo($recibo, $generador = false) { $sucess = false; $QL = new MQL(); $xLogg = new cCoreLog(); //$arrEquivEfvo = //if (GENERAR_CONTABILIDAD == true){ $xLogg->add("=======\tGENERAR POLIZA POR RECIBO NUM {$recibo}\r\n", $xLogg->DEVELOPER); $xT = new cCatalogoOperacionesDeCaja(); $centro_de_costo = DEFAULT_CENTRO_DE_COSTO; //($generador == GENERAR_POLIZAS_AL_CIERRE) AND if (setNoMenorQueCero($recibo) > 0) { $xRec = new cReciboDeOperacion(false, false, $recibo); if ($xRec->init() == true) { $sucess = true; //Obten datos del recibo para la Poliza $sqlRec = "SELECT\r\n\t\t\t\t\t\t\t`operaciones_recibos`.*,\r\n\t\t\t\t\t\t\t`operaciones_recibostipo`.`tipo_poliza_generada`,\r\n\t\t\t\t\t\t`operaciones_recibostipo`.`afectacion_en_flujo_efvo`\r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`operaciones_recibos` `operaciones_recibos`\r\n\t\t\t\t\t\t\t\tINNER JOIN `operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\t`operaciones_recibostipo`\r\n\t\t\t\t\t\t\t\tON `operaciones_recibos`.`tipo_docto` =\r\n\t\t\t\t\t\t\t\t`operaciones_recibostipo`.\r\n\t\t\t\t\t\t\t\t`idoperaciones_recibostipo`\r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`operaciones_recibos`.`idoperaciones_recibos` = {$recibo})\r\n\t\t\t\t\t\tLIMIT 0,1 "; $dRec = obten_filas($sqlRec); $tipo_de_pago = $xRec->getTipoDePago(); //Corrige los cargos de la PolizaS $total_poliza = 0; $SQLSumCargos = "SELECT SUM(monto) AS 'total' FROM contable_polizas_proforma\r\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE contable_operacion = '" . TM_CARGO . "'\r\n\t\t\t\t\t\t\t\t\t\t\t\tAND numero_de_recibo={$recibo} "; $TMPCargos = mifila($SQLSumCargos, "total"); $SQLSumAbonos = "SELECT SUM(monto) AS 'total' FROM contable_polizas_proforma\r\n\t\t\t\t\t\t\t\t\t\t\t\tWHERE contable_operacion = '" . TM_ABONO . "'\r\n\t\t\t\t\t\t\t\t\t\t\t\tAND numero_de_recibo={$recibo} "; $TMPAbonos = mifila($SQLSumAbonos, "total"); if ($TMPCargos > $TMPAbonos) { $diferencia = $TMPAbonos - $TMPCargos; $diferencia = $diferencia < 0 ? $diferencia * -1 : $diferencia; $total_poliza = $TMPCargos; setPolizaProforma($recibo, $xT->getTipoOperacionByTipoPago($tipo_de_pago), $diferencia, 1, 1, TM_ABONO); $xLogg->add("OK\tCUADRAR\tABONO\tOperacion Agregada por DESCUADRE en {$tipo_de_pago} por {$diferencia}\r\n", $xLogg->DEVELOPER); //$xLogg->add( , $xLogg->DEVELOPER); } elseif ($TMPCargos < $TMPAbonos) { $diferencia = $TMPCargos - $TMPAbonos; $diferencia = $diferencia < 0 ? $diferencia * -1 : $diferencia; $total_poliza = $TMPAbonos; setPolizaProforma($recibo, $xT->getTipoOperacionByTipoPago($tipo_de_pago), $diferencia, 1, 1, TM_CARGO); $xLogg->add("OK\tCUADRAR\tCARGOS\tOperacion Agregada por DESCUADRE en {$tipo_de_pago} por {$diferencia}\r\n", $xLogg->DEVELOPER); } else { $total_poliza = $TMPCargos; } //tipos de Poliza 1=ingreso, 2=egreso, 3 Diario, 4=orden 5 $xD = new cFecha(0, $xRec->getFechaDeRecibo()); $numero_de_recibo = $recibo; $tipo_de_poliza = $xRec->getOTipoRecibo()->getTipoPolizaContable(); $fecha_de_poliza = $xRec->getFechaDeRecibo(); $ejercicio_de_poliza = $xD->anno(); $periodo_de_poliza = $xD->mes(); $recibo_fiscal = strlen($xRec->getReciboFiscal()) > 2 ? ";RF:" . $xRec->getReciboFiscal() : ""; $observacion_recibo = $xRec->getObservaciones(); $cheque = strlen($xRec->getNumeroDeCheque()) > 2 ? ";Ch:" . $xRec->getNumeroDeCheque() : ""; $concepto_poliza = substr("R:" . $numero_de_recibo . $recibo_fiscal . $cheque . ";" . $xRec->getObservaciones(), 0, 80); $flujo_efectivo = $xRec->getOTipoRecibo()->getAfectacionEnEfvo(); $socio = $xRec->getCodigoDeSocio(); $propietario = $xRec->getCodigoDeUsuario(); $xLogg->add("=====\tRECIBO TIPO: " . $xRec->getTipoDeRecibo() . " SUMA: " . $xRec->getTotal() . " \r\n", $xLogg->DEVELOPER); //------------------ Agregar Poliza $xPol = new cPoliza($tipo_de_poliza, false, $ejercicio_de_poliza, $periodo_de_poliza); $xPol->add($concepto_poliza, $fecha_de_poliza, false, 0, 0, $propietario, $centro_de_costo, $recibo); $numero_de_poliza = $xPol->get(); $xLogg->add("=====\tPOLIZA NUM: {$numero_de_poliza} | TIPO: {$tipo_de_poliza} | EJERCICIO: {$ejercicio_de_poliza} | PERIODO: {$periodo_de_poliza}\r\n", $xLogg->DEVELOPER); $sucess = $xPol->mRaiseError == true ? false : true; //------------------ Leer la PROFORMA $sqlMvtosToPoliza = "SELECT\r\n\t\t\t\t\t`contable_polizas_proforma`.*,\r\n\t\t\t\t\t`operaciones_tipos`.*\r\n\t\t\r\n\t\t\t\t\tFROM\r\n\t\t\t\t\t`operaciones_tipos` `operaciones_tipos`\r\n\t\t\t\t\t\tINNER JOIN `contable_polizas_proforma`\r\n\t\t\t\t\t\t`contable_polizas_proforma`\r\n\t\t\t\t\t\tON `operaciones_tipos`.`idoperaciones_tipos` =\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`tipo_de_mvto`\r\n\t\t\t\t\t\tAND `contable_polizas_proforma`.`numero_de_recibo` = {$numero_de_recibo}\r\n\t\t\t\t\tORDER BY\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`contable_operacion` DESC,\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`socio`,\r\n\t\t\t\t\t\t`contable_polizas_proforma`.`tipo_de_mvto`\t\t\t\t\r\n\t\t\t\t\t"; if ($sucess == true) { $rs = $QL->getDataRecord($sqlMvtosToPoliza); foreach ($rs as $rw) { $cuenta = CUENTA_DE_CUADRE; $nombre = ""; $socio = $rw["socio"]; if (CONTABLE_CUENTAS_POR_SOCIO == true) { $xSoc = new cSocio($socio, true); $nombre = $xSoc->getNombreCompleto(); } $documento = $rw["documento"]; $monto_movimiento = $rw["monto"]; $tipoOp = $rw["tipo_de_mvto"]; $tipo_movimiento = $rw["contable_operacion"]; $RecUsr = $rw["idusuario"]; $cuenta_bancaria = $rw["banco"]; $cargo_movimiento = 0; $abono_movimiento = 0; if ($tipo_movimiento == TM_CARGO) { $cargo_movimiento = $monto_movimiento; $abono_movimiento = 0; } else { $cargo_movimiento = 0; $abono_movimiento = $monto_movimiento; } $formula = $rw["cuenta_contable"]; //Corregir de urgencia: OK: 06Oct2011 $sForms = new cValorarFormulas(); $cuenta = $sForms->getCuentaContable($socio, $documento, $formula, $RecUsr, $xRec->getNumeroDeCheque(), $cuenta_bancaria); $xLogg->add($sForms->getMessages(), $xLogg->DEVELOPER); //tipo de cuenta es Abonos a efectivo if ($cuenta != "NO_CONTABILIZAR") { $xCuenta = new cCuentaContable($cuenta); $xCuenta->init(); $cuenta = $xCuenta->get(); //Carga los datos del Oficial if ($xCuenta->getEsCuentaDeCirculante() == true) { $xOf = new cSystemUser($RecUsr); $xOf->init(); $nombre = $xOf->getNombreCompleto(); $xLogg->add("OK\tCUENTA_ADD\tLa Cuenta {$cuenta} de Carga por Usuario [ {$nombre} ]\r\n", $xLogg->DEVELOPER); } else { $xLogg->add("OK\tCUENTA\tLa Cuenta de Trabajo es {$cuenta} Originado del Socio {$socio}\r\n", $xLogg->DEVELOPER); } //verifica para dar de alta a la cuenta $Existentes = $xCuenta->getCountCuenta(); if ($Existentes == false) { $xLogg->add("WARN\tCUENTA_ADD\tLa Cuenta de Trabajo {$cuenta} NO EXISTE, se AGREGA\r\n", $xLogg->DEVELOPER); $cuenta = $xCuenta->add($nombre); if ($xCuenta->mRaiseError == true) { //$msg .= "ERROR\tLa Cuenta de Trabajo $cuenta NO EXISTE\r\n"; //$msg = $xCuenta->getMessages(); } } $xCuenta->init(); $xPol->addMovimiento($cuenta, $cargo_movimiento, $abono_movimiento, "{$socio}", "{$documento}:{$tipoOp}", false, $fecha_de_poliza); //$xLogg->add("WARN\tNO_CONT\tAGREGAR $cuenta, $cargo_movimiento, $abono_movimiento\r\n" , $xLogg->DEVELOPER); $xLogg->add($xCuenta->getMessages(), $xLogg->DEVELOPER); } else { $xLogg->add("WARN\tNO_CONT\tEl Movimiento de {$socio} | {$documento} | {$tipoOp} de Monto {$monto_movimiento} se OMITE\r\n", $xLogg->DEVELOPER); } } $xPol->setFinalizar(); } //sucess $xLogg->add($xPol->getMessages(), $xLogg->DEVELOPER); $this->mIDDePoliza = $xPol->getCodigo(); } } //END VALUE.- GENERAR AL FINAL //} //END VALUE.- GENERAR CONTABILIDAD $this->mMessages .= $xLogg->getMessages(); return $xLogg->getMessages(); }
<tr> <th colspan='2'><input type="submit" value='Guardar Pago' /></th> </tr> </tbody> </table> </fieldset> </form> <?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(); //
include_once "../core/core.captacion.inc.php"; ini_set("display_errors", "off"); ini_set("max_execution_time", 1600); $key = isset($_GET["k"]) ? true : false; $parser = isset($_GET["s"]) ? true : false; //Obtiene la llave del //if ($key == MY_KEY) { $messages = ""; $fechaop = parametro("f", fechasys()); $xF = new cFecha(0, $fechaop); //INICIAR if (MODULO_CAPTACION_ACTIVADO == true) { $aliasFil = getSucursal() . "-eventos-al-cierre-de-captacion-del-dia-{$fechaop}"; $xLog = new cFileLog($aliasFil, true); $idrecibo = DEFAULT_RECIBO; $xRec = new cReciboDeOperacion(12, false); //$xRec->setGenerarPoliza(); $xRec->setForceUpdateSaldos(); $idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CUENTA_CORRIENTE, $fechaop, 1, 12, "CIERRE_DE_CAPTACION_{$fechaop}", "", TESORERIA_COBRO_NINGUNO, "", DEFAULT_GRUPO); $xRec->setNumeroDeRecibo($idrecibo); $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE CAPTACION ====================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; $messages .= "=======================================================================================\r\n"; $xUCapt = new cUtileriasParaCaptacion(); $messages .= "=========================\t\tPurgando Dias Minimo de Inversion \t====================\r\n"; $messages .= $xUCapt->vencer_intereses_de_inversion($idrecibo, $fechaop); $messages .= $xUCapt->inversiones_automaticas($idrecibo, $fechaop);
$key = isset($_GET["k"]) ? true : false; $parser = !isset($_GET["s"]) ? false : $_GET["s"]; //Obtiene la llave del //if ($key == MY_KEY) { $messages = ""; $fechaop = parametro("f", fechasys()); $xF = new cFecha(0, $fechaop); /** * Generar el Archivo HTMl del LOG * eventos-del-cierre + fecha_de_cierre + .html * */ $aliasFil = getSucursal() . "-eventos-al-cierre-de-colocacion-del-dia-{$fechaop}"; $xLog = new cFileLog($aliasFil); $ql = new MQL(); $xRec = new cReciboDeOperacion(12); $xRec->setGenerarPoliza(); $xRec->setForceUpdateSaldos(); $idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fechaop, 1, 12, "CIERRE_DE_COLOCACION_{$fechaop}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, DEFAULT_GRUPO); $xRec->setNumeroDeRecibo($idrecibo); $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\t" . EACP_NAME . " \r\n"; $messages .= "=========================\t\t" . getSucursal() . " \r\n"; $messages .= "=======================================================================================\r\n"; $messages .= "=========================\t\tINICIANDO EL CIERRE DE COLOCACION ====================\r\n"; $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n"; //reconstruir db de pagos $ql->setRawQuery("CALL `proc_historial_de_pagos` "); $xCUtils = new cUtileriasParaCreditos(); $messages .= $xCUtils->setEstatusDeCreditos($idrecibo, $fechaop, false, true); if (date("Y-m-t", strtotime($fechaop)) == date("Y-m-d", strtotime($fechaop))) {
} $idrecibocap = $xDCred->setAbonoCapital($montocreditodesc, SYS_UNO, $cheque, TESORERIA_COBRO_DESCTO, $recibo_fiscal, $observaciones); if (setNoMenorQueCero($idrecibocap) > 0) { $xRecCapt = new cReciboDeOperacion(false, false, $idrecibocap); $xRecCapt->init(); 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() : ""; } }