function jsShowGrupos($nombre_del_grupo)
{
    settype($nombre_del_grupo, "string");
    $rst = "";
    if ($nombre_del_grupo) {
        $nombre_del_grupo = substr($nombre_del_grupo, 0, 6);
        /**
         * 							Sql
         */
        $sql_grupos = "SELECT \r\n\t`socios_grupossolidarios`.`idsocios_grupossolidarios`  AS 'numero',\r\n\t`socios_grupossolidarios`.`nombre_gruposolidario`          \r\n\tAS `nombre`,\r\n\t`socios_grupossolidarios`.`colonia_gruposolidario`         \r\n\tAS `colonia`,\r\n\t`socios_grupossolidarios`.`representante_nombrecompleto`   \r\n\tAS `representante`\r\n\t\r\n\t\t\tFROM socios_grupossolidarios \r\n\t\t\tWHERE nombre_gruposolidario LIKE '%{$nombre_del_grupo}%'\r\n\t\t\t\t\tAND sucursal = '" . getSucursal() . "'\r\n\t\t\tLIMIT 0,10";
        $ctb = new cTabla($sql_grupos);
        $ctb->setEventKey("setGrupo");
        $ctb->setWidth();
        $rst = $ctb->Show();
    }
    return $rst;
}
 /**
  * Generar una Prepoliza de perfil
  * @param integer 	$recibo		Numero de Recibo
  * @param integer 	$tipo_mvto	Tipo de Operacion
  * @param float 	$monto		Monto de la Operacion
  * @param integer	$socio		Numero de Socio
  * @param integer 	$docto		Numero de documento
  * @param integer 	$operacion	Tipo de Operacion Contable CARGO/ABONO
  * @param integer 	$usuario	Usuario de la Operacion
  */
 function addProforma($recibo, $tipo_mvto, $monto, $socio, $docto, $operacion = 1, $usuario = false, $banco = false)
 {
     if (MODULO_CONTABILIDAD_ACTIVADO == true) {
         $usuario = setNoMenorQueCero($usuario);
         $usuario = $usuario <= 0 ? getUsuarioActual() : $usuario;
         $sucursal = getSucursal();
         $banco = setNoMenorQueCero($banco);
         if ($monto != 0) {
             $sqlI = "INSERT INTO contable_polizas_proforma\n\t\t\t\t(numero_de_recibo, tipo_de_mvto, monto, socio, documento, contable_operacion, idusuario, sucursal, banco)\n\t\t\t\tVALUES({$recibo}, {$tipo_mvto}, {$monto}, {$socio}, {$docto}, '{$operacion}', {$usuario}, '{$sucursal}', {$banco})";
             my_query($sqlI);
         }
     }
     return "OK\tPROFORMA\t{$socio}\t{$docto}\t{$recibo}\t{$tipo_mvto}\t{$monto}\r\n";
 }
