function JScheckSaldoCuenta($cuenta)
{
$xT = new cTipos();
$cuenta = $xT->cInt($cuenta);
$cuenta = getCuentaCompleta($cuenta);
$stpeval = "\n\t\tsetEliminarCuenta();\n\t\t";
$cuenta = cuenta_completa($cuenta);
$sql_CMvto = "SELECT SUM(importe) AS 'neto' FROM contable_movimientos WHERE numerocuenta = {$cuenta}";
$sql_CSup = "SELECT COUNT(subcuenta) AS 'ctas' FROM contable_catalogorelacion WHERE cuentasuperior={$cuenta}";
$subcuentas = mifila($sql_CSup, "ctas");
$saldo = mifila($sql_CMvto, "neto");
if ($saldo > 0) {
$stpeval = "alert(\" La Cuenta Tiene Movimientos \\n \" +\n\t\t\t \" por un Monto de {$saldo} \\n \" +\n\t\t\t \" Las Cuentas con saldo No se eliminan\");\t";
}
if ($subcuentas > 0) {
$stpeval = "alert(\" La Cuenta Tiene {$subcuentas} Subcuentas \\n \" +\n\t\t\t \" Las Cuentas con Subcuentas No se eliminan\");";
}
return $stpeval;
}
function UpdateEditMvto($keyMvto, $cuenta, $cargo, $abono, $referencia, $concepto, $diario)
{
$dMvto = explode("@", $keyMvto);
$ejercicio = $dMvto[1];
$periodo = $dMvto[2];
$poliza = $dMvto[3];
$tipopoliza = $dMvto[4];
$mvto = $dMvto[5];
$cuenta = getCuentaCompleta($cuenta);
//purgar Mvto
if ($cargo > 0) {
$abono = 0;
}
if ($cargo > 0) {
$tmvto = 1;
$monto = $cargo;
} else {
$tmvto = -1;
$monto = $abono;
}
$sqlDatosMvtoAnterior = "SELECT\n\t`contable_movimientos`.*\nFROM\n\t`contable_movimientos` `contable_movimientos`\nWHERE\n\t`contable_movimientos`.`ejercicio` = {$ejercicio}\n\tAND `contable_movimientos`.`periodo` = {$periodo}\n\tAND `contable_movimientos`.`tipopoliza` = {$tipopoliza}\n\tAND `contable_movimientos`.`numeropoliza` = {$poliza}\n\tAND `contable_movimientos`.`numeromovimiento` ={$mvto}";
$DMAnterior = getFilas($sqlDatosMvtoAnterior);
$AntCuenta = $DMAnterior["numerocuenta"];
$AntTMvto = $DMAnterior["tipomovimiento"];
$AntMonto = $DMAnterior["importe"];
$AntFecha = $DMAnterior["fecha"];
//----------------------- Revertir Afectacion ------------------
$sqldcta = "SELECT\n\t`contable_catalogo`.`numero`,\n\t(`contable_catalogotipos`.`naturaleza` * `contable_catalogotipos`.`naturaleza_del_sector`) AS 'factor'\nFROM\n\t`contable_catalogotipos` `contable_catalogotipos`\n\t\tINNER JOIN `contable_catalogo` `contable_catalogo`\n\t\tON `contable_catalogotipos`.\n\t\t`idcontable_catalogotipos` = `contable_catalogo`.\n\t\t`tipo`\nWHERE `contable_catalogo`.`numero`={$AntCuenta}";
$dcuenta = getFilas($sqldcta);
$AntNaturaleza = $dcuenta["factor"];
setRevertirMvto($AntCuenta, $periodo, $ejercicio, $AntNaturaleza, $AntTMvto, $AntMonto);
//----------------------- Eliminar Cuenta ----------------------
$sqlDelMvtoAnterior = "DELETE\n\t\tFROM\n\t\t\t`contable_movimientos`\n\t\tWHERE\n\t\t\t`contable_movimientos`.`ejercicio` = {$ejercicio}\n\t\t\tAND `contable_movimientos`.`periodo` = {$periodo}\n\t\t\tAND `contable_movimientos`.`tipopoliza` = {$tipopoliza}\n\t\t\tAND `contable_movimientos`.`numeropoliza` = {$poliza}\n\t\t\tAND `contable_movimientos`.`numeromovimiento` ={$mvto}";
my_query($sqlDelMvtoAnterior);
//----------------------- Insertar Cuenta ----------------------
$NSqlcta = "SELECT\n\t`contable_catalogo`.`numero`,\n\t(`contable_catalogotipos`.`naturaleza` * `contable_catalogotipos`.`naturaleza_del_sector`) AS 'factor'\nFROM\n\t`contable_catalogotipos` `contable_catalogotipos`\n\t\tINNER JOIN `contable_catalogo` `contable_catalogo`\n\t\tON `contable_catalogotipos`.\n\t\t`idcontable_catalogotipos` = `contable_catalogo`.\n\t\t`tipo`\nWHERE `contable_catalogo`.`numero`={$cuenta}";
$dNcuenta = getFilas($NSqlcta);
$naturaleza = $dNcuenta["factor"];
$sqli_mvto = "INSERT INTO contable_movimientos(ejercicio, periodo, tipopoliza, numeropoliza, numeromovimiento,\nnumerocuenta, tipomovimiento, referencia, importe, diario, moneda, concepto, fecha, cargo, abono)\n VALUES({$ejercicio}, {$periodo},\n {$tipopoliza}, {$poliza},\n {$mvto}, {$cuenta},\n '{$tmvto}', '{$referencia}',\n {$monto}, {$diario}, 1,\n '{$concepto}', '{$AntFecha}',\n {$cargo}, {$abono})";
my_query($sqli_mvto);
setAfectarSaldo($cuenta, $periodo, $ejercicio, $naturaleza, $tmvto, $monto);
}
}
$_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.contable.inc.php";
include_once "../core/core.config.inc.php";
$oficial = elusuario($iduser);
$cuenta_inicial = $_GET["for"];
$cuenta_final = $_GET["to"];
$cuenta_inicial = getCuentaCompleta($cuenta_inicial);
$cuenta_final = getCuentaCompleta($cuenta_final);
$ejercicio = $_GET["e"];
$periodo = $_GET["p"];
$fecha_inicial = getFechaUS($fecha_inicial);
$fecha_final = getFechaUS($fecha_final);
//---------------- Valuar Tipo de Cuenta ----------------
$tipo_cuentas = $_GET["f1"];
$incluir_cuentas = $_GET["f2"];
/**
* Obtiene Parametros a traves de un GET
* este parametro determinara como filtrado por un registro en particular
*/
$iswhere = "";
switch ($tipo_cuentas) {
case "todas":
$W_tc = "";