Project

General

Profile

Actions
Copy link

Feature #1837

open

Task 18953: Añadir correos electrónicos de Fiscalías

Added by Estefany Santiago Trinidad 9 days ago. Updated 5 days ago.

Status:
Pending Review
Priority:
Normal
Assignee:
Edwin X Borrero
Category:
-
Target version:
OAT - WO2026-31
Start date:
07/24/2026
Due date:
% Done:

0%

Estimated time:
20:00 h
Actions
Copy link
 #1

Updated by Edwin X Borrero 9 days ago

  • Status changed from Not Started to In Progress
  • Assignee set to Edwin X Borrero
Actions
Copy link
 #2

Updated by Repo Bot 5 days ago

  • Status changed from In Progress to Pending Review

PR ready for review: EBS-SEEDBURY — Task 18953: Añadir correos electrónicos de Fiscalías → status: Pending Review

Actions
Copy link
 #3

Updated by Edwin X Borrero 5 days ago

Cambios a la base de datos de TPI

CREATE TABLE SUMACProsecutorRegion (
	Code int IDENTITY(1,1) NOT NULL,
	DescriptionEN varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NOT NULL,
	DescriptionES varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NOT NULL,
	IsHidden bit DEFAULT 0 NOT NULL,
	HiddenReason varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NULL,
	CreatedDate datetime NOT NULL,
	CreatedBy uniqueidentifier NOT NULL,
	ModifiedDate datetime NOT NULL,
	ModifiedBy uniqueidentifier NOT NULL,
	UpdateVersion timestamp NOT NULL,
	PersonId int NULL,
	CONSTRAINT PK__SUMACProsecutorRegion PRIMARY KEY (Code),
	CONSTRAINT FK__SUMACProsecutorRegionPersonId FOREIGN KEY (PersonId) REFERENCES dbo.SUMACPersonBase(PersonId)
)

INSERT INTO SUMACPersonType (ObjectTypeCode, DescriptionEN, DescriptionES, CreatedDate, CreatedBy, ModifiedDate, ModifiedBy)
VALUES (61, 'Prosecutor Region', 'Fiscalía de la Región', GETDATE(), '86FE697B-E340-4CFF-B331-7952ED0E4C27', GETDATE(), '86FE697B-E340-4CFF-B331-7952ED0E4C27')

-- Aguadilla
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;


BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Aguadilla', 'Fiscalía de Aguadilla', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('AGUADILLA', 'AGUADILLA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;


-- Distrito Aibonito
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Aibonito', 'Fiscalía de Distrito Aibonito', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('AIBONITO', 'AIBONITO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Arecibo
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Arecibo', 'Fiscalía de Distrito Arecibo', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('ARECIBO', 'ARECIBO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Bayamon
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Bayamón', 'Fiscalía de Distrito Bayamón', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('BAYAMÓN', 'BAYAMÓN', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito Caguas
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Caguas', 'Fiscalía de Distrito Caguas', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('CAGUAS', 'CAGUAS', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Carolina
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Carolina', 'Fiscalía de Distrito de Carolina', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('CAROLINA', 'CAROLINA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito Fajardo
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Fajardo', 'Fiscalía de Distrito Fajardo', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('FAJARDO', 'FAJARDO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Guayama
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Guayama', 'Fiscalía de Distrito Guayama', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('GUAYAMA', 'GUAYAMA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Humacao
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Humacao', 'Fiscalía de Distrito de Humacao', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('HUMACAO', 'HUMACAO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Mayaguez
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Mayaguez', 'Fiscalía de Distrito de Mayaguez', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('MAYAGUEZ', 'MAYAGUEZ', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Ponce
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;
DECLARE @zipCode VARCHAR(250) = '00732'; -- editar
DECLARE @line1 VARCHAR(250) = 'Line 1'; -- editar
DECLARE @line2 VARCHAR(250) = 'Line 2'; -- editar
DECLARE @line3 VARCHAR(250) = 'Line 3'; -- editar
DECLARE @line4 VARCHAR(250) = 'Line 4'; -- editar
DECLARE @fullAddress VARCHAR(250) = CONCAT(@line1, ' ', @line2, ' ', @line3, ' ', @line4, ', ', 'Ponce, Puerto Rico, ', @zipCode); -- editar

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Ponce', 'Fiscalía de Ponce', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACAddress (RelatedRecordId, TypeCode, ZipCode, Line1, Line2, Line3, Line4, CountryCode, StateCode, CityCode, FullAddressEN, FullAddressES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (@recordId, 2, @zipCode, @line1, @line2, @line3, @line4, 254, 1, 81, @fullAddress, @fullAddress, @adminUser, @date, @adminUser, @date)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('PONCE', 'PONCE', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito de San Juan
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de San Juan', 'Fiscalía de Distrito de San Juan', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('SAN JUAN', 'SAN JUAN', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Utuado
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Utuado', 'Fiscalía de Utuado', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('UTUADO', 'UTUADO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;
Actions
Copy link
 #4

