CapicuaGenGaspar 0.0.2

data/lib/CapicuaGenGaspar/DataAccess/CSSqlDataAccess/Source/cs_sql_data_access_feature.rb

@@ -0,0 +1,106 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+require 'active_support/core_ext/object/blank'
+
+require_relative '../../../gaspar'
+require_relative '../../../Mixins/cs_db_connection_provider_mixin'
+require_relative '../../../Mixins/cs_namespace_mixin'
+require_relative '../../../Mixins/entity_interface_mixin'
+require_relative '../../../Mixins/entity_sql_table_mixin'
+
+
+module CapicuaGen::Gaspar
+
+  # Caracteristica generadora para la capa de persistencia
+  # en case a las entidades obtenidas en un archivo .SQL
+  class CSSqlDataAccessFeature < CapicuaGen::TemplateFeature
+    include CapicuaGen
+    include CapicuaGen::Gaspar
+    include CapicuaGen::Melchior
+
+
+    public
+
+    # Inicializa la caracteristica
+    def initialize(values= {})
+      super(values)
+
+      # Configuro los tipos si estos no han sido configurados previamente
+      self.types= [:data_access] if self.types.blank?
+
+      # Configuro los templates
+      set_template("data_access_exception", Template.new(:file => 'data_access_exception.erb'))
+      set_template("data_access", Template.new(:file => 'data_access.erb'))
+      set_template("data_access_table", Template.new(:file => 'data_access_table.erb'))
+
+
+    end
+
+    # Configura los objetivos de las platillas (despues de establecer el generador)
+    def configure_template_targets
+
+      # Configuro los templates
+      set_template_target('data_access_exception', TemplateTarget.new(:out_file => "DataAccessException.cs", :types => :proyect_file, :class_name => 'DataAccessException'))
+      set_template_target('data_access', TemplateTarget.new(:out_file => "DataAccess.cs", :types => :proyect_file, :class_name => 'DataAccess'))
+
+      # Busco  las caracteristicas que contiene entidades de SQL para una table
+      get_tables do |e|
+        set_template_target("data_access_table/#{get_entity_data_access_name(e.name)}",
+                            TemplateTarget.new(
+                                :out_file      => "#{get_entity_data_access_name(e.name)}.cs",
+                                :types         => :proyect_file,
+                                :class_name    => get_entity_data_access_name(e.name),
+                                :entity_schema => e,
+                            )
+        )
+
+      end
+
+    end
+
+    # Resetea los atributos personalizados de la caracteristica (antes de establecer el generador)
+    def reset_attributes
+      self.generation_attributes[:out_dir]  = nil
+      self.generation_attributes[:namespace]= nil
+    end
+
+    # Configura los atributos personalizados de la caracteristica (antes de establecer el generador)
+    def configure_attributes()
+      self.generation_attributes[:out_dir]  = "#{self.generation_attributes[:out_dir]}/#{self.generation_attributes[:namespace]}/Data.Access" unless self.generation_attributes.has_in_self?(:out_dir)
+      self.generation_attributes[:namespace]= "#{self.generation_attributes[:namespace]}.Data.Access" unless self.generation_attributes.has_in_self?(:namespace)
+    end
+
+
+    # Obtiene el nombre de la clase de persistencia asociada a una entidad
+    def get_entity_data_access_name(entity_name)
+      return "#{entity_name}DataAccess"
+    end
+
+    # Obtiene el nombre completo de la clase de persistencia asociada a una entidad
+    def get_entity_data_access_full_name(entity_name)
+      return "#{self.generation_attributes[:namespace]}.#{get_entity_data_access_name(entity_name)}"
+    end
+
+  end
+end
+
+

data/lib/CapicuaGenGaspar/DataAccess/CSSqlDataAccess/Template/data_access.erb

