function setGuardarPerfilTransaccional($tipo, $pais, $monto, $numero, $observaciones, $fecha = false)
{
$fecha = $fecha == false ? fechasys() : $fecha;
$xPT = new cPersonas_perfil_transaccional();
$xTT = new cPersonas_perfil_transaccional_tipos();
$xF = new cFecha();
$ql = new MQL();
$pais = strtoupper($pais);
$persona = $this->mClaveDePersona;
$id = $xPT->query()->getLastID();
$xPT->cantidad_calculada(0);
$fv = $xF->setSumarDias(AML_KYC_PERFIL_VIGENCIA, $fecha);
$xTT->setData($xTT->query()->initByID($tipo));
$ntipo = $xTT->nombre_del_perfil()->v();
//Eliminar perfil parecido..
$sql = "DELETE FROM personas_perfil_transaccional WHERE clave_de_persona = {$persona} AND clave_de_tipo_de_perfil = {$tipo} AND pais_de_origen='{$pais}' ";
$ql->setRawQuery($sql);
$xPT->afectacion($xTT->afectacion()->v());
$xPT->cantidad_maxima($monto);
$xPT->clave_de_persona($persona);
$xPT->clave_de_tipo_de_perfil($tipo);
$xPT->fecha_de_calculo($xF->getInt($fecha));
$xPT->fecha_de_registro($xF->getInt($fecha));
$xPT->fecha_de_vencimiento($xF->getInt($fv));
$xPT->idpersonas_perfil_transaccional($id);
$xPT->maximo_de_operaciones($numero);
$xPT->observaciones($observaciones);
$xPT->operaciones_calculadas(0);
$xPT->pais_de_origen($pais);
$ql = $xPT->query()->insert();
$id = $ql->save();
$this->mMessages .= $id == false ? "ERROR\tError al agregar el perfil tipo {$ntipo} por un monto de {$monto}\r\n" : "OK\tSe agrego el perfil {$id} de tipo {$ntipo} por un monto de {$monto}\r\n";
if (MODO_DEBUG == true) {
$this->mMessages .= $ql->getMessages(OUT_TXT);
}
}
