El pipeline, jugable

# folisi.4gm — liquidación de folios de siniestro (CONCLIQOS3)
FUNCTION r_tra_folisi()
  DEFINE p_folio      RECORD LIKE folio.*
  DEFINE p_tarifa     RECORD LIKE tarifa_vig.*
  DEFINE v_importe    DECIMAL(12,2)
  DEFINE v_recargo    DECIMAL(6,2)

  # B1 — Validación de folio activo
  SELECT * INTO p_folio.* FROM folio WHERE folio_id = g_folio_actual
  IF p_folio.estado != "ACTIVO" THEN
    CALL log_error("folio no activo", g_folio_actual)
    RETURN "KO"
  END IF

  # B2 — Resolución de tarifa vigente
  SELECT * INTO p_tarifa.* FROM tarifa_vig
    WHERE producto = p_folio.producto AND fecha_ini <= TODAY

  # B3 — Cálculo de importe base + recargos
  LET v_importe = p_folio.base * p_tarifa.coef
  CALL calc_prima(p_folio.folio_id) RETURNING v_recargo
  LET v_importe = v_importe + v_recargo

  # B4 — Inserción del asiento contable
  INSERT INTO folio_liq (folio_id, importe, fecha)
    VALUES (p_folio.folio_id, v_importe, TODAY)

  COMMIT WORK
END FUNCTION