Files
AgendaPro/platform/crm/outbox.ts
AgendaPro DevandClaude Opus 5 6d67b23e55 feat(platform): multi-tenancy con credenciales por negocio y sincronización por id
El backend Postgres de `platform/` asumía un solo negocio con un solo token del
CRM. Este cambio lo convierte en una plataforma multi-cuenta y añade la
sincronización selectiva de las cinco entidades del encargo.

## Multi-tenancy

El `locationId` ya era por negocio, pero el token vivía en la variable de entorno
`CRM_TOKEN`, una sola para todo el proceso. Con dos negocios eso usaba el token
del primero contra la subcuenta del segundo: 401 en el mejor caso, escritura en
la subcuenta equivocada en el peor.

- `lib/crypto.ts` — AES-256-GCM para los tokens. Autenticado a propósito: una
  fila manipulada hace que el descifrado FALLE, en vez de devolver basura que
  acabaríamos mandando como credencial al CRM. La clave maestra vive en
  `CRM_MASTER_KEY`, fuera de la base.
- `crm/ctx.ts` — `CrmCtx { businessId, locationId, token }` sustituye al
  `locationId: string` suelto que viajaba por once firmas. Es un objeto y no dos
  parámetros porque dos `string` seguidos se cruzan sin que el compilador diga
  nada, y cruzarlos aquí manda el token de un cliente a la subcuenta de otro. Es
  el único sitio donde el token existe descifrado, y solo en memoria.
- `crm/client.ts` — `CrmOptions.token` pasa a ser OBLIGATORIO, sin valor por
  defecto: olvidarlo es ahora un error de compilación. El estrangulador pasa a
  ser por token y aprende la cuota de las cabeceras `x-ratelimit-*`, que declaran
  100 peticiones por 10 s — el cliente iba 6,5x por debajo con una estimación.
- Migración 003: credencial cifrada, calendario y la red de seguridad de mensajes
  POR NEGOCIO. Como variable global decidía por todas las cuentas a la vez.

Lo único de la credencial que sale del servidor es la huella de 6 caracteres.

## Consola de superadministración

`/api/admin`, solo para el rol `admin`: alta de cuentas con su dueña en una
transacción, vínculo, desvínculo y suspensión. Las credenciales se COMPRUEBAN
contra el CRM antes de guardarse — un token sin validar traslada el fallo al
primer intento de sincronizar, lejos de donde se cometió. El error distingue
«token inválido» de «subcuenta inexistente» de «token de otra subcuenta».

Pantalla en `/admin/cuentas`, verificada en navegador: el campo del token es de
contraseña y viene vacío, porque no hay valor que traer.

## Sincronización por identificador

`POST /api/crm/sync/:entidad/:id` para contacto, conversación, mensaje, cita y
servicio. La dirección la decide la entidad: las tres primeras se TRAEN porque el
CRM es su dueño; las dos últimas se EMPUJAN, porque el calendario del CRM tiene
una sola cita en dos años y su catálogo de servicios está vacío.

- `crm/conversations.ts` — lectura por id de conversaciones y mensajes sueltos.
- `crm/syncConversations.ts` — el espejo persistido. Las tablas existían desde
  002_crm.sql y nadie escribía en ellas: la bandeja consultaba el CRM en vivo.
- `crm/calendars.ts` — escritura de citas al calendario. `isoConDesplazamiento`
  escribe la hora de pared del negocio con su desplazamiento; `toISOString()`
  habría movido la hora que el CRM enseña en su interfaz.
- `crm/services.ts` — publicación de servicios al catálogo.

## Verificado contra la subcuenta real, no deducido

Las cinco entidades se ejercieron contra el CRM del cliente. Las escrituras van
en un ciclo crear → releer → borrar → confirmar borrado, con la limpieza en un
`finally`, y antes se comprobó que el borrado existe: preguntar si se puede
deshacer ANTES de escribir en el CRM de un cliente, no después. La subcuenta
quedó como estaba.

47 hallazgos medidos en `crm/HALLAZGOS.md`, y la referencia de endpoints en
`crm/API.md`, con la lista explícita de dónde la documentación oficial falla.

110 pruebas de plataforma en verde, typecheck limpio, build correcto. El backend
de demo de `server/` no se ha tocado y sigue con sus 43 pruebas.

## Deuda conocida, dicha sin rodeos

- La bandeja de mensajes todavía lee en vivo del CRM, no del espejo.
- La autenticación sigue siendo el id del usuario en texto plano, también para el
  rol admin. Esta consola crea cuentas y guarda credenciales de clientes encima
  de esa base: no debe quedar expuesta a internet hasta endurecerla.

Co-Authored-By: Claude Opus 5 (1M context) <[email protected]>
2026-08-30 15:07:20 -06:00

180 lines
5.0 KiB
TypeScript

