function add($id, $nombre, $copiarde = false)
 {
     $copiarde = setNoMenorQueCero($copiarde);
     $xP = new cCreditos_tipoconvenio();
     if ($copiarde > 0) {
         $xP->setData($xP->query()->initByID($copiarde));
     }
     $xP->idcreditos_tipoconvenio($id);
     $xP->tipo_convenio($id);
     $xP->descripcion_tipoconvenio($nombre);
     $xP->descripcion_completa($nombre);
     $id = $xP->query()->insert()->save();
     if ($id === false) {
         $this->mMessages .= "ERROR\tError al agregar el Producto {$id} con nombre {$nombre}, clonado de {$copiarde} \r\n";
     } else {
         $this->mMessages .= "OK\tAgregado el Producto {$id} con nombre {$nombre}, clonado de {$copiarde} \r\n";
     }
     return $id === false ? false : true;
 }
echo "<input type='hidden' id='idsolicitud' value='{$credito}'>";
$xCred = new cCredito($credito);
$xCred->init();
$oBtn = new cHButton();
$oTxt = new cHText();
$oFech = new cHDate();
$oSel = new cSelect("");
$oUL = new cHUl();
$oTa = new cHTextArea();
$xCE = new cCreditos_estatus();
$xSelEA = $xCE->query()->html()->select($xCE->descripcion_estatus()->get());
$xCP = new cCreditos_periocidadpagos();
$xSelCP = $xCP->query()->html()->select($xCP->descripcion_periocidadpagos()->get());
$xCTP = new cCreditos_tipo_de_pago();
$xSelTP = $xCTP->query()->html()->select($xCTP->descripcion()->get());
$xPP = new cCreditos_tipoconvenio();
$xSelPP = $xPP->query()->html()->select($xPP->descripcion_tipoconvenio()->get());
$oFRM = new cHForm("frmrenegociar", "", "idfrmrenegociar");
$oFRM->addHElem($xSelPP->get("idpdto", "Producto Actual", $xCred->getClaveDeProducto()));
$oFRM->addHElem($xSelCP->get("idperiocidad", "Nueva Periocidad", $xCred->getPeriocidadDePago()));
$oFRM->addHElem($xSelTP->get("idtipopago", "Nuevo Tipo de Pago", $xCred->getTipoDePago()));
$oFRM->addHElem($oTxt->getDeMoneda("idmonto", "Monto a Renegociar", $xCred->getSaldoActual()));
$oFRM->addHElem($oTxt->getDeMoneda("idpagos", "Pagos nuevos", $xCred->getPagosAutorizados()));
$oFRM->addHElem($oTxt->getDeMoneda("idtasa", "Tasa Nueva", $xCred->getTasaDeInteres() * 100));
//$oFRM->addHElem( $oTxt->getDeMoneda("idinteres", "Interes a Renegociar", $xCred->getInteresNormalPorPagar() ) );
$oFRM->addHElem($oTa->get("idobservaciones", "", "Observaciones"));
$oFRM->addHTML("<p class='aviso' id='resultados'></p>");
$oFRM->addHTML($oUL->li("Se Clona el Credito")->li("Eliminar Plan de Pagos")->li("Reestructurar SDPM")->li("Recalcular Intereses Devengados")->li("Cambiar el Numero de Pagos")->li("Generar Movimiento de Fin de Mes")->end());
$oFRM->addHElem($oBtn->getBasic("Guardar", "jsGuardarCambios", "guardar", "idguardar"));
$oFRM->addHElem($oBtn->getBasic("Cancelar", "jsCancelarCambios", "cancelar", "idcancelar"));
echo $oFRM->get();
$jxc = new TinyAjax();
function jsaSetClonarProducto($idclonado, $nuevoid, $nombre)
{
    $xProducto = new cProductoDeCredito($idclonado);
    $xProducto->add($nuevoid, $nombre, $idclonado);
    return $xProducto->getMessages(OUT_HTML);
}
$jxc->exportFunction('jsaSetClonarProducto', array('idclonado', 'idnumero', 'iddescripcion'), "#fb_frm");
$jxc->process();
$producto = parametro("producto", null, MQL_INT);
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO, MQL_RAW);
$opcion = parametro("tema", SYS_NINGUNO, MQL_RAW);
$xHP->init();
$xSel = new cHSelect();
$xFRM = new cHForm("frm", "./");
$xProd = new cCreditos_tipoconvenio();
$lastid = $xProd->query()->getLastID();
$xProd->setData($xProd->query()->initByID($producto));
$nombre = $xProd->descripcion_tipoconvenio()->v();
$xFRM->setTitle($xFRM->lang("duplicar") . " {$nombre}");
$xFRM->OMoneda("idnumero", $lastid, "TR.Codigo");
$xFRM->OText("iddescripcion", "", "TR.Nombre");
$xFRM->OHidden("idclonado", $producto);
$xFRM->addGuardar("jsaSetClonarProducto()");
$xFRM->addFooterBar("&nbsp;");
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
$xHP->fin();
 function addCreditosProductos()
 {
     $xConv = new cCreditos_tipoconvenio();
     $xSel = new cSelect("idtipo_de_convenio", "idtipo_de_convenio", $xConv->get());
     $xSel->addEspOption(SYS_TODAS);
     $xSel->setOptionSelect(SYS_TODAS);
     $v = $xSel->get("TR.Producto de Credito", true);
     $this->mURL .= " + \"&producto=\" + idproducto ";
     //"&producto=" + producto
     $this->mURL .= " + \"&convenio=\" + idproducto ";
     $this->mURL .= " + \"&f5=\" + idproducto ";
     $this->mJsVars .= "var idproducto\t= \$('#idtipo_de_convenio').val();\r\n";
     $this->mStruct .= $v;
 }
