[SOLUCIONADO] Procedimeinto Almacenado Generar codigo !!!!!!!

[junior1920]

Hola que tal aqui nuevamente con otro problemita y es el siguiente:
Quiero de su ayuda para crear un procedimeinto almacenado que me autogenere el codigo y luego lo inserte

tengo la tabla:

Código SQL:

CREATE TABLE libreta_topograf2(
codigo INT IDENTITY PRIMARY KEY,
codigochar VARCHAR(12),
descripcion text,
tipo_obra VARCHAR(180),
sector VARCHAR(100) NOT NULL,
lugar VARCHAR(180),
anno datetime NOT NULL
);
 

Ahora lo que debe de generar es esto:
Por ejemplo selecciono una fecha y esa fecha que selecciono es por ejemplo 2009
y si la tabla ya tiene registros de ese mismo año debe de insertar en el campo codigochar algo como esto Proy000001, ....,nveces

Y si cambias a otro año no debe de empezar por el codigo de otros años debe de hacer un conteo nuevamente para ese año

ejemplo

codigo | codigovarchar | descripcion | tipo_obra | sector | lugar | anno
1 Proy000001 xxxxx xxxxx xxx xxx 2009
2 Proy000002 xxxxx xxxxx xxx xxx 2009

3 Proy000001 xxxxx xxxxx xxx xxx 2010
4 Proy000002 xxxxx xxxxx xxx xxx 2010


Ojala me respondan. Gracias de antemano

[junior1920]

Alguien por favor que me pueda ayudar

[Libras]

puedes explicar un poco mejor tu problema???

[junior1920]

Iniciado por Libras

puedes explicar un poco mejor tu problema???

Estimado lo que quiero hacer es generar un codigochar; dicho codigo se incremente segun el año por ejemplo

año 2009 -- codigochar:Proy000001, ...n
año 2013 -- codigochar: Proy000001, ... n

[GeriReshef]

Crea la tabla sin codigochar, y recupera los datos así:

Código SQL:

SELECT ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) codigochar,
          *
FROM libreta_topograf2;
 

O más bien así:

Código SQL:

SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) AS VARCHAR),6) codigochar,
          *
FROM libreta_topograf2;
 

[junior1920]

Iniciado por GeriReshef

Crea la tabla sin codigochar, y recupera los datos así:

Código SQL:

SELECT ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) codigochar,
          *
FROM libreta_topograf2;
 

O más bien así:

Código SQL:

SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) AS VARCHAR),6) codigochar,
          *
FROM libreta_topograf2;
 

Umm lo probe y si normal hace lo que quiero pero a la hora de buscar cambia la numeración no habra una manera de que esto se genere cuando creo la tabla para que se inserte solo los datos en el campo codigochar. Por que la verdad cuando hago una busqueda la numeración cambia

[GeriReshef]

Supongo que el problema es que cuando filtras los resultados utilizando el Where - el sistema enumera las filas de nuevo.
La solución puede ser más o menos así:

Código SQL:

WITH T AS
(SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) AS VARCHAR),6) codigochar,
          *
FROM libreta_topograf2)
SELECT *
FROM   T
WHERE tipo_obra='xxxx';
 

Espero que te sirva de ayuda.

[junior1920]

Iniciado por GeriReshef

Supongo que el problema es que cuando filtras los resultados utilizando el Where - el sistema enumera las filas de nuevo.
La solución puede ser más o menos así:

Código SQL:

WITH T AS
(SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() OVER(Partition BY anno ORDER BY codigo) AS VARCHAR),6) codigochar,
          *
FROM libreta_topograf2)
SELECT *
FROM   T
WHERE tipo_obra='xxxx';
 

Espero que te sirva de ayuda.

Hola nuevamente mira cambio la estructura de la BD ahora es asi:

Código SQL:

CREATE TABLE libreta_topograf(
codigo INT IDENTITY PRIMARY KEY,
/*codigochar as 'Proy'+ right('00000000'+cast(codigo as varchar(12)),6)persisted,*/
descripcion text,
tipo_obra VARCHAR(180),
sector VARCHAR(100) NOT NULL,
anno datetime NOT NULL,
codlugar INT CONSTRAINT fk_codlugar FOREIGN KEY
REFERENCES lugar_libreta_topograf(codlugar)
);
GO
CREATE TABLE lugar_libreta_topograf(
codlugar INT IDENTITY PRIMARY KEY,
nombre VARCHAR(80),
descrilugar text
);
GO
 

Y lo que me has indicado sobre usar With funca como si fuese una consulta normal; ahora lo quise implementar en un Procedimiento Almacenado:

Código SQL:

ALTER PROCEDURE likesector_dat_lib_topograf
    @nsector VARCHAR(100),
    @msg AS VARCHAR(100) OUTPUT
