function getReciboDesc($numero)
{
if (isset($numero) and $numero != 0) {
$cRec = new cReciboDeOperacion(false, false, $numero);
$cRec->setNumeroDeRecibo($numero, true);
$d = $cRec->getDatosInArray();
$desRec = $cRec->getDescripcion();
$tab = new TinyAjaxBehavior();
$tab->add(TabSetValue::getBehavior("txtDescRecibo", $desRec));
return $tab->getString();
}
}
$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();
//$variable_nombre_del_cajero
//
/**
* Agrega una operacion a tesoreria
* @param integer $recibo Numero de recibo
*
*/
function addOperacion($recibo, $tipoDeExposicion, $MontoRecibido, $MontoOperacion = 0, $MontoCambio = 0, $banco = FALLBACK_CLAVE_DE_BANCO, $cheque = "", $CuentaBancaria = 0, $DocumentoDescontado = 0, $Observaciones = "", $fecha = false, $hora = false, $moneda = false, $monto_original = 0, $persona = false, $documento = false, $transaccion = SYS_NINGUNO)
{
$sucess = false;
$fecha = $fecha == false ? fechasys() : $fecha;
$arrQ = array("aumento" => 1, "disminucion" => -1, "ninguna" => 0);
$xF = new cFecha(0, $fecha);
$xT = new cTipos();
$fecha = $xF->get();
$hora = $hora == false ? date("H:i:s") : $hora;
$CodigoDeCaja = $this->getKey();
$cajero = $this->mCajero;
$banco = setNoMenorQueCero($banco) <= 0 ? FALLBACK_CLAVE_DE_BANCO : $banco;
$this->mMoneda = $this->mMoneda == "" ? AML_CLAVE_MONEDA_LOCAL : $this->mMoneda;
if ($moneda == false or $moneda == AML_CLAVE_MONEDA_LOCAL) {
$moneda = $this->mMoneda != AML_CLAVE_MONEDA_LOCAL ? $this->mMoneda : AML_CLAVE_MONEDA_LOCAL;
}
//$monto_original = setNoMenorQueCero($monto_original);
$monto_original = $monto_original == 0 ? $this->mMontoOrigen : $monto_original;
$xRec = new cReciboDeOperacion(false, false, $recibo);
$xRec->init();
$DRec = $xRec->getDatosInArray();
$persona = ($persona == false or $persona == "") ? DEFAULT_SOCIO : $persona;
$documento = $documento == false ? $xRec->getCodigoDeDocumento() : $documento;
$afectaCaja = $arrQ[$DRec["afectacion_en_flujo_efvo"]];
$MontoOperacion = $MontoOperacion == 0 ? $DRec["total_operacion"] : $MontoOperacion;
$MontoCambio = $MontoCambio == 0 ? $MontoRecibido - $MontoOperacion : $MontoCambio;
//Obtener Banco
$pais = EACP_CLAVE_DE_PAIS;
$eacp = EACP_CLAVE;
$sucursal = getSucursal();
if ($banco == FALLBACK_CLAVE_DE_BANCO and $CuentaBancaria > 0) {
$xCta = new cCuentaBancaria($CuentaBancaria);
$xCta->init();
$banco = $xCta->getClaveDeBanco();
$pais = $xCta->getPaisDeOrigen();
}
$xBanco = new cBancos_entidades();
$xBanco->setData($xBanco->query()->initByID($banco));
$pais = $xBanco->pais_de_origen()->v();
//Actualizar Moneda por pais
if ($banco != FALLBACK_CLAVE_DE_BANCO) {
$moneda2 = mifila("SELECT clave_de_moneda FROM `tesoreria_monedas` WHERE `pais_de_origen` ='{$pais}' LIMIT 0,1 ", "clave_de_moneda");
if ($moneda2 === 0) {
} else {
$moneda = $moneda2;
}
}
$xTes = new cTesoreria_cajas_movimientos();
$xTes->banco($banco);
$xTes->codigo_de_caja($CodigoDeCaja);
$xTes->cuenta_bancaria($CuentaBancaria);
$xTes->documento($documento);
$xTes->documento_descontado($DocumentoDescontado);
$xTes->eacp(EACP_CLAVE);
$xTes->fecha($fecha);
$xTes->hora($hora);
$xTes->idtesoreria_cajas_movimientos($xTes->query()->getLastID());
$xTes->idusuario($cajero);
$xTes->moneda_de_operacion($moneda);
if ($moneda != AML_CLAVE_MONEDA_LOCAL) {
}
//EVALUAR MONEDA
$xTes->monto_del_movimiento($MontoOperacion);
$xTes->monto_en_cambio($MontoCambio);
$xTes->monto_recibido($MontoRecibido);
$xTes->numero_de_cheque($cheque);
$xTes->observaciones($Observaciones);
$xTes->recibo($recibo);
$xTes->sucursal($sucursal);
$xTes->tipo_de_exposicion($tipoDeExposicion);
$xTes->tipo_de_movimiento($afectaCaja);
$xTes->unidades_de_moneda(setNoMenorQueCero($monto_original));
$xTes->persona($persona);
$sucess = $xT->getEvalNotNull(array($cajero, $CodigoDeCaja));
if ($sucess == true) {
$q = $xTes->query()->insert();
$id = $q->save();
$sucess = $id == false ? false : true;
if ($sucess == true) {
$this->mMessages .= "OK\tRegistro Agregado exitosamente, relacionado con el Recibo {$recibo}, Operacion {$id} ({$moneda}|{$monto_original}|{$cheque}|{$tipoDeExposicion}|{$transaccion})\r\n";
//Agregar recibo
$xRec->setDatosDePago($moneda, $monto_original, $cheque, $tipoDeExposicion, $transaccion);
$this->mMessages .= $xRec->getMessages(OUT_TXT);
} else {
if (MODO_DEBUG == true) {
$this->mMessages .= $q->getMessages(OUT_TXT);
}
}
} else {
$this->mMessages .= "ERROR\tSe produjo un error al Agregar la Operacion de Tesoreria({$cajero}, {$CodigoDeCaja})\r\n";
}
return $sucess;
}
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}";
}
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}";
}
