public void GravaProc(TableDefs Tabs, StringBuilder Out, Boolean soPoco) { Out.ApLine(); Out.Append(" // Proc ") .ApLine(Name); Out.Append(" public class ") .Append(NomeClass) .ApLine(" : DBProc"); Out.ApLine(" {"); foreach (ColDef Coluna in Cols) { Coluna.GravaDeclField(Out); } // Grava um constructor default com que constroi todas as colunas Out.ApLine(); Out.ApLine(" // Constructor"); Out.Append(" public ") .Append(NomeClass) .ApLine("(DBConnection Conn)"); Out.ApLine(" : base(Conn)"); Out.ApLine(" {"); foreach (ColDef Coluna in Cols) { Coluna.GravaInicField(Out); } Out.ApLine(); Out.ApLine(" Command.CommandType = CommandType.StoredProcedure;"); Out.Append(" Command.CommandText = \"") .Append(Name) .ApLine("\";"); Out.ApLine(" }"); /* Constructors a partir de tabelas ? * Só se tiver na mesma posição para evitar confusão.... * Disconsidera o DtInclusao DateTime e campos tipo TimeStamp */ foreach (TableDef Tab in Tabs) { if (Tab != this && Tab.Type == "U") // Somente Tabelas { Int32 CH = CamposIguais(Tab.ColsSemTSSemDtInclusao); if (CH > 0) { GravaConstructorHerdProc(Out, Tab, CH, soPoco); } } } Out.ApLine(" }"); }
public void GravaCursor(StringBuilder Out) { Out.Append(" // Tabela ") .ApLine(Name); Out.Append(" public partial class ") .Append(NomeClass) .Append(" : DBCursor, IRecFuncs<r") .Append(NomeClass) .Append(">"); if (TemIStdPKey) { Out.ApLine(", IStdPKey"); } Out.ApLine(" {"); foreach (ColDef Coluna in Cols) { Coluna.GravaDeclField(Out); } Out.ApLine(); Out.ApLine(" // Constructor"); Out.Append(" public ") .Append(NomeClass); Out.ApLine("(DBConnection Conn)"); Out.ApLine(" : base(Conn)"); Out.ApLine(" {"); Out.Append(" Name = \"") .Append(NomeClass) .ApLine("\";"); Out.ApLine(); foreach (ColDef Coluna in Cols) { Coluna.GravaInicField(Out); } Out.ApLine(" }"); if (TemIStdPKey) { GeraPKeyInterface(Out, ColPKey); } GeraRecFuncs(Out, String.Empty); Out.ApLine(" }"); Out.ApLine(); }
public void GravaView(StringBuilder Out) { Out.Append(" /* View ") .ApLine(Name); Out.ApLine(ViewText); Out.ApLine(" */"); Out.Append(" public partial class ") .Append(NomeClass) .Append(" : "); Out.Append("DBCursor, IRecFuncs<r") .Append(NomeClass) .Append(">"); if (TabHerd != null) { if (TabHerd.TemIStdPKey) { Out.Append(", IStdPKey"); } } Out.ApLine(); Out.ApLine(" {"); foreach (ColDef Coluna in Cols) { //if (Coluna.Index >= CamposHerd) Coluna.GravaDeclField(Out); } Out.ApLine(); Out.ApLine(" // Constructor"); Out.Append(" public ") .Append(NomeClass) .ApLine("(DBConnection Conn)"); Out.ApLine(" : base(Conn)"); Out.ApLine(" {"); Out.Append(" Name = \"") .Append(NomeClass) .ApLine("\";"); Out.ApLine(); foreach (ColDef Coluna in Cols) { // if (Coluna.Index >= CamposHerd) Coluna.GravaInicField(Out); } Out.ApLine(" }"); if (TabHerd != null) { if (TabHerd.TemIStdPKey) { GeraPKeyInterface(Out, TabHerd.ColPKey); } } GeraRecFuncs(Out, "new"); Out.ApLine(" }"); Out.ApLine(); }