@@ -0,0 +1,154 @@
+<%
+#encoding: UTF-8
+
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+%>using System;
+using System.Configuration;
+using System.Data;
+using System.Data.Common;
+using System.Text;
+using System.Collections.Generic;
+
+
+
+namespace  <%=self.generation_attributes[:namespace]%>
+{
+    /// <summary>
+    /// Clase base de acceso a datos
+    /// </summary>
+    abstract partial class AccesoDatos<T>
+    {
+        #region Propiedades
+
+        /// <summary>
+        /// Nombre de la conexión
+        /// </summary>
+        protected const string nombreConexion= <%=get_db_connection_name_method%>;
+
+        /// <summary>
+        /// Fabrica que crea los objetos de acceso a datos
+        /// </summary>
+        protected DbProviderFactory dbProviderFactory;
+
+        #endregion Propiedades
+
+        #region Constructor
+
+        /// <summary>
+        /// Constructor
+        /// </summary>
+        public AccesoDatos()
+        {
+            dbProviderFactory = <%=get_db_connection_provider_method%>;
+        }
+
+        #endregion Constructor
+
+        #region Sentencias SQL
+
+        /// <summary>
+        /// Listado completo de los registros
+        /// </summary>
+        /// <returns>Listado completo de los registros</returns>
+        public abstract IEnumerable<T> Listar();
+
+
+        /// <summary>
+        /// Consulta
+        /// </summary>
+        /// <param name="registro">Registro a consultar</param>
+        /// <returns>Registro consultado</returns>
+        public abstract T Consultar(T registro);
+
+        /// <summary>
+        /// Consulta si un registro existe
+        /// </summary>
+        /// <param name="registro">Registro a consultar</param>
+        /// <returns>Devuelve el registro o nulo</returns>
+        public abstract T ConsultarExiste(T registro);
+
+        /// <summary>
+        /// Actualización
+        /// </summary>
+        /// <param name="registro">Registro a actualizar</param>
+        public abstract void Actualizar(T registro);
+
+        /// <summary>
+        /// Inserta un registro
+        /// </summary>
+        /// <param name="registro">Registro para insertar</param>
+        public abstract void Insertar(T registro);
+
+        /// <summary>
+        /// Borrado de registros
+        /// </summary>
+        /// <param name="registro">Registro a eliminar</param>
+        public abstract void Eliminar(T registro);
+
+        #endregion Sentencias SQL
+
+        #region funciones para crear comandos
+
+        /// <summary>
+        /// Devuelve una conexión abierta a base de datos
+        /// </summary>
+        /// <returns>Conexión abierta</returns>
+        protected virtual DbConnection CrearConexionAbierta()
+        {
+            DbConnection dbConnection = dbProviderFactory.CreateConnection();
+            dbConnection.ConnectionString = <%=get_db_connection_string_method%>;
+            dbConnection.Open();
+            return dbConnection;
+        }
+
+        /// <summary>
+        /// Crea un comando de texto
+        /// </summary>
+        /// <param name="textoComando">Texto a crear</param>
+        /// <returns>comando</returns>
+        protected virtual DbCommand CrearComando(string textoComando)
+        {
+            DbCommand comando = dbProviderFactory.CreateCommand();
+            comando.CommandType = CommandType.Text;
+            comando.CommandText = textoComando;
+            return comando;
+        }
+
+        /// <summary>
+        /// Agregado un parámetro a un comando
+        /// </summary>
+        /// <param name="comando">Comando</param>
+        /// <param name="nombre">Nombre del parámetro</param>
+        /// <param name="tipoSql">Tipo del parámetro</param>
+        /// <param name="valor">Valor del parámetro</param>
+        protected virtual void AgregarParametro(DbCommand comando, string nombre, DbType tipoSql, object valor)
+        {
+            DbParameter parametro = dbProviderFactory.CreateParameter();
+            parametro.ParameterName = nombre;
+            parametro.DbType = tipoSql;
+            parametro.Value = valor;
+            comando.Parameters.Add(parametro);
+        }
+
+        #endregion funciones para crear comandos
+    }
+}

data/lib/CapicuaGenGaspar/DataAccess/CSSqlDataAccess/Template/data_access_exception.erb

@@ -0,0 +1,36 @@
+<%
+#encoding: UTF-8
+
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+%>namespace <%=self.generation_attributes[:namespace]%>
+{
+    /// <summary>
+    /// Excepción relativa a un error en acceso a datos
+    /// </summary>
+    partial class AccesoDatosException : ExcepcionControlada
+    {
+        public AccesoDatosException(string mensaje)
+            : base(mensaje)
+        {
+        }
+    }
+}