$idregimenmatrimonial = parametro("idregimenmatrimonial", DEFAULT_REGIMEN_CONYUGAL);
$idtipoidentificacion = parametro("idtipoidentificacion", DEFAULT_TIPO_IDENTIFICACION);
$idnumerodocumento = parametro("idnumerodocumento");
$idemail = parametro("idemail", "", MQL_RAW);
$idtelefono = parametro("idtelefono", 0, MQL_INT);
$idcurp = parametro("idcurp");
$idrfc = parametro("idrfc");
$idclavefiel = parametro("idclavefiel");
$idrazonnofiel = parametro("idrazonnofiel");
$idobservaciones = parametro("idobservaciones");
$idcajalocal = parametro("idcajalocal", $xLoc->getCajaLocal(), MQL_INT);
$iddependientes = parametro("iddependientes", 0, MQL_INT);
$eacp = EACP_CLAVE;
$razonSocial = parametro("idrazonsocial");
$descuento = parametro("iddescuento", 0, MQL_FLOAT);
$sucursal = parametro("idsucursal", getSucursal(), MQL_RAW);
$xSuc = new cSucursal($sucursal);
$xSuc->init();
$gruposolidario = parametro("idgrupo", DEFAULT_GRUPO, MQL_INT);
$gruposolidario = setNoMenorQueCero($gruposolidario) <= 0 ? DEFAULT_GRUPO : $gruposolidario;
$empresa = parametro("empresa", FALLBACK_CLAVE_EMPRESA, MQL_INT);
$empresa = parametro("iddependencia", $empresa, MQL_INT);
$empresa = parametro("idempresa", $empresa, MQL_INT);
$empresa = parametro("idcodigodeempresas", $empresa, MQL_INT);
$empresa = setNoMenorQueCero($empresa) <= 0 ? FALLBACK_CLAVE_EMPRESA : $empresa;
$calle = parametro("idnombreacceso");
$representante_legal = parametro("idsocio2", false, MQL_INT);
$ingresos = parametro("idingresos", 0, MQL_FLOAT);
$idactividad = parametro("idactividad", FALLBACK_ACTIVIDAD_ECONOMICA);
$nombreempresa = parametro("idrazonsocialtrabajo", "");
$espep = parametro("espep", false, MQL_BOOL);
 $completePath = $prePath . $usrFiles[$i]['name'];
 if (file_exists($completePath) == true) {
     unlink($completePath);
     echo "<p class='aviso'> SE ELIMINO EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 }
 if (move_uploaded_file($usrFiles[$i]['tmp_name'], $completePath)) {
     //echo "<p class='aviso'> SE GUARDO EXITOSAMENTE EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 } else {
     //echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>";
 }
 //analizar el Archivo
 $gestor = @fopen($completePath, "r");
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-carga-batch-de-inversiones-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
         } else {
             $bufer = trim($bufer);
             $datos = explode(",", $bufer, 6);
             $socio = $cT->cInt($datos[0]);
             $importe = $cT->cFloat($datos[1]);
             $fechaApertura = $cT->cFecha($datos[2]);
             $plazo = $cT->cInt($datos[3]);
             $tasa = $cT->cFloat($datos[4]);
 function execute($socio, $tipo)
 {
     if (isset($this->mFile)) {
         //Mover los Archivos
         $destFile = PATH_TMP . $this->mFile['name'];
         $imgFile = "";
         $onProcess = true;
         if (move_uploaded_file($this->mFile['tmp_name'], $destFile)) {
             $md5FIl = md5_file($destFile);
             switch ($this->mFile["type"]) {
                 case "image/png":
                     $imgFile = imagecreatefrompng($destFile);
                     break;
                 case "image/jpeg":
                     $imgFile = imagecreatefromjpeg($destFile);
                     break;
                 case "image/gif":
                     $imgFile = imagecreatefromgif($destFile);
                     break;
                 default:
                     $onProcess = false;
                     $this->mMsg .= "<br /> EL TIPO DE ARCHIVO (" . $this->mFile["type"] . ") NO ES EL CORRECTO";
                     break;
             }
             if ($onProcess == true) {
                 ob_start();
                 $txt = "[" . date("Ydm H:i:s") . "] " . EACP_NAME;
                 imagettftext($imgFile, 9, 0, 10, 10, 20, "../fonts/arial.ttf", $txt);
                 imagepng($imgFile);
                 //Resize image
                 $png = ob_get_contents();
                 ob_end_clean();
                 $png = str_replace('##', '##', mysql_escape_string($png));
                 $user = $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"];
                 $eacp = EACP_CLAVE;
                 $sucursal = getSucursal();
                 $date = fechasys();
                 //Elimina las firmas anteriores
                 $sqldel = "DELETE FROM socios_firmas WHERE numero_de_cuenta={$cuenta}\n\t\t\t\t\tAND tipo={$tipo}";
                 my_query($sqldel);
                 $rsUQ = "INSERT INTO socios_firmas\n\t\t\t\t\t\t\t\t\t(numero_de_socio, tipo, \n\t\t\t\t\t\t\t\t\tfirma, md5_src, idusuario, sucursal, fecha_carga, eacp) \n    \t\t\t\t\t\t\t\tVALUES\n    \t\t\t\t\t\t\t\t({$socio}, {$tipo}, \"{$png}\", '{$md5FIl}', {$user}, '{$sucursal}', '{$date}', '{$eacp}')";
                 $rsM = my_query($rsUQ);
                 if ($rsM["stat"] == false) {
                     $this->mMsg .= "<br /> ERROR AL GUARDAR EL ARCHIVO EN LA DB, EL SISTEMA DEVOLVIO: " . $rsM["error"];
                 } else {
                     $this->mMsg .= "<br /> PROCESO EXITOSO";
                 }
             } else {
                 $this->mMsg .= "<br /> EL PROCESO NO SE LLEVO A CABO";
             }
             //Elimina el Archivo
             unlink($destFile);
         } else {
             //no se Movio
             $this->mMsg .= "<br /> NO SE CARGO EL ARCHIVO " . $this->mFile["name"] . "(" . $this->mFile["error"] . ")";
         }
     } else {
         $this->mMsg .= "<br /> NO EXISTE EL ARCHIVO ";
     }
 }
Exemplo n.º 6
0
	
	$tiempoead 		= $fm->tentregaad+$mashoras;
	$tiempoocurre 	= $fm->tentrega+$mashoras;
	
	//$x = "http://www.pmmentuempresa.com/axfbt5asd/cotizar.php?tipopaquete=Paquete&desde=2&hasta=2&largo=150&alto=214&ancho=122&cantidad=50&peso=50";
	
	/*if($cantidad!="" && $cantidad!="0" && $cantidad>1){
		$peso = $peso*$cantidad;
	}*/
	
	if($volumen > $peso){
		$peso = $volumen;
	}
	
	$nombreorigen	= getSucursal($idorigen,$l);
	$nombredestino	= getSucursal($iddestino,$l);
	$nombredorigen 	= getDestinos($iddorigen,$l);
	$nombreddestino	= getDestinos($idddestino,$l);
	
	$s = "select catalogotiempodeentregas.*, hour(current_time) as tiempo 
	from catalogotiempodeentregas where idorigen = $idorigen and iddestino = $iddestino";
	$rm = mysql_query($s,$l) or die($s);
	$fm = mysql_fetch_object($rm);
	
	$horasparamensaje = array(0,12,14,16,8,9,10,11,13,15,17);
	
	if($fm->incrementartiempo==1){
		$s = "select if(current_time>'".$horasparamensaje[$fm->siocurre]."',1,0) as validacion";
		$rpr = mysql_query($s,$l) or die($s);
		$fpr = mysql_fetch_object($rpr);
		if($fpr->validacion=="1"){
    $filename = str_replace("rpt", "", $filename);
    $filename = str_replace("-", "", $filename);
    $filename = "{$filename}-" . date("YmdHi") . "-from-" . $iduser . ".xls";
    header("Content-type: application/x-msdownload");
    header("Content-Disposition: attachment; filename={$filename}");
    header("Pragma: no-cache");
    header("Expires: 0");
}
//array que determina el genero (sexo) de la persona
$arrGenero = array(99 => "D", 1 => "H", 2 => "M");
$arrECivil = array(2 => "01", 3 => "03", 6 => "04", 1 => "05", 4 => "06", 5 => "99", 99 => "99");
$arrRegMat = array("BIENES_SEPARADOS" => 2, "SOCIEDAD_CONYUGAL" => 3, "NINGUNO" => 9);
$arrELaboral = array(10 => "01", 11 => "01", 12 => "01", 13 => "01", 20 => "01", 40 => "02", 50 => "02", 99 => "99");
$tr = "";
//TODO: validar por sucursal
$sql = "\n\tSELECT\n\t\t*\n\tFROM\n\t\t`socios_general` `socios_general`\n\tWHERE\n\t\t\t/* `socios_general`.`sucursal`\t= '" . getSucursal() . "'\n\t\t\tAND */\n\t\t\t(`socios_general`.`personalidad_juridica` = 1\n\t\t\tOR\n\t\t\t`socios_general`.`personalidad_juridica` = 3\n\t\t\tOR\n\t\t\t`socios_general`.`personalidad_juridica` = 4\n\t\t\tOR\n\t\t\t`socios_general`.`personalidad_juridica` = 9\n\t\t\tOR\n\t\t\t`socios_general`.`personalidad_juridica` = 99)\n\t\t\t/* AND\n\t\t\t(`socios_general`.`estatusactual` != 20)*/\n\tORDER BY\n\t\t`socios_general`.`fechaalta` DESC\n";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
    $socio = $rw["codigo"];
    //  $ife                            = $rw["documento_de_identificacion"]
    $nombre = $rw["nombrecompleto"];
    $apellidopaterno = $rw["apellidopaterno"];
    $apellidomaterno = $rw["apellidomaterno"];
    $genero = $arrGenero[$rw["genero"]];
    $sucursal = $rw["sucursal"];
    $fecha_de_alta = $rw["fechaalta"];
    $estado_civil = $arrECivil[$rw["estadocivil"]];
    $regimen_matrimonial = $arrRegMat[$rw["regimen_conyugal"]];
    $fecha_nacimiento = $rw["fechanacimiento"];
    $rfc = $rw["rfc"];
    $curp = $rw["curp"];
</head>
	<link href="<?php 
echo CSS_GENERAL_FILE;
?>
" rel="stylesheet" type="text/css">
	<script   src="../js/jsrsClient.js"></script>
<body>
<fieldset>
<legend>Linea de Credito Autorizada</legend>
<?php 
$idsocio = $_POST["idsocio"];
$montolinea = $_POST["montolinea"];
$observaciones = $_POST["observaciones"];
$numerohipoteca = $_POST["numerohipoteca"];
$montohipoteca = $_POST["montohipoteca"];
$fechavenc = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$fechaalta = fechasys();
$eacp = EACP_CLAVE;
$sucursal = getSucursal();
$estado = 1;
// VIGENTE
$sqllcf = "numero_socio, monto_linea, observaciones, numerohipoteca, monto_hipoteca, \r\n\t\t\t\t\tfecha_de_vencimiento, fecha_de_alta, estado, idusuario, sucursal, eacp";
$sqllcv = "{$idsocio}, {$montolinea}, '{$observaciones}', '{$numerohipoteca}', {$montolinea}, \r\n\t\t\t\t'{$fechavenc}', '{$fechaalta}', {$estado}, {$iduser}, '{$sucursal}', '{$eacp}'";
$sqllc = "INSERT INTO creditos_lineas({$sqllcf}) VALUES ({$sqllcv})";
my_query($sqllc);
echo "<p class='aviso'>la Linea de Credito ha Sido Agregada como Autorizada, de esta fecha en adelante, el Socio <b>" . getNombreSocio($idsocio) . "</b>\r\n\tsera tomado en cuenta para Ministrarse Creditos por un monto no mayor a {$montolinea}; por lo que se tendra que respetar dicha cantidad.</p> \r\n\t<input type='button' name='btnprint' value='IMPRIMIR AUTORIZACION'>\r\n\t";
?>
</fieldset>
</body>
</html>
function jsaSetSucursal($sucursal)
{
    getSucursal($sucursal);
}
</table>
<?php 
} else {
    $filename = $_SERVER['SCRIPT_NAME'];
    $filename = str_replace(".php", "", $filename);
    $filename = str_replace("rpt", "", $filename);
    $filename = str_replace("-", "", $filename);
    $filename = "{$filename}-" . date("YmdHi") . "-from-" . $iduser . ".xls";
    header("Content-type: application/x-msdownload");
    header("Content-Disposition: attachment; filename={$filename}");
    header("Pragma: no-cache");
    header("Expires: 0");
}
echo "<table width='100%' >\n\t<tr>\n\t\t<th>Socio</th>\n\t\t<th>Credito</th>\n\t\t<th>Producto</th>\n\t\t<th>Sucursal</th>\n\t\t<th>fecha de ministracion</th>\n\t\t<th>fecha de vencimiento</th>\n\t\t<th>fecha de ultimo pago</th>\n\t\t<th>tasa normal</th>\n\t\t<th>tasa moratorio</th>\n\t\t<th>numero de pagos</th>\n\t\t<th>periocidad de pago</th>\n\t\t<th>unidad de medida</th>\n\t\t<th>importe prestado</th>\n\t\t<th>saldo actual</th>\n\t\t<th>importe de la proxima cuota</th>\n\t\t<th>cuenta eje</th>\n\t\t<th>cuenta de garantia liquida</th>\n\t\t<th>capital pagado</th>\n\t\t<th>interes normal pagado</th>\n\t\t<th>iva interes normal pagado</th>\n\t\t<th>interes moratorio pagado</th>\n\t\t<th>iva interes moratorio pagado</th>\n\t\t<th>multas pagadas</th>\n\t\t<th>iva multas pagadas</th>\n\t\t<th>comision apertura pagadas</th>\n\t\t<th>gastos de investigacion pagados</th>\n\t\t<th>monto de la garantia liquida</th>\n\t</tr>";
$tr = "";
$sql = "\nSELECT\n\t*\nFROM\n\t`creditos_solicitud` `creditos_solicitud`\nWHERE saldo_actual > " . TOLERANCIA_SALDOS . "\n\t/* AND\n\tsucursal\t= '" . getSucursal() . "' */\n\tAND\n\testatus_actual != 50\n/* LIMIT 0,100 */\n";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
    $socio = $rw["numero_socio"];
    $credito = $rw["numero_solicitud"];
    $producto = $rw["tipo_convenio"];
    $sucursal = $rw["sucursal"];
    $fechamin = $rw["fecha_ministracion"];
    $fechavenc = $rw["fecha_vencimiento"];
    $tasa_normal = $rw["tasa_interes"];
    $tasa_moratorio = $rw["tasa_moratorio"];
    $pagos = $rw["pagos_autorizados"];
    $periocidad = $rw["periocidad_de_pago"];
    $monto = $rw["monto_autorizado"];
    $saldo = $rw["saldo_actual"];
    $fecha_ultimo_mvto = $rw["fecha_ultimo_mvto"];
 function setExport($FechaInicial = false, $FechaFinal = false)
 {
     $wByFi = $FechaInicial == false ? "" : " WHERE fecha_de_alta>='{$FechaInicial}' ";
     $wByFf = $FechaFinal == false ? "" : " AND fecha_de_alta<='{$FechaFinal}' ";
     $sucursal = getSucursal();
     $arrTipos = array("AD" => "A", "AA" => "B", "PD" => "C", "PA" => "D", "CD" => "E", "CA" => "F", "RD" => "G", "RA" => "H", "OD" => "K", "OA" => "L", "ED" => "I", "EA" => "J");
     //safe => Compaq
     $arrMayor = array("3" => "1", "4" => "2", "1" => "3", "2" => "4");
     //3 safe mayor
     $WriteText = "F  00000000000000\r\n";
     //cuenta de flujo de efectivo
     $sql = "SELECT numero, equivalencia, nombre, tipo, ctamayor, afectable, centro_de_costo, fecha_de_alta, digitoagrupador \r\n    \t\t\tFROM contable_catalogo {$wByFi} {$wByFf} \r\n    \t\t\tORDER BY numero\r\n    \t\t\t";
     $rs = mysql_query($sql, cnnGeneral());
     if (!$rs) {
         //Codigo de Control de Error
         saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sql);
     }
     //$WriteText	.= "$sql\r\n";
     while ($rw = mysql_fetch_array($rs)) {
         //XXX: Si el titulo asignar 0 a superior
         //$WriteText	.= "C ";
         //CompAQi
         $WriteText .= "C  ";
         //$WriteText	.= substr(str_pad($rw["numero"], 20, " ", STR_PAD_RIGHT), 0, 20);
         $WriteText .= substr(str_pad($rw["numero"], 30, " ", STR_PAD_RIGHT), 0, 30);
         $WriteText .= " ";
         $WriteText .= substr(str_pad(trim($rw["nombre"]), 50, " ", STR_PAD_RIGHT), 0, 50);
         $WriteText .= " ";
         $WriteText .= substr(str_pad("", 50, " ", STR_PAD_RIGHT), 0, 50);
         $WriteText .= " ";
         //cuenta superior, mod a 30. compaqi
         //$WriteText	.= substr(str_pad( cuenta_superior( $rw["numero"] ), 20, " ", STR_PAD_RIGHT), 0, 20);
         $WriteText .= $rw["ctamayor"] == 1 ? substr(str_pad(cuenta_superior("0"), 30, " ", STR_PAD_RIGHT), 0, 30) : substr(str_pad(cuenta_superior($rw["numero"]), 30, " ", STR_PAD_RIGHT), 0, 30);
         $WriteText .= " ";
         $WriteText .= $arrTipos[$rw["tipo"]];
         $WriteText .= " ";
         $WriteText .= "0 ";
         //Baja
         $WriteText .= $arrMayor[$rw["ctamayor"]];
         $WriteText .= " ";
         $WriteText .= "0 ";
         $WriteText .= date("Ymd", strtotime($rw["fecha_de_alta"]));
         $WriteText .= " ";
         //Actualizacion ContPAQi
         $WriteText .= "81 ";
         //Sistema de Origen
         $WriteText .= "   1 ";
         //Moneda
         $WriteText .= "   0 ";
         //Digito Agrupador
         $WriteText .= "0    ";
         //Segmento de Negocio
         $WriteText .= "0 ";
         //Mvto.Segmento de Negocio
         $WriteText .= "\r\n";
         //$WriteText	.= "01 01 0000 000\r\n";
     }
     $nombre = "{$sucursal}-catalogo-contable-" . date("Ymd", strtotime(fechasys())) . "-" . rand(0, 1000) . "";
     $xFile = new cFileLog($nombre);
     $xFile->setWrite($WriteText);
     $xFile->setClose();
     return $xFile->getLinkDownload($nombre);
 }
     //Elimina el Archivo
     //unlink(PATH_TMP . $aliasFils . ".txt");
     //Abre Otro, lo crea si no existe
     $URIFil = @fopen(PATH_TMP . $aliasFils . ".txt", "a+");
 }
 switch ($step) {
     case 1:
         $msg .= "===================================== INICIANDO EL RESPALDO DE {$BkpSucursal} =============================\r\n";
         $FechaDeCorte = $_POST["cFechaDeCorte"];
         //Fecha Inicial de Corte
         $LstFolio = $_POST["cLastFolio"];
         //Ultimo Folio de Recibo
         $msg .= date("H:i:s") . "\tLa Fecha de Corte es {$FechaDeCorte}\r\n";
         //$msg				.= "\tLa Fecha de Corte es $FechaDeCorte";
         //step one: Socios a sus sucursales
         $xSuc = new cSucursal(getSucursal());
         $msg .= $xSuc->setValidar();
         $xCL = new cCajaLocal(getCajaLocal());
         $msg .= $xCL->setValidar();
         //step two: Folios al Maximo
         $msg .= setFoliosAlMaximo();
         //Step_tree: Elimina los archivos en el tmp Backups
         $xop = new cUtileriasParaOperaciones();
         //Genera un Recibo por los Mvtos Huerfanos de Recibo en Operaciones
         $msg .= $xop->setGenerarRecibosGlobales();
         //Elimina Recibos Duplicados
         $msg .= $xop->setEliminarRecibosDuplicados();
         $sql_ttmp = "DELETE FROM general_tmp";
         my_query($sql_ttmp);
         $msg .= "\tSe eliminan Registros Temporales\r\n";
         echo "\n\t\t\t\t<ol>\n\t\t\t\t\t<li>Se Actualizaron los Folios</li>\n\t\t\t\t\t<li>Se Actualizo el DEFAULT Socio para Operaciones que no tienen socio</li>\n\t\t\t\t\t<li>Se Actualizaron los Socios a su sucursal</li>\n\t\t\t\t\t<li>Se Actualizo el usuario ROOT para Operaciones que no tienen propietario</li>\n\t\t\t\t\t<li>Se Agrego el Recibo x para Mvtos Huerfanos</li>\n\t\t\t\t\t<li>Se Purgaron Recibos Duplicados</li>\n\t\t\t\t<li>Se Actualizo la sucursal de Creditos por usuario propietario</li>\n\t\t\t\t<li>Se Actualizo la sucursal de las Cuentas de Captacion por Usuario Propietario</li>\n\t\t\t\t<li>Se Actualizo la Sucursal de las Operaciones y recibos por Usuario Propietario</li>\n\t\t\t\t<li>La fecha de purga es a partir de {$FechaDeCorte}</li>\t\t\t\t\t\n\t\t\t\t</lo>\n\t\t\t\t<br />\n\t\t\t\t<a href=\"./sucursal.backup_offline.frm.php?a=1&s=2&f={$FechaDeCorte}&n={$LstFolio}\" target=\"_self\">Siguiente</a>\n\t\t\t";
if (isset($convenio) and $convenio != "todas") {
    $es_por_convenio = " AND creditos_solicitud.tipo_convenio = {$convenio} ";
}
if ($fecha_inicial && $fecha_final) {
    $rango_de_fechas = " AND creditos_solicitud.fecha_ministracion<='{$fecha_final}' ";
}
if (MODO_DEBUG == true) {
    $aliasFils = "log-de-informe_mesual-al-" . date("Y-m-d");
    //Elimina el Archivo
    unlink(PATH_TMP . $aliasFils . ".txt");
    //Abre Otro, lo crea si no existe
    $URIFil = fopen(PATH_TMP . $aliasFils . ".txt", "a+");
}
$msg = "============\t\t\t\tINFORME MENSUAL DE CREDITOS \r\n";
$msg .= "============\t\t\t\tCREADOR\t\t{$oficial} \r\n";
$msg .= "============\t\t\t\tSUCURSAL\t\t" . getSucursal() . " \r\n";
$input = $_GET["out"];
if (!$input) {
    $input = "default";
}
/**
 *	Arrrays de Datos Complementarios
 */
$VFigura = array(1 => "FISICA", 2 => "MORAL", 3 => "COPROPIEDAD", 99 => "DESCONOCIDO");
$VClasificacion = array(1 => "COMERCIAL", 2 => "VIVIENDA", 3 => "CONSUMO", 99 => "DESCONOCIDO");
$VPeriocidad = array(7 => "PAGO PARCIAL DE CAPITAL E INTER&Eacute;S", 15 => "PAGO PARCIAL DE CAPITAL E INTER&Eacute;S", 30 => "PAGO PARCIAL DE CAPITAL E INTER&Eacute;S", 60 => "PAGO PARCIAL DE CAPITAL E INTER&Eacute;S", 90 => "PAGO PARCIAL DE CAPITAL E INTER&Eacute;S", 360 => "CAPITAL E INTER&Eacute;S AL VENCIMIENTO");
/**
 * Estatus del Credito para Efectos del Reporte
 */
$VEstatus = array(10 => "VIGENTE", 20 => "VENCIDA", 30 => "VIGENTE", 60 => "VIGENTE", 50 => "VENCIDA");
/**
 $completePath = $prePath . $usrFiles[$i]['name'];
 if (file_exists($completePath) == true) {
     unlink($completePath);
     echo "<p class='aviso'> SE ELIMINO EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 }
 if (move_uploaded_file($usrFiles[$i]['tmp_name'], $completePath)) {
     //echo "<p class='aviso'> SE GUARDO EXITOSAMENTE EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 } else {
     //echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>";
 }
 //analizar el Archivo
 $gestor = @fopen($completePath, "r");
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-carga-batch-de-vista-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
         } else {
             $bufer = trim($bufer);
             $datos = explode(",", $bufer, 6);
             //numero de socio //[numero de cuenta] //[FechaDeApertura] //[clave de producto] //saldo //[observaciones]
             $socio = $cT->cInt($datos[0]);
             $NumCuenta = $cT->cInt($datos[1]);
             $fechaApertura = $cT->cFecha($datos[2]);
             $Producto = $cT->cInt($datos[3]);
                     $xRel->dependiente(1);
                     $xRel->domicilio_completo("");
                     $xRel->eacp(EACP_CLAVE);
                     $xRel->estatus(10);
                     $xRel->fecha_alta(fechasys());
                     $xRel->fecha_nacimiento($xSoc->getFechaDeNacimiento());
                     $xRel->idsocios_relaciones($xRel->query()->getLastID());
                     $xRel->idusuario(getUsuarioActual());
                     $xRel->monto_relacionado(0);
                     $xRel->nombres($nombre);
                     $xRel->numero_socio($idrelacion);
                     $xRel->observaciones("");
                     $xRel->ocupacion($tipo);
                     $xRel->porcentaje_relacionado(100);
                     $xRel->socio_relacionado($id);
                     $xRel->sucursal(getSucursal());
                     $xRel->telefono_movil(0);
                     $xRel->telefono_residencia(0);
                     $xRel->tipo_relacion($eq[$tipo]);
                     $xRel->query()->insert()->save();
                 }
                 break;
         }
         //end swicth
     }
 }
 $msg .= $xFil->getMessages();
 if (MODO_DEBUG == true) {
     $xFl = new cFileLog();
     $xFl->setWrite($msg);
     $xFl->setClose();
 function addValorArqueado($valor_arqueado, $numero_arqueado, $documento, $notas = "", $fecha = false, $hora = false)
 {
     //eliminar valor anterior
     $fecha = $fecha == false ? fechasys() : $fecha;
     $hora = $hora == false ? time() : $hora;
     $monto = $valor_arqueado * $numero_arqueado;
     $xArq = new cTesoreria_caja_arqueos();
     $id = $xArq->query()->getLastID();
     $xArq->codigo_de_arqueo($id);
     $xArq->codigo_de_caja($this->mClaveDecaja);
     $xArq->documento($documento);
     $xArq->eacp(EACP_CLAVE);
     $xArq->fecha_de_arqueo($fecha);
     $xArq->hora_de_arqueo($hora);
     $xArq->idusuario(getUsuarioActual());
     $xArq->monto_total_arqueado($monto);
     $xArq->observaciones($notas);
     $xArq->sucursal(getSucursal());
     $xArq->valor_arqueado($valor_arqueado);
     $xArq->numero_arqueado($numero_arqueado);
     $cmd = $xArq->query()->insert();
     $cmd->save();
     if (MODO_DEBUG == true) {
         setLog($cmd->getMessages());
     }
     return $id;
 }
 /**
  * funcion que purga la Cuentas a la Vista Menores a Cero, llevandolas a Cero
  * @param	boolean	$DistinctSucursal		Distinguir Sucursal?: Si/No
  * @return	string	Mensajes del Log de Proceso
  */
 function setCleanCuentasMenoresACero_ALaVista($DistinctSucursal = false)
 {
     $msg = "============== ELIMINANDO CUENTAS CON SALDO NEGATIVO \r\n";
     $msg .= "============== " . date("dmY h:i:s") . " \r\n";
     $BySucursal = "";
     if ($DistinctSucursal == true) {
         $BySucursal = " AND (`captacion_cuentas`.`sucursal`='" . getSucursal() . "') ";
         $msg .= "============== " . getSucursal() . " \r\n";
     }
     $cRec = new cReciboDeOperacion(10);
     $xRec = $cRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, fechasys(), 1, 10, "RECIBO_DE_AJUSTES_DE_CAPTACION");
     $msg .= "\t\tRECIBO\tEl Recibo de Operacion es {$xRec}\r\n";
     $cRec->setNumeroDeRecibo($xRec, true);
     $msg .= $cRec->getMessages("txt");
     $contar = 0;
     $xTb = new cSAFETabla(TCAPTACION_CUENTAS);
     $sql = $xTb->getQueryInicial() . "\n\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t(\n\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`saldo_cuenta` <= " . TOLERANCIA_SALDOS . ")\n\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`saldo_cuenta` != 0)\n\t\t\t\t\t\t\t\t\t\t\t)\n\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_cuenta` =10)\n\t\t\t\t\t\t\t\t\t\t\t{$BySucursal}\n\t\t\t\t\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta`,\n\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.`fecha_afectacion` ";
     $rs = getRecordset($sql);
     while ($rw = mysql_fetch_array($rs)) {
         $numero = $rw["numero_cuenta"];
         $monto = $rw["saldo_cuenta"];
         $cuenta = $numero;
         $socio = $rw["numero_socio"];
         $retirar = false;
         if ($monto < 0) {
             $monto = $monto * -1;
         } else {
             $retirar = true;
         }
         $xCuenta = new cCuentaALaVista($numero);
         $xCuenta->init($rw);
         $xCuenta->setReciboDeOperacion($xRec);
         $xCuenta->setForceOperations();
         if ($retirar == true) {
             $xCuenta->setRetiro($monto);
         } else {
             $xCuenta->setDeposito($monto);
         }
         $NSaldo = $xCuenta->getNuevoSaldo();
         $msg .= "{$contar}\t{$socio}\t{$cuenta}\tAGREGAR\tSe Agrega la Cuenta un monto de {$monto}, Saldo Actualizado a {$NSaldo}\r\n";
         $msg .= $xCuenta->getMessages("txt");
         $contar++;
     }
     return $msg;
 }
                                 $diferencia = $saldo - $sdoCW;
                                 $msg .= "{$socio}\tSUCESS\t{$saldo}\t{$sdoCW}\t{$diferencia}\tSaldo Correcto, SIMILAR/IGUAL\r\n";
                             } else {
                                 $diferencia = $cT->cFloat($saldo - $sdoCW, 2);
                                 $msg .= "{$socio}\tERROR\t{$saldo}\t{$sdoCW}\t{$diferencia}\tSaldo Incorrecto\r\n";
                                 $msgD .= "{$socio}\t{$saldo}\t{$sdoCW}\t{$diferencia}\t" . $aCompacWC[$socio] . "\r\n";
                             }
                             break;
                     }
                 } else {
                     $msg .= "{$socio}\tNO.EXIST\t0\t{$sdoCW}\t0\tSocio No existe en la Sucursal\r\n";
                 }
             }
             $html = new cHTMLObject();
             $fileDw = getSucursal() . "-compacw-comparacion_auxiliares_del_catalogo-" . date("ydmHsi");
             $fileDi = getSucursal() . "-{$TipoDeImportacion}-diferencias_compaqw-vs-safe_" . date("ydmHsi");
             $cF = new cFileLog($fileDw);
             $cFd = new cFileLog($fileDi);
             $cF->setWrite($msg);
             $cF->setClose();
             //
             $cFd->setWrite($msgD);
             $cFd->setClose();
             echo $cFd->getLinkDownload("Archivo de diferencias");
             echo $cF->getLinkDownload("Datos del proceso de Comparacion");
         } else {
             echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
         }
     }
 }
 ?>
             		
             		$tipo_de_ingreso = FALLBACK_PERSONAS_TIPO_ING, $estado_civil = DEFAULT_ESTADO_CIVIL,
             		
             		$genero = DEFAULT_GENERO, $dependencia = FALLBACK_CLAVE_EMPRESA, $regimen_conyugal = DEFAULT_REGIMEN_CONYUGAL,
             		
             		$personalidad_juridica = 1, $grupo_solidario = DEFAULT_GRUPO, $observaciones = "",
             		
             		$identificado_con = 1, $documento_de_identificacion = "0", $codigo = false, $sucursal = false,
             		
             		$movil	= "", $correo = "", $dependientes = 0, $fecha = false, $riesgo = AML_PERSONA_BAJO_RIESGO, $clave_fiel = "", 
             		$pais = EACP_CLAVE_DE_PAIS
             		*/
             $idpersona = $xFi->getEntero($tmp->ID_PERSONA);
             if ($idpersona > 0) {
                 $xSoc->setOmitirAML();
                 $pass = $xSoc->add($xFi->getV($tmp->NOMBRES), $xFi->getV($tmp->PRIMER_APELLIDO), $xFi->getV($tmp->SEGUNDO_APELLIDO), $xFi->getV($tmp->ID_FISCAL), $xFi->getV($tmp->ID_POBLACIONAL), getCajaLocal(), $xFi->getV($tmp->FECHA_NACIMIENTO), $xFi->getV($tmp->CIUDAD_NACIMIENTO), DEFAULT_TIPO_INGRESO, $xFi->getV($tmp->ESTADO_CIVIL, DEFAULT_ESTADO_CIVIL, MQL_INT, $arrEcivil), $xFi->getV($tmp->GENERO, DEFAULT_GENERO, MQL_INT, $arrGenero), FALLBACK_CLAVE_EMPRESA, DEFAULT_REGIMEN_CONYUGAL, $xFi->getV($tmp->TIPO_PERSONA, FALLBACK_PERSONAS_FIGURA_JURIDICA, MQL_INT, $arrFJuridica), FALLBACK_CLAVE_DE_GRUPO, "", FALLBACK_PERSONAS_TIPO_IDENTIFICACION, $xFi->getV($tmp->ID_POBLACIONAL), $idpersona, getSucursal(), 0, "", 0, $xFi->getV($tmp->FECHA_ALTA));
                 //sucess
                 if ($pass == true) {
                     $ingreso = $xFi->getFlotante($tmp->INGRESOS_MENSUALES);
                     if ($ingreso > 0) {
                         if ($xSoc->init() == true) {
                             $xSoc->addActividadEconomica($xFi->getV($tmp->EMPRESA_TRABAJO, ""), $ingreso, $xFi->getV($tmp->OCUPACION, ""));
                         }
                     }
                 }
             }
             $msg .= $xSoc->getMessages();
         }
         $conteo++;
     }
 }
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Ficha de Informacion de Sucursal</title>
</head>
<link href="../css/reporte.css" rel="stylesheet" type="text/css">
<body >
<!--  onLoad="javascript:window.print();"-->
<?php 
echo getRawHeader();
/**
 * Filtrar si hay Fecha
 */
