BEGIN TRANSACTION;

BEGIN TRY

    IF NOT EXISTS (
        SELECT 1
        FROM Sys_ObjetosApp
        WHERE IdObj = 'FRMDTIPCAR'
            AND IdGrupo = 'TESCAT'
            AND SubModulo = 'VEH'
    )
    BEGIN
        INSERT INTO Sys_ObjetosApp (
            IdObj, IdGrupo, SubModulo,
            IndObj, Nombre, Formulario,
            Permisos, NivelMinimo, NomArchivo
        )
        VALUES (
            'FRMDTIPCAR', 'TESCAT', 'VEH',
            24, 'Tipos de Carrocería', 'FRMDTIPCAR',
            'S', 0, NULL
        );
    END

    INSERT INTO adm_Permisos (
        IdUsuario, IdObj,     Consecutivo,
        PerAdd,    PerUpdate, PerDelete,
        PerAnular, PerRead,   PerRename
    )
    SELECT	
        U.IdUsuario,
        'FRMDTIPCAR' AS IdObj,
        24 AS Consecutivo,
        0 AS PerAdd,
        0 AS PerUpdate,
        0 AS PerDelete,
        0 AS PerAnular,
        0 AS PerRead,
        0 AS PerRename
    FROM adm_Usuarios AS U
    LEFT JOIN adm_Permisos AS P
        ON P.IdUsuario = U.IdUsuario
        AND P.IdObj = 'FRMDTIPCAR'
    WHERE
        U.IdGrupo < 4
        AND P.IdUsuario IS NULL;

    COMMIT TRANSACTION;

END TRY
BEGIN CATCH

    ROLLBACK TRANSACTION;

    -- Opcional: ver error
    SELECT 
        ERROR_NUMBER() AS NumeroError,
        ERROR_MESSAGE() AS MensajeError;

END CATCH;