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); }
function setCuentaSocio($codigo, $nombre) { $result = array(); $sucess = false; $cuenta = getCuentaCompleta($codigo); $CExist = getInfoCatalogo($cuenta); $NExist = $CExist["nombre"]; $PExist = $CExist["numero"]; if (!$NExist) { //Verificar si la cuenta existe:: $superior = cuenta_superior($cuenta); $dSuperior = getInfoCatalogo($superior); $NSuperior = $dSuperior["nombre"]; //Si no existe la Cuenta Superior if (!$NSuperior) { $sucess = false; } else { $tipo_cuenta = $dSuperior["tipo"]; $mayor = 4; //False $vEjercicio = EJERCICIO_CONTABLE; $centro_costo = $dSuperior["centro_de_costo"]; $afectable = 1; //SI $fecha_alta = fechasys(); $digito = $dSuperior["digitoagrupador"]; $digito = $digito + 1; $sql_ICta = "INSERT INTO contable_catalogo(numero,\n\t\t\t\t\t\t\t\t\t\t\t\tequivalencia,\n\t\t\t\t\t\t\t\t\t\t\t\tnombre,\n\t\t\t\t\t\t\t\t\t\t\t\ttipo,\n\t\t\t\t\t\t\t\t\t\t\t\tctamayor,\n\t\t\t\t\t\t\t\t\t\t\t\tafectable,\n\t\t\t\t\t\t\t\t\t\t\t\tcentro_de_costo,\n\t\t\t\t\t\t\t\t\t\t\t\tfecha_de_alta,\n\t\t\t\t\t\t\t\t\t\t\t\tdigitoagrupador)\n \t\t\t\t\t\t\t\t\tVALUES({$cuenta},\n \t\t\t\t\t\t\t\t\t'00000000000000',\n \t\t\t\t\t\t\t\t\t'{$nombre}',\n \t\t\t\t\t\t\t\t\t'{$tipo_cuenta}',\n \t\t\t\t\t\t\t\t\t{$mayor},\n \t\t\t\t\t\t\t\t\t{$afectable},\n \t\t\t\t\t\t\t\t\t{$centro_costo},\n \t\t\t\t\t\t\t\t\t'{$fecha_alta}',\n \t\t\t\t\t\t\t\t\t{$digito})"; $squery = my_query($sql_ICta); if ($squery["stat"] == true) { $sucess = true; //Crea la Relacion Superior a Inferior $sql_IRelacion = "INSERT INTO contable_catalogorelacion\n\t\t\t\t\t\t\t\t\t\t\t\t(cuentasuperior, subcuenta, tiporelacion)\n \t\t\t\t\t\t\t\t\t\t\tVALUES({$superior}, {$cuenta}, 1)"; //Crea el saldo de la Cuenta por Defecto my_query($sql_IRelacion); for ($i = 1; $i <= 3; $i++) { $sql_ISdoCta = "INSERT INTO contable_saldos(\n\t\t\t\t\t\t\t\t\t\t\t\t\tcuenta, ejercicio, tipo, saldo_inicial,\n\t\t\t\t\t\t\t\t\t\t\t\t\timp1, imp2, imp3, imp4, imp5, imp6, imp7,\n\t\t\t\t\t\t\t\t\t\t\t\t\timp8, imp9, imp10, imp11, imp12, imp13, imp14,\n\t\t\t\t\t\t\t\t\t\t\t\t\tcaptado)\n \t\t\t\t\t\t\t\t\t\t\t\t\tVALUES(\n \t\t\t\t\t\t\t\t\t\t\t\t{$cuenta}, {$vEjercicio}, {$i}, 0,\n \t\t\t\t\t\t\t\t\t\t\t\t0, 0, 0, 0, 0, 0, 0,\n \t\t\t\t\t\t\t\t\t\t\t\t0, 0, 0, 0, 0, 0, 0,\n \t\t\t\t\t\t\t\t\t\t\t\t'false')"; $squery = my_query($sql_ISdoCta); if ($squery["stat"] == false) { $sucess = false; } } } } } else { $sucess = true; $cuenta = $PExist; } $result["stat"] = $sucess; $result["code"] = $cuenta; return $result; }