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());