SQL_PROC_Tabla_Modelo_EF_VB

-- DROP PROCEDURE [dbo].[Tabla_Modelo_EF_VB]

-- EXEC Tabla_Modelo_EF_VB 'Tabla'

USE [BD]
GO

/****** Object:  StoredProcedure [dbo].[Tabla_Modelo_EF_VB]    Script Date: 03/28/2014 22:20:00 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [dbo].[PROC_Tabla_Modelo_EF_VB]
    @Tabla CHAR(50)
AS
BEGIN

DECLARE @IdCampo INT,@Campo CHAR(50),@Tipo CHAR(50),@Longitud INT,@IdKey INT ,@Permite_Nulo INT--,@Tabla_Externa CHAR(50),
DECLARE @sTipo CHAR(10),@Anotaciones VARCHAR(500)

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

OPEN Campos


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

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

-- *********>> TIPOS
SELECT @sTipo = 'xxxxx'

IF @Tipo = 'char' OR @Tipo = 'nchar' OR @Tipo = 'varchar' BEGIN SELECT @sTipo ='string' END
IF @Tipo = 'int' OR @Tipo = 'Numeric' BEGIN SELECT @sTipo ='Integer' END
IF @Tipo = 'bit' BEGIN SELECT @sTipo ='Boolean' END
IF @Tipo = 'Date' OR @Tipo = 'Datetime' BEGIN SELECT @sTipo ='Date' END


--- *********>> ANOTACIONES

SELECT @Anotaciones = ''
IF @IdKey IS NOT NULL BEGIN SELECT @Anotaciones = @Anotaciones + '<Key()> _' + CHAR(13) END
IF @IdKey IS NOT NULL BEGIN SELECT @Anotaciones = @Anotaciones + '<DatabaseGenerated(DatabaseGeneratedOption.None)> _' + CHAR(13) END
IF @Permite_Nulo = 0 BEGIN SELECT @Anotaciones = @Anotaciones + '<Required(ErrorMessage:="El Campo ' + LTRIM(RTRIM(@Campo)) + ' es Obligatorio")> _' + CHAR(13) END
SELECT @Anotaciones = @Anotaciones + '<Display(Name:=" ' + LTRIM(RTRIM(@Campo)) + ' ")> _' + CHAR(13)
IF @Tipo = 'char' OR @Tipo = 'nchar' OR @Tipo = 'varchar' BEGIN
    SELECT @Anotaciones = @Anotaciones + '<MaxLength(' + CONVERT(VARCHAR,@Longitud) + ')> _'
END


-- ************** GENERAMOS LA PROPIEDAD
PRINT @Anotaciones
PRINT 'Public Property ' + LTRIM(RTRIM(@Campo)) + ' As ' + @sTipo
PRINT ''
--PRINT ''
-- *************************************************************************************************


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

END
CLOSE Campos;
DEALLOCATE Campos;

END

GO