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;
}