import crypto from "node:crypto";
import type { PoolClient } from "pg";
import { pool } from "../db/pool.ts";
import { CrmTransportError } from "./client.ts";
import { proyectarCita } from "./syncAppointments.ts";
export type EntidadOutbox = "appointment" | "client" | "message";
/**
* Clave de deduplicación **propia y estable**. Nunca se deriva del contenido:
* dos ediciones que dejan el mismo valor son dos intenciones distintas y las
* dos tienen que salir.
*/
export function claveDedup(
businessId: number,
entidad: EntidadOutbox,
entidadId: number,
operacion: string,
secuencia: number | string
): string {
return crypto
.createHash("sha256")
.update([businessId, entidad, entidadId, operacion, secuencia].join("|"))
.digest("hex");
}
/**
* Encola un cambio para el CRM **dentro de la transacción que lo produjo**.
*
* Recibe el `PoolClient` a propósito: el cambio local y su fila de bandeja se
* escriben juntos o no se escriben. Sin eso aparece la escritura perdida — el
* usuario ve «guardado», el proceso muere antes de encolar, y nadie lo reclama
* nunca.
*/
export async function encolar(
tx: PoolClient,
args: {
businessId: number;
entidad: EntidadOutbox;
entidadId: number;
operacion: string;
payload: unknown;
secuencia?: number | string;
}
): Promise<void> {
const secuencia = args.secuencia ?? Date.now();
const dedup = claveDedup(
args.businessId,
args.entidad,
args.entidadId,
args.operacion,
secuencia
);
await tx.query(
`INSERT INTO crm_outbox (business_id, entity, entity_id, operation, payload, dedup_key)
VALUES ($1,$2,$3,$4,$5::jsonb,$6)
ON CONFLICT (dedup_key) DO NOTHING`,
[
args.businessId,
args.entidad,
args.entidadId,
args.operacion,
JSON.stringify(args.payload ?? {}),
dedup,
]
);
}
export interface ResumenDespacho {
tomadas: number;
confirmadas: number;
fallidas: number;
indeterminadas: number;
}
/**
* Despacha la bandeja de salida de un negocio.
*
* FIFO estricto y **una sola escritura en vuelo por registro**: el CRM
* estrangula por token y dos escrituras concurrentes sobre la misma cita
* corren contra una base que ya cambió.
*/
export async function despachar(
businessId: number,
limite = 25
): Promise<ResumenDespacho> {
const resumen: ResumenDespacho = {
tomadas: 0,
confirmadas: 0,
fallidas: 0,
indeterminadas: 0,
};
const { rows } = await pool.query(
`SELECT id, entity, entity_id, operation, attempts
FROM crm_outbox
WHERE business_id = $1 AND status IN ('pendiente','indeterminado')
ORDER BY id
LIMIT $2`,
[businessId, limite]
);
resumen.tomadas = rows.length;
for (const fila of rows) {
await pool.query(
`UPDATE crm_outbox SET status = 'enviando', attempts = attempts + 1 WHERE id = $1`,
[fila.id]
);
try {
let crmId: string | null = null;
if (fila.entity === "appointment") {
const r = await proyectarCita(businessId, fila.entity_id);
crmId = r.crmOpportunityId;
} else {
// Todavía no hay más entidades salientes; se descarta explícitamente
// en vez de dejarla girando en la cola para siempre.
await pool.query(
`UPDATE crm_outbox
SET status = 'fallido', last_error = 'entidad no soportada todavía'
WHERE id = $1`,
[fila.id]
);
resumen.fallidas++;
continue;
}
await pool.query(
`UPDATE crm_outbox
SET status = 'confirmado', crm_id = $2, evidence = 'relectura', sent_at = now(),
last_error = NULL
WHERE id = $1`,
[fila.id, crmId]
);
resumen.confirmadas++;
} catch (e: any) {
// Un fallo de transporte NO se reintenta: el servidor no habló, así que
// no se sabe si la escritura entró, y reenviar es fabricar el duplicado.
// Queda en `indeterminado` para resolverlo LEYENDO.
const indeterminado = e instanceof CrmTransportError || e?.indeterminate === true;
await pool.query(
`UPDATE crm_outbox SET status = $2, last_error = $3 WHERE id = $1`,
[
fila.id,
indeterminado ? "indeterminado" : fila.attempts >= 4 ? "fallido" : "pendiente",
String(e?.message ?? e).slice(0, 500),
]
);
if (indeterminado) resumen.indeterminadas++;
else resumen.fallidas++;
}
}
return resumen;
}
export interface EstadoOutbox {
pendiente: number;
enviando: number;
confirmado: number;
fallido: number;
indeterminado: number;
}
export async function estadoOutbox(businessId: number): Promise<EstadoOutbox> {
const { rows } = await pool.query(
`SELECT status, count(*)::int AS c FROM crm_outbox WHERE business_id = $1 GROUP BY status`,
[businessId]
);
const base: EstadoOutbox = {
pendiente: 0,
enviando: 0,
confirmado: 0,
fallido: 0,
indeterminado: 0,
};
for (const r of rows) (base as any)[r.status] = r.c;
return base;
}