SQL_PROC_Tabla_ClasePropiedades_C#

/******* Object:  StoredProcedure [dbo].[Tabla_ClasePropiedades_C#] **************/
/******* Fecha: 15/02/2014 21:23:59 ******/
/******* Autor : Jorge Sánchez  ********/

ALTER PROCEDURE [dbo].[Tabla_ClasePropiedades_C#]
@Tabla CHAR(50)

AS

BEGIN

DECLARE @IdCampo INT,@Campo CHAR(50),@Tipo CHAR(50),@Longitud INT --,@Permite_Nulo CHAR(10),@Tabla_Externa CHAR(50),
DECLARE @Prefijo CHAR(1),@sTipo CHAR(10)

DECLARE Campos CURSOR
    FOR SELECT DISTINCT
syscolumns.colid AS IdCampo, syscolumns.name AS Campo, systypes.name AS Tipo,
syscolumns.LENGTH AS Longitud
FROM
sysobjects sysobjects_1 RIGHT OUTER JOIN
sysforeignkeys ON sysobjects_1.id = sysforeignkeys.rkeyid RIGHT OUTER JOIN
syscolumns INNER JOIN
sysobjects ON syscolumns.id = sysobjects.id INNER JOIN
systypes ON syscolumns.xtype = systypes.xtype ON sysforeignkeys.fkeyid = syscolumns.id AND
sysforeignkeys.fkey = syscolumns.colid LEFT OUTER JOIN
sysindexkeys ON sysobjects.id = sysindexkeys.id AND syscolumns.colid = sysindexkeys.colid
WHERE
sysobjects.name = @Tabla AND systypes.name <> 'sysname'
ORDER BY syscolumns.colid

OPEN Campos



FETCH NEXT FROM Campos
INTO @IdCampo,@Campo,@Tipo,@Longitud;

WHILE @@FETCH_STATUS = 0
BEGIN
-- ****************************** PRINT DE LAS PROPIEDADES ****************************************

-- *********>> PREFIJO DE LA PROPIEDAD
SELECT @Prefijo = 'x'
SELECT @sTipo = 'xxxxx'

IF @Tipo = 'char' OR @Tipo = 'nchar' OR @Tipo = 'varchar' BEGIN SELECT @Prefijo = 's';SELECT @sTipo ='string' END
IF @Tipo = 'int' OR @Tipo = 'Numeric' BEGIN SELECT @Prefijo = 'i';SELECT @sTipo ='int' END
IF @Tipo = 'bit' BEGIN SELECT @Prefijo = 'b';SELECT @sTipo ='Boolean' END
IF @Tipo = 'Date' OR @Tipo = 'Datetime' BEGIN SELECT @Prefijo = 'f';SELECT @sTipo ='DateTime' END

SELECT @Prefijo = '_'

-- ************** GENERAMOS LA PROPIEDAD
PRINT 'private '+  LTRIM(RTRIM(@sTipo)) + ' ' + @Prefijo+LTRIM(RTRIM(@Campo)) + ';'
PRINT 'public ' + LTRIM(RTRIM(@sTipo)) + ' ' +  LTRIM(RTRIM(@Campo))
PRINT '{'
PRINT ' get {return ' + @Prefijo+LTRIM(RTRIM(@Campo)) + ';}'
PRINT ' set {' + @Prefijo+LTRIM(RTRIM(@Campo)) +' = value; }'
PRINT '}'
PRINT ''
PRINT ''


-- *************************************************************************************************


FETCH NEXT FROM Campos
INTO @IdCampo,@Campo,@Tipo,@Longitud;

END
CLOSE Campos;
DEALLOCATE Campos;

END