if ($predef == "") {
    $defval = $predef;
}
$D = explode($div, $defval);
$mem = isset($D[4]) ? $D[4] : "";
$xHP->init();
//jsbasic("frmhistorial", "", ".");
$xHP->init();
$xFRM = new cHForm("frmhistorial", "./frmhistorialdesocios.php?action=" . MQL_ADD);
$xSel = new cHSelect();
$xChk = new cHCheckBox();
$msg = "";
$xFRM->addJsBasico();
$xFRM->addCreditBasico();
$xFRM->addSubmit();
$xFRM->addHElem($xSel->getListaDeTiposDeMemoPersonas()->get(true));
$xFRM->addHElem($xChk->get("TR.Notificar", "idnotificar"));
$xFRM->OTextArea("idmemo", $mem, "TR.Texto del memo");
if ($persona > DEFAULT_SOCIO) {
    $idgrupo = parametro("idgrupo", DEFAULT_GRUPO, MQL_INT);
    $txtmemo = parametro("idmemo");
    $tipomemo = parametro("idtipodememo");
    $notificar = parametro("idnotificar", false, MQL_BOOL);
    $fechamemo = fechasys();
    if (trim($txtmemo) != "") {
        $xSoc = new cSocio($persona);
        $xSoc->init();
        $xSoc->addMemo($tipomemo, $txtmemo, $credito, $fechamemo, $notificar, $notificar);
        $xFRM->addAviso("EL REGISTRO SE HA HECHO SATISFACTORIAMENTE");
        if (MODO_DEBUG == true) {
            $xFRM->addLog($xSoc->getMessages());