Updated by Edwin X Borrero 5 days ago

Edwin X Borrero wrote in #note-3:

Cambios a la base de datos de TPI

CREATE TABLE SUMACProsecutorRegion (
	Code int IDENTITY(1,1) NOT NULL,
	DescriptionEN varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NOT NULL,
	DescriptionES varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NOT NULL,
	IsHidden bit DEFAULT 0 NOT NULL,
	HiddenReason varchar(100) COLLATE SQL_Latin1_General_CP1_CI_AI NULL,
	CreatedDate datetime NOT NULL,
	CreatedBy uniqueidentifier NOT NULL,
	ModifiedDate datetime NOT NULL,
	ModifiedBy uniqueidentifier NOT NULL,
	UpdateVersion timestamp NOT NULL,
	PersonId int NULL,
	CONSTRAINT PK__SUMACProsecutorRegion PRIMARY KEY (Code),
	CONSTRAINT FK__SUMACProsecutorRegionPersonId FOREIGN KEY (PersonId) REFERENCES dbo.SUMACPersonBase(PersonId)
)

INSERT INTO SUMACPersonType (ObjectTypeCode, DescriptionEN, DescriptionES, CreatedDate, CreatedBy, ModifiedDate, ModifiedBy)
VALUES (61, 'Prosecutor Region', 'Fiscalía de la Región', GETDATE(), '86FE697B-E340-4CFF-B331-7952ED0E4C27', GETDATE(), '86FE697B-E340-4CFF-B331-7952ED0E4C27')

-- Aguadilla
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;


BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Aguadilla', 'Fiscalía de Aguadilla', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('AGUADILLA', 'AGUADILLA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;


-- Distrito Aibonito
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Aibonito', 'Fiscalía de Distrito Aibonito', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('AIBONITO', 'AIBONITO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Arecibo
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Arecibo', 'Fiscalía de Distrito Arecibo', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('ARECIBO', 'ARECIBO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Bayamon
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Bayamón', 'Fiscalía de Distrito Bayamón', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('BAYAMÓN', 'BAYAMÓN', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito Caguas
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Caguas', 'Fiscalía de Distrito Caguas', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('CAGUAS', 'CAGUAS', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Carolina
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Carolina', 'Fiscalía de Distrito de Carolina', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('CAROLINA', 'CAROLINA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito Fajardo
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Fajardo', 'Fiscalía de Distrito Fajardo', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('FAJARDO', 'FAJARDO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito Guayama
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito Guayama', 'Fiscalía de Distrito Guayama', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('GUAYAMA', 'GUAYAMA', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Humacao
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Humacao', 'Fiscalía de Distrito de Humacao', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('HUMACAO', 'HUMACAO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;