AS
BEGIN
    SET NOCOUNT ON;
    BEGIN Tran likesector
    BEGIN Try
        WITH T AS
        (SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() 
        OVER(Partition BY codlugar,YEAR(anno) ORDER BY codlugar,
        YEAR(anno)) AS VARCHAR),6) codigochar,
        *
        FROM libreta_topograf)
        SELECT T.codigo,T.codigochar,T.descripcion,T.tipo_obra,T.sector,lu.nombre,T.anno
        FROM   T INNER JOIN lugar_libreta_topograf lu ON lu.codlugar=T.codlugar
        WHERE T.sector LIKE @nsector + '%'
    SET @msg = 'Si existen registros.'
        COMMIT TRAN likesector
    END try
    BEGIN Catch
        SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
        ROLLBACK TRAN likesector
    END Catch
END
GO
 

Pero me marca este error:
Sintaxis incorrecta junto a la palabra clave 'with'. Si esta instrucción es una expresión de tabla común o una cláusula xmlnamespaces, la instrucción anterior debe terminarse con punto y coma (;).

[GeriReshef]

Para evitar ambigüedades es obligatorio poner un semicolon (;) antes el With
si no es la primera instrucción.
En este caso:

Código SQL:

BEGIN Tran likesector
    BEGIN Try
        ;WITH T AS
        (...
        ...
 

[junior1920]

Hola ahora estoy intentando hacer este procedimiento almacenado para insertar el campo que se genera codigochar

Tabla:

Código SQL:

CREATE TABLE lugar_libreta_topograf(
codlugar INT IDENTITY PRIMARY KEY,
nombre VARCHAR(80),
descrilugar text
);
GO
CREATE TABLE libreta_topograf(
codigo INT IDENTITY PRIMARY KEY,
codigochar VARCHAR(100),/*codigochar as 'Proy'+ right('00000000'+cast(codigo as varchar(12)),6)persisted,*/
descripcion text,
tipo_obra VARCHAR(180),
sector VARCHAR(100) NOT NULL,
anno datetime NOT NULL,
codlugar INT CONSTRAINT fk_codlugar FOREIGN KEY
REFERENCES lugar_libreta_topograf(codlugar)
);
GO
 

Código SQL:

CREATE PROCEDURE insert_dat_lib_topograf
    @ndescripcion text,
    @ntipo_obra VARCHAR(180),
    @nsector VARCHAR(100),
    @ncodlugar INT,
    @nanno datetime,
    @msg AS VARCHAR(100) OUTPUT,
    @Ncodigo AS VARCHAR(10)
 
AS
BEGIN
    SET NOCOUNT ON;
    BEGIN Tran inserta
    BEGIN Try
        
        IF @Ncodigo IS NULL
        BEGIN
        SET @Ncodigo='Proy000001'
        END
 
        SET  @Ncodigo=(SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() 
                        OVER(Partition BY lt.codlugar,YEAR(lt.anno) 
                        ORDER BY lt.codlugar,lt.anno) AS VARCHAR),10) codigochar
                        FROM libreta_topograf lt 
                        INNER JOIN lugar_libreta_topograf lu
                        ON lu.codlugar=lt.codlugar)
 
        INSERT INTO libreta_topograf(codigochar,descripcion,
        tipo_obra,sector,anno,codlugar) 
        VALUES(@Ncodigo,@ndescripcion,@ntipo_obra,
        @nsector,@nanno,@ncodlugar)
        
        SET @msg = 'Se registro correctamente.'
        COMMIT TRAN inserta
    END try
    BEGIN Catch
        SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
        ROLLBACK TRAN inserta
    END Catch
END
GO
 

Pero me arroja este error:

Error al convertir el tipo de datos varchar a int.

Alguien que me pueda ayudar como levantar ese error

[GeriReshef]

Probe el procedimiento y me funciono perfectamente.
Como lo ejecutaste? con cuales parámetros?

[junior1920]

Iniciado por GeriReshef

Probe el procedimiento y me funciono perfectamente.
Como lo ejecutaste? con cuales parámetros?

Hola que tal lo ejecute de la siguiente manera:

Código SQL:

DECLARE @msg AS VARCHAR(100);
EXEC insert_dat_lib_topograf 'ff','oo','ss','aqui','19-02-2013',@msg OUTPUT
SELECT @msg AS msg
 

Umm dime has probado tu cuando la tabla tiene 0 registros??
y si te ejecuta correctamente te agradecería que me muestres como puedo ejecutarlo pues =)

[GeriReshef]

Proba esto:

Código SQL:

DECLARE @msg AS VARCHAR(100);
EXEC insert_dat_lib_topograf 'ff','oo','ss',1,'20130219',@msg OUTPUT,'muuu'
SELECT @msg AS msg
 