$persona = parametro("idsocio", $persona, MQL_INT);
$credito = parametro("credito", DEFAULT_CREDITO, MQL_INT);
$credito = parametro("idsolicitud", $credito, MQL_INT);
$credito = parametro("solicitud", $credito, MQL_INT);
$cuenta = parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$cuenta = parametro("idcuenta", $cuenta, MQL_INT);
$jscallback = parametro("callback");
$tiny = parametro("tiny");
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO, MQL_RAW);
$opcion = parametro("tema", SYS_NINGUNO, MQL_RAW);
$xHP->init();
//$clave = parametro("idcreditos_tipoconvenio", null, MQL_INT);
$clave = parametro("id", null, MQL_INT);
$xSel = new cHSelect();
$xTabla = new cCreditos_tipoconvenio();
if ($clave == null) {
    $step = MQL_ADD;
} else {
    $step = MQL_MOD;
    if ($clave != null) {
        $xTabla->setData($xTabla->query()->initByID($clave));
    }
}
if ($action == MQL_ADD) {
    $clave = parametro($xTabla->getKey(), null, MQL_INT);
    if ($clave != null) {
        $xTabla->setData($xTabla->query()->initByID($clave));
        $xTabla->setData($_REQUEST);
        $xTabla->query()->insert()->save();
    }
echo $xHP->setBodyinit();
$oFRM = new cHForm("frmTemplate", "./", "mfrm", "", "formoid-default");
$oFRM->setTitle("TR.Reportes por Empresas");
echo $xHP->setBodyEnd();
$xReports = new cPanelDeReportes(iDE_CREDITO, "empresas");
$xReports->get();
$rpts = new cGeneral_reports();
$sel3 = $xReports->getSelectReportes();
//$rpts->query()->html()->select( $rpts->descripcion_reports()->get(), " aplica='empresas' " );
$emp = new cSocios_aeconomica_dependencias();
$sel = $emp->query()->html()->select($emp->descripcion_dependencia()->get());
$sel->addOptions(array("todas" => "TODAS"));
$per = new cCreditos_periocidadpagos();
$sel4 = $per->query()->html()->select($per->descripcion_periocidadpagos()->get());
$sel4->addOptions(array("todas" => "TODAS"));
$pdto = new cCreditos_tipoconvenio();
$sel2 = $pdto->query()->html()->select($pdto->descripcion_tipoconvenio()->get());
$sel2->addOptions(array("todas" => "TODAS"));
$base = new cEacp_config_bases_de_integracion();
$selB = $base->query()->html()->select($base->descripcion()->get());
//
$xSel = new cHSelect();
$xSel->addOptions(array("chart" => "Grafico", "default" => "Normal", OUT_EXCEL => "Compatible con Excel"));
$xSel->setDefault(SYS_DEFAULT);
$xF1 = new cHDate(0);
$xF2 = new cHDate(1);
//estado
$xBtn = new cHButton("submit", "Ejecutar", "");
$xCbza = new cHCobros();
$oFRM->addHElem($sel->get("idempresa", "Empresa"));
$oFRM->addHElem($sel3);