-- Distrito de Mayaguez
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de Mayaguez', 'Fiscalía de Distrito de Mayaguez', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('MAYAGUEZ', 'MAYAGUEZ', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Ponce
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;
DECLARE @zipCode VARCHAR(250) = '00732'; -- editar
DECLARE @line1 VARCHAR(250) = 'Line 1'; -- editar
DECLARE @line2 VARCHAR(250) = 'Line 2'; -- editar
DECLARE @line3 VARCHAR(250) = 'Line 3'; -- editar
DECLARE @line4 VARCHAR(250) = 'Line 4'; -- editar
DECLARE @fullAddress VARCHAR(250) = CONCAT(@line1, ' ', @line2, ' ', @line3, ' ', @line4, ', ', 'Ponce, Puerto Rico, ', @zipCode); -- editar

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Ponce', 'Fiscalía de Ponce', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACAddress (RelatedRecordId, TypeCode, ZipCode, Line1, Line2, Line3, Line4, CountryCode, StateCode, CityCode, FullAddressEN, FullAddressES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (@recordId, 2, @zipCode, @line1, @line2, @line3, @line4, 254, 1, 81, @fullAddress, @fullAddress, @adminUser, @date, @adminUser, @date)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('PONCE', 'PONCE', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Distrito de San Juan
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Distrito de San Juan', 'Fiscalía de Distrito de San Juan', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('SAN JUAN', 'SAN JUAN', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

-- Utuado
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, Email, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Utuado', 'Fiscalía de Utuado', 'janet.ramos@poderjudicial.pr', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('UTUADO', 'UTUADO', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;

Cambio en el tipo de dirección de la Fiscalía de Ponce

-- Ponce
SET XACT_ABORT ON;

DECLARE @adminUser UNIQUEIDENTIFIER = 'BA188E4A-E2B5-45F3-9835-32C94121C00E';
DECLARE @date DATETIME = GETDATE();
DECLARE @recordId INT, @personId INT;
DECLARE @zipCode VARCHAR(250) = '00732'; -- editar
DECLARE @line1 VARCHAR(250) = 'Line 1'; -- editar
DECLARE @line2 VARCHAR(250) = 'Line 2'; -- editar
DECLARE @line3 VARCHAR(250) = 'Line 3'; -- editar
DECLARE @line4 VARCHAR(250) = 'Line 4'; -- editar
DECLARE @fullAddress VARCHAR(250) = CONCAT(@line1, ' ', @line2, ' ', @line3, ' ', @line4, ', ', 'Ponce, Puerto Rico, ', @zipCode); -- editar

BEGIN TRY 
	BEGIN TRANSACTION
	
	INSERT INTO SUMACRecord (ObjectTypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (17, @adminUser, @date, @adminUser, @date)
	
	SET @recordId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACPersonBase (FirstName, FullName, WorkPhone, RecordId, TypeCode, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES ('Fiscalía de Ponce', 'Fiscalía de Ponce', '7870000000', @recordId, 3, @adminUser, @date, @adminUser, @date)
	
	SET @personId = CAST(SCOPE_IDENTITY() AS INT)
	
	INSERT INTO SUMACAddress (RelatedRecordId, TypeCode, ZipCode, Line1, Line2, Line3, Line4, CountryCode, StateCode, CityCode, FullAddressEN, FullAddressES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate)
	VALUES (@recordId, 1, @zipCode, @line1, @line2, @line3, @line4, 254, 1, 81, @fullAddress, @fullAddress, @adminUser, @date, @adminUser, @date)
	
	INSERT INTO SUMACProsecutorRegion (DescriptionEN, DescriptionES, CreatedBy, CreatedDate, ModifiedBy, ModifiedDate, PersonId)
	VALUES ('PONCE', 'PONCE', @adminUser, @date, @adminUser, @date, @personId)
	
	COMMIT TRANSACTION
END TRY
BEGIN CATCH
    IF XACT_STATE() <> 0 ROLLBACK TRANSACTION;
    SELECT ERROR_NUMBER() AS ErrNum, ERROR_MESSAGE() AS ErrMsg, ERROR_LINE() AS ErrLine;
    THROW;
END CATCH;
Actions
Copy link

Also available in: Atom PDF