function jsaGuardarPerfil($persona, $tipo, $pais, $monto, $numero, $observaciones)
{
    $xAP = new cAMLPersonas($persona);
    $xAP->init();
    $xAP->setGuardarPerfilTransaccional($tipo, $pais, $monto, $numero, $observaciones);
    $QL = new cSQLListas();
    $xT = new cTabla($QL->getListadoDePerfil($persona));
    $xT->addTool(SYS_DOS);
    return $xT->Show() . $xAP->getMessages(OUT_HTML);
}
        $xTa->addTD($griesgo);
        if ($saldoCred > 0) {
            $xTa->addTD("CREDITO");
            $xTa->addTD($xSoc->getOEstats()->getTotalCreditosActivosAutorizado());
            $xTa->addTD($saldoCred);
        } else {
            $xTa->addTD(" ");
            $xTa->addTD(" ");
            $xTa->addTD(" ");
        }
        /*	`personas_perfil_transaccional`.`clave_de_tipo_de_perfil`         AS `tipo`,
        			`personas_perfil_transaccional_tipos`.`nombre_del_perfil`         AS `perfil`,
        			`personas_domicilios_paises`.`nombre_oficial`                     AS `pais`,
        			`personas_perfil_transaccional`.`maximo_de_operaciones`           AS `numero`,
        			`personas_perfil_transaccional`.`cantidad_maxima`                 AS `monto`*/
        $psql = $xL->getListadoDePerfil($codigo_de_socio);
        $rsql = $query->getDataRecord($psql);
        foreach ($rsql as $rperfil) {
            $xTa->addTD($rperfil["perfil"]);
            $xTa->addTD($rperfil["numero"]);
            $xTa->addTD($rperfil["monto"]);
        }
        //perfil transaccional
        //$xAml	= new cAMLPersonas($codigo_de_socio);
        //$xAml->init($codigo_de_socio, $rows);
        //$xAml->getPerfilDeRiesgo();
        //$xTa->addTD(
        $xTa->endRow();
    }
}
$xRPT->addContent($xTa->get());
$xRPT->setSQL($sql);
$xRPT->setTitle($xHP->getTitle());
//============ Reporte
$xSoc = new cSocio($persona);
$xSoc->init();
$xT = new cTabla($sql, 2);
$xT->setTipoSalida($out);
$xT->setFootSum(array(4 => "monto", 9 => "unidades", 10 => "equivalencia"));
$body = $xRPT->getEncabezado($xHP->getTitle(), $FechaInicial, $FechaFinal);
$xRPT->setBodyMail($body);
$xRPT->addContent($body);
$xRPT->addContent($xSoc->getFicha(true));
//$xT->setEventKey("jsGoPanel");
//$xT->setKeyField("creditos_solicitud");
$xRPT->addContent($xT->Show($xHP->getTitle()));
$xT = new cTabla($xL->getListadoDePerfil($persona));
$xRPT->addContent($xT->Show());
if (MODO_DEBUG == true) {
    $periodo_inicial = date("Ym", $xF->getInt($FechaInicial));
    $periodo_final = date("Ym", $xF->getInt($FechaFinal));
    $xT2 = new cTabla($xL->getAMLAcumuladoDeEgresos($periodo_inicial, $periodo_final, $persona));
    $xRPT->addContent($xT2->Show());
}
$xRPT->addContent("<h3>" . $xHP->lang("Mensaje") . "</h3>");
//============ Agregar HTML
//$xRPT->addContent( $xHP->init($jsEvent) );
//$xRPT->addContent( $xHP->end() );
$xAml = new cAMLPersonas($persona);
$xAml->init();
$validar = false;
//(MODO_DEBUG == true) ? true : false;
     $xTbl->endRow();
 }
 $xHTabs->addTab("TR.DOCUMENTOS", $xTbl->get());
 //tabs
 if (getEsModuloMostrado(USUARIO_TIPO_OFICIAL_AML) == true) {
     $xDiv3 = new cHDiv("tx1", "msgcumplimiento");
     $oFrm->addToolbar($xBtn->getBasic("TR.validar documentos", "jsaValidarDocumentacion()", "documentos", "idvalidadoc", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.validar perfil_transaccional", "jsaValidarPerfilT()", "perfil", "validaperfil", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.validar riesgo", "jsaValidarRiesgo()", "riesgo", "validariesgo", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.Actualizar Nivel de Riesgo", "jsActualizarNivelDeRiesgo({$idsocio})", "riesgo", "actualizarriesgo", false));
     $oFrm->OButton("TR.ARBOL_DE_RELACIONES", "jsSigmaRelaciones()", $oFrm->ic()->EXPORTAR);
     $oFrm->OButton("TR.Consulta en LISTA_NEGRA", "var xAML = new AmlGen(); xAML.getConsultaListaNegra({$idsocio})", $oFrm->ic()->REGISTROS);
     $xHTabs->addTab("TR.cumplimiento", $xDiv3->get());
     //tab6
     $jsTabs .= ",\n selected: 6\n";
     $xT = new cTabla($xql->getListadoDePerfil($idsocio));
     $xT->addTool(SYS_DOS);
     $xHTabs->addTab("TR.perfil_transaccional", $xT->Show());
     //tab6
 }
 if ($xSoc->getEsEmpresaConConvenio(true) == true) {
     $xT2 = new cHTabs("idcomoempresa");
     $idempresa = $xSoc->getOEmpresa()->getClaveDeEmpresa();
     $oFrm->addEmpresaComandos($idempresa);
     $xTCreds = new cTabla($xql->getListadoDeCreditos(false, false, false, false, " AND (`creditos_solicitud`.`persona_asociada` = {$idempresa}) ", false), 2);
     $xTPers = new cTabla($xql->getListadoDeSocios(" (`socios_general`.`dependencia` = {$idempresa})  "));
     $xTAhorro = new cTabla($xql->getListadoDeIncidenciasAhorro($idempresa));
     $xTPeriodo = new cTabla($xql->getListadoDePeriodoPorEmpresa($idempresa));
     $xTPeriodo->setTdClassByType();
     $xTPeriodo->setEventKey("var xG = new EmpGen(); xG.getOrdenDeCobranza");
     $xTCreds->setTdClassByType();