1. El parámetro @ncodlugar obtiene números y no cadenas ('aqui').
2. La fecha debe ser de la forma 'yyyymmdd'.
3. te faltó el último parámetro (@ncodigo).

[junior1920]

Código SQL:

CREATE PROCEDURE insert_dat_lib_topograf
    @ndescripcion text,
    @ntipo_obra VARCHAR(180),
    @nsector VARCHAR(100),
    @ncodlugar INT,
    @nanno datetime,
    @msg AS VARCHAR(100) OUTPUT,
    @Ncodigo AS VARCHAR(10)
 
AS
BEGIN
    SET NOCOUNT ON;
    BEGIN Tran inserta
    BEGIN Try
        
 
        SET  @Ncodigo=(SELECT 'Proy'+RIGHT('00000'+CAST(ROW_NUMBER() 
                        OVER(Partition BY lt.codlugar,YEAR(lt.anno) 
                        ORDER BY lt.codlugar,lt.anno) AS VARCHAR),10) codigochar
                        FROM libreta_topograf lt 
                        INNER JOIN lugar_libreta_topograf lu
                        ON lu.codlugar=lt.codlugar)
        INSERT INTO libreta_topograf(codigochar,descripcion,
        tipo_obra,sector,anno,codlugar) 
        VALUES(@Ncodigo,@ndescripcion,@ntipo_obra,
        @nsector,@nanno,@ncodlugar)
    
        IF @Ncodigo IS NULL
        BEGIN
        SET @Ncodigo='Proy000001'
        INSERT INTO libreta_topograf(codigochar,descripcion,
        tipo_obra,sector,anno,codlugar) 
        VALUES(@Ncodigo,@ndescripcion,@ntipo_obra,
        @nsector,@nanno,@ncodlugar)
        END
        
        SET @msg = 'Se registro correctamente.'
        COMMIT TRAN inserta
    END try
    BEGIN Catch
        SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
        ROLLBACK TRAN inserta
    END Catch
END
GO
 

Ocurrio un Error: No se puede insertar el valor NULL en la columna 'codigochar', tabla 'INVENTARIO_L

No funca man

[junior1920]

ESTIMADO(S):
LOGRE CREAR EL PROCEDIMIENTO ALMACENADO: INGRESA EL REGISTRO Y TIENE EL CAMPO codigochar QUE ES COMO UN CODIGO DE SEGUIMIENTO EL CUAL INCREMENTA SEGUN EL LUGAR Y EL AÑO.

Código SQL:

CREATE PROCEDURE insert_dat_lib_topograf
    @ndescripcion text,
    @ntipo_obra VARCHAR(180),
    @nsector VARCHAR(100),
    @ncodlugar INT,
    @nanno datetime,
    @msg AS VARCHAR(500) OUTPUT
    
AS
BEGIN
    SET NOCOUNT ON;
    BEGIN Tran inserta
    BEGIN Try
        DECLARE @Ncodigo AS VARCHAR(12)
        DECLARE @N AS VARCHAR(12)
        DECLARE @A AS INT
        DECLARE @CONT AS INT
            BEGIN
                SET @CONT=0
                --SELECT @C=max(codigo) FROM libreta_topograf
                SELECT @A=COUNT(codigo) FROM libreta_topograf  
                WHERE datepart(YEAR,anno)=DATEPART(YEAR,@nanno)
                AND codlugar=@ncodlugar
                IF @A>0 
                    BEGIN
                        SET @CONT=@A+1
                        SELECT @N='Proy'+ RIGHT('00000000'+CAST(@CONT
                        AS VARCHAR(12)),8) FROM libreta_topograf
                        SET  @Ncodigo=@N
                    
                    INSERT INTO libreta_topograf(codigochar,descripcion,
                    tipo_obra,sector,anno,codlugar) 
                    VALUES(@Ncodigo,@ndescripcion,@ntipo_obra,
                    @nsector,@nanno,@ncodlugar)
                    END
                IF @A=0 OR @A=NULL
                    BEGIN
                        SET @N='Proy00000001'
                        SET  @Ncodigo=@N
                        INSERT INTO libreta_topograf(codigochar,descripcion,
                        tipo_obra,sector,anno,codlugar) 
                        VALUES(@Ncodigo,@ndescripcion,@ntipo_obra,
                        @nsector,@nanno,@ncodlugar)
                    END
            --BREAK
            END
        SET @msg = 'Se registro correctamente.'
        COMMIT TRAN inserta
    END try
    BEGIN Catch
        SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(555), ERROR_LINE() ) + '.'
        ROLLBACK TRAN inserta
    END Catch
END
GO