$fecha_inicial = $_GET["on"];
$fecha_final = $_GET["off"];
$BySuc = "";
$mSuc = isset($_GET["s"]) ? $_GET["s"] : "todas";
$mSuc = $mSuc == "todas" ? getSucursal() : $mSuc;
if ($mSuc != "todas") {
    $BySuc = " \tAND\n\t(`creditos_solicitud`.`sucursal` ='{$mSuc}') ";
}
?>
<!-- -->
<table       >
	<thead>
		<tr>
			<td class="subtitle">REPORTE DE CIFRAS GENERALES POR SUCURSAL</td>
		</tr>
<!-- DATOS GENERALES DEL REPORTE  -->
		<tr>
			<td width="60%">&nbsp;</td>
			<td width="20%">Fecha de Elaboracion:</td>
			<td width="20%"><?php 
 /**
  * @return integer Numero de Operacion
  **/
 function setNuevoMvto($fecha_operacion, $monto, $tipo_operacion, $periodo_de_socio, $observaciones, $signo_afectacion = 1, $mvto_contable = false, $socio = false, $documento = false, $fecha_afectacion = false, $fecha_vencimiento = false, $saldo_anterior = false, $saldo_nuevo = false)
 {
     $sucess = false;
     //inicializa el recibo
     if (!isset($this->mCodigoDeRecibo) or $this->mCodigoDeRecibo == false) {
         //
     }
     //Si no hay valores, obtenerlos del recibo
     if ($documento == false or !isset($documento)) {
         $documento = $this->mDocto;
     }
     if ($socio == false or !isset($socio)) {
         $socio = $this->mSocio;
     }
     //Verificar la Cuenta Bancaria
     if ($this->mCuentaBancaria == false) {
         $this->mCuentaBancaria = DEFAULT_CUENTA_BANCARIA;
     }
     $recibo = $this->mCodigoDeRecibo;
     $fecha_afectacion = $fecha_afectacion == false ? $fecha_operacion : $fecha_afectacion;
     // --------------------------------------- VALOR SQL DEL MVTO.-------------------------------------------------------
     // VALORES FIJOS
     $smf = "idusuario, codigo_eacp, socio_afectado, docto_afectado, recibo_afectado, fecha_operacion, ";
     // PERIODOS
     $smf .= "periodo_contable, periodo_cobranza, periodo_seguimiento, ";
     $smf .= "periodo_anual, periodo_mensual, periodo_semanal, ";
     // AFECTACIONES
     $smf .= "afectacion_cobranza, afectacion_contable, afectacion_estadistica, ";
     $smf .= "afectacion_real, valor_afectacion, ";
     // FECHAS Y TIPOS
     $smf .= "idoperaciones_mvtos, tipo_operacion, estatus_mvto, periodo_socio, ";
     $smf .= "fecha_afectacion, fecha_vcto, ";
     // SALDOS
     $smf .= "saldo_anterior, saldo_actual, detalles, sucursal, tasa_asociada, dias_asociados, grupo_asociado";
     //
     $iduser = $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"];
     $eacp = EACP_CLAVE;
     // PERIODOS
     $percont = EACP_PER_CONTABLE;
     // Periodo Contable
     $percbza = EACP_PER_COBRANZA;
     // Periodo Cobranza.
     $perseg = EACP_PER_SEGUIMIENTO;
     // Period de Seguimiento.
     $permens = date("m", strtotime($fecha_operacion));
     // Periodo mes
     $persem = date("N", strtotime($fecha_operacion));
     // Periodo de dias en la semana.
     $peranual = date("Y", strtotime($fecha_operacion));
     // A�o Natural.
     $persoc = $periodo_de_socio;
     // periodo del Socio.
     $estatus_mvto = $this->mDefMvtoStatus;
     $fecha_vcto = $fecha_vencimiento == false ? $this->mFechaDeVcto : $fecha_vencimiento;
     $saldo_anterior = $saldo_anterior === false ? 0 : $saldo_anterior;
     $saldo_nuevo = $saldo_nuevo === false ? $monto : $saldo_nuevo;
     $sucursal = getSucursal();
     $afect_cbza = $monto;
     $afect_seg = $monto;
     $afect_cont = $monto;
     $afect_esta = $monto;
     $idoperacion = folios(2);
     $tasa = 0;
     $dias = 0;
     $grupo = $this->mGrupoAsociado;
     $viable = true;
     $xT = new cTipos(0);
     if ($this->mGrupoAsociado == false) {
         $grupo = DEFAULT_GRUPO;
     }
     $smv = "{$iduser}, '{$eacp}', {$socio}, {$documento}, {$recibo}, '{$fecha_operacion}',\n\t\t\t\t{$percont}, {$percbza}, {$perseg}, {$peranual}, {$permens}, {$persem},\n\t\t\t\t{$afect_cbza}, {$afect_cont}, {$afect_esta},\n\t\t\t\t{$monto}, {$signo_afectacion},\n\t\t\t\t{$idoperacion}, {$tipo_operacion}, {$estatus_mvto}, {$persoc},\n\t\t\t\t'{$fecha_afectacion}', '{$fecha_vcto}',\n\t\t\t\t{$saldo_anterior}, {$saldo_nuevo}, '{$observaciones}', '{$sucursal}', {$tasa}, {$dias}, {$grupo}\n\t\t\t\t";
     $arrD = array($socio, $documento, $recibo);
     $viable = $xT->getEvalNotNull($arrD);
     if ($viable == false) {
         $this->mMessages .= "ERROR\tVARS\tError al Evaluar alguno de estos Valores Socio {$socio}, Documento {$documento}, Recibo {$recibo}\r\n";
         $this->mMessages .= $xT->getMessages();
     }
     $SQl_comp = "INSERT INTO operaciones_mvtos({$smf}) VALUES ({$smv})\n\t\t\t\t\t\tON DUPLICATE KEY UPDATE idoperaciones_mvtos = " . folios(2) . "\n\t\t\t\t\t";
     if ($monto != 0 and isset($monto) and $this->mAfectar == true and $viable == true) {
         $exec = my_query($SQl_comp);
         if ($exec["stat"] == false) {
             $sucess = false;
             $this->mMessages .= "ERROR\t{$recibo}\tSe Fallo al Agregar la Operacion({$tipo_operacion}) por {$monto} con Numero {$idoperacion}\r\n";
         } else {
             $sucess = true;
             $this->mMessages .= "SUCESS\t{$recibo}\tSe agrego Exitosamente la Operacion({$tipo_operacion}) por {$monto} con Numero {$idoperacion} \r\n";
         }
     } else {
         $this->TxtLog .= "WARNING\tSe simula Agregar el Mvto {$idoperacion} del tipo {$tipo_operacion} por un monto de {$monto} \r\n";
     }
     //Sumar al Recibo el Monto
     $this->mSumaDeRecibo += $monto;
     $this->mNumeroDeMvtos++;
     //
     return $idoperacion;
 }
 /**
  * Funcion que agrega una nueva Cuenta
  * @param $origen					Origen de la cuenta, lavado de dinero
  * @param $subproducto				Subproducto al que pertenece
  * @param $socio
  * @param $observaciones
  * @param $credito
  * @param $mancomunado1
  * @param $mancomunado2
  * @param $grupo
  * @param $fecha_alta
  * @param $tipo_de_cuenta
  * @param $tipo_de_titulo
  * @param $DiasInvertidos
  * @param $tasa
  * @param $CuentaDeIntereses
  * @return unknown_type
  */
 function setNuevaCuenta($origen, $subproducto, $socio, $observaciones = "", $credito = 1, $mancomunado1 = "", $mancomunado2 = "", $grupo = 99, $fecha_alta = false, $tipo_de_cuenta = 20, $tipo_de_titulo = 99, $DiasInvertidos = false, $tasa = false, $CuentaDeIntereses = false, $FechaVencimiento = false)
 {
     $xT = new cTipos(0);
     if ($this->mNumeroCuenta == false) {
         //Asigna una cuenta por estructura
         $cuenta = $xT->cSerial(2, $subproducto) . $xT->cSerial(DIGITOS_DE_CLAVE_DE_SOCIO, $socio) . "01";
         $sqlNCta = "SELECT COUNT(numero_cuenta) AS 'cuentas'\n\t\t\t\t\t\t\t\t\tFROM captacion_cuentas\n\t\t\t\t\t\t\t\t\tWHERE numero_socio={$socio}";
         $datos = obten_filas($sqlNCta);
         if (isset($datos["cuentas"]) or $datos["cuentas"] > 0) {
             $cuenta = $xT->cSerial(2, $subproducto) . $xT->cSerial(DIGITOS_DE_CLAVE_DE_SOCIO, $socio) . ($datos["cuentas"] + 1);
             $this->mMessages .= "WARN\tSe Presume al Numero de cuenta {$cuenta} por que el socio tiene  " . $datos["cuentas"] . " cuentas\r\n";
         }
         $this->mNumeroCuenta = $cuenta;
         unset($datos);
     }
     $idsolicitud = $credito;
     $idgrupo = $grupo;
     $observacion = $observaciones;
     $xF = new cFecha();
     if ($DiasInvertidos == false) {
         $DiasInvertidos = $this->mDiasInvertidos;
     }
     $fechaalta = $fecha_alta == false ? $this->mFechaOperacion : $fecha_alta;
     if ($tasa == false) {
         $tasa = $this->mTasaInteres;
     } else {
         $this->mTasaInteres = $tasa;
     }
     if ($this->mSocioTitular != 0 and isset($this->mSocioTitular) and $this->mSocioTitular != false) {
         $idsocio = $this->mSocioTitular;
     } else {
         if (isset($socio) && $socio != false) {
             $idsocio = $socio;
             $this->mSocioTitular = $socio;
         }
     }
     if ($CuentaDeIntereses == false) {
         $CuentaDeIntereses = CTA_GLOBAL_CORRIENTE;
     }
     $FechaVencimiento = $FechaVencimiento == false ? $xF->setSumarDias($DiasInvertidos, $fechaalta) : $FechaVencimiento;
     $origencuenta = $origen;
     $tipotitulo = $tipo_de_titulo;
     $lacuenta = $this->mNumeroCuenta;
     $sucursal = getSucursal();
     $fechabaja = "2029-12-31";
     $estatus = 10;
     $man1 = $mancomunado1;
     $man2 = $mancomunado2;
     $subpdto = $subproducto;
     $sqlPdto = "SELECT * FROM captacion_subproductos\tWHERE idcaptacion_subproductos={$subpdto}";
     $dPdto = obten_filas($sqlPdto);
     $tipocuenta = $dPdto["tipo_de_cuenta"];
     $contrato = $dPdto["nombre_del_contrato"];
     $iduser = $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"];
     $eacp = EACP_CLAVE;
     //verifica si existe la Cuenta
     $cuentas_existentes = $this->setContarCuenta();
     //
     if ($cuentas_existentes > 0) {
         //sumar otro folio
         $lacuenta++;
         $this->mNumeroCuenta = $lacuenta;
         $cuentas_existentes = $this->setContarCuenta();
         if ($cuentas_existentes > 0) {
             $lacuenta++;
             $this->mNumeroCuenta = $lacuenta;
         }
     }
     // Si es Inversion la Cuenta Estara Inactiva
     if ($tipocuenta == 20) {
         $estatus = 20;
     }
     $sqlNR = "INSERT INTO captacion_cuentas(\n\t\t\t\t\t\tnumero_cuenta, numero_socio, numero_grupo, numero_solicitud, tipo_cuenta,\n\t\t\t\t\t\tfecha_apertura, fecha_afectacion, fecha_baja, estatus_cuenta, saldo_cuenta,\n\t\t\t\t\t\teacp, idusuario, inversion_fecha_vcto, inversion_periodo, tasa_otorgada, dias_invertidos, observacion_cuenta, origen_cuenta,\n\t\t\t\t\t\ttipo_titulo, tipo_subproducto, nombre_mancomunado1, nombre_mancomunado2, minimo_mancomunantes, saldo_conciliado, fecha_conciliada,\n\t\t\t\t\t\tsucursal, ultimo_sdpm, oficial_de_captacion,\n\t\t\t\t\t\tcuenta_de_intereses)\n    \t\t\t\t\tVALUES(\n\t\t\t\t\t\t{$lacuenta}, {$idsocio}, {$idgrupo}, {$idsolicitud}, {$tipocuenta},\n\t\t\t\t\t'{$fechaalta}', '{$fechaalta}', '{$fechabaja}', {$estatus}, 0,\n\t\t\t\t\t'{$eacp}', {$iduser},\n\t\t\t\t\t'{$FechaVencimiento}', 1, {$tasa}, {$DiasInvertidos}, '{$observacion}', {$origencuenta},\n\t\t\t\t\t{$tipotitulo}, {$subpdto}, '{$man1}', '{$man2}', 0, 0, '{$fechaalta}',\n\t\t\t\t\t'{$sucursal}', 0, {$iduser},\n\t\t\t\t\t{$CuentaDeIntereses})";
     $r = my_query($sqlNR);
     if ($r["stat"] == true) {
         $this->mMessages .= "OK\tSe Agrego Existosamente la Cuenta {$lacuenta} del subproducto {$subpdto} \r\n";
         $this->mSucess = true;
         $this->mSocioTitular = $idsocio;
         $this->mGrupoAsociado = $grupo;
         $this->mCreditoAsoc = $idsolicitud;
         $this->mNumeroCuenta = $lacuenta;
         $this->mDiasInvertidos = $DiasInvertidos;
         $this->mFechaVencimiento = $FechaVencimiento;
     } else {
         $this->mMessages .= "ERROR\tal Agregar la Cuenta {$lacuenta} del subproducto {$subpdto}\r\n";
         if (MODO_DEBUG == true) {
             $this->mMessages .= $r["info"];
         }
         $this->mSucess = false;
     }
     return $this->mNumeroCuenta;
 }
