jcaudillo/Plataforma-de-desarrolladores
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
develop
Plataforma-de-desarrolladores/Pagos_Convenios_Procedimientos_20260922.sql
Jorge Luis caudillo esparza e8160eefba --documentos
2026-09-27 14:44:12 -07:00

5267 lines
261 KiB
Transact-SQL
Raw Permalink Blame History

/*
Pagos y Convenios - procedimientos y dependencias.
NO EJECUTADO. Preparado sobre la BD y los procedimientos consultados el 22/09/2026.
Incluye 25 PAs nuevos, 24 PAs adaptados y la vista existente Vta_SaldosFavor.
INSTALACIÓN COORDINADA PENDIENTE:
1. Estructura_20260922.sql.
2. Este archivo.
3. Configuracion_20260922.sql.
El instalador debe usar la MISMA conexión y transacción para todos los lotes,
detenerse ante cualquier error y confirmar sólo con la aplicación compatible.
GO separa lotes; no ejecutar con un cliente que continúe después de errores.
El SQL no inicia, confirma ni revierte transacciones.
CONTRATO CON LOS SERVICIOS (pendientes de adaptar en la siguiente entrega):
- TransactionLogic para todas las mutaciones, incluidas bitácora y
PA_Tra_SolicitudProcesoActualizar para las solicitudes afectadas.
- Si cualquier PA devuelve Return=0, abandonar y revertir toda la operación.
- Validar permisos y acceso cliente en el servicio; nunca confiar en un
CveCliente o PermitirDisminucion enviado por el navegador.
- Pagos.RegistrarAbono: registro/aplicación/cancelación de abonos.
Pagos.CambiarRequerido: excepción con observación obligatoria.
Pagos.AdministrarDocumentosFiscales: carga/validación/vinculación fiscal.
Convenios.Crear/Modificar/Cancelar y Convenios.DisminuirImporte.
Permisos particulares: sólo SuperUsuario en catálogo de usuarios.
- Guardar/aplicar/cancelar abono y convenio obtiene un bloqueo transaccional
común para impedir sobregiros concurrentes. No hay saldos persistidos.
- GenerarPorSolicitud exige vencimiento explícito; no decide el plazo.
- Importes de obligación/plantilla son finales. Los parámetros de captura
anterior de precio NETO conservan su cálculo fiscal en PagoDetalleSave.
La captura nueva usa PrecioUnitarioFinal y no cambia el catálogo de costos.
- Abonos son recibidos/confirmados; valores y equivalencias no se actualizan.
ImporteAplicado está en la unidad de la obligación. ImportePagoConsumido,
en la unidad del abono. AplicacionesJson identifica producto y parcialidad.
- Un traslado a convenio no cuenta como dinero pagado. La UI debe usar
SaldoPendiente, ImporteAbonado e ImporteConvenido, no sólo TienePago.
- Edición de convenio sin movimientos: capturar antes/después en bitácora;
con aplicaciones o traslados posteriores se conserva su detalle histórico.
- CFDI externo: captura manual, no parser, ZIP, asociación automática ni PAC.
Servicio almacena XML/PDF y resuelve rutas con protección de documentos.
Documento fiscal no crea pagos. El listado pendiente requiere XML, PDF,
timbrado y validación del importe; conserva visible documentación parcial.
- Ventas y condiciones fiscales siguen independientes de las obligaciones.
Modificar una venta no reescribe los importes históricos de la deuda.
La generación anterior de venta se conserva sólo para MXN y total coincidente.
- Catálogo ProductosServicios y Conta_Cuentas se reutilizan; no se inventa
cuenta ni producto genérico Convenio, usuario o equivalencia.
PENDIENTE DE PRUEBA DE INTEGRACIÓN: instalación en base de pruebas y conexión
de repositorios/servicios/pantallas. No publicar esta migración aisladamente.
*/
SET NOCOUNT ON;
SET ANSI_NULLS ON;
SET QUOTED_IDENTIFIER ON;
IF DB_NAME() <> N'SIG_PlataformaDesarolladores'
THROW 51390, N'La base seleccionada no corresponde a la revisada.', 1;
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51391, N'Se requiere una transacción activa del instalador.', 1;
IF OBJECT_ID(N'dbo.Tra_TiposTramitePagos', N'U') IS NULL
OR COL_LENGTH(N'dbo.Tra_Pagos', N'ValorConversion') IS NULL
THROW 51392, N'Instale primero la estructura de Pagos y Convenios.', 1;
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoListar
@CveSolicitudPago INT=NULL,
@CveCliente INT=NULL,
@CveFraccionamiento INT=NULL,
@CveSolicitud INT=NULL,
@CveTipoTramite INT=NULL,
@CveTipoSolicitudPago INT=NULL,
@EstadoAdministrativo VARCHAR (20)=NULL,
@SoloPendientes BIT=NULL,
@SoloVencidos BIT=0,
@Desde DATE=NULL,
@Hasta DATE=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @Hoy AS DATE = CONVERT (DATE, GETDATE());
DECLARE @Vencimientos TABLE (
CveSolicitudPago INT PRIMARY KEY,
PrimerVencimiento DATE,
ImporteVencido DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
INSERT INTO @Vencimientos
SELECT CveSolicitudPago,
MIN(CASE WHEN SaldoPendiente > 0 THEN VencimientoEfectivo END),
SUM(CASE WHEN SaldoPendiente > 0
AND VencimientoEfectivo < @Hoy THEN SaldoPendiente ELSE 0 END)
FROM SaldosParcialidades
GROUP BY CveSolicitudPago;
WITH Aplicaciones
AS (SELECT A.CveSolicitudPago,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPago),
Traslados
AS (SELECT O.CveSolicitudPagoOrigen,
SUM(O.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY O.CveSolicitudPagoOrigen),
Saldos
AS (SELECT S.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
S.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPago AS S
LEFT OUTER JOIN Aplicaciones AS A ON A.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoOrigen = S.CveSolicitudPago)
SELECT S.*,
C.Nombre AS Cliente,
F.Fraccionamiento,
E.Etapa,
T.TipoTramite,
U.Codigo AS UnidadCobro,
TS.TipoSolicitudPago,
V.PrimerVencimiento,
ISNULL(V.ImporteVencido, 0) AS ImporteVencido,
CONVERT (BIT, CASE WHEN ISNULL(V.ImporteVencido, 0) > 0
AND S.EstadoAdministrativo = 'ACTIVO' THEN 1 ELSE 0 END) AS EstaVencido,
CASE WHEN S.ImporteAbonado >= S.Importe THEN 'Pagado' WHEN S.ImporteAbonado > 0 THEN 'Parcialmente pagado' ELSE 'Pendiente' END AS EstatusFinanciero
FROM Saldos AS S
INNER JOIN dbo.Clientes AS C ON C.CveCliente = S.CveCliente
INNER JOIN dbo.Fraccionamientos AS F ON F.CveFraccionamiento = S.CveFraccionamiento
LEFT OUTER JOIN dbo.FraccionamientosEtapas AS E ON E.CveFraccionamientoEtapa = S.CveFraccionamientoEtapa
LEFT OUTER JOIN dbo.Tra_TiposTramite AS T ON T.CveTipoTramite = S.CveTipoTramite
INNER JOIN dbo.Tra_TiposSolicitudPago AS TS ON TS.CveTipoSolicitudPago = S.CveTipoSolicitudPago
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = S.CveUnidadCobro
LEFT OUTER JOIN @Vencimientos AS V ON V.CveSolicitudPago = S.CveSolicitudPago
WHERE (@CveSolicitudPago IS NULL
OR S.CveSolicitudPago = @CveSolicitudPago)
AND (@CveCliente IS NULL
OR S.CveCliente = @CveCliente)
AND (@CveFraccionamiento IS NULL
OR S.CveFraccionamiento = @CveFraccionamiento)
AND (@CveTipoTramite IS NULL
OR S.CveTipoTramite = @CveTipoTramite)
AND (@CveTipoSolicitudPago IS NULL
OR S.CveTipoSolicitudPago = @CveTipoSolicitudPago)
AND (@EstadoAdministrativo IS NULL
OR S.EstadoAdministrativo = @EstadoAdministrativo)
AND (@Desde IS NULL
OR S.FechaGeneracion >= @Desde)
AND (@Hasta IS NULL
OR CONVERT (DATE, S.FechaGeneracion) <= @Hasta)
AND (@SoloPendientes IS NULL
OR (@SoloPendientes = 1
AND S.SaldoPendiente > 0)
OR (@SoloPendientes = 0
AND S.SaldoPendiente = 0))
AND (@SoloVencidos = 0
OR (V.ImporteVencido > 0
AND S.EstadoAdministrativo = 'ACTIVO'))
AND (@CveSolicitud IS NULL
OR S.CveSolicitud = @CveSolicitud
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS A ON A.CveSolicitudPago = O.CveSolicitudPagoOrigen
WHERE O.CveSolicitudPagoConvenio = S.CveSolicitudPago
AND A.CveSolicitud = @CveSolicitud))
ORDER BY CASE WHEN V.ImporteVencido > 0
AND S.EstadoAdministrativo = 'ACTIVO' THEN 0 ELSE 1 END, V.PrimerVencimiento, S.CveSolicitudPago DESC;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoObtener
@CveSolicitudPago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitudPago = @CveSolicitudPago)
BEGIN
SELECT @ErrorMostrar = 'La obligación no existe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
EXECUTE dbo.PA_Tra_SolicitudPagoListar @CveSolicitudPago = @CveSolicitudPago, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
WITH Abonos
AS (SELECT A.CveSolicitudPagoDetalle,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoDetalle),
Traslados
AS (SELECT D.CveSolicitudPagoDetalleOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoDetalleOrigen)
SELECT D.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoDetalle AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalle
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoDetalleOrigen = D.CveSolicitudPagoDetalle
WHERE D.CveSolicitudPago = @CveSolicitudPago
ORDER BY D.CveSolicitudPagoDetalle;
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
SELECT *,
CONVERT (BIT, CASE WHEN SaldoPendiente > 0
AND VencimientoEfectivo < CONVERT (DATE, GETDATE()) THEN 1 ELSE 0 END) AS EstaVencida
FROM SaldosParcialidades
WHERE CveSolicitudPago = @CveSolicitudPago
ORDER BY NumeroParcialidad;
SELECT A.*,
P.FechaPago,
P.Referencia,
P.EsActivo,
P.Autorizado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE A.CveSolicitudPago = @CveSolicitudPago
ORDER BY P.FechaPago DESC, A.CvePagoAplicacion DESC;
SELECT *
FROM dbo.Tra_SolicitudesPagoConvenio
WHERE CveSolicitudPago = @CveSolicitudPago;
SELECT *
FROM dbo.Tra_SolicitudesPagoConvenioOrigen
WHERE CveSolicitudPagoConvenio = @CveSolicitudPago
OR CveSolicitudPagoOrigen = @CveSolicitudPago;
SELECT *
FROM dbo.Tra_SolicitudesPagoRequeridoBitacora
WHERE CveSolicitudPago = @CveSolicitudPago
ORDER BY CveSolicitudPagoRequeridoBitacora DESC;
SELECT D.CveConvenioOrigenDetalle,
D.CveConvenioOrigen,
D.CveSolicitudPagoOrigen,
D.CveSolicitudPagoDetalleOrigen,
D.CveSolicitudPagoParcialidadOrigen,
D.ImporteSaldoOriginal,
D.ImporteTomadoConvenio,
P.Descripcion AS Producto,
V.NumeroParcialidad AS Parcialidad,
COALESCE(V.FechaProrroga, V.FechaVencimiento) AS Vencimiento
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPagoDetalle AS P ON P.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalleOrigen
INNER JOIN dbo.Tra_SolicitudesPagoParcialidades AS V ON V.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidadOrigen
WHERE O.CveSolicitudPagoConvenio = @CveSolicitudPago
ORDER BY D.CveSolicitudPagoOrigen, D.CveSolicitudPagoDetalleOrigen, V.NumeroParcialidad;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoObtener'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_ConvenioListar
@CveCliente INT=NULL,
@SoloPendientes BIT=1,
@SoloVencidos BIT=0,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @Tipo AS INT = (SELECT CveTipoSolicitudPago
FROM dbo.Tra_TiposSolicitudPago
WHERE Codigo = 'CONVENIO');
IF @Tipo IS NULL
BEGIN
SELECT @ErrorMostrar = 'No se encontró el tipo de solicitud Convenio.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
EXECUTE dbo.PA_Tra_SolicitudPagoListar @CveCliente = @CveCliente, @CveTipoSolicitudPago = @Tipo, @EstadoAdministrativo = 'ACTIVO', @SoloPendientes = @SoloPendientes, @SoloVencidos = @SoloVencidos, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_ConvenioListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_ConvenioOrigenListar
@CveCliente INT,
@CveSolicitudPago INT=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
EXECUTE dbo.PA_Tra_SolicitudPagoListar @CveCliente = @CveCliente, @CveSolicitudPago = @CveSolicitudPago, @SoloPendientes = 1, @EstadoAdministrativo = 'ACTIVO', @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
IF @CveSolicitudPago IS NOT NULL
BEGIN
WITH Abonos
AS (SELECT A.CveSolicitudPagoDetalle,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoDetalle),
Traslados
AS (SELECT D.CveSolicitudPagoDetalleOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoDetalleOrigen)
SELECT D.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoDetalle AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalle
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoDetalleOrigen = D.CveSolicitudPagoDetalle
WHERE D.CveSolicitudPago = @CveSolicitudPago
AND D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) > 0
AND EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago AS S
WHERE S.CveSolicitudPago = D.CveSolicitudPago
AND S.CveCliente = @CveCliente)
ORDER BY D.CveSolicitudPagoDetalle;
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
SELECT *
FROM SaldosParcialidades
WHERE CveSolicitudPago = @CveSolicitudPago
AND SaldoPendiente > 0
AND EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago AS S
WHERE S.CveSolicitudPago = @CveSolicitudPago
AND S.CveCliente = @CveCliente)
ORDER BY VencimientoEfectivo, NumeroParcialidad;
END
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_ConvenioOrigenListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoGuardar
@CveSolicitudPago INT=NULL OUTPUT,
@CveTipoSolicitudPago INT,
@CveCliente INT,
@CveFraccionamiento INT,
@CveFraccionamientoEtapa INT=NULL,
@CveSolicitud INT=NULL,
@CveTipoTramite INT=NULL,
@CveTramitePago INT=NULL,
@Descripcion VARCHAR (1000),
@Importe DECIMAL (19, 6),
@CveUnidadCobro INT,
@EsRequerido BIT,
@FechaGeneracion DATETIME2 (0),
@DetalleJson NVARCHAR (MAX),
@ParcialidadesJson NVARCHAR (MAX),
@DevolverResultado BIT=1,
@EsOperacionConvenio BIT=0,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Importe IS NULL
OR @Importe < 0
OR @FechaGeneracion IS NULL
OR NULLIF (LTRIM(RTRIM(@Descripcion)), '') IS NULL
OR @EsRequerido IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture descripción, importe y fecha de generación.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF ISNULL(ISJSON(@DetalleJson), 0) <> 1
OR ISNULL(ISJSON(@ParcialidadesJson), 0) <> 1
OR LEFT(LTRIM(@DetalleJson), 1) <> '['
OR LEFT(LTRIM(@ParcialidadesJson), 1) <> '['
BEGIN
SELECT @ErrorMostrar = 'El detalle y las parcialidades no tienen un formato válido.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Detalle TABLE (
CvePS INT,
Descripcion VARCHAR (1000),
Cantidad DECIMAL (18, 4),
PrecioUnitario DECIMAL (19, 6),
Importe DECIMAL (19, 6));
INSERT INTO @Detalle
SELECT CvePS,
Descripcion,
Cantidad,
PrecioUnitario,
Importe
FROM OPENJSON (@DetalleJson) WITH (CvePS INT, Descripcion VARCHAR (1000), Cantidad DECIMAL (18, 4), PrecioUnitario DECIMAL (19, 6), Importe DECIMAL (19, 6));
DECLARE @Parcialidades TABLE (
NumeroParcialidad INT,
FechaVencimiento DATE,
Importe DECIMAL (19, 6),
FechaProrroga DATE);
INSERT INTO @Parcialidades
SELECT NumeroParcialidad,
FechaVencimiento,
Importe,
FechaProrroga
FROM OPENJSON (@ParcialidadesJson) WITH (NumeroParcialidad INT, FechaVencimiento DATE, Importe DECIMAL (19, 6), FechaProrroga DATE);
IF NOT EXISTS (SELECT 1
FROM @Detalle)
OR NOT EXISTS (SELECT 1
FROM @Parcialidades)
OR EXISTS (SELECT 1
FROM @Detalle
WHERE CvePS IS NULL
OR Cantidad IS NULL
OR Cantidad <= 0
OR PrecioUnitario IS NULL
OR PrecioUnitario < 0
OR Importe IS NULL
OR Importe < 0
OR NULLIF (LTRIM(RTRIM(Descripcion)), '') IS NULL
OR ABS(ROUND(Cantidad * PrecioUnitario, 6) - Importe) > (Cantidad * 0.0000005 + 0.000001))
OR EXISTS (SELECT 1
FROM @Parcialidades
WHERE NumeroParcialidad IS NULL
OR NumeroParcialidad <= 0
OR FechaVencimiento IS NULL
OR Importe IS NULL
OR Importe < 0
OR FechaProrroga < FechaVencimiento)
OR EXISTS (SELECT NumeroParcialidad
FROM @Parcialidades
GROUP BY NumeroParcialidad
HAVING COUNT(*) > 1)
OR (SELECT SUM(Importe)
FROM @Detalle) <> @Importe
OR (SELECT SUM(Importe)
FROM @Parcialidades) <> @Importe
BEGIN
SELECT @ErrorMostrar = 'Los productos y las parcialidades deben ser válidos y sumar exactamente el importe de la obligación.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Fraccionamientos
WHERE CveFraccionamiento = @CveFraccionamiento
AND CveCliente = @CveCliente)
OR (@CveFraccionamientoEtapa IS NOT NULL
AND NOT EXISTS (SELECT 1
FROM dbo.FraccionamientosEtapas
WHERE CveFraccionamientoEtapa = @CveFraccionamientoEtapa
AND CveFraccionamiento = @CveFraccionamiento))
OR (@CveSolicitud IS NOT NULL
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_Solicitudes
WHERE CveSolicitud = @CveSolicitud
AND CveCliente = @CveCliente
AND CveFraccionamiento = @CveFraccionamiento
AND (@CveFraccionamientoEtapa IS NULL
OR CveFraccionamientoEtapa = @CveFraccionamientoEtapa)))
OR (@CveTramitePago IS NOT NULL
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @CveTramitePago
AND CveTipoTramite = @CveTipoTramite
AND CveUnidadCobro = @CveUnidadCobro))
BEGIN
SELECT @ErrorMostrar = 'El cliente, fraccionamiento, etapa o trámite no corresponden a la obligación.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro
AND Activo = 1)
OR NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposSolicitudPago
WHERE CveTipoSolicitudPago = @CveTipoSolicitudPago
AND Activo = 1)
BEGIN
SELECT @ErrorMostrar = 'Seleccione un tipo y unidad de cobro disponibles.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @EsOperacionConvenio = 0
AND EXISTS (SELECT 1
FROM dbo.Tra_TiposSolicitudPago
WHERE CveTipoSolicitudPago = @CveTipoSolicitudPago
AND Codigo = 'CONVENIO')
BEGIN
SELECT @ErrorMostrar = 'Guarde el convenio desde su operación completa, incluyendo los adeudos de origen.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @CveSolicitudPago = NULLIF (@CveSolicitudPago, 0);
IF @CveSolicitudPago IS NOT NULL
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitudPago = @CveSolicitudPago
AND EstadoAdministrativo = 'ACTIVO'
AND CveCliente = @CveCliente
AND CveTipoSolicitudPago = @CveTipoSolicitudPago)
BEGIN
SELECT @ErrorMostrar = 'La obligación no está disponible para modificar.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_PagosAplicaciones
WHERE CveSolicitudPago = @CveSolicitudPago)
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenioOrigen
WHERE CveSolicitudPagoOrigen = @CveSolicitudPago)
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoDetalle
WHERE CveSolicitudPago = @CveSolicitudPago
AND CveVentaDetalleOrigen IS NOT NULL)
BEGIN
SELECT @ErrorMostrar = 'La obligación tiene historia financiera. Sus importes y productos deben conservarse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitudPago = @CveSolicitudPago
AND EsRequerido <> @EsRequerido)
BEGIN
SELECT @ErrorMostrar = 'Cambie requerido desde la operación que solicita observación.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DELETE dbo.Tra_SolicitudesPagoDetalle
WHERE CveSolicitudPago = @CveSolicitudPago;
DELETE dbo.Tra_SolicitudesPagoParcialidades
WHERE CveSolicitudPago = @CveSolicitudPago;
UPDATE dbo.Tra_SolicitudesPago
SET CveFraccionamiento = @CveFraccionamiento,
CveFraccionamientoEtapa = @CveFraccionamientoEtapa,
CveSolicitud = @CveSolicitud,
CveTipoTramite = @CveTipoTramite,
CveTramitePago = @CveTramitePago,
Descripcion = @Descripcion,
Importe = @Importe,
CveUnidadCobro = @CveUnidadCobro,
FechaGeneracion = @FechaGeneracion,
CveUsuarioModificacion = @CveUsuarioEjecuta,
FechaModificacion = SYSDATETIME()
WHERE CveSolicitudPago = @CveSolicitudPago;
END
ELSE
BEGIN
INSERT INTO dbo.Tra_SolicitudesPago (CveTipoSolicitudPago, CveCliente, CveFraccionamiento, CveFraccionamientoEtapa, CveSolicitud, CveTipoTramite, CveTramitePago, Descripcion, Importe, CveUnidadCobro, EsRequerido, FechaGeneracion, FechaAlta, CveUsuario)
VALUES (@CveTipoSolicitudPago, @CveCliente, @CveFraccionamiento, @CveFraccionamientoEtapa, @CveSolicitud, @CveTipoTramite, @CveTramitePago, @Descripcion, @Importe, @CveUnidadCobro, @EsRequerido, @FechaGeneracion, SYSDATETIME(), @CveUsuarioEjecuta);
SET @CveSolicitudPago = CONVERT (INT, SCOPE_IDENTITY());
END
INSERT INTO dbo.Tra_SolicitudesPagoDetalle (CveSolicitudPago, CvePS, Descripcion, Cantidad, PrecioUnitario, CveUnidadCobro, Importe)
SELECT @CveSolicitudPago,
CvePS,
Descripcion,
Cantidad,
PrecioUnitario,
@CveUnidadCobro,
Importe
FROM @Detalle;
INSERT INTO dbo.Tra_SolicitudesPagoParcialidades (CveSolicitudPago, NumeroParcialidad, FechaVencimiento, Importe, CveUnidadCobro, FechaProrroga)
SELECT @CveSolicitudPago,
NumeroParcialidad,
FechaVencimiento,
Importe,
@CveUnidadCobro,
FechaProrroga
FROM @Parcialidades;
IF @DevolverResultado = 1
SELECT @CveSolicitudPago AS CveSolicitudPago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoGuardar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoGenerarPorSolicitud
@CveSolicitud INT,
@FechaVencimiento DATE,
@CveTramitePago INT=NULL,
@DevolverResultado BIT=1,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @FechaVencimiento IS NULL
BEGIN
SELECT @ErrorMostrar = 'Indique la fecha de vencimiento; no se asigna una fecha implícita.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Cliente AS INT, @Fraccionamiento AS INT, @Etapa AS INT, @TipoTramite AS INT, @Tipo AS INT;
SELECT @Cliente = CveCliente,
@Fraccionamiento = CveFraccionamiento,
@Etapa = CveFraccionamientoEtapa,
@TipoTramite = CveTipoTramite
FROM dbo.Tra_Solicitudes
WHERE CveSolicitud = @CveSolicitud;
SET @Tipo = (SELECT CveTipoSolicitudPago
FROM dbo.Tra_TiposSolicitudPago
WHERE Codigo = 'NORMAL');
IF @Cliente IS NULL
OR @Tipo IS NULL
BEGIN
SELECT @ErrorMostrar = 'La solicitud o el tipo Normal no están disponibles.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Pendientes TABLE (
CveTramitePago INT PRIMARY KEY);
INSERT INTO @Pendientes
SELECT CveTramitePago
FROM dbo.Tra_TiposTramitePagos
WHERE CveTipoTramite = @TipoTramite
AND EsActivo = 1
AND (@CveTramitePago IS NULL
OR CveTramitePago = @CveTramitePago);
DECLARE @Generadas TABLE (
CveSolicitudPago INT);
WHILE EXISTS (SELECT 1
FROM @Pendientes)
BEGIN
DECLARE @Plantilla AS INT = (SELECT MIN(CveTramitePago)
FROM @Pendientes);
DECLARE @Clave AS INT = (SELECT CveSolicitudPago
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitud = @CveSolicitud
AND CveTramitePago = @Plantilla);
IF @Clave IS NULL
BEGIN
DECLARE @Descripcion AS VARCHAR (1000), @Importe AS DECIMAL (19, 6), @Unidad AS INT, @Requerido AS BIT, @Detalle AS NVARCHAR (MAX), @Parcialidades AS NVARCHAR (MAX);
DECLARE @Fecha AS DATETIME2 (0) = SYSDATETIME();
SELECT @Descripcion = Nombre,
@Importe = Importe,
@Unidad = CveUnidadCobro,
@Requerido = EsRequerido
FROM dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @Plantilla;
SET @Detalle = (SELECT CvePS,
Descripcion,
Cantidad,
PrecioUnitario,
Importe
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @Plantilla
ORDER BY CveTramitePagoDetalle
FOR JSON PATH);
SET @Parcialidades = (SELECT 1 AS NumeroParcialidad,
@FechaVencimiento AS FechaVencimiento,
@Importe AS Importe
FOR JSON PATH);
EXECUTE dbo.PA_Tra_SolicitudPagoGuardar @CveSolicitudPago = @Clave OUTPUT, @CveTipoSolicitudPago = @Tipo, @CveCliente = @Cliente, @CveFraccionamiento = @Fraccionamiento, @CveFraccionamientoEtapa = @Etapa, @CveSolicitud = @CveSolicitud, @CveTipoTramite = @TipoTramite, @CveTramitePago = @Plantilla, @Descripcion = @Descripcion, @Importe = @Importe, @CveUnidadCobro = @Unidad, @EsRequerido = @Requerido, @FechaGeneracion = @Fecha, @DetalleJson = @Detalle, @ParcialidadesJson = @Parcialidades, @DevolverResultado = 0, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
END
INSERT INTO @Generadas
VALUES (@Clave);
DELETE @Pendientes
WHERE CveTramitePago = @Plantilla;
END
IF @DevolverResultado = 1
SELECT CveSolicitudPago
FROM @Generadas;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoGenerarPorSolicitud'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoCambiarRequerido
@CveSolicitudPago INT,
@EsRequerido BIT,
@Observacion VARCHAR (2000),
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @EsRequerido IS NULL
OR NULLIF (LTRIM(RTRIM(@Observacion)), '') IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture una observación para cambiar requerido.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Anterior AS BIT;
SELECT @Anterior = EsRequerido
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitudPago = @CveSolicitudPago;
IF @Anterior IS NULL
BEGIN
SELECT @ErrorMostrar = 'La obligación no existe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Anterior <> @EsRequerido
BEGIN
UPDATE dbo.Tra_SolicitudesPago
SET EsRequerido = @EsRequerido,
CveUsuarioModificacion = @CveUsuarioEjecuta,
FechaModificacion = SYSDATETIME()
WHERE CveSolicitudPago = @CveSolicitudPago;
INSERT INTO dbo.Tra_SolicitudesPagoRequeridoBitacora (CveSolicitudPago, ValorAnterior, ValorNuevo, Observacion, CveUsuarioRegistro)
VALUES (@CveSolicitudPago, @Anterior, @EsRequerido, @Observacion, @CveUsuarioEjecuta);
END
SELECT CONVERT (BIT, 1) AS Guardado;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoCambiarRequerido'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoCancelar
@CveSolicitudPago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitudPago = @CveSolicitudPago)
BEGIN
SELECT @ErrorMostrar = 'La obligación no existe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE A.CveSolicitudPago = @CveSolicitudPago
AND P.EsActivo = 1)
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE O.CveSolicitudPagoOrigen = @CveSolicitudPago
AND C.EstadoAdministrativo <> 'CANCELADO')
BEGIN
SELECT @ErrorMostrar = 'La obligación tiene abonos o saldo trasladado a un convenio vigente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Tra_SolicitudesPago
SET EstadoAdministrativo = 'CANCELADO',
CveUsuarioModificacion = @CveUsuarioEjecuta,
FechaModificacion = SYSDATETIME()
WHERE CveSolicitudPago = @CveSolicitudPago;
SELECT CONVERT (BIT, 1) AS Cancelado;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoCancelar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_ConvenioCancelar
@CveSolicitudPago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenio
WHERE CveSolicitudPago = @CveSolicitudPago)
BEGIN
SELECT @ErrorMostrar = 'El convenio no existe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
EXECUTE dbo.PA_Tra_SolicitudPagoCancelar @CveSolicitudPago = @CveSolicitudPago, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_ConvenioCancelar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoRegistrar
@CvePago INT=NULL OUTPUT,
@CveCliente INT,
@FechaPago DATETIME,
@Importe DECIMAL (19, 6),
@CveUnidadCobro INT,
@CveFormaPago TINYINT,
@CveBancoCuenta INT=NULL,
@Referencia VARCHAR (200)=NULL,
@Observaciones VARCHAR (300)=NULL,
@DevolverResultado BIT=1,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @CvePago IS NOT NULL
AND @CvePago <> 0
BEGIN
SELECT @ErrorMostrar = 'Un abono registrado conserva su importe y conversión; no puede sobrescribirse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Importe IS NULL
OR @Importe <= 0
OR @FechaPago IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture un importe positivo y la fecha del pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveMoneda AS INT, @RequiereConversion AS BIT, @ValorConversion AS DECIMAL (19, 8), @CveUnidadCobroValor AS INT, @ImporteMXN AS DECIMAL (19, 6);
SELECT @CveMoneda = CveMoneda,
@RequiereConversion = RequiereConversion
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro
AND Activo = 1;
IF @RequiereConversion IS NULL
BEGIN
SELECT @ErrorMostrar = 'Seleccione una unidad de cobro disponible.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @RequiereConversion = 0
SET @ValorConversion = 1;
ELSE
SELECT TOP (1) @CveUnidadCobroValor = CveUnidadCobroValor,
@ValorConversion = ValorMXN
FROM dbo.Gral_UnidadesCobroValores
WHERE CveUnidadCobro = @CveUnidadCobro
AND FechaVigencia <= CONVERT (DATE, @FechaPago)
ORDER BY FechaVigencia DESC;
IF @ValorConversion IS NULL
OR @ValorConversion <= 0
BEGIN
SELECT @ErrorMostrar = 'Falta registrar la equivalencia vigente en la fecha del pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @ImporteMXN = CONVERT (DECIMAL (19, 6), ROUND(@Importe * @ValorConversion, 6));
IF @ImporteMXN <= 0
BEGIN
SELECT @ErrorMostrar = 'El importe convertido debe ser mayor a cero.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
INSERT INTO dbo.Tra_Pagos (CveCliente, CveFormaPago, CveMoneda, FechaPago, Importe, Referencia, EsSaldoFavor, EsActivo, FechaAlta, CveUsuario, CveBancoCuenta, Observaciones, Autorizado, FechaAutorizacion, CveUsuarioAutoriza, CveUnidadCobro, CveUnidadCobroValor, ValorConversion, ImporteMXN)
VALUES (@CveCliente, @CveFormaPago, @CveMoneda, @FechaPago, @Importe, @Referencia, 0, 1, SYSDATETIME(), @CveUsuarioEjecuta, @CveBancoCuenta, @Observaciones, 1, SYSDATETIME(), @CveUsuarioEjecuta, @CveUnidadCobro, @CveUnidadCobroValor, @ValorConversion, @ImporteMXN);
SET @CvePago = CONVERT (INT, SCOPE_IDENTITY());
IF @DevolverResultado = 1
SELECT @CvePago AS CvePago,
@ValorConversion AS ValorConversion,
@ImporteMXN AS ImporteMXN;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoRegistrar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoListar
@CvePago INT=NULL,
@CveCliente INT=NULL,
@CveFraccionamiento INT=NULL,
@CveSolicitud INT=NULL,
@Desde DATE=NULL,
@Hasta DATE=NULL,
@EsActivo BIT=NULL,
@SoloPendientesFacturar BIT=0,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
WITH Aplicado
AS (SELECT CvePago,
SUM(ImportePagoConsumido) AS ImporteAplicado,
SUM(ImporteAplicadoMXN) AS ImporteAplicadoMXN
FROM dbo.Tra_PagosAplicaciones
GROUP BY CvePago),
Documentado
AS (SELECT V.CvePago,
SUM(V.ImporteVinculadoMXN) AS ImporteDocumentadoMXN
FROM dbo.Tra_PagosCfdi AS V
INNER JOIN dbo.Fac_CfdiDocumentos AS D ON D.CveCfdiDocumento = V.CveCfdiDocumento
LEFT OUTER JOIN dbo.Fac_CfdiTimbrados AS T ON T.CveCfdiTimbrado = D.CveCfdiTimbradoVigente
WHERE D.Estado = 'TIMBRADO'
AND D.ImporteValidado = 1
AND D.RutaPdf IS NOT NULL
AND ((D.OrigenRegistro = 'EXTERNO'
AND D.RutaXmlExterno IS NOT NULL
AND D.UuidExterno IS NOT NULL)
OR (D.OrigenRegistro = 'INTERNO'
AND T.Exitoso = 1
AND T.XmlTimbrado IS NOT NULL))
GROUP BY V.CvePago)
SELECT P.CvePago,
P.CveCliente,
C.Nombre AS Cliente,
P.FechaPago,
P.Importe,
P.CveUnidadCobro,
U.Codigo AS UnidadCobro,
P.ValorConversion,
P.ImporteMXN,
P.Referencia,
P.Observaciones,
P.CveFormaPago,
P.CveBancoCuenta,
P.EsActivo,
P.Autorizado,
P.CveUsuario,
P.FechaAlta,
ISNULL(A.ImporteAplicado, 0) AS ImporteAplicado,
P.Importe - ISNULL(A.ImporteAplicado, 0) AS ImporteSinAplicar,
P.ImporteMXN - ISNULL(A.ImporteAplicadoMXN, 0) AS ImporteSinAplicarMXN,
ISNULL(D.ImporteDocumentadoMXN, 0) AS ImporteDocumentadoMXN,
P.ImporteMXN - ISNULL(D.ImporteDocumentadoMXN, 0) AS ImportePendienteFacturarMXN
FROM dbo.Tra_Pagos AS P
INNER JOIN dbo.Clientes AS C ON C.CveCliente = P.CveCliente
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = P.CveUnidadCobro
LEFT OUTER JOIN Aplicado AS A ON A.CvePago = P.CvePago
LEFT OUTER JOIN Documentado AS D ON D.CvePago = P.CvePago
WHERE (@CvePago IS NULL
OR P.CvePago = @CvePago)
AND (@CveCliente IS NULL
OR P.CveCliente = @CveCliente)
AND (@Desde IS NULL
OR P.FechaPago >= @Desde)
AND (@Hasta IS NULL
OR CONVERT (DATE, P.FechaPago) <= @Hasta)
AND (@EsActivo IS NULL
OR P.EsActivo = @EsActivo)
AND (@SoloPendientesFacturar = 0
OR (P.EsActivo = 1
AND P.Autorizado = 1
AND P.ImporteMXN > ISNULL(D.ImporteDocumentadoMXN, 0)))
AND ((@CveFraccionamiento IS NULL
AND @CveSolicitud IS NULL)
OR EXISTS (SELECT 1
FROM dbo.Tra_PagosAplicaciones AS X
INNER JOIN dbo.Tra_SolicitudesPago AS S ON S.CveSolicitudPago = X.CveSolicitudPago
WHERE X.CvePago = P.CvePago
AND (@CveFraccionamiento IS NULL
OR S.CveFraccionamiento = @CveFraccionamiento)
AND (@CveSolicitud IS NULL
OR S.CveSolicitud = @CveSolicitud)))
ORDER BY P.FechaPago DESC, P.CvePago DESC;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoObtener
@CvePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_Pagos
WHERE CvePago = @CvePago)
BEGIN
SELECT @ErrorMostrar = 'No se encontró el pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
EXECUTE dbo.PA_Tra_PagoListar @CvePago = @CvePago, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SELECT A.*,
S.Descripcion,
P.NumeroParcialidad,
D.Descripcion AS Producto
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_SolicitudesPago AS S ON S.CveSolicitudPago = A.CveSolicitudPago
INNER JOIN dbo.Tra_SolicitudesPagoParcialidades AS P ON P.CveSolicitudPagoParcialidad = A.CveSolicitudPagoParcialidad
INNER JOIN dbo.Tra_SolicitudesPagoDetalle AS D ON D.CveSolicitudPagoDetalle = A.CveSolicitudPagoDetalle
WHERE A.CvePago = @CvePago
ORDER BY A.CvePagoAplicacion;
SELECT V.CvePagoCfdi,
V.CveCfdiDocumento,
V.ImporteVinculadoMXN,
D.Serie,
D.Folio,
D.Total,
D.Moneda,
D.Estado,
D.ImporteValidado,
COALESCE (CONVERT (VARCHAR (36), D.UuidExterno), T.Uuid) AS Uuid,
CONVERT (BIT, CASE WHEN D.RutaPdf IS NOT NULL THEN 1 ELSE 0 END) AS TienePdf,
CONVERT (BIT, CASE WHEN D.RutaXmlExterno IS NOT NULL
OR T.XmlTimbrado IS NOT NULL THEN 1 ELSE 0 END) AS TieneXml
FROM dbo.Tra_PagosCfdi AS V
INNER JOIN dbo.Fac_CfdiDocumentos AS D ON D.CveCfdiDocumento = V.CveCfdiDocumento
LEFT OUTER JOIN dbo.Fac_CfdiTimbrados AS T ON T.CveCfdiTimbrado = D.CveCfdiTimbradoVigente
WHERE V.CvePago = @CvePago
ORDER BY V.CvePagoCfdi;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoObtener'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoPendienteFacturarListar
@CveCliente INT=NULL,
@Desde DATE=NULL,
@Hasta DATE=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
EXECUTE dbo.PA_Tra_PagoListar @CveCliente = @CveCliente, @Desde = @Desde, @Hasta = @Hasta, @SoloPendientesFacturar = 1, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoPendienteFacturarListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Conservar aplicaciones y documentos como historia; las consultas de saldo excluyen abonos cancelados.
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoCancelar
@CvePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_Pagos
WHERE CvePago = @CvePago)
BEGIN
SELECT @ErrorMostrar = 'No se encontró el pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Tra_Pagos
SET EsActivo = 0
WHERE CvePago = @CvePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoCancelar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoAplicar
@CvePago INT,
@AplicacionesJson NVARCHAR (MAX),
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF ISNULL(ISJSON(@AplicacionesJson), 0) <> 1
OR LEFT(LTRIM(@AplicacionesJson), 1) <> '['
BEGIN
SELECT @ErrorMostrar = 'Las aplicaciones no tienen un formato válido.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveCliente AS INT, @UnidadPago AS INT, @FechaPago AS DATE, @FactorPago AS DECIMAL (19, 8), @Disponible AS DECIMAL (19, 6), @DisponibleMXN AS DECIMAL (19, 6);
SELECT @CveCliente = P.CveCliente,
@UnidadPago = P.CveUnidadCobro,
@FechaPago = CONVERT (DATE, P.FechaPago),
@FactorPago = P.ValorConversion,
@Disponible = P.Importe - ISNULL((SELECT SUM(ImportePagoConsumido)
FROM dbo.Tra_PagosAplicaciones
WHERE CvePago = P.CvePago), 0),
@DisponibleMXN = P.ImporteMXN - ISNULL((SELECT SUM(ImporteAplicadoMXN)
FROM dbo.Tra_PagosAplicaciones
WHERE CvePago = P.CvePago), 0)
FROM dbo.Tra_Pagos AS P
WHERE P.CvePago = @CvePago
AND P.EsActivo = 1
AND P.Autorizado = 1;
IF @CveCliente IS NULL
BEGIN
SELECT @ErrorMostrar = 'Seleccione un abono recibido y vigente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Aplicaciones TABLE (
CveSolicitudPagoDetalle INT,
CveSolicitudPagoParcialidad INT,
ImporteAplicado DECIMAL (19, 6),
CveSolicitudPago INT,
CveUnidadCobro INT,
Factor DECIMAL (19, 8),
ImporteMXN DECIMAL (19, 6),
ImporteConsumido DECIMAL (19, 6));
INSERT INTO @Aplicaciones (CveSolicitudPagoDetalle, CveSolicitudPagoParcialidad, ImporteAplicado)
SELECT CveSolicitudPagoDetalle,
CveSolicitudPagoParcialidad,
ImporteAplicado
FROM OPENJSON (@AplicacionesJson) WITH (CveSolicitudPagoDetalle INT, CveSolicitudPagoParcialidad INT, ImporteAplicado DECIMAL (19, 6));
IF NOT EXISTS (SELECT 1
FROM @Aplicaciones)
OR EXISTS (SELECT 1
FROM @Aplicaciones
WHERE CveSolicitudPagoDetalle IS NULL
OR CveSolicitudPagoParcialidad IS NULL
OR ImporteAplicado IS NULL
OR ImporteAplicado <= 0)
OR EXISTS (SELECT CveSolicitudPagoDetalle,
CveSolicitudPagoParcialidad
FROM @Aplicaciones
GROUP BY CveSolicitudPagoDetalle, CveSolicitudPagoParcialidad
HAVING COUNT(*) > 1)
BEGIN
SELECT @ErrorMostrar = 'Seleccione aplicaciones positivas, sin destinos repetidos.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE A
SET CveSolicitudPago = S.CveSolicitudPago,
CveUnidadCobro = S.CveUnidadCobro
FROM @Aplicaciones AS A
INNER JOIN dbo.Tra_SolicitudesPagoDetalle AS D ON D.CveSolicitudPagoDetalle = A.CveSolicitudPagoDetalle
INNER JOIN dbo.Tra_SolicitudesPagoParcialidades AS P ON P.CveSolicitudPagoParcialidad = A.CveSolicitudPagoParcialidad
AND P.CveSolicitudPago = D.CveSolicitudPago
INNER JOIN dbo.Tra_SolicitudesPago AS S ON S.CveSolicitudPago = D.CveSolicitudPago
WHERE S.CveCliente = @CveCliente
AND S.EstadoAdministrativo = 'ACTIVO';
IF EXISTS (SELECT 1
FROM @Aplicaciones
WHERE CveSolicitudPago IS NULL)
BEGIN
SELECT @ErrorMostrar = 'Las parcialidades y productos deben pertenecer a obligaciones vigentes del cliente del pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM @Aplicaciones AS A
INNER JOIN dbo.Tra_PagosAplicaciones AS X ON X.CvePago = @CvePago
AND X.CveSolicitudPagoDetalle = A.CveSolicitudPagoDetalle
AND X.CveSolicitudPagoParcialidad = A.CveSolicitudPagoParcialidad)
BEGIN
SELECT @ErrorMostrar = 'Este pago ya tiene una aplicación a ese destino; conserve el movimiento registrado.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE A
SET Factor = CASE WHEN A.CveUnidadCobro = @UnidadPago THEN @FactorPago WHEN U.RequiereConversion = 0 THEN 1 ELSE (SELECT TOP (1) V.ValorMXN
FROM dbo.Gral_UnidadesCobroValores AS V
WHERE V.CveUnidadCobro = A.CveUnidadCobro
AND V.FechaVigencia <= @FechaPago
ORDER BY V.FechaVigencia DESC) END
FROM @Aplicaciones AS A
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = A.CveUnidadCobro;
IF EXISTS (SELECT 1
FROM @Aplicaciones
WHERE Factor IS NULL
OR Factor <= 0)
BEGIN
SELECT @ErrorMostrar = 'Falta la equivalencia de una obligación en la fecha del pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE @Aplicaciones
SET ImporteMXN = CONVERT (DECIMAL (19, 6), ROUND(ImporteAplicado * Factor, 6)),
ImporteConsumido = CASE WHEN CveUnidadCobro = @UnidadPago THEN ImporteAplicado ELSE CONVERT (DECIMAL (19, 6), ROUND(ImporteAplicado * Factor / @FactorPago, 6)) END;
IF EXISTS (SELECT 1
FROM @Aplicaciones
WHERE ImporteMXN <= 0
OR ImporteConsumido <= 0)
OR (SELECT SUM(ImporteConsumido)
FROM @Aplicaciones) > @Disponible
OR (SELECT SUM(ImporteMXN)
FROM @Aplicaciones) > @DisponibleMXN
BEGIN
SELECT @ErrorMostrar = 'Las aplicaciones exceden el saldo disponible del abono o requieren ajustar el redondeo.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @SaldosDetalle TABLE (
CveSolicitudPagoDetalle INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoDetalle,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoDetalle),
Traslados
AS (SELECT D.CveSolicitudPagoDetalleOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoDetalleOrigen)
INSERT INTO @SaldosDetalle
SELECT D.CveSolicitudPagoDetalle,
D.CveSolicitudPago,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0)
FROM dbo.Tra_SolicitudesPagoDetalle AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalle
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoDetalleOrigen = D.CveSolicitudPagoDetalle;
DECLARE @SaldosParcialidades TABLE (
CveSolicitudPagoParcialidad INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
INSERT INTO @SaldosParcialidades
SELECT CveSolicitudPagoParcialidad,
CveSolicitudPago,
SaldoPendiente
FROM SaldosParcialidades;
IF EXISTS (SELECT A.CveSolicitudPagoDetalle
FROM @Aplicaciones AS A
INNER JOIN @SaldosDetalle AS D ON D.CveSolicitudPagoDetalle = A.CveSolicitudPagoDetalle
GROUP BY A.CveSolicitudPagoDetalle, D.SaldoPendiente
HAVING SUM(A.ImporteAplicado) > D.SaldoPendiente)
OR EXISTS (SELECT A.CveSolicitudPagoParcialidad
FROM @Aplicaciones AS A
INNER JOIN @SaldosParcialidades AS P ON P.CveSolicitudPagoParcialidad = A.CveSolicitudPagoParcialidad
GROUP BY A.CveSolicitudPagoParcialidad, P.SaldoPendiente
HAVING SUM(A.ImporteAplicado) > P.SaldoPendiente)
BEGIN
SELECT @ErrorMostrar = 'Las aplicaciones exceden el saldo de un producto o parcialidad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
INSERT INTO dbo.Tra_PagosAplicaciones (CvePago, CveSolicitudPago, CveSolicitudPagoParcialidad, CveSolicitudPagoDetalle, CveUnidadCobro, ImporteAplicado, ValorConversionObligacion, ImporteAplicadoMXN, ImportePagoConsumido, CveUsuarioRegistro, FechaRegistro)
SELECT @CvePago,
CveSolicitudPago,
CveSolicitudPagoParcialidad,
CveSolicitudPagoDetalle,
CveUnidadCobro,
ImporteAplicado,
Factor,
ImporteMXN,
ImporteConsumido,
@CveUsuarioEjecuta,
SYSDATETIME()
FROM @Aplicaciones;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoAplicar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- El servicio obtiene PermitirDisminucion del permiso Convenios.DisminuirImporte.
-- Nunca tomar ese valor directamente de un campo enviado por el navegador.
-- Al editar se excluye el traslado propio, sin alterar el historial antes de validar.
CREATE OR ALTER PROCEDURE dbo.PA_Tra_ConvenioGuardar
@CveSolicitudPago INT=NULL OUTPUT,
@CveCliente INT,
@CveFraccionamiento INT,
@CveFraccionamientoEtapa INT=NULL,
@Descripcion VARCHAR (1000),
@Importe DECIMAL (19, 6),
@CveUnidadCobro INT,
@EsRequerido BIT,
@FechaGeneracion DATETIME2 (0),
@Observaciones VARCHAR (2000)=NULL,
@DetalleJson NVARCHAR (MAX),
@ParcialidadesJson NVARCHAR (MAX),
@OrigenesJson NVARCHAR (MAX),
@PermitirDisminucion BIT=0,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @CveSolicitudPago = NULLIF (@CveSolicitudPago, 0);
IF ISNULL(ISJSON(@OrigenesJson), 0) <> 1
OR LEFT(LTRIM(@OrigenesJson), 1) <> '['
BEGIN
SELECT @ErrorMostrar = 'Los adeudos de origen no tienen un formato válido.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @CveSolicitudPago IS NOT NULL
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenio
WHERE CveSolicitudPago = @CveSolicitudPago)
BEGIN
SELECT @ErrorMostrar = 'No se encontró el convenio que desea modificar.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Origenes TABLE (
CveSolicitudPagoOrigen INT,
CveSolicitudPagoDetalleOrigen INT,
CveSolicitudPagoParcialidadOrigen INT,
ImporteTomadoConvenio DECIMAL (19, 6));
INSERT INTO @Origenes
SELECT CveSolicitudPagoOrigen,
CveSolicitudPagoDetalleOrigen,
CveSolicitudPagoParcialidadOrigen,
ImporteTomadoConvenio
FROM OPENJSON (@OrigenesJson) WITH (CveSolicitudPagoOrigen INT, CveSolicitudPagoDetalleOrigen INT, CveSolicitudPagoParcialidadOrigen INT, ImporteTomadoConvenio DECIMAL (19, 6));
IF NOT EXISTS (SELECT 1
FROM @Origenes)
OR EXISTS (SELECT 1
FROM @Origenes
WHERE CveSolicitudPagoOrigen IS NULL
OR CveSolicitudPagoDetalleOrigen IS NULL
OR CveSolicitudPagoParcialidadOrigen IS NULL
OR ImporteTomadoConvenio IS NULL
OR ImporteTomadoConvenio <= 0
OR CveSolicitudPagoOrigen = @CveSolicitudPago)
OR EXISTS (SELECT CveSolicitudPagoDetalleOrigen,
CveSolicitudPagoParcialidadOrigen
FROM @Origenes
GROUP BY CveSolicitudPagoDetalleOrigen, CveSolicitudPagoParcialidadOrigen
HAVING COUNT(*) > 1)
BEGIN
SELECT @ErrorMostrar = 'Seleccione saldos positivos sin repetir productos y parcialidades de origen.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM @Origenes AS O
LEFT OUTER JOIN dbo.Tra_SolicitudesPago AS S ON S.CveSolicitudPago = O.CveSolicitudPagoOrigen
LEFT OUTER JOIN dbo.Tra_SolicitudesPagoDetalle AS D ON D.CveSolicitudPagoDetalle = O.CveSolicitudPagoDetalleOrigen
AND D.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN dbo.Tra_SolicitudesPagoParcialidades AS P ON P.CveSolicitudPagoParcialidad = O.CveSolicitudPagoParcialidadOrigen
AND P.CveSolicitudPago = S.CveSolicitudPago
WHERE S.CveSolicitudPago IS NULL
OR D.CveSolicitudPagoDetalle IS NULL
OR P.CveSolicitudPagoParcialidad IS NULL
OR S.EstadoAdministrativo <> 'ACTIVO'
OR S.CveCliente <> @CveCliente
OR S.CveFraccionamiento <> @CveFraccionamiento
OR S.CveUnidadCobro <> @CveUnidadCobro)
BEGIN
SELECT @ErrorMostrar = 'Los adeudos deben corresponder al cliente, fraccionamiento y unidad del convenio.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @SaldosDetalle TABLE (
CveSolicitudPagoDetalle INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoDetalle,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoDetalle),
Traslados
AS (SELECT D.CveSolicitudPagoDetalleOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
AND (@CveSolicitudPago IS NULL
OR C.CveSolicitudPago <> @CveSolicitudPago)
GROUP BY D.CveSolicitudPagoDetalleOrigen)
INSERT INTO @SaldosDetalle
SELECT D.CveSolicitudPagoDetalle,
D.CveSolicitudPago,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0)
FROM dbo.Tra_SolicitudesPagoDetalle AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalle
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoDetalleOrigen = D.CveSolicitudPagoDetalle;
DECLARE @SaldosParcialidades TABLE (
CveSolicitudPagoParcialidad INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
AND (@CveSolicitudPago IS NULL
OR C.CveSolicitudPago <> @CveSolicitudPago)
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
INSERT INTO @SaldosParcialidades
SELECT CveSolicitudPagoParcialidad,
CveSolicitudPago,
SaldoPendiente
FROM SaldosParcialidades;
IF EXISTS (SELECT O.CveSolicitudPagoDetalleOrigen
FROM @Origenes AS O
INNER JOIN @SaldosDetalle AS D ON D.CveSolicitudPagoDetalle = O.CveSolicitudPagoDetalleOrigen
GROUP BY O.CveSolicitudPagoDetalleOrigen, D.SaldoPendiente
HAVING SUM(O.ImporteTomadoConvenio) > D.SaldoPendiente)
OR EXISTS (SELECT O.CveSolicitudPagoParcialidadOrigen
FROM @Origenes AS O
INNER JOIN @SaldosParcialidades AS P ON P.CveSolicitudPagoParcialidad = O.CveSolicitudPagoParcialidadOrigen
GROUP BY O.CveSolicitudPagoParcialidadOrigen, P.SaldoPendiente
HAVING SUM(O.ImporteTomadoConvenio) > P.SaldoPendiente)
BEGIN
SELECT @ErrorMostrar = 'El saldo seleccionado excede el disponible en un producto o parcialidad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @SaldoConvenido AS DECIMAL (19, 6) = (SELECT SUM(ImporteTomadoConvenio)
FROM @Origenes), @CveTipoSolicitudPago AS INT;
IF ISNULL(@PermitirDisminucion, 0) = 0
AND @Importe < @SaldoConvenido
BEGIN
SELECT @ErrorMostrar = 'El importe del convenio no puede ser menor al saldo seleccionado.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SELECT @CveTipoSolicitudPago = CveTipoSolicitudPago
FROM dbo.Tra_TiposSolicitudPago
WHERE Codigo = 'CONVENIO';
EXECUTE dbo.PA_Tra_SolicitudPagoGuardar @CveSolicitudPago = @CveSolicitudPago OUTPUT, @CveTipoSolicitudPago = @CveTipoSolicitudPago, @CveCliente = @CveCliente, @CveFraccionamiento = @CveFraccionamiento, @CveFraccionamientoEtapa = @CveFraccionamientoEtapa, @Descripcion = @Descripcion, @Importe = @Importe, @CveUnidadCobro = @CveUnidadCobro, @EsRequerido = @EsRequerido, @FechaGeneracion = @FechaGeneracion, @DetalleJson = @DetalleJson, @ParcialidadesJson = @ParcialidadesJson, @DevolverResultado = 0, @EsOperacionConvenio = 1, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenio
WHERE CveSolicitudPago = @CveSolicitudPago)
UPDATE dbo.Tra_SolicitudesPagoConvenio
SET ImporteSaldoConvenido = @SaldoConvenido,
Observaciones = @Observaciones
WHERE CveSolicitudPago = @CveSolicitudPago;
ELSE
INSERT INTO dbo.Tra_SolicitudesPagoConvenio (CveSolicitudPago, ImporteSaldoConvenido, Observaciones, CveUsuarioRegistro, FechaRegistro)
VALUES (@CveSolicitudPago, @SaldoConvenido, @Observaciones, @CveUsuarioEjecuta, SYSDATETIME());
DELETE D
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
WHERE O.CveSolicitudPagoConvenio = @CveSolicitudPago;
DELETE dbo.Tra_SolicitudesPagoConvenioOrigen
WHERE CveSolicitudPagoConvenio = @CveSolicitudPago;
INSERT INTO dbo.Tra_SolicitudesPagoConvenioOrigen (CveSolicitudPagoConvenio, CveSolicitudPagoOrigen, ImporteSaldoOriginal, ImporteTomadoConvenio, CveUnidadCobro)
SELECT @CveSolicitudPago,
O.CveSolicitudPagoOrigen,
(SELECT SUM(D.SaldoPendiente)
FROM @SaldosDetalle AS D
WHERE D.CveSolicitudPago = O.CveSolicitudPagoOrigen),
SUM(O.ImporteTomadoConvenio),
@CveUnidadCobro
FROM @Origenes AS O
GROUP BY O.CveSolicitudPagoOrigen;
INSERT INTO dbo.Tra_SolicitudesPagoConvenioOrigenDetalle (CveConvenioOrigen, CveSolicitudPagoOrigen, CveSolicitudPagoDetalleOrigen, CveSolicitudPagoParcialidadOrigen, ImporteSaldoOriginal, ImporteTomadoConvenio)
SELECT C.CveConvenioOrigen,
O.CveSolicitudPagoOrigen,
O.CveSolicitudPagoDetalleOrigen,
O.CveSolicitudPagoParcialidadOrigen,
CASE WHEN D.SaldoPendiente < P.SaldoPendiente THEN D.SaldoPendiente ELSE P.SaldoPendiente END,
O.ImporteTomadoConvenio
FROM @Origenes AS O
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS C ON C.CveSolicitudPagoConvenio = @CveSolicitudPago
AND C.CveSolicitudPagoOrigen = O.CveSolicitudPagoOrigen
INNER JOIN @SaldosDetalle AS D ON D.CveSolicitudPagoDetalle = O.CveSolicitudPagoDetalleOrigen
INNER JOIN @SaldosParcialidades AS P ON P.CveSolicitudPagoParcialidad = O.CveSolicitudPagoParcialidadOrigen;
SELECT @CveSolicitudPago AS CveSolicitudPago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_ConvenioGuardar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_UnidadCobroListar
@SoloActivas BIT=1,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT CveUnidadCobro,
Codigo,
Nombre,
EsMoneda,
RequiereConversion,
CveMoneda,
Activo
FROM dbo.Gral_UnidadesCobro
WHERE @SoloActivas = 0
OR Activo = 1
ORDER BY Nombre;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_UnidadCobroListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_UnidadCobroGuardar
@CveUnidadCobro INT=NULL OUTPUT,
@Codigo VARCHAR (10),
@Nombre VARCHAR (100),
@EsMoneda BIT,
@RequiereConversion BIT,
@CveMoneda INT=NULL,
@Activo BIT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @CveUnidadCobro = NULLIF (@CveUnidadCobro, 0);
SET @Codigo = UPPER(LTRIM(RTRIM(@Codigo)));
IF NULLIF (@Codigo, '') IS NULL
OR NULLIF (LTRIM(RTRIM(@Nombre)), '') IS NULL
OR @EsMoneda IS NULL
OR @RequiereConversion IS NULL
OR @Activo IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture código, nombre y características de la unidad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF (@EsMoneda = 1
AND @CveMoneda IS NULL)
OR (@EsMoneda = 0
AND @CveMoneda IS NOT NULL)
OR (@Codigo = 'MXN'
AND (@EsMoneda <> 1
OR @RequiereConversion <> 0))
OR (@Codigo <> 'MXN'
AND @RequiereConversion = 0)
BEGIN
SELECT @ErrorMostrar = 'La unidad base MXN no requiere conversión; las demás unidades sí. Relacione las monedas con el catálogo existente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE Codigo = @Codigo
AND (@CveUnidadCobro IS NULL
OR CveUnidadCobro <> @CveUnidadCobro))
BEGIN
SELECT @ErrorMostrar = 'Ya existe una unidad con ese código.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @CveUnidadCobro IS NULL
BEGIN
INSERT INTO dbo.Gral_UnidadesCobro (Codigo, Nombre, EsMoneda, RequiereConversion, CveMoneda, Activo)
VALUES (@Codigo, @Nombre, @EsMoneda, @RequiereConversion, @CveMoneda, @Activo);
SET @CveUnidadCobro = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro)
BEGIN
SELECT @ErrorMostrar = 'No se encontró la unidad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro
AND (Codigo <> @Codigo
OR EsMoneda <> @EsMoneda
OR RequiereConversion <> @RequiereConversion
OR ISNULL(CveMoneda, 0) <> ISNULL(@CveMoneda, 0)))
AND (EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobroValores
WHERE CveUnidadCobro = @CveUnidadCobro)
OR EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagos
WHERE CveUnidadCobro = @CveUnidadCobro)
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago
WHERE CveUnidadCobro = @CveUnidadCobro)
OR EXISTS (SELECT 1
FROM dbo.Tra_Pagos
WHERE CveUnidadCobro = @CveUnidadCobro))
BEGIN
SELECT @ErrorMostrar = 'La unidad tiene registros relacionados; conserve su código y características de conversión.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Gral_UnidadesCobro
SET Codigo = @Codigo,
Nombre = @Nombre,
EsMoneda = @EsMoneda,
RequiereConversion = @RequiereConversion,
CveMoneda = @CveMoneda,
Activo = @Activo
WHERE CveUnidadCobro = @CveUnidadCobro;
END
SELECT @CveUnidadCobro AS CveUnidadCobro;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_UnidadCobroGuardar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_UnidadCobroValoresListar
@CveUnidadCobro INT,
@FechaHasta DATE=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT V.CveUnidadCobroValor,
V.CveUnidadCobro,
U.Codigo AS UnidadCobro,
V.FechaVigencia,
V.ValorMXN,
V.Fuente,
V.FechaRegistro,
V.CveUsuarioRegistro
FROM dbo.Gral_UnidadesCobroValores AS V
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = V.CveUnidadCobro
WHERE V.CveUnidadCobro = @CveUnidadCobro
AND (@FechaHasta IS NULL
OR V.FechaVigencia <= @FechaHasta)
ORDER BY V.FechaVigencia DESC;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_UnidadCobroValoresListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_UnidadCobroValorAgregar
@CveUnidadCobro INT,
@FechaVigencia DATE,
@ValorMXN DECIMAL (19, 8),
@Fuente VARCHAR (500),
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @FechaVigencia IS NULL
OR @ValorMXN IS NULL
OR @ValorMXN <= 0
OR NULLIF (LTRIM(RTRIM(@Fuente)), '') IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture vigencia, valor positivo y fuente de la equivalencia.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro
AND RequiereConversion = 1)
BEGIN
SELECT @ErrorMostrar = 'La unidad seleccionada no requiere equivalencias.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobroValores
WHERE CveUnidadCobro = @CveUnidadCobro
AND FechaVigencia = @FechaVigencia)
BEGIN
SELECT @ErrorMostrar = 'Ya existe un valor para esa vigencia; el histórico no se sobrescribe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
INSERT INTO dbo.Gral_UnidadesCobroValores (CveUnidadCobro, FechaVigencia, ValorMXN, Fuente, CveUsuarioRegistro, FechaRegistro)
VALUES (@CveUnidadCobro, @FechaVigencia, @ValorMXN, @Fuente, @CveUsuarioEjecuta, SYSDATETIME());
SELECT CONVERT (INT, SCOPE_IDENTITY()) AS CveUnidadCobroValor;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_UnidadCobroValorAgregar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Acceso a esta operación: servicio del catálogo de usuarios, sólo SuperUsuario.
CREATE OR ALTER PROCEDURE dbo.PA_Sis_UsuarioPermisosListar
@CveUsuario INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT P.CvePermiso,
P.CodigoPermiso,
P.NombrePermiso,
P.Descripcion,
U.Permitido AS PermisoUsuario,
R.Permitido AS PermisoRol,
CONVERT (BIT, COALESCE (U.Permitido, R.Permitido, 0)) AS PermitidoEfectivo
FROM dbo.Sis_Permisos AS P
INNER JOIN dbo.Sis_Usuarios AS S ON S.CveUsuario = @CveUsuario
LEFT OUTER JOIN dbo.Sis_UsuariosPermisos AS U ON U.CveUsuario = S.CveUsuario
AND U.CvePermiso = P.CvePermiso
LEFT OUTER JOIN dbo.Sis_RolesPermisos AS R ON R.CveRol = S.CveRol
AND R.CvePermiso = P.CvePermiso
WHERE P.Activo = 1
ORDER BY P.NombrePermiso;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Sis_UsuarioPermisosListar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- El servicio verifica SuperUsuario. NULL restaura herencia, 0 deniega y 1 permite.
CREATE OR ALTER PROCEDURE dbo.PA_Sis_UsuarioPermisosGuardar
@CveUsuario INT,
@CvePermiso INT,
@Permitido BIT=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Permitido IS NULL
DELETE dbo.Sis_UsuariosPermisos
WHERE CveUsuario = @CveUsuario
AND CvePermiso = @CvePermiso;
ELSE
IF EXISTS (SELECT 1
FROM dbo.Sis_UsuariosPermisos
WHERE CveUsuario = @CveUsuario
AND CvePermiso = @CvePermiso)
UPDATE dbo.Sis_UsuariosPermisos
SET Permitido = @Permitido
WHERE CveUsuario = @CveUsuario
AND CvePermiso = @CvePermiso;
ELSE
INSERT INTO dbo.Sis_UsuariosPermisos (CveUsuario, CvePermiso, Permitido, FechaCreacion)
VALUES (@CveUsuario, @CvePermiso, @Permitido, SYSDATETIME());
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Sis_UsuarioPermisosGuardar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Los metadatos son captura manual. El servicio guarda archivos en almacenamiento protegido.
CREATE OR ALTER PROCEDURE dbo.PA_Fac_CfdiExternoGuardar
@CveCfdiDocumento BIGINT=NULL OUTPUT,
@CveCliente INT,
@VersionCfdi VARCHAR (5),
@Moneda VARCHAR (3),
@Total DECIMAL (19, 6),
@TipoCambio DECIMAL (19, 6)=NULL,
@Uuid UNIQUEIDENTIFIER=NULL,
@Serie VARCHAR (25)=NULL,
@Folio VARCHAR (40)=NULL,
@FechaEmision DATETIME2 (0)=NULL,
@FechaTimbrado DATETIME2 (0)=NULL,
@RutaXml VARCHAR (500)=NULL,
@HashXml BINARY (32)=NULL,
@RutaPdf VARCHAR (500)=NULL,
@HashPdf BINARY (32)=NULL,
@ImporteValidado BIT=0,
@MarcarTimbrado BIT=0,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @CveCfdiDocumento = NULLIF (@CveCfdiDocumento, 0);
SET @Moneda = UPPER(LTRIM(RTRIM(@Moneda)));
IF @Total IS NULL
OR @Total <= 0
OR NULLIF (LTRIM(RTRIM(@VersionCfdi)), '') IS NULL
OR NULLIF (@Moneda, '') IS NULL
OR (@Moneda <> 'MXN'
AND ISNULL(@TipoCambio, 0) <= 0)
BEGIN
SELECT @ErrorMostrar = 'Capture importe, versión, moneda y equivalencia del documento cuando corresponda.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF (@RutaXml IS NULL
AND @HashXml IS NOT NULL)
OR (@RutaXml IS NOT NULL
AND @HashXml IS NULL)
OR (@RutaPdf IS NULL
AND @HashPdf IS NOT NULL)
OR (@RutaPdf IS NOT NULL
AND @HashPdf IS NULL)
BEGIN
SELECT @ErrorMostrar = 'Los archivos deben incluir su huella de integridad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @MarcarTimbrado = 1
AND (@Uuid IS NULL
OR @RutaXml IS NULL
OR @RutaPdf IS NULL
OR ISNULL(@ImporteValidado, 0) = 0
OR @FechaTimbrado IS NULL)
BEGIN
SELECT @ErrorMostrar = 'Para marcar timbrado capture UUID, fecha, XML, PDF y valide el importe.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Uuid IS NOT NULL
AND (EXISTS (SELECT 1
FROM dbo.Fac_CfdiDocumentos
WHERE UuidExterno = @Uuid
AND (@CveCfdiDocumento IS NULL
OR CveCfdiDocumento <> @CveCfdiDocumento))
OR EXISTS (SELECT 1
FROM dbo.Fac_CfdiTimbrados
WHERE TRY_CONVERT (UNIQUEIDENTIFIER, Uuid) = @Uuid))
BEGIN
SELECT @ErrorMostrar = 'El UUID ya está registrado. Utilice el documento existente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @CveCfdiDocumento IS NOT NULL
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Fac_CfdiDocumentos
WHERE CveCfdiDocumento = @CveCfdiDocumento
AND OrigenRegistro = 'EXTERNO')
BEGIN
SELECT @ErrorMostrar = 'El documento no corresponde a una carga externa.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_PagosCfdi
WHERE CveCfdiDocumento = @CveCfdiDocumento)
BEGIN
SELECT @ErrorMostrar = 'El documento está vinculado a pagos. Sus metadatos validados deben conservarse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Fac_CfdiDocumentos
SET CveCliente = @CveCliente,
VersionCfdi = @VersionCfdi,
Moneda = @Moneda,
Total = @Total,
TipoCambio = CASE WHEN @Moneda = 'MXN' THEN 1 ELSE @TipoCambio END,
UuidExterno = @Uuid,
Serie = @Serie,
Folio = @Folio,
FechaEmision = @FechaEmision,
FechaTimbradoExterno = @FechaTimbrado,
RutaXmlExterno = @RutaXml,
HashXmlExterno = @HashXml,
RutaPdf = @RutaPdf,
HashPdf = @HashPdf,
ImporteValidado = @ImporteValidado,
CveUsuarioValida = CASE WHEN @ImporteValidado = 1 THEN @CveUsuarioEjecuta END,
FechaValidacion = CASE WHEN @ImporteValidado = 1 THEN SYSDATETIME() END,
Estado = CASE WHEN @MarcarTimbrado = 1 THEN 'TIMBRADO' ELSE 'BORRADOR' END,
FechaModificacion = SYSDATETIME()
WHERE CveCfdiDocumento = @CveCfdiDocumento;
END
ELSE
BEGIN
INSERT INTO dbo.Fac_CfdiDocumentos (CveEmpresa, TipoComprobante, Exportacion, LugarExpedicion, Subtotal, Descuento, TotalImpuestosTrasladados, TotalImpuestosRetenidos, RfcEmisor, NombreEmisor, RegimenFiscalEmisor, RfcReceptor, NombreReceptor, DomicilioFiscalReceptor, RegimenFiscalReceptor, UsoCfdi, XmlSinTimbrar, HashXmlSinTimbrar, IdentificadorDocumento, CveCliente, VersionCfdi, Moneda, Total, TipoCambio, UuidExterno, Serie, Folio, FechaEmision, FechaTimbradoExterno, RutaXmlExterno, HashXmlExterno, RutaPdf, HashPdf, ImporteValidado, CveUsuarioValida, FechaValidacion, Estado, OrigenRegistro, FechaAlta, CveUsuario)
VALUES (NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NEWID(), @CveCliente, @VersionCfdi, @Moneda, @Total, CASE WHEN @Moneda = 'MXN' THEN 1 ELSE @TipoCambio END, @Uuid, @Serie, @Folio, @FechaEmision, @FechaTimbrado, @RutaXml, @HashXml, @RutaPdf, @HashPdf, @ImporteValidado, CASE WHEN @ImporteValidado = 1 THEN @CveUsuarioEjecuta END, CASE WHEN @ImporteValidado = 1 THEN SYSDATETIME() END, CASE WHEN @MarcarTimbrado = 1 THEN 'TIMBRADO' ELSE 'BORRADOR' END, 'EXTERNO', SYSDATETIME(), @CveUsuarioEjecuta);
SET @CveCfdiDocumento = CONVERT (BIGINT, SCOPE_IDENTITY());
END
SELECT @CveCfdiDocumento AS CveCfdiDocumento;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Fac_CfdiExternoGuardar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoCfdiVincular
@CvePago INT,
@CveCfdiDocumento BIGINT,
@ImporteVinculadoMXN DECIMAL (19, 6),
@ImporteDocumentoValidado DECIMAL (19, 6),
@RutaPdf VARCHAR (500)=NULL,
@HashPdf BINARY (32)=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @ClientePago AS INT, @ClienteDocumento AS INT, @ImportePago AS DECIMAL (19, 6), @TotalDocumento AS DECIMAL (19, 6), @TotalDocumentoMXN AS DECIMAL (19, 6);
SELECT @ClientePago = CveCliente,
@ImportePago = ImporteMXN
FROM dbo.Tra_Pagos
WHERE CvePago = @CvePago
AND EsActivo = 1
AND Autorizado = 1;
SELECT @ClienteDocumento = D.CveCliente,
@TotalDocumento = D.Total,
@TotalDocumentoMXN = CONVERT (DECIMAL (19, 6), ROUND(D.Total * CASE WHEN D.Moneda = 'MXN' THEN 1 ELSE D.TipoCambio END, 6))
FROM dbo.Fac_CfdiDocumentos AS D
WHERE D.CveCfdiDocumento = @CveCfdiDocumento
AND D.Estado = 'TIMBRADO';
IF @ClientePago IS NULL
OR @ClienteDocumento IS NULL
OR @ClientePago <> @ClienteDocumento
BEGIN
SELECT @ErrorMostrar = 'Seleccione un pago recibido y un documento timbrado del mismo cliente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @ImporteDocumentoValidado IS NULL
OR @ImporteDocumentoValidado <> @TotalDocumento
OR @TotalDocumentoMXN IS NULL
OR @TotalDocumentoMXN <= 0
BEGIN
SELECT @ErrorMostrar = 'El importe capturado no coincide con el documento o falta su equivalencia a MXN.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF ISNULL(@ImporteVinculadoMXN, 0) <= 0
OR @ImporteVinculadoMXN + ISNULL((SELECT SUM(ImporteVinculadoMXN)
FROM dbo.Tra_PagosCfdi
WHERE CvePago = @CvePago), 0) > @ImportePago
OR @ImporteVinculadoMXN + ISNULL((SELECT SUM(ImporteVinculadoMXN)
FROM dbo.Tra_PagosCfdi
WHERE CveCfdiDocumento = @CveCfdiDocumento), 0) > @TotalDocumentoMXN
BEGIN
SELECT @ErrorMostrar = 'El importe a vincular excede el disponible en el pago o documento.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_PagosCfdi
WHERE CvePago = @CvePago
AND CveCfdiDocumento = @CveCfdiDocumento)
BEGIN
SELECT @ErrorMostrar = 'El documento ya está vinculado a este pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF (@RutaPdf IS NULL
AND @HashPdf IS NOT NULL)
OR (@RutaPdf IS NOT NULL
AND @HashPdf IS NULL)
BEGIN
SELECT @ErrorMostrar = 'El archivo PDF debe incluir su huella de integridad.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Fac_CfdiDocumentos
SET ImporteValidado = 1,
CveUsuarioValida = @CveUsuarioEjecuta,
FechaValidacion = SYSDATETIME(),
RutaPdf = COALESCE (@RutaPdf, RutaPdf),
HashPdf = COALESCE (@HashPdf, HashPdf),
FechaModificacion = SYSDATETIME()
WHERE CveCfdiDocumento = @CveCfdiDocumento;
INSERT INTO dbo.Tra_PagosCfdi (CvePago, CveCfdiDocumento, ImporteVinculadoMXN, CveUsuarioRegistro, FechaRegistro)
VALUES (@CvePago, @CveCfdiDocumento, @ImporteVinculadoMXN, @CveUsuarioEjecuta, SYSDATETIME());
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoCfdiVincular'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- El servicio valida el acceso del cliente y resuelve rutas dentro del almacén protegido.
CREATE OR ALTER PROCEDURE dbo.PA_Fac_CfdiArchivoObtener
@CveCfdiDocumento BIGINT,
@TipoArchivo VARCHAR (3),
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @TipoArchivo IS NULL
OR UPPER(@TipoArchivo) NOT IN ('XML', 'PDF')
BEGIN
SELECT @ErrorMostrar = 'Seleccione XML o PDF.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SELECT D.CveCfdiDocumento,
D.CveCliente,
D.OrigenRegistro,
CASE WHEN UPPER(@TipoArchivo) = 'PDF' THEN D.RutaPdf ELSE D.RutaXmlExterno END AS RutaProtegida,
CASE WHEN UPPER(@TipoArchivo) = 'XML'
AND D.OrigenRegistro = 'INTERNO' THEN T.XmlTimbrado END AS Contenido,
CASE WHEN UPPER(@TipoArchivo) = 'PDF' THEN D.HashPdf WHEN D.OrigenRegistro = 'EXTERNO' THEN D.HashXmlExterno ELSE T.HashXmlTimbrado END AS HuellaArchivo,
CASE WHEN UPPER(@TipoArchivo) = 'PDF' THEN 'application/pdf' ELSE 'application/xml' END AS TipoContenido
FROM dbo.Fac_CfdiDocumentos AS D
LEFT OUTER JOIN dbo.Fac_CfdiTimbrados AS T ON T.CveCfdiTimbrado = D.CveCfdiTimbradoVigente
AND T.Exitoso = 1
WHERE D.CveCfdiDocumento = @CveCfdiDocumento;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Fac_CfdiArchivoObtener'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Adaptación de objetos existentes; conservar sus nombres para los repositorios.
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoDelete
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago)
BEGIN
SELECT @ErrorMostrar = 'El pago tiene conceptos registrados. Elimine primero sus conceptos.',
@ErrorTipo = 2;
RETURN;
END
DELETE dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @CveTramitePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al eliminar el pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoDelete'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoDetalleDelete
@CveTramitePagoDetalle INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveTramitePago AS INT;
SELECT @CveTramitePago = CveTramitePago
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle;
DELETE dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle;
UPDATE dbo.Tra_TiposTramitePagos
SET Importe = ISNULL((SELECT SUM(Importe)
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago), 0),
FechaModificacion = SYSDATETIME(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePago = @CveTramitePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoDetalleDelete'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoDetalleGet
@CveTramitePagoDetalle INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT D.CveTramitePagoDetalle,
D.CveTramitePago,
P.Nombre AS Pago,
D.CvePS,
PS.Codigo,
PS.PS,
D.CveUM,
UM.UnidadMedida,
UM.Abreviatura,
D.Cantidad,
D.CveUnidadCobro,
D.Descripcion,
D.PrecioUnitario,
D.Importe AS ImporteFinal,
CONVERT (DECIMAL (18, 2), PS.Precio) AS PrecioProducto,
CONVERT (DECIMAL (18, 2), COALESCE (Costo.Importe, PS.Precio)) AS Importe,
COALESCE (Costo.CveObjetoImpuesto, PS.CveObjetoImpuesto) AS CveObjetoImpuesto,
OI.CodigoObjetoImpuesto,
OI.CodigoObjetoImpuesto COLLATE Modern_Spanish_CS_AS + ' - ' + OI.ObjetoImpuesto AS ObjetoImpuesto,
CONVERT (DECIMAL (9, 6), COALESCE (ImpuestoIVA.TasaOCuota, CASE WHEN PS.CveObjetoImpuesto = 1 THEN 0 WHEN PS.IVA IS NULL
OR PS.IVA = -1 THEN 0.16 ELSE PS.IVA END)) AS PorcentajeIVA,
Costo.FechaInicioVigencia,
Costo.FechaFinVigencia,
CONVERT (DECIMAL (18, 2), ROUND(D.Cantidad * COALESCE (Costo.Importe, PS.Precio) * COALESCE (ImpuestoIVA.TasaOCuota, 0), 2)) AS ImporteIVA,
D.Importe AS Total
FROM dbo.Tra_TiposTramitePagosDetalle AS D
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = D.CveTramitePago
INNER JOIN dbo.ProductosServicios AS PS ON PS.CvePS = D.CvePS
LEFT OUTER JOIN dbo.UnidadesMedida AS UM ON UM.CveUnidadMedida = D.CveUM OUTER APPLY (SELECT TOP (1) CT.CveCostoTramite,
CT.Importe,
CT.CveObjetoImpuesto,
CT.FechaInicioVigencia,
CT.FechaFinVigencia
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = P.CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, GETDATE()))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, GETDATE()))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC) AS Costo OUTER APPLY (SELECT TOP (1) CTI.TasaOCuota
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = Costo.CveCostoTramite
AND CTI.EsRetencion = 0
AND CTI.Impuesto = '002'
AND CTI.TipoFactor = 'Tasa') AS ImpuestoIVA
INNER JOIN dbo.Gral_SAT_ObjetoImpuesto AS OI ON OI.CveObjetoImpuesto = COALESCE (Costo.CveObjetoImpuesto, PS.CveObjetoImpuesto)
WHERE D.CveTramitePagoDetalle = @CveTramitePagoDetalle;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al consultar el concepto del pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoDetalleGet'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoDetalleList
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT D.CveTramitePagoDetalle,
D.CveTramitePago,
P.Nombre AS Pago,
D.CvePS,
PS.Codigo,
PS.PS,
D.CveUM,
UM.UnidadMedida,
UM.Abreviatura,
D.Cantidad,
D.CveUnidadCobro,
D.Descripcion,
D.PrecioUnitario,
D.Importe AS ImporteFinal,
CONVERT (DECIMAL (18, 2), PS.Precio) AS PrecioProducto,
CONVERT (DECIMAL (18, 2), COALESCE (Costo.Importe, PS.Precio)) AS Importe,
COALESCE (Costo.CveObjetoImpuesto, PS.CveObjetoImpuesto) AS CveObjetoImpuesto,
OI.CodigoObjetoImpuesto,
OI.CodigoObjetoImpuesto COLLATE Modern_Spanish_CS_AS + ' - ' + OI.ObjetoImpuesto AS ObjetoImpuesto,
CONVERT (DECIMAL (9, 6), COALESCE (ImpuestoIVA.TasaOCuota, CASE WHEN PS.CveObjetoImpuesto = 1 THEN 0 WHEN PS.IVA IS NULL
OR PS.IVA = -1 THEN 0.16 ELSE PS.IVA END)) AS PorcentajeIVA,
Costo.FechaInicioVigencia,
Costo.FechaFinVigencia,
CONVERT (DECIMAL (18, 2), ROUND(D.Cantidad * COALESCE (Costo.Importe, PS.Precio) * COALESCE (ImpuestoIVA.TasaOCuota, 0), 2)) AS ImporteIVA,
D.Importe AS Total
FROM dbo.Tra_TiposTramitePagosDetalle AS D
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = D.CveTramitePago
INNER JOIN dbo.ProductosServicios AS PS ON PS.CvePS = D.CvePS
LEFT OUTER JOIN dbo.UnidadesMedida AS UM ON UM.CveUnidadMedida = D.CveUM OUTER APPLY (SELECT TOP (1) CT.CveCostoTramite,
CT.Importe,
CT.CveObjetoImpuesto,
CT.FechaInicioVigencia,
CT.FechaFinVigencia
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = P.CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, GETDATE()))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, GETDATE()))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC) AS Costo OUTER APPLY (SELECT TOP (1) CTI.TasaOCuota
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = Costo.CveCostoTramite
AND CTI.EsRetencion = 0
AND CTI.Impuesto = '002'
AND CTI.TipoFactor = 'Tasa') AS ImpuestoIVA
INNER JOIN dbo.Gral_SAT_ObjetoImpuesto AS OI ON OI.CveObjetoImpuesto = COALESCE (Costo.CveObjetoImpuesto, PS.CveObjetoImpuesto)
WHERE D.CveTramitePago = @CveTramitePago
ORDER BY D.CveTramitePagoDetalle;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al consultar los conceptos del pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoDetalleList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Compatibilidad con captura anterior de precio neto e impuestos.
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoDetalleSave
@CveTramitePagoDetalle INT=NULL,
@CveTramitePago INT,
@CvePS INT,
@CveUM INT,
@Cantidad DECIMAL (18, 4),
@Importe DECIMAL (18, 2)=NULL,
@CveObjetoImpuesto TINYINT,
@PorcentajeIVA DECIMAL (9, 6),
@FechaInicioVigencia DATE=NULL,
@PrecioUnitarioFinal DECIMAL (19, 6)=NULL,
@DescripcionFinal VARCHAR (1000)=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @UnidadPlantilla AS INT;
SELECT @UnidadPlantilla = CveUnidadCobro
FROM dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @CveTramitePago;
IF @PrecioUnitarioFinal IS NOT NULL
BEGIN
IF @Cantidad IS NULL
OR @Cantidad <= 0
OR @PrecioUnitarioFinal < 0
OR @UnidadPlantilla IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture cantidad, precio final y plantilla válidos.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @DescripcionFinal = COALESCE (NULLIF (LTRIM(RTRIM(@DescripcionFinal)), ''), (SELECT PS
FROM dbo.ProductosServicios
WHERE CvePS = @CvePS));
SET @CveTramitePagoDetalle = NULLIF (@CveTramitePagoDetalle, 0);
IF @CveTramitePagoDetalle IS NULL
BEGIN
INSERT INTO dbo.Tra_TiposTramitePagosDetalle (CveTramitePago, CvePS, CveUM, Cantidad, FechaAlta, CveUsuario, Descripcion, PrecioUnitario, CveUnidadCobro, Importe)
VALUES (@CveTramitePago, @CvePS, @CveUM, @Cantidad, SYSDATETIME(), @CveUsuarioEjecuta, @DescripcionFinal, @PrecioUnitarioFinal, @UnidadPlantilla, ROUND(@Cantidad * @PrecioUnitarioFinal, 6));
SET @CveTramitePagoDetalle = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle
AND CveTramitePago = @CveTramitePago)
BEGIN
SELECT @ErrorMostrar = 'No se encontró el concepto en la plantilla.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Tra_TiposTramitePagosDetalle
SET CvePS = @CvePS,
CveUM = @CveUM,
Cantidad = @Cantidad,
Descripcion = @DescripcionFinal,
PrecioUnitario = @PrecioUnitarioFinal,
Importe = ROUND(@Cantidad * @PrecioUnitarioFinal, 6),
FechaModificacion = SYSDATETIME(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle;
END
UPDATE dbo.Tra_TiposTramitePagos
SET Importe = (SELECT SUM(Importe)
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago),
FechaModificacion = SYSDATETIME(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePago = @CveTramitePago;
SELECT @CveTramitePagoDetalle AS CveTramitePagoDetalle;
SET @Return = 1;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @UnidadPlantilla
AND Codigo = 'MXN')
BEGIN
SELECT @ErrorMostrar = 'Para esta unidad capture el precio final de la plantilla.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveTipoTramite AS INT, @CveMoneda AS INT, @Descripcion AS VARCHAR (300), @PrecioProducto AS DECIMAL (18, 2), @CveCostoVigente AS INT, @CveCostoObjetivo AS INT, @FechaInicioVigente AS DATE, @ImporteVigente AS DECIMAL (18, 2), @CveObjetoImpuestoVigente AS TINYINT, @PorcentajeIVAVigente AS DECIMAL (9, 6);
SELECT @CveTipoTramite = P.CveTipoTramite
FROM dbo.Tra_TiposTramitePagos AS P
WHERE P.CveTramitePago = @CveTramitePago;
SELECT @PrecioProducto = CONVERT (DECIMAL (18, 2), PS.Precio),
@Descripcion = LEFT(PS.PS, 300)
FROM dbo.ProductosServicios AS PS
WHERE PS.CvePS = @CvePS
AND PS.Estado = 1;
SELECT TOP (1) @CveMoneda = M.CveMoneda
FROM dbo.Gral_Monedas AS M
WHERE M.AbreviaturaSAT = 'MXN'
ORDER BY M.CveMoneda;
SET @Importe = ISNULL(@Importe, @PrecioProducto);
SET @FechaInicioVigencia = ISNULL(@FechaInicioVigencia, CONVERT (DATE, GETDATE()));
IF @CveTipoTramite IS NULL
OR @PrecioProducto IS NULL
OR @CveMoneda IS NULL
BEGIN
SELECT @ErrorMostrar = 'El pago, producto o moneda seleccionados no están disponibles.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.UnidadesMedida
WHERE CveUnidadMedida = @CveUM
AND Estado = 1)
BEGIN
SELECT @ErrorMostrar = 'Seleccione una unidad de medida vigente.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_SAT_ObjetoImpuesto
WHERE CveObjetoImpuesto = @CveObjetoImpuesto)
BEGIN
SELECT @ErrorMostrar = 'Seleccione un objeto de impuesto válido.',
@ErrorTipo = 2;
RETURN;
END
IF @Cantidad <= 0
OR @Importe < 0
OR @PorcentajeIVA < 0
OR @PorcentajeIVA > 1
BEGIN
SELECT @ErrorMostrar = 'Capture cantidad, importe y porcentaje de IVA válidos.',
@ErrorTipo = 2;
RETURN;
END
IF @CveObjetoImpuesto = 1
SET @PorcentajeIVA = 0;
SET @CveTramitePagoDetalle = NULLIF (@CveTramitePagoDetalle, 0);
IF @CveTramitePagoDetalle IS NULL
BEGIN
INSERT dbo.Tra_TiposTramitePagosDetalle (CveTramitePago, CvePS, CveUM, Cantidad, FechaAlta, CveUsuario, Descripcion, PrecioUnitario, CveUnidadCobro, Importe)
VALUES (@CveTramitePago, @CvePS, @CveUM, @Cantidad, GETDATE(), @CveUsuarioEjecuta, @Descripcion, @Importe, @UnidadPlantilla, ROUND(@Cantidad * @Importe, 6));
SET @CveTramitePagoDetalle = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle
AND CveTramitePago = @CveTramitePago)
BEGIN
SELECT @ErrorMostrar = 'El concepto de pago seleccionado no existe.',
@ErrorTipo = 2;
RETURN;
END
UPDATE dbo.Tra_TiposTramitePagosDetalle
SET CvePS = @CvePS,
CveUM = @CveUM,
Cantidad = @Cantidad,
FechaModificacion = GETDATE(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle;
END
SELECT TOP (1) @CveCostoVigente = CT.CveCostoTramite,
@FechaInicioVigente = CT.FechaInicioVigencia,
@ImporteVigente = CT.Importe,
@CveObjetoImpuestoVigente = CT.CveObjetoImpuesto,
@PorcentajeIVAVigente = IVA.TasaOCuota
FROM dbo.Tra_CostosTramite AS CT OUTER APPLY (SELECT TOP (1) CTI.TasaOCuota
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = CT.CveCostoTramite
AND CTI.EsRetencion = 0
AND CTI.Impuesto = '002'
AND CTI.TipoFactor = 'Tasa') AS IVA
WHERE CT.CveTipoTramite = @CveTipoTramite
AND CT.CvePS = @CvePS
AND CT.EsActivo = 1
AND CT.FechaFinVigencia IS NULL
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC;
IF @CveCostoVigente IS NULL
BEGIN
INSERT dbo.Tra_CostosTramite (CveTipoTramite, CvePS, CveMoneda, Descripcion, Importe, CveObjetoImpuesto, FechaInicioVigencia, FechaFinVigencia, EsActivo, CveUsuario)
VALUES (@CveTipoTramite, @CvePS, @CveMoneda, @Descripcion, @Importe, @CveObjetoImpuesto, @FechaInicioVigencia, NULL, 1, @CveUsuarioEjecuta);
SET @CveCostoObjetivo = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
IF @FechaInicioVigente IS NOT NULL
AND @FechaInicioVigencia < @FechaInicioVigente
BEGIN
SELECT @ErrorMostrar = 'La nueva vigencia no puede iniciar antes de la vigencia actual.',
@ErrorTipo = 2;
RETURN;
END
ELSE
IF @FechaInicioVigente = @FechaInicioVigencia
BEGIN
UPDATE dbo.Tra_CostosTramite
SET CveMoneda = @CveMoneda,
Descripcion = @Descripcion,
Importe = @Importe,
CveObjetoImpuesto = @CveObjetoImpuesto,
FechaInicioVigencia = @FechaInicioVigencia,
FechaModificacion = GETDATE(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveCostoTramite = @CveCostoVigente;
SET @CveCostoObjetivo = @CveCostoVigente;
END
ELSE
IF @ImporteVigente <> @Importe
OR @CveObjetoImpuestoVigente <> @CveObjetoImpuesto
OR ISNULL(@PorcentajeIVAVigente, 0) <> @PorcentajeIVA
BEGIN
UPDATE dbo.Tra_CostosTramite
SET FechaFinVigencia = DATEADD(day, -1, @FechaInicioVigencia),
FechaModificacion = GETDATE(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveCostoTramite = @CveCostoVigente;
INSERT dbo.Tra_CostosTramite (CveTipoTramite, CvePS, CveMoneda, Descripcion, Importe, CveObjetoImpuesto, FechaInicioVigencia, FechaFinVigencia, EsActivo, CveUsuario)
VALUES (@CveTipoTramite, @CvePS, @CveMoneda, @Descripcion, @Importe, @CveObjetoImpuesto, @FechaInicioVigencia, NULL, 1, @CveUsuarioEjecuta);
SET @CveCostoObjetivo = CONVERT (INT, SCOPE_IDENTITY());
INSERT dbo.Tra_CostosTramiteImpuestos (CveCostoTramite, EsRetencion, Impuesto, TipoFactor, TasaOCuota, FechaAlta, CveUsuario)
SELECT @CveCostoObjetivo,
CTI.EsRetencion,
CTI.Impuesto,
CTI.TipoFactor,
CTI.TasaOCuota,
GETDATE(),
@CveUsuarioEjecuta
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = @CveCostoVigente
AND NOT (CTI.EsRetencion = 0
AND CTI.Impuesto = '002');
END
ELSE
BEGIN
SET @CveCostoObjetivo = @CveCostoVigente;
END
DELETE dbo.Tra_CostosTramiteImpuestos
WHERE CveCostoTramite = @CveCostoObjetivo
AND EsRetencion = 0
AND Impuesto = '002';
IF @CveObjetoImpuesto <> 1
AND @PorcentajeIVA > 0
BEGIN
INSERT dbo.Tra_CostosTramiteImpuestos (CveCostoTramite, EsRetencion, Impuesto, TipoFactor, TasaOCuota, FechaAlta, CveUsuario)
VALUES (@CveCostoObjetivo, 0, '002', 'Tasa', @PorcentajeIVA, GETDATE(), @CveUsuarioEjecuta);
END
UPDATE D
SET Descripcion = @Descripcion,
Importe = ROUND(@Cantidad * @Importe, 2) + ISNULL((SELECT SUM(CASE WHEN I.EsRetencion = 1 THEN -1 ELSE 1 END * CASE WHEN I.TipoFactor = 'Exento' THEN 0 WHEN I.TipoFactor = 'Cuota' THEN ROUND(@Cantidad * I.TasaOCuota, 2) ELSE ROUND(@Cantidad * @Importe * I.TasaOCuota, 2) END)
FROM dbo.Tra_CostosTramiteImpuestos AS I
WHERE I.CveCostoTramite = @CveCostoObjetivo), 0),
CveUnidadCobro = @UnidadPlantilla
FROM dbo.Tra_TiposTramitePagosDetalle AS D
WHERE D.CveTramitePagoDetalle = @CveTramitePagoDetalle;
UPDATE dbo.Tra_TiposTramitePagosDetalle
SET PrecioUnitario = ROUND(Importe / Cantidad, 6)
WHERE CveTramitePagoDetalle = @CveTramitePagoDetalle;
UPDATE dbo.Tra_TiposTramitePagos
SET Importe = (SELECT SUM(Importe)
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago),
FechaModificacion = SYSDATETIME(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePago = @CveTramitePago;
SELECT @CveTramitePagoDetalle AS CveTramitePagoDetalle;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al guardar el concepto del pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoDetalleSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoGet
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT P.CveTramitePago,
P.CveTipoTramite,
T.TipoTramite,
P.Nombre,
P.Notas,
P.EsRequerido,
P.Orden,
P.EsActivo,
P.CveUnidadCobro,
U.Codigo AS UnidadCobro,
P.Importe AS Total,
(SELECT COUNT(*)
FROM dbo.Tra_TiposTramitePagosDetalle AS D
WHERE D.CveTramitePago = P.CveTramitePago) AS NumeroConceptos
FROM dbo.Tra_TiposTramitePagos AS P
INNER JOIN dbo.Tra_TiposTramite AS T ON T.CveTipoTramite = P.CveTipoTramite
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = P.CveUnidadCobro
WHERE P.CveTramitePago = @CveTramitePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoGet'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoList
@CveTipoTramite INT,
@IncluirInactivos BIT=1,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
SELECT P.CveTramitePago,
P.CveTipoTramite,
T.TipoTramite,
P.Nombre,
P.Notas,
P.EsRequerido,
P.Orden,
P.EsActivo,
P.CveUnidadCobro,
U.Codigo AS UnidadCobro,
P.Importe AS Total,
(SELECT COUNT(*)
FROM dbo.Tra_TiposTramitePagosDetalle AS D
WHERE D.CveTramitePago = P.CveTramitePago) AS NumeroConceptos
FROM dbo.Tra_TiposTramitePagos AS P
INNER JOIN dbo.Tra_TiposTramite AS T ON T.CveTipoTramite = P.CveTipoTramite
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = P.CveUnidadCobro
WHERE P.CveTipoTramite = @CveTipoTramite
AND (@IncluirInactivos = 1
OR P.EsActivo = 1)
ORDER BY P.Orden, P.CveTramitePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_PagoSave
@CveTramitePago INT=NULL,
@CveTipoTramite INT,
@Nombre VARCHAR (200),
@Notas VARCHAR (1000)=NULL,
@EsRequerido BIT,
@EsActivo BIT,
@CveUnidadCobro INT=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SET @CveTramitePago = NULLIF (@CveTramitePago, 0);
IF @CveUnidadCobro IS NULL
AND @CveTramitePago IS NOT NULL
SELECT @CveUnidadCobro = CveUnidadCobro
FROM dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @CveTramitePago;
IF @CveUnidadCobro IS NULL
SELECT @CveUnidadCobro = CveUnidadCobro
FROM dbo.Gral_UnidadesCobro
WHERE Codigo = 'MXN';
IF NOT EXISTS (SELECT 1
FROM dbo.Gral_UnidadesCobro
WHERE CveUnidadCobro = @CveUnidadCobro
AND Activo = 1)
BEGIN
SELECT @ErrorMostrar = 'Seleccione una unidad de cobro disponible.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago
AND CveUnidadCobro <> @CveUnidadCobro)
BEGIN
SELECT @ErrorMostrar = 'La plantilla tiene productos; conserve su unidad de cobro.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SELECT @Nombre = LTRIM(RTRIM(@Nombre)),
@Notas = NULLIF (LTRIM(RTRIM(@Notas)), '');
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramite
WHERE CveTipoTramite = @CveTipoTramite)
BEGIN
SELECT @ErrorMostrar = 'Seleccione un tipo de trámite válido.',
@ErrorTipo = 2;
RETURN;
END
IF NULLIF (@Nombre, '') IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture el nombre del pago.',
@ErrorTipo = 2;
RETURN;
END
IF @CveTramitePago IS NULL
BEGIN
DECLARE @Orden AS INT = ISNULL((SELECT MAX(Orden)
FROM dbo.Tra_TiposTramitePagos
WHERE CveTipoTramite = @CveTipoTramite), 0) + 1;
INSERT dbo.Tra_TiposTramitePagos (CveTipoTramite, Nombre, Notas, EsRequerido, Orden, EsActivo, CveUsuario, CveUnidadCobro, Importe)
VALUES (@CveTipoTramite, @Nombre, @Notas, @EsRequerido, @Orden, @EsActivo, @CveUsuarioEjecuta, @CveUnidadCobro, 0);
SET @CveTramitePago = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagos
WHERE CveTramitePago = @CveTramitePago
AND CveTipoTramite = @CveTipoTramite)
BEGIN
SELECT @ErrorMostrar = 'El pago seleccionado no pertenece al tipo de trámite.',
@ErrorTipo = 2;
RETURN;
END
UPDATE dbo.Tra_TiposTramitePagos
SET Nombre = @Nombre,
CveUnidadCobro = @CveUnidadCobro,
Notas = @Notas,
EsRequerido = @EsRequerido,
EsActivo = @EsActivo,
FechaModificacion = GETDATE(),
CveUsuario = @CveUsuarioEjecuta
WHERE CveTramitePago = @CveTramitePago;
END
SELECT @CveTramitePago AS CveTramitePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al guardar el pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_PagoSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_FraccionamientoPagoPendienteList
@CveFraccionamiento INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
WITH Aplicaciones
AS (SELECT A.CveSolicitudPago,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPago),
Traslados
AS (SELECT O.CveSolicitudPagoOrigen,
SUM(O.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY O.CveSolicitudPagoOrigen),
Saldos
AS (SELECT S.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
S.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPago AS S
LEFT OUTER JOIN Aplicaciones AS A ON A.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoOrigen = S.CveSolicitudPago)
SELECT S.CveSolicitudPago,
S.CveSolicitud,
S.CveTramitePago,
S.CveVenta,
CONVERT (BIT, CASE WHEN S.CveVenta IS NOT NULL THEN 1 ELSE 0 END) AS VentaGenerada,
T.Folio AS FolioSolicitud,
E.Etapa,
TT.TipoTramite,
S.Descripcion AS NombrePago,
(SELECT COUNT(*)
FROM dbo.Tra_SolicitudesPagoDetalle AS D
WHERE D.CveSolicitudPago = S.CveSolicitudPago) AS NumeroConceptos,
CONVERT (DECIMAL (19, 6), V.SubTotal) AS SubTotal,
CONVERT (DECIMAL (19, 6), V.IVA) AS IVA,
S.Importe AS Total,
S.ImporteAbonado,
S.ImporteConvenido,
S.SaldoPendiente,
S.CveUnidadCobro,
U.Codigo AS UnidadCobro
FROM Saldos AS S
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = S.CveUnidadCobro
LEFT OUTER JOIN dbo.Tra_Solicitudes AS T ON T.CveSolicitud = S.CveSolicitud
LEFT OUTER JOIN dbo.FraccionamientosEtapas AS E ON E.CveFraccionamientoEtapa = S.CveFraccionamientoEtapa
LEFT OUTER JOIN dbo.Tra_TiposTramite AS TT ON TT.CveTipoTramite = S.CveTipoTramite
LEFT OUTER JOIN dbo.Ventas AS V ON V.CveVenta = S.CveVenta
WHERE S.CveFraccionamiento = @CveFraccionamiento
AND S.EstadoAdministrativo = 'ACTIVO'
AND S.SaldoPendiente > 0
ORDER BY E.Orden, S.CveSolicitudPago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_FraccionamientoPagoPendienteList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_FraccionamientoPagoRealizadoList
@CveFraccionamiento INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
WITH Aplicaciones
AS (SELECT CvePago,
CveSolicitudPago,
SUM(ImporteAplicado) AS ImporteAplicado,
SUM(ImporteAplicadoMXN) AS ImporteAplicadoMXN
FROM dbo.Tra_PagosAplicaciones
GROUP BY CvePago, CveSolicitudPago)
SELECT S.CveSolicitudPago,
S.CveSolicitud,
S.CveTramitePago,
S.CveVenta,
P.CvePago,
V.SerieFolio,
V.Fecha,
P.FechaPago,
P.Referencia,
T.Folio AS FolioSolicitud,
E.Etapa,
TT.TipoTramite,
S.Descripcion AS NombrePago,
CONVERT (DECIMAL (19, 6), NULL) AS SubTotal,
CONVERT (DECIMAL (19, 6), NULL) AS IVA,
A.ImporteAplicado AS Total,
A.ImporteAplicadoMXN,
S.CveUnidadCobro,
U.Codigo AS UnidadCobro
FROM Aplicaciones AS A
INNER JOIN dbo.Tra_SolicitudesPago AS S ON S.CveSolicitudPago = A.CveSolicitudPago
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = S.CveUnidadCobro
LEFT OUTER JOIN dbo.Tra_Solicitudes AS T ON T.CveSolicitud = S.CveSolicitud
LEFT OUTER JOIN dbo.FraccionamientosEtapas AS E ON E.CveFraccionamientoEtapa = S.CveFraccionamientoEtapa
LEFT OUTER JOIN dbo.Tra_TiposTramite AS TT ON TT.CveTipoTramite = S.CveTipoTramite
LEFT OUTER JOIN dbo.Ventas AS V ON V.CveVenta = S.CveVenta
WHERE S.CveFraccionamiento = @CveFraccionamiento
AND P.EsActivo = 1
AND P.Autorizado = 1
ORDER BY P.FechaPago DESC, P.CvePago DESC, S.CveSolicitudPago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_FraccionamientoPagoRealizadoList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteConceptoDelete
@CveSolicitud INT,
@CveTramitePago INT,
@CveVentaDetalle INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveVenta AS INT;
SELECT @CveVenta = V.CveVenta
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NULL
BEGIN
SELECT @ErrorMostrar = 'Primero debe generar la venta del trámite.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Ventas
WHERE CveVenta = @CveVenta
AND SeTimbro = 1)
BEGIN
SELECT @ErrorMostrar = 'No se pueden modificar los conceptos de una venta timbrada.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.VentasDetalle
WHERE CveVentaDetalle = @CveVentaDetalle
AND CveVenta = @CveVenta)
BEGIN
SELECT @ErrorMostrar = 'El concepto seleccionado no pertenece a la venta.',
@ErrorTipo = 2;
RETURN;
END
IF (SELECT COUNT(*)
FROM dbo.VentasDetalle
WHERE CveVenta = @CveVenta) <= 1
BEGIN
SELECT @ErrorMostrar = 'La venta debe conservar al menos un concepto.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoDetalle
WHERE CveVentaDetalleOrigen = @CveVentaDetalle)
BEGIN
SELECT @ErrorMostrar = 'El concepto forma parte del origen histórico de una obligación y debe conservarse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DELETE dbo.VentasDetalleImpuestos
WHERE CveVentaDetalle = @CveVentaDetalle;
DELETE dbo.VentasDetalle
WHERE CveVentaDetalle = @CveVentaDetalle
AND CveVenta = @CveVenta;
EXECUTE dbo.PA_Vta_TramiteVentaTotalesUpdate @CveVenta = @CveVenta, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al eliminar el concepto de la venta; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteConceptoDelete'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteConceptoList
@CveSolicitud INT,
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @CveVenta AS INT;
DECLARE @PorcentajeIVA AS DECIMAL (9, 6) = 0.16;
SELECT @CveVenta = SP.CveVenta
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NOT NULL
BEGIN
SELECT VD.CveVentaDetalle,
CONVERT (INT, 0) AS CveTramitePagoDetalle,
VD.CvePS,
UM.CveUnidadMedida AS CveUM,
CASE WHEN NULLIF (LTRIM(RTRIM(UM.Abreviatura)), '') IS NULL THEN UM.UnidadMedida COLLATE DATABASE_DEFAULT ELSE UM.UnidadMedida COLLATE DATABASE_DEFAULT + ' (' + UM.Abreviatura COLLATE DATABASE_DEFAULT + ')' END AS UnidadMedida,
C.CveClasificacion,
CASE WHEN NULLIF (LTRIM(RTRIM(C.Codigo)), '') IS NULL THEN C.Clasificacion COLLATE DATABASE_DEFAULT ELSE C.Codigo COLLATE DATABASE_DEFAULT + ' - ' + C.Clasificacion COLLATE DATABASE_DEFAULT END AS Clasificacion,
CASE WHEN NULLIF (LTRIM(RTRIM(PS.Codigo)), '') IS NULL THEN PS.PS COLLATE DATABASE_DEFAULT ELSE PS.Codigo COLLATE DATABASE_DEFAULT + ' - ' + PS.PS COLLATE DATABASE_DEFAULT END AS ProductoServicio,
VD.Cantidad,
VD.PrecioUnitario,
VD.Descuento,
VD.IVA,
VD.Importe
FROM dbo.VentasDetalle AS VD
INNER JOIN dbo.ProductosServicios AS PS ON PS.CvePS = VD.CvePS
INNER JOIN dbo.UnidadesMedida AS UM ON UM.CveUnidadMedida = PS.CveUnidadMedida
INNER JOIN dbo.Clasificaciones AS C ON C.CveClasificacion = PS.CveClasificacion
WHERE VD.CveVenta = @CveVenta
ORDER BY VD.CveVentaDetalle;
END
ELSE
BEGIN
SELECT CONVERT (INT, 0) AS CveVentaDetalle,
D.CveTramitePagoDetalle,
D.CvePS,
D.CveUM,
CASE WHEN NULLIF (LTRIM(RTRIM(UM.Abreviatura)), '') IS NULL THEN UM.UnidadMedida COLLATE DATABASE_DEFAULT ELSE UM.UnidadMedida COLLATE DATABASE_DEFAULT + ' (' + UM.Abreviatura COLLATE DATABASE_DEFAULT + ')' END AS UnidadMedida,
C.CveClasificacion,
CASE WHEN NULLIF (LTRIM(RTRIM(C.Codigo)), '') IS NULL THEN C.Clasificacion COLLATE DATABASE_DEFAULT ELSE C.Codigo COLLATE DATABASE_DEFAULT + ' - ' + C.Clasificacion COLLATE DATABASE_DEFAULT END AS Clasificacion,
CASE WHEN NULLIF (LTRIM(RTRIM(PS.Codigo)), '') IS NULL THEN PS.PS COLLATE DATABASE_DEFAULT ELSE PS.Codigo COLLATE DATABASE_DEFAULT + ' - ' + PS.PS COLLATE DATABASE_DEFAULT END AS ProductoServicio,
CONVERT (DECIMAL (18, 4), 1) AS Cantidad,
CONVERT (DECIMAL (18, 2), Costo.Importe) AS PrecioUnitario,
CONVERT (DECIMAL (18, 2), 0) AS Descuento,
CONVERT (DECIMAL (18, 2), ROUND(Costo.Importe * @PorcentajeIVA, 2)) AS IVA,
CONVERT (DECIMAL (18, 2), ROUND(Costo.Importe, 2)) AS Importe
FROM dbo.Tra_Solicitudes AS S
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = @CveTramitePago
AND P.CveTipoTramite = S.CveTipoTramite
AND P.EsActivo = 1
INNER JOIN dbo.Tra_TiposTramitePagosDetalle AS D ON D.CveTramitePago = P.CveTramitePago
INNER JOIN dbo.ProductosServicios AS PS ON PS.CvePS = D.CvePS CROSS APPLY (SELECT TOP (1) CT.Importe
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = S.CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, GETDATE()))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, GETDATE()))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC) AS Costo
INNER JOIN dbo.UnidadesMedida AS UM ON UM.CveUnidadMedida = D.CveUM
INNER JOIN dbo.Clasificaciones AS C ON C.CveClasificacion = PS.CveClasificacion
WHERE S.CveSolicitud = @CveSolicitud
ORDER BY D.CveTramitePagoDetalle;
END
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al consultar los conceptos de la venta; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteConceptoList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteConceptoSave
@CveSolicitud INT,
@CveTramitePago INT,
@CveVentaDetalle INT=NULL,
@CvePS INT,
@Cantidad DECIMAL (18, 4),
@PrecioUnitario DECIMAL (18, 2),
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveVenta AS INT, @CveTipoTramite AS INT, @CveCostoTramite AS INT, @CveObjetoImpuesto AS TINYINT, @Descuento AS DECIMAL (18, 2) = 0, @IVA AS DECIMAL (18, 2), @Importe AS DECIMAL (18, 2), @Fecha AS DATETIME = GETDATE();
SELECT @CveVenta = V.CveVenta,
@CveTipoTramite = S.CveTipoTramite
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
INNER JOIN dbo.Tra_Solicitudes AS S ON S.CveSolicitud = SP.CveSolicitud
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NULL
BEGIN
SELECT @ErrorMostrar = 'Primero debe generar la venta del trámite.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Ventas
WHERE CveVenta = @CveVenta
AND SeTimbro = 1)
BEGIN
SELECT @ErrorMostrar = 'No se pueden modificar los conceptos de una venta timbrada.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.ProductosServicios
WHERE CvePS = @CvePS
AND Estado = 1)
OR @Cantidad <= 0
OR @PrecioUnitario < 0
BEGIN
SELECT @ErrorMostrar = 'Capture un producto activo, cantidad y precio unitario válidos.',
@ErrorTipo = 2;
RETURN;
END
SELECT TOP (1) @CveCostoTramite = CT.CveCostoTramite,
@CveObjetoImpuesto = CT.CveObjetoImpuesto
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = @CveTipoTramite
AND CT.CvePS = @CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, @Fecha))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, @Fecha))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC;
IF @CveCostoTramite IS NULL
BEGIN
SELECT @ErrorMostrar = 'El producto seleccionado no tiene un costo vigente para este trámite.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Gral_SAT_ObjetoImpuesto
WHERE CveObjetoImpuesto = @CveObjetoImpuesto
AND CodigoObjetoImpuesto = '02')
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_CostosTramiteImpuestos
WHERE CveCostoTramite = @CveCostoTramite)
BEGIN
SELECT @ErrorMostrar = 'El costo es objeto de impuesto y no tiene impuestos configurados.',
@ErrorTipo = 2;
RETURN;
END
IF @CveVentaDetalle IS NOT NULL
BEGIN
SELECT @Descuento = Descuento
FROM dbo.VentasDetalle
WHERE CveVentaDetalle = @CveVentaDetalle
AND CveVenta = @CveVenta;
END
SET @Importe = CONVERT (DECIMAL (18, 2), ROUND(@Cantidad * @PrecioUnitario, 2));
IF @Descuento > @Importe
BEGIN
SELECT @ErrorMostrar = 'El descuento del concepto no puede ser mayor que su importe.',
@ErrorTipo = 2;
RETURN;
END
IF @CveVentaDetalle IS NULL
BEGIN
INSERT dbo.VentasDetalle (CveVenta, CvePS, CveSolicitud, CveCostoTramite, Cantidad, PrecioUnitario, Descuento, IVA, Importe, CveObjetoImpuesto, EsFondoInicial, FechaAlta, CveUsuario)
VALUES (@CveVenta, @CvePS, @CveSolicitud, @CveCostoTramite, @Cantidad, @PrecioUnitario, 0, 0, @Importe, @CveObjetoImpuesto, 0, @Fecha, @CveUsuarioEjecuta);
SET @CveVentaDetalle = CONVERT (INT, SCOPE_IDENTITY());
END
ELSE
BEGIN
IF NOT EXISTS (SELECT 1
FROM dbo.VentasDetalle
WHERE CveVentaDetalle = @CveVentaDetalle
AND CveVenta = @CveVenta)
BEGIN
SELECT @ErrorMostrar = 'El concepto seleccionado no pertenece a la venta.',
@ErrorTipo = 2;
RETURN;
END
DELETE dbo.VentasDetalleImpuestos
WHERE CveVentaDetalle = @CveVentaDetalle;
UPDATE dbo.VentasDetalle
SET CvePS = @CvePS,
CveCostoTramite = @CveCostoTramite,
Cantidad = @Cantidad,
PrecioUnitario = @PrecioUnitario,
IVA = 0,
Importe = @Importe,
CveObjetoImpuesto = @CveObjetoImpuesto,
CveUsuario = @CveUsuarioEjecuta
WHERE CveVentaDetalle = @CveVentaDetalle;
END
INSERT dbo.VentasDetalleImpuestos (CveVentaDetalle, EsRetencion, Base, Impuesto, TipoFactor, TasaOCuota, Importe, FechaAlta, CveUsuario)
SELECT @CveVentaDetalle,
CTI.EsRetencion,
CONVERT (DECIMAL (19, 6), @Importe - @Descuento),
CTI.Impuesto,
CTI.TipoFactor,
CTI.TasaOCuota,
CONVERT (DECIMAL (18, 2), CASE WHEN CTI.TipoFactor = 'Exento' THEN 0 WHEN CTI.TipoFactor = 'Cuota' THEN ROUND(@Cantidad * CTI.TasaOCuota, 2) ELSE ROUND((@Importe - @Descuento) * CTI.TasaOCuota, 2) END),
@Fecha,
@CveUsuarioEjecuta
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = @CveCostoTramite;
SELECT @IVA = ISNULL(SUM(VDI.Importe), 0)
FROM dbo.VentasDetalleImpuestos AS VDI
WHERE VDI.CveVentaDetalle = @CveVentaDetalle
AND VDI.EsRetencion = 0
AND VDI.Impuesto = '002';
UPDATE dbo.VentasDetalle
SET IVA = @IVA
WHERE CveVentaDetalle = @CveVentaDetalle;
EXECUTE dbo.PA_Vta_TramiteVentaTotalesUpdate @CveVenta = @CveVenta, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SELECT @CveVentaDetalle AS CveVentaDetalle;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al guardar el concepto de la venta; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteConceptoSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteCondicionesPagoSave
@CveSolicitud INT,
@CveTramitePago INT,
@CveMetodoPago INT,
@CveFormaPago TINYINT,
@FechaVencimiento DATE,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveVenta AS INT;
SELECT @CveVenta = V.CveVenta
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NULL
BEGIN
SELECT @ErrorMostrar = 'Primero debe generar la venta del trámite.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Ventas
WHERE CveVenta = @CveVenta
AND SeTimbro = 1)
BEGIN
SELECT @ErrorMostrar = 'Las condiciones de una venta timbrada no se pueden modificar.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Vta_MetodoPago
WHERE CveMetodoPago = @CveMetodoPago)
BEGIN
SELECT @ErrorMostrar = 'Seleccione un método de pago válido.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Vta_FormaPago
WHERE CveFormaPago = @CveFormaPago)
BEGIN
SELECT @ErrorMostrar = 'Seleccione una forma de pago válida.',
@ErrorTipo = 2;
RETURN;
END
IF @FechaVencimiento IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture una fecha de vencimiento válida.',
@ErrorTipo = 2;
RETURN;
END
UPDATE dbo.Ventas
SET CveMetodoPago = @CveMetodoPago,
CveMetodoPago33 = @CveMetodoPago,
FormaPago = @CveFormaPago,
CveFormaPago33 = @CveFormaPago,
FechaVencimiento2 = @FechaVencimiento,
CveUsuarioModifico = @CveUsuarioEjecuta
WHERE CveVenta = @CveVenta;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al actualizar las condiciones de pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteCondicionesPagoSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteContextoGet
@CveSolicitud INT,
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @CveSubProyecto AS INT = (SELECT TOP (1) CveSubProyecto
FROM dbo.SubProyectos
WHERE Estatus = 1
ORDER BY CASE WHEN Serie = 'TRA' THEN 0 ELSE 1 END, CveSubProyecto);
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_Solicitudes AS S
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = @CveTramitePago
AND P.CveTipoTramite = S.CveTipoTramite
AND P.EsActivo = 1
INNER JOIN dbo.Tra_TiposTramitePagosDetalle AS D ON D.CveTramitePago = P.CveTramitePago
WHERE S.CveSolicitud = @CveSolicitud)
BEGIN
SELECT @ErrorMostrar = 'El pago seleccionado no corresponde al trámite o no tiene conceptos activos.',
@ErrorTipo = 2;
RETURN;
END
SELECT S.CveSolicitud,
P.CveTramitePago,
SP.CveVenta,
VP.CvePago,
CONVERT (BIT, CASE WHEN SP.CveSolicitudPago IS NOT NULL
AND V.CveVenta IS NOT NULL THEN 1 ELSE 0 END) AS VentaGenerada,
CONVERT (BIT, CASE WHEN SP.CveSolicitudPago IS NOT NULL
AND ISNULL(VP.ImportePagado, 0) >= SP.Importe THEN 1 ELSE 0 END) AS VentaPagada,
Documento.CveCfdiDocumento,
CONVERT (BIT, CASE WHEN V.SeTimbro = 1
OR Documento.Estado = 'TIMBRADO' THEN 1 ELSE 0 END) AS VentaTimbrada,
CONVERT (BIT, CASE WHEN Documento.Estado = 'CANCELADO' THEN 1 ELSE 0 END) AS TimbreCancelado,
Documento.Uuid AS UuidTimbre,
S.CveFraccionamiento,
F.Fraccionamiento,
F.CveCliente,
C.Nombre AS Cliente,
C.RFC,
CONCAT(C.Direccion, CASE WHEN NULLIF (LTRIM(RTRIM(C.NoExt)), '') IS NULL THEN '' ELSE CONCAT(' ', C.NoExt) END, CASE WHEN NULLIF (LTRIM(RTRIM(C.NoInt)), '') IS NULL THEN '' ELSE CONCAT(' Int. ', C.NoInt) END) AS Direccion,
C.Colonia,
CONCAT(C.Ciudad, ', ', C.Estado) AS CiudadEstado,
C.CP,
C.Telefono,
C.Mail,
S.Folio AS FolioSolicitud,
E.Etapa,
TT.TipoTramite,
P.Nombre AS NombrePago,
N'Remisión' AS TipoDocumento,
ISNULL(V.Serie, 'TRA') AS Serie,
ISNULL(V.Folio, ISNULL((SELECT MAX(Venta.Folio) + 1
FROM dbo.Ventas AS Venta
WHERE Venta.TipoDocto = 'Rem'
AND Venta.Serie = 'TRA'
AND Venta.CveSubProyecto = @CveSubProyecto), 1)) AS Folio,
ISNULL(V.Fecha, GETDATE()) AS Fecha
FROM dbo.Tra_Solicitudes AS S
INNER JOIN dbo.Fraccionamientos AS F ON F.CveFraccionamiento = S.CveFraccionamiento
INNER JOIN dbo.FraccionamientosEtapas AS E ON E.CveFraccionamientoEtapa = S.CveFraccionamientoEtapa
INNER JOIN dbo.Tra_TiposTramite AS TT ON TT.CveTipoTramite = S.CveTipoTramite
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = @CveTramitePago
AND P.CveTipoTramite = S.CveTipoTramite
INNER JOIN dbo.Clientes AS C ON C.CveCliente = F.CveCliente
LEFT OUTER JOIN dbo.Tra_SolicitudesPago AS SP ON SP.CveSolicitud = S.CveSolicitud
AND SP.CveTramitePago = P.CveTramitePago
LEFT OUTER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta OUTER APPLY (SELECT MAX(Pago.CvePago) AS CvePago,
SUM(A.ImporteAplicado) AS ImportePagado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS Pago ON Pago.CvePago = A.CvePago
WHERE A.CveSolicitudPago = SP.CveSolicitudPago
AND Pago.EsActivo = 1
AND Pago.Autorizado = 1) AS VP OUTER APPLY (SELECT TOP (1) D.CveCfdiDocumento,
D.Estado,
T.Uuid
FROM dbo.Fac_CfdiDocumentos AS D
LEFT OUTER JOIN dbo.Fac_CfdiTimbrados AS T ON T.CveCfdiTimbrado = D.CveCfdiTimbradoVigente
WHERE D.TipoOrigen = 'VENTA'
AND D.CveOrigen = V.CveVenta
AND D.Estado IN ('TIMBRADO', 'CANCELADO')
ORDER BY D.CveCfdiDocumento DESC) AS Documento
WHERE S.CveSolicitud = @CveSolicitud;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al consultar la venta del trámite; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteContextoGet'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramitePagoOpcionesList
@CveSolicitud INT,
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @CveVenta AS INT;
SELECT @CveVenta = V.CveVenta
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NULL
BEGIN
SELECT @ErrorMostrar = 'Primero debe generar la venta del trámite.',
@ErrorTipo = 2;
RETURN;
END
SELECT @CveVenta AS CveVenta,
CONCAT('TRA-', RIGHT(REPLICATE('0', 10) + CONVERT (VARCHAR (10), @CveVenta), 10)) AS ReferenciaPago;
SELECT FP.CveFormaPago,
FP.ClaveFormaPagoSAT,
CASE WHEN NULLIF (LTRIM(RTRIM(FP.ClaveFormaPagoSAT)), '') IS NULL THEN FP.FormaPago ELSE FP.ClaveFormaPagoSAT COLLATE Modern_Spanish_CS_AS + ' - ' + FP.FormaPago COLLATE Modern_Spanish_CS_AS END AS FormaPago,
CONVERT (BIT, CASE WHEN FP.ClaveFormaPagoSAT = '04' THEN 0 ELSE 1 END) AS Disponible
FROM dbo.Vta_FormaPago AS FP
WHERE FP.ClaveFormaPagoSAT IN ('01', '03', '04')
ORDER BY FP.ClaveFormaPagoSAT COLLATE Modern_Spanish_CS_AS, FP.FormaPago COLLATE Modern_Spanish_CS_AS, FP.CveFormaPago;
SELECT BC.CveBancoCuenta,
B.Banco,
BC.NumCuenta AS NumeroCuenta,
BC.CLABE,
B.Banco COLLATE Modern_Spanish_CS_AS + ' - ' + BC.NumCuenta COLLATE Modern_Spanish_CS_AS + CASE WHEN NULLIF (LTRIM(RTRIM(BC.CLABE)), '') IS NULL THEN '' ELSE ' (CLABE ' + BC.CLABE COLLATE Modern_Spanish_CS_AS + ')' END AS CuentaBancaria
FROM dbo.Banc_BancosCuentas AS BC
INNER JOIN dbo.Banc_Bancos AS B ON B.CveBanco = BC.CveBanco
WHERE BC.Estatus = 1
AND B.Estatus = 1
AND NULLIF (LTRIM(RTRIM(BC.CLABE)), '') IS NOT NULL
ORDER BY B.Banco COLLATE Modern_Spanish_CS_AS, BC.NumCuenta COLLATE Modern_Spanish_CS_AS, BC.CveBancoCuenta;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al consultar las opciones de pago; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramitePagoOpcionesList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- Compatibilidad: reparto proporcional por productos pendientes, vencimientos más antiguos primero.
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramitePagoSave
@CveSolicitud INT,
@CveTramitePago INT,
@Referencia VARCHAR (200)=NULL,
@Importe DECIMAL (19, 6)=NULL,
@FechaPago DATETIME=NULL,
@CveFormaPago TINYINT=NULL,
@CveBancoCuenta INT=NULL,
@Observaciones VARCHAR (300)=NULL,
@AplicacionesJson NVARCHAR (MAX)=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @Importe IS NULL
OR @Importe <= 0
OR @FechaPago IS NULL
OR @CveFormaPago IS NULL
BEGIN
SELECT @ErrorMostrar = 'Capture importe recibido, fecha y forma de pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Obligacion AS INT, @Cliente AS INT, @Unidad AS INT, @Pago AS INT, @Pendiente AS DECIMAL (19, 6);
WITH Aplicaciones
AS (SELECT A.CveSolicitudPago,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPago),
Traslados
AS (SELECT O.CveSolicitudPagoOrigen,
SUM(O.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY O.CveSolicitudPagoOrigen),
Saldos
AS (SELECT S.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
S.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPago AS S
LEFT OUTER JOIN Aplicaciones AS A ON A.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoOrigen = S.CveSolicitudPago)
SELECT @Obligacion = CveSolicitudPago,
@Cliente = CveCliente,
@Unidad = CveUnidadCobro,
@Pendiente = SaldoPendiente
FROM Saldos
WHERE CveSolicitud = @CveSolicitud
AND CveTramitePago = @CveTramitePago
AND EstadoAdministrativo = 'ACTIVO';
IF @Obligacion IS NULL
OR @Importe > @Pendiente
BEGIN
SELECT @ErrorMostrar = 'Genere la obligación y capture un abono que no exceda su saldo pendiente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF @AplicacionesJson IS NULL
BEGIN
DECLARE @SaldosDetalle TABLE (
CveSolicitudPagoDetalle INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoDetalle,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoDetalle),
Traslados
AS (SELECT D.CveSolicitudPagoDetalleOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoDetalleOrigen)
INSERT INTO @SaldosDetalle
SELECT D.CveSolicitudPagoDetalle,
D.CveSolicitudPago,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0)
FROM dbo.Tra_SolicitudesPagoDetalle AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoDetalle = D.CveSolicitudPagoDetalle
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoDetalleOrigen = D.CveSolicitudPagoDetalle;
DECLARE @SaldosParcialidades TABLE (
CveSolicitudPagoParcialidad INT PRIMARY KEY,
CveSolicitudPago INT,
SaldoPendiente DECIMAL (19, 6));
WITH Abonos
AS (SELECT A.CveSolicitudPagoParcialidad,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPagoParcialidad),
Traslados
AS (SELECT D.CveSolicitudPagoParcialidadOrigen,
SUM(D.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigenDetalle AS D
INNER JOIN dbo.Tra_SolicitudesPagoConvenioOrigen AS O ON O.CveConvenioOrigen = D.CveConvenioOrigen
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY D.CveSolicitudPagoParcialidadOrigen),
SaldosParcialidades
AS (SELECT D.*,
COALESCE (D.FechaProrroga, D.FechaVencimiento) AS VencimientoEfectivo,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
D.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPagoParcialidades AS D
LEFT OUTER JOIN Abonos AS A ON A.CveSolicitudPagoParcialidad = D.CveSolicitudPagoParcialidad
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoParcialidadOrigen = D.CveSolicitudPagoParcialidad)
INSERT INTO @SaldosParcialidades
SELECT CveSolicitudPagoParcialidad,
CveSolicitudPago,
SaldoPendiente
FROM SaldosParcialidades;
DECLARE @Distribucion TABLE (
CveSolicitudPagoDetalle INT,
CveSolicitudPagoParcialidad INT,
ImporteAplicado DECIMAL (19, 6));
DECLARE @Productos TABLE (
CveSolicitudPagoDetalle INT PRIMARY KEY,
Importe DECIMAL (19, 6));
INSERT INTO @Productos
SELECT CveSolicitudPagoDetalle,
CONVERT (DECIMAL (19, 6), ROUND(@Importe * SaldoPendiente / @Pendiente, 6, 1))
FROM @SaldosDetalle
WHERE CveSolicitudPago = @Obligacion
AND SaldoPendiente > 0;
DECLARE @Resto AS DECIMAL (19, 6) = @Importe - (SELECT SUM(Importe)
FROM @Productos);
WHILE @Resto > 0
BEGIN
DECLARE @ProductoAjuste AS INT, @Ajuste AS DECIMAL (19, 6);
SELECT TOP (1) @ProductoAjuste = P.CveSolicitudPagoDetalle,
@Ajuste = CASE WHEN D.SaldoPendiente - P.Importe < @Resto THEN D.SaldoPendiente - P.Importe ELSE @Resto END
FROM @Productos AS P
INNER JOIN @SaldosDetalle AS D ON D.CveSolicitudPagoDetalle = P.CveSolicitudPagoDetalle
WHERE D.SaldoPendiente > P.Importe
ORDER BY P.CveSolicitudPagoDetalle;
UPDATE @Productos
SET Importe = Importe + @Ajuste
WHERE CveSolicitudPagoDetalle = @ProductoAjuste;
SET @Resto = @Resto - @Ajuste;
END
WHILE EXISTS (SELECT 1
FROM @Productos
WHERE Importe > 0)
BEGIN
DECLARE @Detalle AS INT, @Parcialidad AS INT, @MontoProducto AS DECIMAL (19, 6), @MontoParcialidad AS DECIMAL (19, 6), @Monto AS DECIMAL (19, 6);
SELECT TOP (1) @Detalle = CveSolicitudPagoDetalle,
@MontoProducto = Importe
FROM @Productos
WHERE Importe > 0
ORDER BY CveSolicitudPagoDetalle;
SELECT TOP (1) @Parcialidad = P.CveSolicitudPagoParcialidad,
@MontoParcialidad = P.SaldoPendiente
FROM @SaldosParcialidades AS P
INNER JOIN dbo.Tra_SolicitudesPagoParcialidades AS D ON D.CveSolicitudPagoParcialidad = P.CveSolicitudPagoParcialidad
WHERE P.CveSolicitudPago = @Obligacion
AND P.SaldoPendiente > 0
ORDER BY COALESCE (D.FechaProrroga, D.FechaVencimiento), D.NumeroParcialidad;
SET @Monto = CASE WHEN @MontoProducto < @MontoParcialidad THEN @MontoProducto ELSE @MontoParcialidad END;
INSERT INTO @Distribucion
VALUES (@Detalle, @Parcialidad, @Monto);
UPDATE @Productos
SET Importe = Importe - @Monto
WHERE CveSolicitudPagoDetalle = @Detalle;
UPDATE @SaldosParcialidades
SET SaldoPendiente = SaldoPendiente - @Monto
WHERE CveSolicitudPagoParcialidad = @Parcialidad;
END
SET @AplicacionesJson = (SELECT *
FROM @Distribucion
FOR JSON PATH);
END
EXECUTE dbo.PA_Tra_PagoRegistrar @CvePago = @Pago OUTPUT, @CveCliente = @Cliente, @FechaPago = @FechaPago, @Importe = @Importe, @CveUnidadCobro = @Unidad, @CveFormaPago = @CveFormaPago, @CveBancoCuenta = @CveBancoCuenta, @Referencia = @Referencia, @Observaciones = @Observaciones, @DevolverResultado = 0, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
EXECUTE dbo.PA_Tra_PagoAplicar @CvePago = @Pago, @AplicacionesJson = @AplicacionesJson, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SELECT @Pago AS CvePago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramitePagoSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteVentaDatosCfdiGet
@CveSolicitud INT,
@CveTramitePago INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
DECLARE @CveVenta AS INT;
SELECT @CveVenta = V.CveVenta
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago;
IF @CveVenta IS NULL
BEGIN
SELECT @ErrorMostrar = 'Primero debe generar la venta del trámite.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Ventas AS V
WHERE V.CveVenta = @CveVenta
AND (V.SeTimbro = 1
OR EXISTS (SELECT 1
FROM dbo.Fac_CfdiDocumentos AS D
WHERE D.TipoOrigen = 'VENTA'
AND D.CveOrigen = V.CveVenta
AND D.Estado = 'TIMBRADO'
AND D.CveCfdiTimbradoVigente IS NOT NULL)))
BEGIN
SELECT @ErrorMostrar = 'La venta ya se encuentra timbrada.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Fac_CfdiDocumentos
WHERE TipoOrigen = 'VENTA'
AND CveOrigen = @CveVenta
AND Estado = 'REVISAR')
BEGIN
SELECT @ErrorMostrar = 'Existe un intento de timbrado con resultado indeterminado; debe revisarse antes de volver a timbrar.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.VentasDetalle AS VD
INNER JOIN dbo.Gral_SAT_ObjetoImpuesto AS OI ON OI.CveObjetoImpuesto = VD.CveObjetoImpuesto
WHERE VD.CveVenta = @CveVenta
AND OI.CodigoObjetoImpuesto = '02'
AND NOT EXISTS (SELECT 1
FROM dbo.VentasDetalleImpuestos AS VDI
WHERE VDI.CveVentaDetalle = VD.CveVentaDetalle))
BEGIN
SELECT @ErrorMostrar = 'Uno o más conceptos son objeto de impuesto y no tienen impuestos registrados.',
@ErrorTipo = 2;
RETURN;
END
SELECT V.CveVenta,
Borrador.CveCfdiDocumento,
V.CveCliente,
V.Serie,
V.Folio,
V.Fecha,
FP.ClaveFormaPagoSAT AS FormaPago,
MP.ClaveMetodoPagoSAT AS MetodoPago,
M.AbreviaturaSAT AS Moneda,
CONVERT (DECIMAL (19, 6), V.TipoCambio) AS TipoCambio
FROM dbo.Ventas AS V
LEFT OUTER JOIN dbo.Vta_FormaPago AS FP ON FP.CveFormaPago = V.FormaPago
LEFT OUTER JOIN dbo.Vta_MetodoPago AS MP ON MP.CveMetodoPago = V.CveMetodoPago
INNER JOIN dbo.Gral_Monedas AS M ON M.CveMoneda = V.CveMoneda OUTER APPLY (SELECT TOP (1) D.CveCfdiDocumento
FROM dbo.Fac_CfdiDocumentos AS D
WHERE D.TipoOrigen = 'VENTA'
AND D.CveOrigen = V.CveVenta
AND D.CveCfdiTimbradoVigente IS NULL
AND D.Estado IN ('BORRADOR', 'LISTO', 'ERROR')
ORDER BY D.CveCfdiDocumento DESC) AS Borrador
WHERE V.CveVenta = @CveVenta;
SELECT VD.CveVentaDetalle,
SATPS.SATClavePS AS ClaveProductoServicio,
PS.Codigo AS NumeroIdentificacion,
VD.Cantidad,
SATUM.SATClaveUnidadMedida AS ClaveUnidad,
UM.UnidadMedida AS Unidad,
PS.PS AS Descripcion,
VD.PrecioUnitario AS ValorUnitario,
VD.PrecioUnitario AS PU,
VD.Importe AS Total,
VD.Descuento,
OI.CodigoObjetoImpuesto AS ObjetoImpuesto
FROM dbo.VentasDetalle AS VD
INNER JOIN dbo.ProductosServicios AS PS ON PS.CvePS = VD.CvePS
INNER JOIN dbo.UnidadesMedida AS UM ON UM.CveUnidadMedida = PS.CveUnidadMedida
LEFT OUTER JOIN dbo.Gral_SAT_ProductosServicios AS SATPS ON SATPS.CveSATPS = PS.CveSATPS
LEFT OUTER JOIN dbo.Gral_SAT_UnidadesMedida AS SATUM ON SATUM.CveSATUnidadMedida = UM.CveSATUnidadMedida
INNER JOIN dbo.Gral_SAT_ObjetoImpuesto AS OI ON OI.CveObjetoImpuesto = VD.CveObjetoImpuesto
WHERE VD.CveVenta = @CveVenta
ORDER BY VD.CveVentaDetalle;
SELECT VDI.CveVentaDetalle,
VDI.EsRetencion,
VDI.Base,
VDI.Impuesto,
VDI.TipoFactor,
VDI.TasaOCuota,
VDI.Importe
FROM dbo.VentasDetalleImpuestos AS VDI
INNER JOIN dbo.VentasDetalle AS VD ON VD.CveVentaDetalle = VDI.CveVentaDetalle
WHERE VD.CveVenta = @CveVenta
ORDER BY VDI.CveVentaDetalle, VDI.EsRetencion, VDI.Impuesto, VDI.CveVentaDetalleImpuesto;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al preparar los datos fiscales de la venta; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteVentaDatosCfdiGet'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteVentaGenerar
@CveSolicitud INT,
@CveTramitePago INT,
@Observaciones VARCHAR (2000)=NULL,
@FechaVencimiento DATE=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago AS SP
INNER JOIN dbo.Ventas AS V ON V.CveVenta = SP.CveVenta
WHERE SP.CveSolicitud = @CveSolicitud
AND SP.CveTramitePago = @CveTramitePago)
BEGIN
SELECT @ErrorMostrar = 'La venta del trámite ya fue generada.',
@ErrorTipo = 2;
RETURN;
END
EXECUTE dbo.PA_Vta_TramiteVentaSave @CveSolicitud = @CveSolicitud, @CveTramitePago = @CveTramitePago, @Observaciones = @Observaciones, @FechaVencimiento = @FechaVencimiento, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al generar la venta del trámite; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteVentaGenerar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Vta_TramiteVentaSave
@CveSolicitud INT,
@CveTramitePago INT,
@Observaciones VARCHAR (2000)=NULL,
@FechaVencimiento DATE=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @Obligacion AS INT;
SELECT @Obligacion = CveSolicitudPago
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitud = @CveSolicitud
AND CveTramitePago = @CveTramitePago;
IF @Obligacion IS NULL
BEGIN
EXECUTE dbo.PA_Tra_SolicitudPagoGenerarPorSolicitud @CveSolicitud = @CveSolicitud, @FechaVencimiento = @FechaVencimiento, @CveTramitePago = @CveTramitePago, @DevolverResultado = 0, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
SELECT @Obligacion = CveSolicitudPago
FROM dbo.Tra_SolicitudesPago
WHERE CveSolicitud = @CveSolicitud
AND CveTramitePago = @CveTramitePago;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago AS S
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = S.CveUnidadCobro
WHERE S.CveSolicitudPago = @Obligacion
AND S.EstadoAdministrativo = 'ACTIVO'
AND U.Codigo = 'MXN')
BEGIN
SELECT @ErrorMostrar = 'La venta anterior requiere una obligación vigente en MXN. Para otras unidades utilice los documentos del pago.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
DECLARE @CveVendedor AS INT = 1, @CveCliente AS INT, @CveTipoTramite AS INT, @CveSubProyecto AS INT, @CveEstatusFactura AS INT, @CveVenta AS INT, @Folio AS INT, @Fecha AS DATETIME = GETDATE();
SELECT @CveCliente = F.CveCliente,
@CveTipoTramite = S.CveTipoTramite
FROM dbo.Tra_Solicitudes AS S
INNER JOIN dbo.Fraccionamientos AS F ON F.CveFraccionamiento = S.CveFraccionamiento
INNER JOIN dbo.Tra_TiposTramitePagos AS P ON P.CveTramitePago = @CveTramitePago
AND P.CveTipoTramite = S.CveTipoTramite
AND P.EsActivo = 1
WHERE S.CveSolicitud = @CveSolicitud;
IF @CveCliente IS NULL
BEGIN
SELECT @ErrorMostrar = 'El pago seleccionado no corresponde al trámite.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Vta_Vendedores
WHERE CveVendedor = @CveVendedor)
BEGIN
SELECT @ErrorMostrar = 'No se encuentra configurado el vendedor predeterminado 1.',
@ErrorTipo = 2;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveTramitePago = @CveTramitePago)
BEGIN
SELECT @ErrorMostrar = 'El pago seleccionado no tiene conceptos para vender.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle AS D
WHERE D.CveTramitePago = @CveTramitePago
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = @CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, @Fecha))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, @Fecha))))
BEGIN
SELECT @ErrorMostrar = 'Uno o más conceptos no tienen un costo vigente configurado.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle AS D CROSS APPLY (SELECT TOP (1) CT.CveCostoTramite,
CT.CveObjetoImpuesto
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = @CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, @Fecha))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, @Fecha))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC) AS Costo
INNER JOIN dbo.Gral_SAT_ObjetoImpuesto AS OI ON OI.CveObjetoImpuesto = Costo.CveObjetoImpuesto
WHERE D.CveTramitePago = @CveTramitePago
AND OI.CodigoObjetoImpuesto = '02'
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_CostosTramiteImpuestos AS CTI
WHERE CTI.CveCostoTramite = Costo.CveCostoTramite))
BEGIN
SELECT @ErrorMostrar = 'Uno o más costos son objeto de impuesto y no tienen impuestos configurados.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago WITH (UPDLOCK, HOLDLOCK)
WHERE CveSolicitud = @CveSolicitud
AND CveTramitePago = @CveTramitePago
AND CveVenta IS NOT NULL)
BEGIN
SELECT @ErrorMostrar = 'La venta de la obligación ya fue generada.',
@ErrorTipo = 2;
RETURN;
END
SELECT TOP (1) @CveSubProyecto = CveSubProyecto
FROM dbo.SubProyectos
WHERE Estatus = 1
ORDER BY CASE WHEN Serie = 'TRA' THEN 0 ELSE 1 END, CveSubProyecto;
SELECT TOP (1) @CveEstatusFactura = CveEstatusFactura
FROM dbo.EstatusFactura
WHERE TipoDocto = 'Rem'
AND Estado = 1
ORDER BY CveEstatusFactura;
IF @CveSubProyecto IS NULL
OR @CveEstatusFactura IS NULL
BEGIN
SELECT @ErrorMostrar = 'La configuración mínima de ventas no está disponible; favor de contactar a Sistemas.',
@ErrorTipo = 2;
RETURN;
END
SELECT @Folio = ISNULL(MAX(Folio), 0) + 1
FROM dbo.Ventas WITH (UPDLOCK, HOLDLOCK)
WHERE CveSubProyecto = @CveSubProyecto
AND TipoDocto = 'Rem'
AND Serie = 'TRA';
INSERT dbo.Ventas (TipoDocto, Serie, Folio, Fecha, CveCliente, CveVendedor, CveMetodoPago, CondicionesPago, FormaPago, SubTotal, Descuento, IVA, IEPS, RetIVA, RetISR, Total, Observaciones, CveEstatusFactura, FechaEjecucion, CveSubProyecto, CveUsuario, CveFormaPago33, CveMetodoPago33, FechaIng, FechaVencimiento2, Ref, DescripcionVenta, FechaParaSurtir)
VALUES ('Rem', 'TRA', @Folio, @Fecha, @CveCliente, @CveVendedor, 2, 0, 99, 0, 0, 0, 0, 0, 0, 0, ISNULL(@Observaciones, ''), @CveEstatusFactura, @Fecha, @CveSubProyecto, @CveUsuarioEjecuta, 99, 2, @Fecha, CONVERT (DATE, @Fecha), CONVERT (VARCHAR (50), @CveSolicitud), 'Pago de trámite', @Fecha);
SET @CveVenta = CONVERT (INT, SCOPE_IDENTITY());
INSERT dbo.VentasDetalle (CveVenta, CvePS, CveSolicitud, CveCostoTramite, Cantidad, PrecioUnitario, Descuento, IVA, Importe, CveObjetoImpuesto, EsFondoInicial, FechaAlta, CveUsuario)
SELECT @CveVenta,
D.CvePS,
@CveSolicitud,
Costo.CveCostoTramite,
D.Cantidad,
CONVERT (DECIMAL (18, 2), Costo.Importe),
CONVERT (DECIMAL (18, 2), 0),
CONVERT (DECIMAL (18, 2), 0),
CONVERT (DECIMAL (18, 2), ROUND(D.Cantidad * Costo.Importe, 2)),
Costo.CveObjetoImpuesto,
0,
@Fecha,
@CveUsuarioEjecuta
FROM dbo.Tra_TiposTramitePagosDetalle AS D CROSS APPLY (SELECT TOP (1) CT.CveCostoTramite,
CT.Importe,
CT.CveObjetoImpuesto
FROM dbo.Tra_CostosTramite AS CT
WHERE CT.CveTipoTramite = @CveTipoTramite
AND CT.CvePS = D.CvePS
AND CT.EsActivo = 1
AND (CT.FechaInicioVigencia IS NULL
OR CT.FechaInicioVigencia <= CONVERT (DATE, @Fecha))
AND (CT.FechaFinVigencia IS NULL
OR CT.FechaFinVigencia >= CONVERT (DATE, @Fecha))
ORDER BY ISNULL(CT.FechaInicioVigencia, CONVERT (DATE, '19000101')) DESC, CT.CveCostoTramite DESC) AS Costo
WHERE D.CveTramitePago = @CveTramitePago;
INSERT dbo.VentasDetalleImpuestos (CveVentaDetalle, EsRetencion, Base, Impuesto, TipoFactor, TasaOCuota, Importe, FechaAlta, CveUsuario)
SELECT VD.CveVentaDetalle,
CTI.EsRetencion,
CONVERT (DECIMAL (19, 6), VD.Importe - VD.Descuento),
CTI.Impuesto,
CTI.TipoFactor,
CTI.TasaOCuota,
CONVERT (DECIMAL (18, 2), CASE WHEN CTI.TipoFactor = 'Exento' THEN 0 WHEN CTI.TipoFactor = 'Cuota' THEN ROUND(VD.Cantidad * CTI.TasaOCuota, 2) ELSE ROUND((VD.Importe - VD.Descuento) * CTI.TasaOCuota, 2) END),
@Fecha,
@CveUsuarioEjecuta
FROM dbo.VentasDetalle AS VD
INNER JOIN dbo.Tra_CostosTramiteImpuestos AS CTI ON CTI.CveCostoTramite = VD.CveCostoTramite
WHERE VD.CveVenta = @CveVenta;
UPDATE VD
SET IVA = ISNULL(ImpuestoIVA.Importe, 0)
FROM dbo.VentasDetalle AS VD OUTER APPLY (SELECT SUM(VDI.Importe) AS Importe
FROM dbo.VentasDetalleImpuestos AS VDI
WHERE VDI.CveVentaDetalle = VD.CveVentaDetalle
AND VDI.EsRetencion = 0
AND VDI.Impuesto = '002') AS ImpuestoIVA
WHERE VD.CveVenta = @CveVenta;
EXECUTE dbo.PA_Vta_TramiteVentaTotalesUpdate @CveVenta = @CveVenta, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @ErrorMostrar OUTPUT, @ErrorTipo = @ErrorTipo OUTPUT, @Return = @Return OUTPUT;
IF @Return = 0
RETURN;
IF EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPago AS S
INNER JOIN dbo.Ventas AS V ON V.CveVenta = @CveVenta
WHERE S.CveSolicitudPago = @Obligacion
AND S.Importe <> V.Total)
BEGIN
SELECT @ErrorMostrar = 'El total de venta no coincide con la obligación. Revise los conceptos e impuestos antes de vincularla.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
UPDATE dbo.Tra_SolicitudesPago
SET CveVenta = @CveVenta,
CveUsuarioModificacion = @CveUsuarioEjecuta,
FechaModificacion = SYSDATETIME()
WHERE CveSolicitudPago = @Obligacion;
SELECT @CveVenta AS CveVenta;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'Ocurrió un error al registrar la venta del trámite; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Vta_TramiteVentaSave'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_ProductoServicioDelete
@CvePS INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.ProductosServicios
WHERE CvePS = @CvePS)
BEGIN
SELECT @ErrorMostrar = 'El producto o servicio seleccionado no existe.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.Tra_CostosTramite
WHERE CvePS = @CvePS)
OR EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CvePS = @CvePS)
OR EXISTS (SELECT 1
FROM dbo.VentasDetalle
WHERE CvePS = @CvePS)
OR EXISTS (SELECT 1
FROM dbo.ProductosServicios
WHERE CvePS <> @CvePS
AND (CvePSAdicional = @CvePS
OR CveCompuesto = @CvePS))
BEGIN
SELECT @ErrorMostrar = 'El producto o servicio tiene trámites, pagos, ventas o productos relacionados y no puede eliminarse.',
@ErrorTipo = 2;
RETURN;
END
DELETE dbo.ProductosServicios
WHERE CvePS = @CvePS;
SET @Return = 1;
END TRY
BEGIN CATCH
IF ERROR_NUMBER() = 547
BEGIN
SELECT @ErrorMostrar = 'El producto o servicio tiene información relacionada y no puede eliminarse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SELECT @ErrorMostrar = 'Ocurrió un error al eliminar el producto o servicio; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_ProductoServicioDelete'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Gral_UnidadMedidaDelete
@CveUnidadMedida INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @@TRANCOUNT = 0
OR XACT_STATE() <> 1
THROW 51300, 'La operación requiere la transacción del servicio.', 1;
DECLARE @ResultadoBloqueo AS INT;
EXECUTE @ResultadoBloqueo = sys.sp_getapplock @Resource = N'PagosConvenios', @LockMode = 'Exclusive', @LockOwner = 'Transaction', @LockTimeout = 5000;
IF @ResultadoBloqueo < 0
BEGIN
SELECT @ErrorMostrar = 'Hay otra operación de pagos en curso. Intente nuevamente.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
IF NOT EXISTS (SELECT 1
FROM dbo.UnidadesMedida
WHERE CveUnidadMedida = @CveUnidadMedida)
BEGIN
SELECT @ErrorMostrar = 'La unidad de medida seleccionada no existe.',
@ErrorTipo = 2;
RETURN;
END
IF EXISTS (SELECT 1
FROM dbo.ProductosServicios
WHERE CveUnidadMedida = @CveUnidadMedida)
OR EXISTS (SELECT 1
FROM dbo.Tra_TiposTramitePagosDetalle
WHERE CveUM = @CveUnidadMedida)
BEGIN
SELECT @ErrorMostrar = 'La unidad de medida tiene productos, servicios o pagos relacionados y no puede eliminarse.',
@ErrorTipo = 2;
RETURN;
END
DELETE dbo.UnidadesMedida
WHERE CveUnidadMedida = @CveUnidadMedida;
SET @Return = 1;
END TRY
BEGIN CATCH
IF ERROR_NUMBER() = 547
BEGIN
SELECT @ErrorMostrar = 'La unidad de medida tiene información relacionada y no puede eliminarse.',
@ErrorTipo = 2,
@Return = 0;
RETURN;
END
SELECT @ErrorMostrar = 'Ocurrió un error al eliminar la unidad de medida; favor de contactar a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Gral_UnidadMedidaDelete'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudPagoList
@CveSolicitud INT,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
WITH Aplicaciones
AS (SELECT A.CveSolicitudPago,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPago),
Traslados
AS (SELECT O.CveSolicitudPagoOrigen,
SUM(O.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY O.CveSolicitudPagoOrigen),
Saldos
AS (SELECT S.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
S.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPago AS S
LEFT OUTER JOIN Aplicaciones AS A ON A.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoOrigen = S.CveSolicitudPago)
SELECT @CveSolicitud AS CveSolicitud,
S.CveSolicitudPago,
S.CveTramitePago,
S.Descripcion AS NombrePago,
S.EsRequerido,
CONVERT (BIT, CASE WHEN S.EstadoAdministrativo = 'ACTIVO' THEN 1 ELSE 0 END) AS EsActivo,
CONVERT (BIT, CASE WHEN S.ImporteAbonado >= S.Importe THEN 1 ELSE 0 END) AS TienePago,
S.Importe AS Total,
S.ImporteAbonado AS ImportePagado,
S.ImporteConvenido,
S.SaldoPendiente,
S.CveUnidadCobro,
U.Codigo AS UnidadCobro
FROM Saldos AS S
INNER JOIN dbo.Gral_UnidadesCobro AS U ON U.CveUnidadCobro = S.CveUnidadCobro
WHERE (S.CveSolicitud = @CveSolicitud
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS R ON R.CveSolicitudPago = O.CveSolicitudPagoOrigen
WHERE O.CveSolicitudPagoConvenio = S.CveSolicitudPago
AND R.CveSolicitud = @CveSolicitud))
ORDER BY S.FechaGeneracion, S.CveSolicitudPago;
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible completar la operación. Contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudPagoList'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
-- La configuración particular sustituye completamente la general.
-- Sólo obligaciones generadas, requeridas y con saldo cobrable.
-- Consulta las condiciones al PA existente, sin duplicar sus reglas.
-- El estatus Autorizado tiene prioridad; el rechazo precede a faltantes/vencidos.
-- Autorizados/cancelados no presentan tareas por atender en el panel.
CREATE OR ALTER PROCEDURE dbo.PA_Tra_SolicitudProcesoActualizar
@CveSolicitud INT=NULL,
@CveFraccionamientoEtapa INT=NULL,
@CveUsuarioEjecuta INT,
@ErrorMostrar VARCHAR (MAX) OUTPUT,
@ErrorTipo INT OUTPUT,
@Return BIT OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SELECT @ErrorMostrar = NULL,
@ErrorTipo = 0,
@Return = 0;
BEGIN TRY
IF @CveSolicitud IS NULL
AND @CveFraccionamientoEtapa IS NULL
BEGIN
SET @ErrorMostrar = 'Seleccione una solicitud o etapa para actualizar.';
SET @ErrorTipo = 2;
RETURN;
END
DECLARE @Hoy AS DATE = CONVERT (DATE, SYSDATETIMEOFFSET() AT TIME ZONE 'US Mountain Standard Time');
SELECT S.CveSolicitud,
S.CveTipoTramite,
S.CveFraccionamientoEtapa,
ES.Codigo AS CodigoEstatus
INTO #Solicitudes
FROM dbo.Tra_Solicitudes AS S
INNER JOIN dbo.Tra_EstatusSolicitud AS ES ON ES.CveEstatusSolicitud = S.CveEstatusSolicitud
WHERE (@CveSolicitud IS NULL
OR S.CveSolicitud = @CveSolicitud)
AND (@CveFraccionamientoEtapa IS NULL
OR S.CveFraccionamientoEtapa = @CveFraccionamientoEtapa);
CREATE UNIQUE CLUSTERED INDEX IX_Solicitudes
ON #Solicitudes(CveSolicitud);
SELECT S.CveSolicitud,
G.CveTipoDocumento,
G.EsRequerido,
G.EsCliente,
G.TieneVigencia,
G.EsActivo
INTO #Configuracion
FROM #Solicitudes AS S
INNER JOIN dbo.Tra_TiposTramiteDocumento AS G ON G.CveTipoTramite = S.CveTipoTramite
WHERE NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudDocumentoConfiguracion AS P
WHERE P.CveSolicitud = S.CveSolicitud
AND P.CveTipoDocumento = G.CveTipoDocumento)
UNION ALL
SELECT P.CveSolicitud,
P.CveTipoDocumento,
P.EsRequerido,
P.EsCliente,
P.TieneVigencia,
P.EsActivo
FROM dbo.Tra_SolicitudDocumentoConfiguracion AS P
INNER JOIN #Solicitudes AS S ON S.CveSolicitud = P.CveSolicitud;
CREATE TABLE #Acciones (
CveSolicitud INT NOT NULL,
TipoAccion VARCHAR (30) COLLATE Modern_Spanish_CI_AS NOT NULL,
CveReferencia INT NOT NULL,
Descripcion NVARCHAR (1000) COLLATE Modern_Spanish_CS_AS NOT NULL,
VisibleCliente BIT NOT NULL,
Orden INT NOT NULL,
PRIMARY KEY (CveSolicitud, TipoAccion, CveReferencia)
);
INSERT INTO #Acciones (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT C.CveSolicitud,
'DocumentoFaltante',
C.CveTipoDocumento,
CONCAT(N'Cargar documento: ', COALESCE (NULLIF (T.Descripcion, ''), T.TipoDocumento)),
C.EsCliente,
10
FROM #Configuracion AS C
INNER JOIN dbo.Tra_TiposDocumento AS T ON T.CveTipoDocumento = C.CveTipoDocumento
WHERE C.EsActivo = 1
AND C.EsRequerido = 1
AND T.EsActivo = 1
AND NOT EXISTS (SELECT 1
FROM dbo.Tra_DocumentosSolicitud AS D
WHERE D.CveSolicitud = C.CveSolicitud
AND D.CveTipoDocumento = C.CveTipoDocumento
AND D.EsActivo = 1
AND NULLIF (LTRIM(RTRIM(D.NombreArchivo)), '') IS NOT NULL
AND NULLIF (LTRIM(RTRIM(D.RutaArchivo)), '') IS NOT NULL);
INSERT INTO #Acciones (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT D.CveSolicitud,
'DocumentoRechazado',
D.CveDocumentoSolicitud,
CONCAT(N'Corregir documento no autorizado: ', COALESCE (NULLIF (T.Descripcion, ''), T.TipoDocumento)),
ISNULL(C.EsCliente, 0),
20
FROM dbo.Tra_DocumentosSolicitud AS D
INNER JOIN #Solicitudes AS S ON S.CveSolicitud = D.CveSolicitud
INNER JOIN dbo.Tra_TiposDocumento AS T ON T.CveTipoDocumento = D.CveTipoDocumento
LEFT OUTER JOIN #Configuracion AS C ON C.CveSolicitud = D.CveSolicitud
AND C.CveTipoDocumento = D.CveTipoDocumento
WHERE D.EsActivo = 1
AND D.EsAprobado = 0;
INSERT INTO #Acciones (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT D.CveSolicitud,
'DocumentoVencido',
D.CveDocumentoSolicitud,
CONCAT(N'Renovar documento vencido: ', COALESCE (NULLIF (T.Descripcion, ''), T.TipoDocumento), N' (', CONVERT (CHAR (10), D.FechaVencimiento, 103), N')'),
ISNULL(C.EsCliente, 0),
30
FROM dbo.Tra_DocumentosSolicitud AS D
INNER JOIN #Solicitudes AS S ON S.CveSolicitud = D.CveSolicitud
INNER JOIN dbo.Tra_TiposDocumento AS T ON T.CveTipoDocumento = D.CveTipoDocumento
LEFT OUTER JOIN #Configuracion AS C ON C.CveSolicitud = D.CveSolicitud
AND C.CveTipoDocumento = D.CveTipoDocumento
WHERE D.EsActivo = 1
AND D.FechaVencimiento < @Hoy
AND ISNULL(C.TieneVigencia, 1) = 1;
WITH Aplicaciones
AS (SELECT A.CveSolicitudPago,
SUM(A.ImporteAplicado) AS Abonado
FROM dbo.Tra_PagosAplicaciones AS A
INNER JOIN dbo.Tra_Pagos AS P ON P.CvePago = A.CvePago
WHERE P.EsActivo = 1
AND P.Autorizado = 1
GROUP BY A.CveSolicitudPago),
Traslados
AS (SELECT O.CveSolicitudPagoOrigen,
SUM(O.ImporteTomadoConvenio) AS Convenido
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS C ON C.CveSolicitudPago = O.CveSolicitudPagoConvenio
WHERE C.EstadoAdministrativo <> 'CANCELADO'
GROUP BY O.CveSolicitudPagoOrigen),
Saldos
AS (SELECT S.*,
ISNULL(A.Abonado, 0) AS ImporteAbonado,
ISNULL(T.Convenido, 0) AS ImporteConvenido,
S.Importe - ISNULL(A.Abonado, 0) - ISNULL(T.Convenido, 0) AS SaldoPendiente
FROM dbo.Tra_SolicitudesPago AS S
LEFT OUTER JOIN Aplicaciones AS A ON A.CveSolicitudPago = S.CveSolicitudPago
LEFT OUTER JOIN Traslados AS T ON T.CveSolicitudPagoOrigen = S.CveSolicitudPago)
INSERT INTO #Acciones (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT DISTINCT R.CveSolicitud,
'PagoPendiente',
S.CveSolicitudPago,
CONCAT(N'Pagar saldo: ', S.Descripcion),
1,
40
FROM Saldos AS S
INNER JOIN #Solicitudes AS R ON R.CveSolicitud = S.CveSolicitud
OR EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesPagoConvenioOrigen AS O
INNER JOIN dbo.Tra_SolicitudesPago AS P ON P.CveSolicitudPago = O.CveSolicitudPagoOrigen
WHERE O.CveSolicitudPagoConvenio = S.CveSolicitudPago
AND P.CveSolicitud = R.CveSolicitud)
WHERE S.EstadoAdministrativo = 'ACTIVO'
AND S.EsRequerido = 1
AND S.SaldoPendiente > 0;
DECLARE @SolicitudCondicion AS INT;
DECLARE @TipoTramite AS INT;
DECLARE @Etapa AS INT;
DECLARE @Condiciones TABLE (
CveCondicionMostrar INT,
CondicionMostrar VARCHAR (100));
DECLARE @Correcto AS BIT;
DECLARE @TipoError AS INT;
DECLARE @Mensaje AS VARCHAR (MAX);
DECLARE condiciones CURSOR LOCAL FAST_FORWARD
FOR SELECT CveSolicitud,
CveTipoTramite,
CveFraccionamientoEtapa
FROM #Solicitudes
ORDER BY CveSolicitud;
OPEN condiciones;
FETCH NEXT FROM condiciones INTO @SolicitudCondicion, @TipoTramite, @Etapa;
WHILE @@FETCH_STATUS = 0
BEGIN
DELETE @Condiciones;
INSERT INTO @Condiciones
EXECUTE dbo.PA_Tra_MostrarCondicionesporTramite @CveTipoTramite = @TipoTramite, @CveFraccionamientoEtapa = @Etapa, @CveUsuarioEjecuta = @CveUsuarioEjecuta, @ErrorMostrar = @Mensaje OUTPUT, @ErrorTipo = @TipoError OUTPUT, @Return = @Correcto OUTPUT;
IF ISNULL(@Correcto, 0) = 0
BEGIN
SET @ErrorMostrar = @Mensaje;
SET @ErrorTipo = ISNULL(NULLIF (@TipoError, 0), 1);
CLOSE condiciones;
DEALLOCATE condiciones;
RETURN;
END
INSERT INTO #Acciones (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT @SolicitudCondicion,
'CondicionPendiente',
C.CveCondicionMostrar,
CONCAT(N'Capturar condición: ', C.CondicionMostrar),
0,
50
FROM @Condiciones AS C
INNER JOIN dbo.FraccionamientosEtapas AS E ON E.CveFraccionamientoEtapa = @Etapa
WHERE CASE C.CveCondicionMostrar WHEN 1 THEN E.Aprobado_Prefactibilidad WHEN 2 THEN E.RequiereObrasExternas WHEN 3 THEN E.TipoDeObra WHEN 4 THEN E.LiberacionMacromedidor WHEN 5 THEN E.Relotificacion WHEN 6 THEN E.LiberacionDeLotes WHEN 7 THEN E.LiberacionDePagosDeDerechos END IS NULL;
FETCH NEXT FROM condiciones INTO @SolicitudCondicion, @TipoTramite, @Etapa;
END
CLOSE condiciones;
DEALLOCATE condiciones;
UPDATE S
SET EstatusProceso = CASE WHEN B.CodigoEstatus = 'Autorizado' THEN 4 WHEN EXISTS (SELECT 1
FROM #Acciones AS A
WHERE A.CveSolicitud = S.CveSolicitud
AND A.TipoAccion = 'DocumentoRechazado') THEN 2 WHEN EXISTS (SELECT 1
FROM #Acciones AS A
WHERE A.CveSolicitud = S.CveSolicitud
AND A.TipoAccion IN ('DocumentoFaltante', 'DocumentoVencido')) THEN 1 WHEN B.CodigoEstatus = 'Revisando' THEN 3 WHEN B.CodigoEstatus <> 'Sin Procesar'
OR EXISTS (SELECT 1
FROM dbo.Tra_DocumentosSolicitud AS D
WHERE D.CveSolicitud = S.CveSolicitud
AND D.EsActivo = 1)
OR EXISTS (SELECT 1
FROM dbo.Tra_ComentariosSolicitud AS C
WHERE C.CveSolicitud = S.CveSolicitud) THEN 1 ELSE 0 END
FROM dbo.Tra_Solicitudes AS S
INNER JOIN #Solicitudes AS B ON B.CveSolicitud = S.CveSolicitud;
DELETE A
FROM #Acciones AS A
INNER JOIN #Solicitudes AS S ON S.CveSolicitud = A.CveSolicitud
WHERE S.CodigoEstatus IN ('Autorizado', 'Cancelado');
DELETE A
FROM dbo.Tra_SolicitudesAccionesPendientes AS A
INNER JOIN #Solicitudes AS S ON S.CveSolicitud = A.CveSolicitud
WHERE NOT EXISTS (SELECT 1
FROM #Acciones AS N
WHERE N.CveSolicitud = A.CveSolicitud
AND N.TipoAccion = A.TipoAccion
AND N.CveReferencia = A.CveReferencia);
UPDATE A
SET Descripcion = N.Descripcion,
VisibleCliente = N.VisibleCliente,
Orden = N.Orden
FROM dbo.Tra_SolicitudesAccionesPendientes AS A
INNER JOIN #Acciones AS N ON N.CveSolicitud = A.CveSolicitud
AND N.TipoAccion = A.TipoAccion
AND N.CveReferencia = A.CveReferencia;
INSERT INTO dbo.Tra_SolicitudesAccionesPendientes (CveSolicitud, TipoAccion, CveReferencia, Descripcion, VisibleCliente, Orden)
SELECT N.CveSolicitud,
N.TipoAccion,
N.CveReferencia,
N.Descripcion,
N.VisibleCliente,
N.Orden
FROM #Acciones AS N
WHERE NOT EXISTS (SELECT 1
FROM dbo.Tra_SolicitudesAccionesPendientes AS A
WHERE A.CveSolicitud = N.CveSolicitud
AND A.TipoAccion = N.TipoAccion
AND A.CveReferencia = N.CveReferencia);
SET @Return = 1;
END TRY
BEGIN CATCH
SELECT @ErrorMostrar = 'No fue posible actualizar o consultar el seguimiento de solicitudes; contacte a Sistemas.',
@ErrorTipo = 1,
@Return = 0;
DECLARE @ErrorTecnico AS NVARCHAR (2048) = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', COALESCE (ERROR_PROCEDURE(), 'PA_Tra_SolicitudProcesoActualizar'), '; Línea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());
RAISERROR (N'%s', 10, 1, @ErrorTecnico);
END CATCH
END
GO
CREATE OR ALTER VIEW [dbo].[Vta_SaldosFavor]
AS
SELECT P.[CvePago],
P.[CveCliente],
P.[CveVenta],
P.[CveMoneda],
P.[Importe] AS [ImporteRecibido],
ISNULL(SUM(CASE WHEN A.[EsActivo] = (1) THEN A.[Importe] ELSE (0) END), (0)) AS [ImporteAplicado],
P.[Importe] - ISNULL(SUM(CASE WHEN A.[EsActivo] = (1) THEN A.[Importe] ELSE (0) END), (0)) AS [SaldoDisponible]
FROM [dbo].[Tra_Pagos] AS P
LEFT OUTER JOIN [dbo].[Vta_AplicacionesSaldoFavor] AS A ON A.[CvePagoOrigen] = P.[CvePago]
WHERE P.[EsSaldoFavor] = (1)
AND P.[EsActivo] = (1)
GROUP BY P.[CvePago], P.[CveCliente], P.[CveVenta], P.[CveMoneda], P.[Importe];
GO
Reference in New Issue View Git Blame Copy Permalink