//Crear formularios
$xHFrm = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
//$txt 	= $xHTxt->getDeMoneda("id", "Moneda de Prueba",  100);
$miFecha = parametro("fecha", fechasys());
$xF = new cFecha(0, $miFecha);
//$xHFrm->addHElem( $txt );
$xHFrm->addHElem($xF->show(true));
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se semana==" . $xF->getFechaDeInicioDeSemana() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se nombre semana==" . $xF->getDayName($xF->getFechaDeInicioDeSemana()) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias del Mes==" . $xF->getDiasDelMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Corta==" . $xF->getFechaCorta() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Larga==" . $xF->getFechaLarga() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Mediana==" . $xF->getFechaMediana() . "</p>");
//$xHFrm->addHElem(  );
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Operativa Maxima==" . $xF->getFechaMaximaOperativa() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, El Mes Anterior==" . $xF->getFechaMesAnterior() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, dos meses atras==" . $xF->getFechaMesAnterior(false, 2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 30 Dias==" . $xF->setRestarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 30 Dias==" . $xF->setSumarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 2 meses==" . $xF->setSumarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 2 meses==" . $xF->setRestarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Nombre del Dia==" . $xF->getDayName() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dia Inicial del mes==" . $xF->getDiaInicial() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener Dia Habil==" . $xF->getDiaHabil() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias desde el 31Dic2013==" . $xF->setRestarFechas($xF->get(), "2013-12-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar Sabado(D6) para el dia de hoy==" . $xF->getDiaAbonoSemanal(6) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar NOMBRE Sabado(D6) para el dia de hoy==" . $xF->getDayName($xF->getDiaAbonoSemanal(6)) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-02") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-11") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-18") . "</p>");
}
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP = new cHPage("TR.Estado de Cuenta de Depositos a la Vista", HP_RPTXML);
$xQL = new MQL();
$xF = new cFecha();
$oficial = elusuario($iduser);
//=====================================================================================================
$idcuenta = parametro("f100", false, MQL_INT);
$idcuenta = parametro("cuenta", $idcuenta, MQL_INT);
$AppByFechas = parametro("f73");
//Boolean por fechas
$fecha_inicial = parametro("on", EACP_FECHA_DE_CONSTITUCION, MQL_DATE);
$fecha_final = parametro("off", $xF->getFechaMaximaOperativa(), MQL_DATE);
$output = parametro("out", SYS_DEFAULT);
$setSql = "SELECT\n\t`socios`.`codigo`,\n\t`socios`.`nombre`,\n\t`captacion_cuentas`.`numero_cuenta`                 AS `numero_de_cuenta`,\n\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `tipo`,\n\t`captacion_subproductos`.`descripcion_subproductos` AS `producto`,\n\t`captacion_cuentas`.`tasa_otorgada`,\n\t`captacion_cuentas`.`dias_invertidos`,\n\t`captacion_cuentas`.`saldo_cuenta`,\n\t`captacion_cuentas`.`sucursal`,\n\t`captacion_sdpm_historico`.`ejercicio`,\n\t`captacion_sdpm_historico`.`periodo`,\n\t`captacion_sdpm_historico`.`fecha`,\n\t`captacion_sdpm_historico`.`recibo`,\n\t`captacion_sdpm_historico`.`dias`,\n\t`captacion_sdpm_historico`.`tasa`,\n\t`captacion_sdpm_historico`.`monto`\nFROM\n\t`captacion_cuentas` `captacion_cuentas`\n\t\tINNER JOIN `captacion_sdpm_historico` `captacion_sdpm_historico`\n\t\tON `captacion_cuentas`.`numero_cuenta` = `captacion_sdpm_historico`.\n\t\t`cuenta`\n\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\n\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\n\t\t\t`idcaptacion_cuentastipos`\n\t\t\t\tINNER JOIN `socios` `socios`\n\t\t\t\tON `socios`.`codigo` = `captacion_cuentas`.`numero_socio`\n\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\n\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` =\n\t\t\t\t\t`captacion_subproductos`.`idcaptacion_subproductos`\nWHERE\n\t(`captacion_cuentas`.`numero_cuenta` ={$idcuenta})\n\tAND\n\t(`captacion_sdpm_historico`.`fecha`>='{$fecha_inicial}')\n\tAND\n\t(`captacion_sdpm_historico`.`fecha`<='{$fecha_final}')\nORDER BY\n\t`socios`.`codigo`,\n\t`captacion_cuentas`.`numero_cuenta`,\n\t`captacion_sdpm_historico`.`ejercicio` ASC,\n\t`captacion_sdpm_historico`.`periodo` ASC,\t\n\t`captacion_sdpm_historico`.`fecha` ASC";
//exit($setSql);
if ($output != OUT_EXCEL) {
    $oRpt = new PHPReportMaker();
    $oRpt->setDatabase(MY_DB_IN);
    $oRpt->setUser(RPT_USR_DB);
    $oRpt->setPassword(RPT_PWD_DB);
    $oRpt->setSQL($setSql);
    $oRpt->setXML("../repository/report70.xml");
    $oOut = $oRpt->createOutputPlugin($output);
    $oRpt->setOutputPlugin($oOut);
    $oRpt->run();
    //	*/
} else {
    $xSoc = new cSocio($persona);
    if ($xSoc->init() == true) {
        $xFRM->OHidden("persona", $persona);
        //checar si existen razones
        $fecha = parametro("fecha", false, MQL_DATE);
        $idrazon = parametro("idrazondebaja", false, MQL_INT);
        $notas = parametro("notas");
        $fechavenc = parametro("idfechavencimiento", false, MQL_DATE);
        $documento = parametro("documento", 0, MQL_INT);
        //		$fechadocto
        if (setNoMenorQueCero($idrazon) > 0) {
            $ok = $xSoc->setBaja($idrazon, $fecha, $fechavenc, $documento);
            if ($ok == true) {
                $xFRM->addAvisoRegistroOK();
            } else {
                $xFRM->addAvisoRegistroError();
            }
        } else {
            $xFRM->ODate("fecha", false, "TR.Fecha");
            $xFRM->ODate("idfechavencimiento", $xF->getFechaMaximaOperativa(), "TR.Fecha de Vencimiento");
            $xFRM->addHElem($xSel->getListaDeRazonesDeBaja()->get(true));
            $xFRM->OText("documento", 0, "TR.Documento de Prueba");
            $xFRM->OTextArea("notas", "", "TR.Notas");
        }
    }
}
//razones de baja
$xFRM->addSubmit();
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();
 function setOtrosDatos($clave, $valor)
 {
     $xCat = new cCreditos_otros_datos();
     $xF = new cFecha();
     $sql = "DELETE FROM `creditos_otros_datos` WHERE `clave_de_credito`=" . $this->mNumeroCredito . " AND `clave_de_parametro`='{$clave}'";
     my_query($sql);
     $xCat->clave_de_credito($this->mNumeroCredito);
     $xCat->clasificacion_de_parametro("");
     $xCat->clave_de_parametro($clave);
     $xCat->fecha_de_expiracion($xF->getFechaMaximaOperativa());
     $xCat->idcreditos_otros_datos($xCat->query()->getLastID());
     $xCat->sucursal(getSucursal());
     $xCat->valor_de_parametro($valor);
     $xCat->query()->insert()->save();
     $this->mMessages .= "OK\tAgregar {$clave} con Valor {$valor}\r\n";
 }
 function setBaja($idrazon, $notas = "", $fecha = false, $fecha_de_vencimiento = false, $documento = "1", $fecha_de_documento = false)
 {
     $persona = $this->mCodigo;
     $xF = new cFecha();
     $xB = new cSocios_baja();
     $xQL = new MQL();
     $fecha = $xF->getFechaISO($fecha);
     $fecha_de_vencimiento = $fecha_de_vencimiento == false ? $xF->getFechaMaximaOperativa() : $fecha_de_vencimiento;
     $fecha_de_documento = $fecha_de_documento == false ? $fecha : $fecha_de_documento;
     //Actualizar las bajas activas
     $sqlU = "UPDATE `socios_baja` SET `fecha_de_vencimiento` = '{$fecha}' WHERE `fecha_de_vencimiento`>='{$fecha}' AND `numero_de_socio`= {$persona}";
     $xQL->setRawQuery($sqlU);
     $xB->docto_presentado($documento);
     $xB->fecha_de_baja($fecha);
     $xB->fecha_de_documento($fecha_de_documento);
     $xB->fecha_de_vencimiento($fecha_de_vencimiento);
     $xB->numero_de_socio($persona);
     $xB->observaciones_de_baja($notas);
     $xB->razon_de_la_baja($idrazon);
     $xB->sucursal(getSucursal());
     $xB->idsocios_baja($xB->query()->getLastID());
     $succ = $xB->query()->insert()->save();
     if ($succ == false) {
     } else {
         $this->addMemo(MEMOS_TIPO_HISTORIAL, "BAJA-SUSPENSION: {$notas}", $fecha);
         $this->setUpdate(array("estatusactual" => 20));
     }
     //agregar Nota
     return $succ == false ? false : true;
 }