$xDiv = new cHDiv();
$xHP->init();
$xFRM = new cHForm("frm", "./");
$msg = "";
$xFRM->addDivSolo('<img src="../images/banner-safe.png" />');
$xFRM->addHTML("<h3>AUTOR</h3>");
$xFRM->addHTML("<h5>Balam Gonzalez Luis Humberto 2005-2014</h5>");
$xUl2 = new cHUl();
$xUl2->li('<a href="http://www.opencorebanking.com/">P&aacute;gina del Proyecto : www.opencorebanking.com</a>');
$xUl2->li('<a href="http://sourceforge.net/projects/safemicrofin/"> Hosting del Proyecto :  SourceForge</a>');
//$xUl2->li('Blog del Proyecto <a href="http://sourceforge.net/apps/wordpress/safemicrofin/">Hospedado en SourceForge</a>');
//$xFRM->addHTML( $xUl2->li('<a href="http://wiki.opencorebanking.com/">Wiki del Proyecto Hospedado en www.opencorebanking.com</a>')->end());
//$xFRM->addDivSolo("")
$xFRM->addHTML("<h3>FINANCIAMIENTO</h3>");
$xUl3 = new cHUl();
//<a href="http://www.grupopadio.com.mx"> <a href="http://www.mulmeyah.org">
$xUl3->li('GRUPO PADIO, SOFOM ENR (Desde Agosto de 2013).- Calle 25 # 87-A, Col. México, Mérida, Yucatán');
$xFRM->addHTML($xUl3->li('CAJA SOLIDARIA MULMEYAH, S.C. DE A.P. DE C.V. DE R.L (Hasta Diciembre de 2006).- Calle 61 Num. 50 Entre 16 y 14, Col. Centro. San Francisco de Campeche, 01(981)8113766')->end());
$xFRM->addHTML("<h3>AGRADECIMIENTOS ESPECIALES</h3>");
$xUl = new cHUl();
$xUl->li("Lic. Alejandro Roberto de jesus Ojeda Mendez, Por su confianza en el proyecto.");
$xUl->li("Ing. Jorge Alberto Poot Xiu.- Motivaci&oacute;n, Base de datos, Normalizaci&oacute;n  y su Gran Experiencia");
$xUl->li("Ing. Gabriel Orozco Ruiz Velazco.- Seguridad, Motivaci&oacute;n y uso en otras entidades");
//$xUl->li("");
$xFRM->addHTML($xUl->li("L.I. Victor Rojas.- Motivaci&oacute;n, Recomendaci&oacute;n y uso del Now How")->end());
$xFRM->addHTML("<h3>DATOS DEL SISTEMA</h3>");
$xULi = new cHUl();
$xFRM->addHTML($xULi->li("Base de Datos:" . MY_DB_IN)->li("Servidor: " . WORK_HOST)->li("Sucursal: " . getSucursal())->li("Version S.A.F.E.:" . SAFE_VERSION)->li("Revision S.A.F.E: " . SAFE_REVISION)->li("Path Temporal:" . PATH_TMP)->li("Path Backups:" . PATH_BACKUPS)->li("Fecha del Sistema: " . date("Y-m-d H:i:s"))->li("Usuario Activo: " . elusuario(getUsuarioActual()))->end());
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
/**
 * 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))) {
    $messages .= $xCUtils->setGenerarMvtoFinDeMes($xF->getDiaInicial(), $xF->getDiaFinal());
}
if (CREDITO_CIERRE_FORZAR_DEVENGADOS == true) {
    $messages .= $xCUtils->setReestructurarSDPM_Planes(true, false, false, false, $xF->getDiaInicial(), false);
    $messages .= $xCUtils->setReestructurarSDPM(true, false, false, false, false, $xF->getDiaInicial(), false);
    $messages .= $xCUtils->setRegenerarInteresDevengado(false, $xF->get(), $xF->get());
}
 $completePath = $prePath . $usrFiles[$i]['name'];
 if (file_exists($completePath) == true) {
     unlink($completePath);
     echo "<p class='aviso'> SE ELIMINO EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 }
 if (move_uploaded_file($usrFiles[$i]['tmp_name'], $completePath)) {
     //echo "<p class='aviso'> SE GUARDO EXITOSAMENTE EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 } else {
     //echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>";
 }
 //analizar el Archivo
 $gestor = @fopen($completePath, "r");
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-analisis_de_saldos_cw-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 $msg = "";
 //=============================================================================================
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             //$msg .= "$iReg\t\tERROR\tLa Linea($iReg) no se leyo($bufer)\r\n";
         } else {
             $bufer = trim($bufer);
             $datos = explode(",", $bufer, 8);
         }
         $iReg++;
     }
Exemplo n.º 26
0
         </tr>
     <?php } ?>
     <?php if ( $var_propiedad != 0 ) { ?>
         <tr>
             <td><strong>Direccion:</strong></td>
             <td><?php echo utf8_encode($propiedad["direccion"]); ?></td>
         </tr>
         <tr>
             <td><strong>Kardex:</strong></td>
             <td><span class="label label-info"><?php echo $propiedad["kardex"]; ?></span></td>
         </tr>
         <tr>
             <td><strong>Sucursal:</strong></td>
             <td>
                 <?php
                 $sucursal = getSucursal($propiedad["sucursal"]);
                 echo '<span class="label label-danger">'. $sucursal["nombre"] .'</span>';
                 ?>
             </td>
         </tr>
     <?php } ?>
     </tr>
     <?php if ( $var_asesor != 0 ) { ?>
         <tr>
             <td><strong>Asesor:</strong></td>
             <td><?php echo $asesor["vStaffname"]; ?></td>
         </tr>
     <?php } ?>
     </tbody>
 </table>
 <!-- END Info Content -->
 $completePath = $prePath . $usrFiles[$i]['name'];
 if (file_exists($completePath) == true) {
     unlink($completePath);
     echo "<p class='aviso'> SE ELIMINO EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 }
 if (move_uploaded_file($usrFiles[$i]['tmp_name'], $completePath)) {
     //echo "<p class='aviso'> SE GUARDO EXITOSAMENTE EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 } else {
     //echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>";
 }
 //analizar el Archivo
 $gestor = @fopen($completePath, "r");
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-carga -batch-de-socios-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
         } else {
             $bufer = trim($bufer);
             $datos = explode(",", $bufer, 6);
             $socio = $cT->cInt($datos[0]);
         }
         $iReg++;
     }
 }
 $completePath = $prePath . $usrFiles[$i]['name'];
 if (file_exists($completePath) == true) {
     unlink($completePath);
     echo "<p class='aviso'> SE ELIMINO EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 }
 if (move_uploaded_file($usrFiles[$i]['tmp_name'], $completePath)) {
     //echo "<p class='aviso'> SE GUARDO EXITOSAMENTE EL ARCHIVO " . $usrFiles[$i]['name'] . "</p>";
 } else {
     //echo "<p class='aviso'> SE FALLO AL GUARDAR " . $usrFiles[$i]['name'] . "</p>";
 }
 //analizar el Archivo
 $gestor = @fopen($completePath, "r");
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-carga -batch-de-creditos-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
         } else {
             $bufer = trim($bufer);
             $datos = explode(",", $bufer, 12);
             $socio = $cT->cInt($datos[0]);
             $credito = $cT->cInt($datos[1]);
             $producto = $cT->cInt($datos[2]);
             $monto = $cT->cFloat($datos[3]);
             $ministracion = $cT->cFecha($datos[4]);
function setCompacWtExportarPolizas($fecha_inicial, $fecha_final, $FolioInicial = 0, $FolioFinal = 999999, $mTipo = "todas")
{
    $sucursal = getSucursal();
    //Traducciones del ContPaqw
    $CWTipoMvto = array("1" => 1, "-1" => "2");
    //Formato	:	polizas + fecha + sucursal;
    $mTmpFileAlias = "{$sucursal}-polizas-" . date("Y-m-d") . "";
    $mNametmpFile = PATH_TMP . $mTmpFileAlias . ".txt";
    if (file_exists($mNametmpFile)) {
        $BKPFile = fopen($mNametmpFile, "a+");
    } else {
        //$mNametmpFile = tempnam (PATH_BACKUPS, "polizas" . date("Y-m-d") . $sucursal . ".sbk");
        $BKPFile = fopen($mNametmpFile, "a");
    }
    //filtros
    $wByTipo = $mTipo == "todas" ? "" : " AND (`contable_polizas`.`tipopoliza` =" . $mTipo . ")  ";
    //Generar Polizas
    $FInicial = $FolioInicial;
    $FFinal = $FolioFinal;
    $sqlPol = "SELECT\r\n\t\t\t\t\t\t*\r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`contable_polizas` `contable_polizas` \r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`contable_polizas`.`fecha` >='{$fecha_inicial}')\r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(`contable_polizas`.`fecha` <='{$fecha_final}')\r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(\r\n\t\t\t\t\t\t\t(`contable_polizas`.`numeropoliza` >={$FInicial}) \r\n\t\t\t\t\t\t\tAND\r\n\t\t\t\t\t\t\t(`contable_polizas`.`numeropoliza` <={$FFinal}) \r\n\t\t\t\t\t\t\t) {$wByTipo} ";
    //echo $sqlPol;
    $rs = mysql_query($sqlPol, cnnGeneral());
    if (!$rs) {
        //Codigo de Control de Error
        saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sqlPol);
    }
    while ($rw = mysql_fetch_array($rs)) {
        //Seleccionar los Movimientos
        $ejercicio = $rw["ejercicio"];
        $periodo = $rw["periodo"];
        $tipoPoliza = $rw["tipopoliza"];
        $numeroPoliza = $rw["numeropoliza"];
        $fechaPoliza = $rw["fecha"];
        $conceptoPoliza = $rw["concepto"];
        $WriteText = "P " . date("Ymd", strtotime($fechaPoliza));
        $WriteText .= " " . $tipoPoliza;
        $WriteText .= " " . substr(str_pad($numeroPoliza, 8, "0", STR_PAD_LEFT), -8);
        $WriteText .= " 1 000 " . substr(str_pad($conceptoPoliza, 100, " ", STR_PAD_RIGHT), 0, 100);
        $WriteText .= " 01 2 \r\n";
        //Escribe la Poliza
        @fwrite($BKPFile, $WriteText);
        /*
        3 Caracter para quien sabe.- Diario.- supongo
        2 Caracter para quien sabe
        1 Caracter Espacion
        1 Caracter Para quien Sabe
        1 Caracter Espacio
        */
        $sqlMvtos = "SELECT\r\n\t\t\t\t\t\t`contable_movimientos`.* \r\n\t\t\t\t\t\tFROM\r\n\t\t\t\t\t\t\t`contable_movimientos` `contable_movimientos` \r\n\t\t\t\t\t\tWHERE\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`ejercicio` ={$ejercicio}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`periodo` ={$periodo}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`tipopoliza` ={$tipoPoliza}) AND\r\n\t\t\t\t\t\t\t(`contable_movimientos`.`numeropoliza` ={$numeroPoliza})\r\n\t\t\t\t\t\tORDER BY `contable_movimientos`.`ejercicio`,\r\n\t\t\t\t\t\t`contable_movimientos`.`periodo`,\r\n\t\t\t\t\t\t`contable_movimientos`.`tipopoliza`,\r\n\t\t\t\t\t\t`contable_movimientos`.`numeropoliza`,\r\n\t\t\t\t\t\t`contable_movimientos`.`numeromovimiento`\r\n\t\t\t\t\t\t";
        $MRs = mysql_query($sqlMvtos, cnnGeneral());
        while ($MRw = mysql_fetch_array($MRs)) {
            $cuenta = $MRw["numerocuenta"];
            $referencia = $MRw["referencia"];
            //Corrige la Cuenta de Cuadre
            if ($cuenta == CUENTA_DE_CUADRE) {
                $cuenta = "_CUADRE";
            }
            //Tipo M + espacio
            //Cuenta   20
            //Referencia 10
            //TipoMvto 2 espacios 1 Cargo 2 Abono
            //Importe 16 Alineado
            //espacio + 000 + espacio + "            0.00 "
            //concepto 30 + espacio
            $WriteMvto = "M " . substr(str_pad($cuenta, 20, " ", STR_PAD_RIGHT), 0, 20);
            $WriteMvto .= " " . substr(str_pad($referencia, 10, " ", STR_PAD_RIGHT), 0, 10);
            $WriteMvto .= " " . $CWTipoMvto[$MRw["tipomovimiento"]];
            $WriteMvto .= " " . substr(str_pad($MRw["importe"], 16, " ", STR_PAD_LEFT), -16);
            $WriteMvto .= " 000 " . "            0.00 " . substr(str_pad($MRw["concepto"], 30, " ", STR_PAD_RIGHT), 0, 30) . " \r\n";
            @fwrite($BKPFile, $WriteMvto);
        }
    }
    @fclose($BKPFile);
    return "<a href=\"../utils/download.php?type=txt&download={$mTmpFileAlias}&file={$mTmpFileAlias}\" target=\"_blank\" class='boton'>Descargar Archivo de Polizas</a>";
}
 function add($tipo, $tipo_de_valuacion = false, $valor = 0, $persona_propietaria = false, $nombre_del_propietario = "", $fecha_de_adquisicion = false, $documento_presentado = "", $estado_fisico = false, $descripcion = "", $observaciones = "", $fecha_actual = false)
 {
     $fecha_actual = $fecha_actual == false ? fechasys() : $fecha_actual;
     $persona_propietaria = $persona_propietaria == false ? DEFAULT_SOCIO : $persona_propietaria;
     $tipo_de_valuacion = $tipo_de_valuacion == false ? FALLBACK_CRED_GARANTIAS_TVALUACION : $tipo_de_valuacion;
     $xGar = new cCreditos_garantias();
     $xGar->idcreditos_garantias($xGar->query()->getLastID());
     $xGar->descripcion($descripcion);
     $xGar->documento_presentado($documento_presentado);
     $xGar->eacp(EACP_CLAVE);
     $xGar->estado_presentado($estado_fisico);
     $xGar->estatus_actual(CREDITO_GARANTIA_ESTADO_PRESENTADO);
     $xGar->fecha_adquisicion($fecha_de_adquisicion);
     $xGar->fecha_devolucion($fecha_actual);
     $xGar->fecha_recibo($fecha_actual);
     $xGar->fecha_resguardo($fecha_actual);
     $xGar->idsocio_duenno($persona_propietaria);
     $xGar->idusuario(getUsuarioActual());
     $xGar->observaciones($observaciones);
     $xGar->observaciones_del_resguardo("");
     $xGar->propietario($nombre_del_propietario);
     $xGar->socio_garantia($this->mClavePersona);
     $xGar->solicitud_garantia($this->mClaveCredito);
     $xGar->sucursal(getSucursal());
     $xGar->tipo_garantia($tipo);
     $xGar->tipo_valuacion($tipo_de_valuacion);
     $xGar->monto_valuado($valor);
     $q = $xGar->query()->insert();
     $id = $q->save();
     $this->mMessages .= $q->getMessages(OUT_TXT);
     return $id;
 }