function save_mvto($keymvto, $cuenta, $cargo, $abono, $referencia, $concepto, $mfecha, $form)
{
    if (isset($cuenta) and ($cargo > 0 or $abono > 0)) {
        $dkeys = explode("@", $keymvto);
        $nejercicio = $dkeys[1];
        $nperiodo = $dkeys[2];
        $npoliza = $dkeys[3];
        $ntipo = $dkeys[4];
        $nmvto = $dkeys[5];
        //Valores de los proximos Movimientos
        $ProxMCargo = 0;
        $ProxMAbono = 0;
        $tmvto = 1;
        $monto = 0;
        $fecha = getFechaUS($mfecha);
        //Conservar
        $diario = 999;
        $cuenta = getCuentaCompleta($cuenta);
        /**
         * verificar la Fecha
         */
        $valFecha = validarFechaUS($fecha);
        if ($valFecha = false) {
            $fecha = $mfecha;
            $valFecha = validarFechaUS($mfecha);
        }
        if ($valFecha = false) {
            $fecha = fechasys();
        }
        /**
         * Agrega el Movimiento
         *
         */
        if ($cargo > 0) {
            $tmvto = TM_CARGO;
            $monto = $cargo;
        } else {
            $tmvto = TM_ABONO;
            $monto = $abono;
        }
        $ProxMAbono = $cargo;
        $ProxMCargo = $abono;
        //-------------------------------------------------------------------------------------------------------
        $sqldcta = "SELECT\n\t\t`contable_catalogo`.`numero`,\n\t\t(`contable_catalogotipos`.`naturaleza` * `contable_catalogotipos`.`naturaleza_del_sector`) AS 'factor'\n\tFROM\n\t\t`contable_catalogotipos` `contable_catalogotipos`\n\t\t\tINNER JOIN `contable_catalogo` `contable_catalogo`\n\t\t\tON `contable_catalogotipos`.\n\t\t\t`idcontable_catalogotipos` = `contable_catalogo`.\n\t\t\t`tipo`\n\tWHERE `contable_catalogo`.`numero`= {$cuenta} LIMIT 0,1";
        $dcuenta = getFilas($sqldcta);
        //var_dump($dcuenta);
        $naturaleza = $dcuenta["factor"];
        //variables de mensajes
        $afect1 = "";
        $afect2 = "";
        //1=CARGO
        //2=ABONO
        //3=SALDO
        setAfectarSaldo($cuenta, $nperiodo, $nejercicio, $naturaleza, $tmvto, $monto);
        $referencia = trim($referencia);
        $concepto = trim($concepto);
        //-------------------------------------------------------------------------------------------------------
        $sqli_mvto = "INSERT INTO contable_movimientos(ejercicio, periodo, tipopoliza, numeropoliza, numeromovimiento,\n\tnumerocuenta, tipomovimiento, referencia, importe, diario, moneda, concepto, fecha, cargo, abono)\n\t    VALUES({$nejercicio}, {$nperiodo},\n\t    {$ntipo}, {$npoliza},\n\t    {$nmvto}, {$cuenta},\n\t    '{$tmvto}', '{$referencia}',\n\t    {$monto}, {$diario}, 1,\n\t    '{$concepto}', '{$fecha}',\n\t    {$cargo}, {$abono})";
        my_query($sqli_mvto);
        $notes = "";
        $nmvto = $nmvto + 1;
        $nk_mvto = "i@{$nejercicio}@{$nperiodo}@{$npoliza}@{$ntipo}@{$nmvto}";
        $tab = new TinyAjaxBehavior();
        $tab->add(TabSetValue::getBehavior('idkeymvto', $nk_mvto));
        $tab->add(TabSetValue::getBehavior('idfecha', $fecha));
        $tab->add(TabSetValue::getBehavior('idd_concepto', $concepto));
        $tab->add(TabSetValue::getBehavior('idcuenta', $cuenta));
        if (PREDICT_MOVIMIENTO == true) {
            $tab->add(TabSetValue::getBehavior('idcargo', $ProxMCargo));
            $tab->add(TabSetValue::getBehavior('idabono', $ProxMAbono));
        }
        if ($referencia != "") {
            $tab->add(TabSetValue::getBehavior('idreferencia', $referencia));
        }
        if ($concepto != "") {
            $tab->add(TabSetValue::getBehavior('idconcepto', $concepto));
        }
        $tab->add(TabSetValue::getBehavior('icontarrows', $nmvto));
        return $tab->getString();
    }
    // en if
}
function jsaEditarPoliza($idtipopol, $idpoliza, $idfechapol, $idconceptopol, $cargos, $abonos, $NumeroAnterior)
{
    $msg = "";
    $idfechapol = getFechaUS($idfechapol);
    $cPol = new cPoliza($idtipopol, $idpoliza);
    //"numeropoliza" 	=> $idpoliza,
    $arrUPol = array("tipopoliza" => $idtipopol, "concepto" => "{$idconceptopol}", "fecha" => "{$idfechapol}", "cargos" => $cargos, "abonos" => $abonos);
    $cPol->setUpdatePoliza($arrUPol);
    if ($cPol->mRaiseError == true) {
        $msg .= $cPol->getMessages("html");
    } else {
        $msg .= "Poliza {$idpoliza} guardada";
    }
    //my_query($sqlup);
    //return  "<p class='aviso'>$sqlup</p>";
    //ACTUALIZAR MOVIMIENTOS
    /**
     * PASO 1 .- Seleccionar los Movimientos
     * PASO 2 .- Revertir el Movimiento
     * PASO 3 .- Eliminar el Movimiento
     * PASO 4 .- Agregar con los mismo Datos el Movimiento
     */
    return $msg;
}
//=====================================================================================================
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 = "";
        break;
    case "cuadre":
        $W_tc = " AND\t`contable_catalogo`.`numero`>=" . NINE_EXO;
        break;