data/lib/CapicuaGenGaspar/DataAccess/CSSqlDataAccess/Template/data_access_table.erb

@@ -0,0 +1,298 @@
+<%
+#encoding: UTF-8
+
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+%>using System;
+using System.Configuration;
+using System.Data;
+using System.Data.Common;
+using System.Text;
+using System.Collections.Generic;
+<%=get_namespaces_text(:business_interfaces) %>
+
+namespace <%=generation_attributes[:namespace]%>
+{
+    /// <summary>
+    /// Capa de acceso a datos de una<%=template_target.class_name%>
+    /// </summary>
+    partial class  <%=template_target.class_name%><T> : AccesoDatos<T> where T : class, <%=get_entity_interface_name(template_target.entity_schema.name)%>, new()
+    {
+
+        #region Sentencias SQL
+        
+        /// <summary>
+        /// Consulta
+        /// </summary>
+        /// <param name="<%=template_target.entity_schema.name.downcase%>">Registro a consultar</param>
+        /// <returns>Registro consultado</returns>
+        public override T Consultar(T <%=template_target.entity_schema.name.downcase%>)
+        {
+           T resultado = ConsultarExiste(<%=template_target.entity_schema.name.downcase%>);
+
+            if (resultado == null)
+            {
+                throw new AccesoDatosException("No existe el registro");
+            }
+            else
+            {
+                return resultado;
+            }
+        }
+
+        /// <summary>
+        /// Lista todos los registros
+        /// </summary>
+        /// <returns>Registros</returns>
+        public override IEnumerable<T> Listar()
+        {
+            List<T> listaResultado = new List<T>();
+
+            StringBuilder query = new StringBuilder();
+
+            query.AppendLine("SELECT");
+            <%
+            total=template_target.entity_schema.fields.count
+            indice=0
+            template_target.entity_schema.fields.each { |field|
+            indice=indice+1
+            %>query.AppendLine("  <%=field.name%><%="," if indice!=total%>");
+            <%}%>query.AppendLine("FROM");
+            query.AppendLine("    <%=template_target.entity_schema.sql_name.downcase%>");
+
+            DbCommand comando = CrearComando(query.ToString());
+
+            using (DbConnection conexion = CrearConexionAbierta())
+            {
+                comando.Connection = conexion;
+                DbDataReader reader = comando.ExecuteReader();
+
+                if (reader.HasRows)
+                {
+                    while (reader.Read())
+                    {
+                       T resultado = new T();
+                        <%
+                        template_target.entity_schema.fields.each { |field|
+                        %> if (reader["<%=field.name%>"] != DBNull.Value) resultado.<%=field.name%> = (<%=field.net_type%>)reader["<%=field.name%>"];
+                        <%}%>
+                        listaResultado.Add(resultado);
+                    }
+                }
+
+            }
+
+            return listaResultado;
+        }
+        
+        /// <summary>
+        /// Consulta si un registro existe
+        /// </summary>
+        /// <param name="<%=template_target.entity_schema.name.downcase%>">Registro a consultar</param>
+        /// <returns>Devuelve el registro o nulo</returns>
+        public override T ConsultarExiste(T <%=template_target.entity_schema.name.downcase%>)
+        {
+            StringBuilder query = new StringBuilder();
+
+            query.AppendLine("SELECT");
+            <%
+            total=template_target.entity_schema.fields.count
+            indice=0
+            template_target.entity_schema.fields.each { |field|
+            indice=indice+1
+            %>query.AppendLine("  <%=field.name%><%="," if indice!=total%>");
+            <%}%>query.AppendLine("FROM");
+            query.AppendLine("    <%=template_target.entity_schema.sql_name.downcase%>");
+            query.AppendLine("WHERE");
+            <%
+            total=template_target.entity_schema.primary_fields.count
+            indice=0
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1 
+            %>query.AppendLine("<%=field.name%>=@p<%=indice%><%=" AND" if indice!=total%>"); 
+            <%}%>
+
+            DbCommand comando = CrearComando(query.ToString());
+            <%
+            indice=0
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1
+            %>AgregarParametro(comando, "@p<%=indice%>",<%=field.sql_net_type%>, <%=template_target.entity_schema.name.downcase%>.<%=field.name%>);
+            <%}%>  
+
+
+            using (DbConnection conexion = CrearConexionAbierta())
+            {
+                comando.Connection = conexion;
+                DbDataReader reader = comando.ExecuteReader();
+
+                if (reader.HasRows)
+                {
+                    while (reader.Read())
+                    {
+                       T resultado = new T();
+                        <%
+                        template_target.entity_schema.fields.each { |field|
+                        %> if (reader["<%=field.name%>"] != DBNull.Value) resultado.<%=field.name%> = (<%=field.net_type%>)reader["<%=field.name%>"];
+                        <%}%>
+
+                        return resultado;
+                    }
+                }
+
+                return null;
+            }
+        }
+
+        /// <summary>
+        /// Actualización
+        /// </summary>
+        /// <param name="<%=template_target.entity_schema.name.downcase%>">Registro a actualizar</param>
+        public override void Actualizar(T <%=template_target.entity_schema.name.downcase%>)
+        {
+            Consultar(<%=template_target.entity_schema.name.downcase%>);
+
+            StringBuilder query = new StringBuilder();
+            query.AppendLine("UPDATE <%=template_target.entity_schema.sql_name.downcase%>");
+            query.AppendLine("SET");  
+            <% 
+            total=template_target.entity_schema.non_primary_fields.count
+            indice=0
+            template_target.entity_schema.non_primary_fields.each { |field|
+            indice=indice+1
+            %>query.AppendLine("  <%=field.name%>=@p<%=indice%><%="," if indice!=total%>");
+            <%}%>query.AppendLine("WHERE");
+            <%
+            total=indice + template_target.entity_schema.primary_fields.count 
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1
+            %>query.AppendLine("  <%=field.name%>=@p<%=indice%><%=" AND" if indice!=total%>"); 
+            <%}%>
+            DbCommand comando = CrearComando(query.ToString());
+            <%
+            indice=0
+            template_target.entity_schema.non_primary_fields.each { |field|
+            indice=indice+1
+            %>AgregarParametro(comando, "@p<%=indice%>",<%=field.sql_net_type%>, <%=template_target.entity_schema.name.downcase%>.<%=field.name%>);
+            <%}
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1
+            %>AgregarParametro(comando, "@p<%=indice%>",<%=field.sql_net_type%>, <%=template_target.entity_schema.name.downcase%>.<%=field.name%>);
+            <%}%>    
+            
+            using (DbConnection conexion = CrearConexionAbierta())
+            {
+                comando.Connection = conexion;
+                comando.ExecuteNonQuery();
+            }
+        }
+
+       
+        
+        /// <summary>
+        /// Inserta un registro
+        /// </summary>
+        /// <param name="<%=template_target.entity_schema.name.downcase%>">Registro para insertar</param>
+        public override void Insertar(T <%=template_target.entity_schema.name.downcase%>)
+        {
+           T registroExistente = ConsultarExiste(<%=template_target.entity_schema.name.downcase%>);
+
+            if (registroExistente != null)
+            {
+                throw new AccesoDatosException("El registro ya existe");
+            }
+
+            StringBuilder query = new StringBuilder();
+            query.AppendLine("INSERT INTO <%=template_target.entity_schema.sql_name.downcase%>");
+            query.AppendLine("(");
+            <%
+            total=template_target.entity_schema.fields.count
+            indice=0
+            template_target.entity_schema.fields.each { |field|
+              indice=indice+1
+            next if field.identity
+            %>query.AppendLine("  <%=field.name%><%="," if indice!=total%>"); 
+            <%}%>query.AppendLine(")");
+            query.AppendLine("VALUES");
+            query.AppendLine("(");
+            <%
+            total=template_target.entity_schema.fields.count
+            indice=0
+            template_target.entity_schema.fields.each { |field|
+            indice=indice+1
+            next if field.identity
+            %>query.AppendLine("  @p<%=indice%><%="," if indice!=total%>"); 
+            <%}%>query.AppendLine(")");
+
+            DbCommand comando = CrearComando(query.ToString());
+            <%
+            indice=0
+            template_target.entity_schema.fields.each { |field|
+            indice=indice+1
+            next if field.identity
+            %>AgregarParametro(comando, "@p<%=indice%>",<%=field.sql_net_type%>, <%=template_target.entity_schema.name.downcase%>.<%=field.name%>);
+            <%}%>  
+
+
+            using (DbConnection conexion = CrearConexionAbierta())
+            {
+                comando.Connection = conexion;
+                comando.ExecuteNonQuery();
+            }
+        }
+
+        /// <summary>
+        /// Borrado de registros
+        /// </summary>
+        /// <param name="<%=template_target.entity_schema.name.downcase%>">Registro a eliminar</param>
+        public override void Eliminar(T <%=template_target.entity_schema.name.downcase%>)
+        {
+            Consultar(<%=template_target.entity_schema.name.downcase%>);
+
+            StringBuilder query = new StringBuilder();
+            query.AppendLine("DELETE <%=template_target.entity_schema.sql_name.downcase%>");
+            query.AppendLine("WHERE");
+            <%
+            total=template_target.entity_schema.primary_fields.count
+            indice=0
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1 
+            %>query.AppendLine("<%=field.name%>=@p<%=indice%><%=" AND" if indice!=total%>"); 
+            <%}%>
+
+            DbCommand comando = CrearComando(query.ToString());
+            <%
+            indice=0
+            template_target.entity_schema.primary_fields.each { |field|
+            indice=indice+1
+            %>AgregarParametro(comando, "@p<%=indice%>",<%=field.sql_net_type%>, <%=template_target.entity_schema.name.downcase%>.<%=field.name%>);
+            <%}%>  
+
+            using (DbConnection conexion = CrearConexionAbierta())
+            {
+                comando.Connection = conexion;
+                comando.ExecuteNonQuery();
+            }
+        }
+
+        #endregion
+    }
+}

data/lib/CapicuaGenGaspar/Entities/CSEntity/Source/entity_field_schema.rb

@@ -0,0 +1,100 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+require 'active_support/core_ext/object/blank'
+
+require_relative '../../../gaspar'
+
+
+module CapicuaGen::Melchior
+
+  # Modifica la case Entity Field Schema, para agregar
+  # referencias a componentes de .NET
+  class EntityFieldSchema
+
+    # Convierte el tipo de un campo o un tipo de .NET
+    def net_type
+
+      case @type.upcase
+        when "SMALLINT"
+          return "Int16"
+        when "INTEGER", "INT"
+          return "int"
+        when "DECIMAL", "REAL", "MONEY"
+          return "decimal"
+        when "CHAR", "VARCHAR", "NCHAR", "NVARCHAR"
+          return "string"
+        when "DATE", "DATETIME"
+          return "DateTime"
+        when "BIT"
+          return "bool"
+        else
+          return "object"
+      end
+    end
+
+
+    # Convierte el tipo de un campo o un tipo SQL de .NET
+    def sql_net_type
+
+      case @type.upcase
+        when "SMALLINT"
+          return "DbType.Int16"
+        when "INTEGER", "INT"
+          return "DbType.Int32"
+        when "DECIMAL", "REAL", "MONEY"
+          return "DbType.Decimal"
+        when "CHAR", "VARCHAR", "NCHAR", "NVARCHAR"
+          return "DbType.String"
+        when "DATE", "DATETIME"
+          return "DbType.DateTime"
+        when "BIT"
+          return "DbType.Boolean"
+        else
+          return "DbType.String"
+      end
+
+    end
+
+
+    # Convierte el tipo de un campo desde un texto, a un objeto .NET
+    def convert_from_text
+      case @type.upcase
+        when "SMALLINT"
+          return "Convert.ToInt16("
+        when "INTEGER", "INT"
+          return "Convert.ToInt32("
+        when "DECIMAL", "REAL", "MONEY"
+          return "Convert.ToDecimal("
+        when "CHAR", "VARCHAR", "NCHAR", "NVARCHAR"
+          return "("
+        when "DATE", "DATETIME"
+          return "Convert.ToDateTime("
+        when "BIT"
+          return "Convert.ToBoolean("
+        else
+          return "("
+      end
+    end
+
+  end
+
+end