Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - rescobar

Pages: 1 [2]
General Board / reverse
« on: November 12, 2004, 05:29:46 am »
Hola muchachos!
I spend 1/2 hour making my diagram nice, let say a data model. When I change something in the database and want to reverse this change, ea changes the place of all objects so, I have to put in order again.
How could I instruct ea to synchronize but in the same place?
Thanks for your kind help.

General Board / interfaces
« on: November 11, 2004, 03:08:19 pm »
Hola muchachos!
When I reverse a class from VB.NET, if the class implements an interface, it appears in the class's properties as a link.
That I want to do is the opposite. I want to link an existing interface in ea to a brand new ea created class . I will forward the code from this next.
How could I reach this?
Thanks for your always kind help.

General Board / Circle notation
« on: October 22, 2004, 08:10:18 am »
Hi, muchachos!
Is there a way to represent interfaces with circle notation by default?.
At the present I have to right-click and "Use Circle Notation" in every interface.
Thanks in advance,

General Board / Appearance
« on: October 19, 2004, 12:32:51 pm »
Hi, muchachos!
I have changed the appearance of a individual class (backcolor, lines, etc). I am very satisfied with that new appearance. Now I want to apply this appearance to another object. How could I get that? (step-by-step).
I did not found this in help file.
Thanks a lot for your kind help

General Board / Avoid comments - Help needed
« on: October 06, 2004, 08:15:55 am »
Hi, muchachos!
I don't like the comments generated by the forward eng. procedure. I would like to avoid them. How could I specify not to generate those comments? Or maybe to change them?
I tried "Code Generation Templates" erasing "Notes" but comments are generated anyway.
Thanks in advance for your kind help

General Board / Systems Development Methodology
« on: April 09, 2003, 01:50:42 pm »
How do you think about a VS.NET IDE software design and
modeling all objects?
Where do you think is the "mid-point" between a good modeling
practices and rapid development?
What do you think is the "correct" methodology?

I do the following:

Use Cases
Analysis Diagramas for Use Cases
DataBase modeling (using SQLServer 2000 diagrams)
Reverse database into Model
Programming using IDE
Reverse programs into Model
Refine code and model in a iterative manner.
Every relevant Use case should have at least: Analysis Diagram,
Sequence Diagram and Class Diagram
What do you think?
Thanks in advance

General Board / Collaboration Message sequencing dialog
« on: April 01, 2003, 11:26:51 am »
Somebody knows how to activate the "Collaboration Message sequencing dialog"?. Following EA help, there is no (or I was not able to find) 'Sequence Collaborations' option.
Thanks a lot

General Board / .NET Reverse engineering
« on: February 24, 2003, 05:07:50 am »
Please somebody help me!.
I don't undertand why a class created inside a solution when is reversed to a model, appears in the model, and any object that instantiates this class appears with an association between the two objects. But when an (for example) a datagrid is included in the form (I undestand that we are intantianting a Datagrid class) no class is showed and only a variable referencing the datagrid appears in the form class.
I know that I are missing some concept in object variables, but I don't know where. Thank you for kind help

General Board / ADO.NET Dataset reversed
« on: February 06, 2003, 10:42:16 am »
I don't know if this is a bug.
When you reverse a Dataset created in a Web Service Visual.NET project, the first datatable in the dataset is not reversed properly. All the following tables are created ok (EventsArgs -- DataRow - DataTable).
Any experience about it?

General Board / .NET Framework instantiated objects
« on: February 18, 2003, 12:09:01 pm »
Please somebody could explain me why the following statement

Protected WithEvents dgGradosRiesgo As System.Web.UI.WebControls.DataGrid

in a ASP.NET form produces an attribute in the resulting class reversed by EA instead of a separate class associated with the form??

Thanks for your kind help

General Board / synchronization
« on: February 16, 2003, 03:05:14 pm »
Hi all!

I'm working with a webservice project. EA syncrhronization does not work well. I think there is a bug (maybe particulary with because there is no way that the sync option re-parse new code.
Or maybe I'm doing something wrong? Please let me know if somebody experimented same results.

Uml Process / UML and .NET Framework / vb.NET
« on: February 18, 2003, 04:31:33 am »
Do somebody know a good source (books, articles) to learn vb.NET design and modeling via UML?
I´d like to learn in a practical way applying UML modeling and desing to study cases.
Thanks a lot for your kind help

Uml Process / sequence diagrams
« on: April 01, 2003, 07:48:57 am »
Please somebody could tell me how to construct a "good" sequence diagram from real code?.
For example, in the following code (part of a form class code), how could I represent all the messages?
This is a form with a TabControl. It inlcudes a grid. Also references to a webservice (persistence service).
I'm very confused with the sequence diagrams. The class diagrams are easy and clear and there is no problem with them.
Maybe my approach is wrong?
Thanks to all

Imports System.Text

Public Class frmClientes
 Inherits System.Windows.Forms.Form

 Private pLim As clsLimpiarPantallas
 Private mdsCliente As cpd02.dsClientes01
 Protected WithEvents ds As New cpd02.dsClientes01() 'para todos los datos
 Private ws As New cpd02.ClientesWS()
 Private WithEvents dgRUC As New clsGridRUC()  'tablas que serán leidas de la base de datos
 Private dsI As New cpd02.dsClientes01() 'para la grid

 Private mModoClientes As Integer
 Private mModoRUC As Integer
 Private mCodTipoDocCI As Integer
 Private tbTipoDoc As String = "TipoDoc"
 Private tbLugarEmision As String = "LugarEmision"
 Private tbTiposPersona As String = "TiposPersona"
 Private tbEstadoCivil As String = "EstadoCivil"
 Private tbCaedec As String = "Caedec"
 Private tbProfesiones As String = "Profesiones"
 Private tbSexo As String = "Sexo"
 Private tbTiposVivienda As String = "TiposVivienda"
 Private tbClientes As String = "Clientes"
 Private tbRucCliente As String = "RUCCliente"

Private Sub frmClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   ds.Merge(ws.GetDatos(String.Empty, tbTipoDoc))
   ds.Merge(ws.GetDatos(String.Empty, tbLugarEmision))
   ds.Merge(ws.GetDatos(String.Empty, tbTiposPersona))
   ds.Merge(ws.GetDatos(String.Empty, tbEstadoCivil))
   ds.Merge(ws.GetDatos(String.Empty, tbCaedec))
   ds.Merge(ws.GetDatos(String.Empty, tbProfesiones))
   ds.Merge(ws.GetDatos(String.Empty, tbSexo))
   ds.Merge(ws.GetDatos(String.Empty, tbTiposVivienda))

   'traemos el parámetro de codigo de Carnet de Identidad en la Tabla TipoDoc
   'La clave de este parámetro es 2
   mCodTipoDocCI = CInt(ds.Parametros.Rows(0)(2))

   'combo de Tipo de Documento
   Me.cmbTipoDoc.DataSource = ds.TipoDoc.DefaultView
   Me.cmbTipoDoc.DisplayMember = ds.TipoDoc.DescrTipoDocColumn.ToString
   Me.cmbTipoDoc.ValueMember = ds.TipoDoc.CodTipoDocColumn.ToString
   Me.cmbTipoDoc.SelectedValue = mCodTipoDocCI

   'combo de Lugar de Emisión
   Me.cmbLugarEmision.DataSource = ds.LugarEmision.DefaultView
   ds.LugarEmision.DefaultView.Sort = "CodLugarEmision"
   Me.cmbLugarEmision.DisplayMember = ds.LugarEmision.DescrLugarEmisionColumn.ToString
   Me.cmbLugarEmision.ValueMember = ds.LugarEmision.CodLugarEmisionColumn.ToString
   Me.cmbLugarEmision.SelectedIndex = 0
   Me.cmbLugarEmision.Visible = True

   'combo de Tipos de Persona
   Me.cmbTiposPersona.DataSource = ds.TiposPersona.DefaultView
   ds.TiposPersona.DefaultView.Sort = "CodTiposPersona"
   Me.cmbTiposPersona.DisplayMember = ds.TiposPersona.DescrTiposPersonaColumn.ToString
   Me.cmbTiposPersona.ValueMember = ds.TiposPersona.CodTiposPersonaColumn.ToString

   'combo de Estado Civil
   Me.cmbEstadoCivil.DataSource = ds.EstadoCivil.DefaultView
   ds.EstadoCivil.DefaultView.Sort = "CodEstadoCivil"
   Me.cmbEstadoCivil.DisplayMember = ds.EstadoCivil.DescrEstadoCivilColumn.ToString
   Me.cmbEstadoCivil.ValueMember = ds.EstadoCivil.CodEstadoCivilColumn.ToString

   'combo de Caedec
   Me.cmbCaedec.DataSource = ds.Caedec.DefaultView
   ds.Caedec.DefaultView.Sort = "DescrCaedec"
   Me.cmbCaedec.DisplayMember = ds.Caedec.DescrCaedecColumn.ToString
   Me.cmbCaedec.ValueMember = ds.Caedec.CodCAEDECColumn.ToString

   'combo de Profesiones
   Me.cmbProfesiones.DataSource = ds.Profesiones.DefaultView
   ds.Profesiones.DefaultView.Sort = "DescrProfesiones"
   Me.cmbProfesiones.DisplayMember = ds.Profesiones.DescrProfesionesColumn.ToString
   Me.cmbProfesiones.ValueMember = ds.Profesiones.CodProfesionesColumn.ToString

   'combo de Sexo
   Me.cmbSexo.DataSource = ds.Sexo.DefaultView
   ds.Sexo.DefaultView.Sort = "DescrSexo"
   Me.cmbSexo.DisplayMember = ds.Sexo.DescrSexoColumn.ToString
   Me.cmbSexo.ValueMember = ds.Sexo.CodSexoColumn.ToString

   'combo de TiposVivienda
   Me.cmbTiposVivienda.DataSource = ds.TiposVivienda.DefaultView
   ds.TiposVivienda.DefaultView.Sort = "CodTiposVivienda"
   Me.cmbTiposVivienda.DisplayMember = ds.TiposVivienda.DescrTiposViviendaColumn.ToString
   Me.cmbTiposVivienda.ValueMember = ds.TiposVivienda.CodTiposViviendaColumn.ToString

   'habilitamos solo el tab de ingreso de datos del cliente
   'Me.TabControl1.TabPages.Item(0).Visible = True
   Dim ii As Integer
   For ii = 1 To 4
     Me.TabControl1.TabPages.Item(ii).Enabled = False
   Me.txtCodClienteRUC.BackColor = System.Drawing.Color.White
   Me.txtNombreClienteRUC.BackColor = System.Drawing.Color.White

   'añadimos la grid de RUC
   dgRUC.Visible = False
   'preparamos el tab de acuerdo al estado
   pLim = New clsLimpiarPantallas()
   'El texto del código en blanco aunque esté deshabilitado
   Me.txtCodigo.BackColor = System.Drawing.Color.White

   'habilitamos botones de acuerdo al modo mInsUpd

   If Me.modoClientes = 0 Then
     Me.btnAdd.Enabled = True
     Me.btnModifCliente.Enabled = False
     Me.btnAdd.Enabled = False
     Me.btnModifCliente.Enabled = True
   End If

 End Sub

 Private Sub cmbTipoDoc_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbTipoDoc.SelectedValueChanged
   Dim aa As String = Me.cmbTipoDoc.SelectedValue.GetType.ToString
   If Me.cmbTipoDoc.SelectedValue.GetType.ToString <> "System.Data.DataRowView" Then
     If Me.cmbTipoDoc.SelectedValue = mCodTipoDocCI Then
       Me.cmbLugarEmision.Visible = True
       Me.cmbLugarEmision.Visible = False
     End If
   End If
 End Sub

 Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
   'validamos los campos
   Dim mResul As New ArrayList()
   Dim mValid As New clsValidacion(Me)
   mResul = mValid.ValidarClientes
   If mResul.Count > 0 Then
     Dim sRes As New StringBuilder()
     sRes.Remove(0, sRes.Length)
     Dim mEnum As System.Collections.IEnumerator = mResul.GetEnumerator
     sRes.Append("Por favor corrija los siguientes errores:" & ControlChars.CrLf & ControlChars.CrLf)
     While mEnum.MoveNext()
       sRes.Append(mEnum.Current & ControlChars.CrLf)
     End While
     MessageBox.Show(sRes.ToString, "Errores", MessageBoxButtons.OK, MessageBoxIcon.Error)
     Exit Sub
   End If

   'paso la validación nos creamos una row de la tabla clientes con los datos
   'de la pantalla. Este dataset es nuevo para que solo viajen los datos de la tabla clientes
   'y no los que hemos llenado antes a ds.
   Dim dr As cpd02.dsClientes01.ClientesRow
   dr = dsI.Clientes.NewRow
   dr.ApellidoCasada = Me.txtApellidoCasada.Text
   dr.Celular = Me.txtCelular.Text
   dr.CodCAEDEC = Me.cmbCaedec.SelectedValue
   dr.CodClientes = 1
   dr.CodEstadoCivil = Me.cmbEstadoCivil.SelectedValue
   dr.CodLugarEmision = Me.cmbLugarEmision.SelectedValue
   dr.CodProfesiones = Me.cmbProfesiones.SelectedValue
   dr.CodSexo = Me.cmbSexo.SelectedValue
   dr.CodTipoDoc = Me.cmbTipoDoc.SelectedValue
   dr.CodTiposPersona = Me.cmbTiposPersona.SelectedValue
   dr.CodTiposVivienda = Me.cmbTiposVivienda.SelectedValue
   dr.EMail = Me.txtEMail.Text
   dr.EstacionMod = System.Net.Dns.GetHostName
   dr.FechaMod = DateTime.Now
   dr.LugarNacimiento = Me.txtLugarNacimiento.Text
   dr.FechaNacimiento = Me.dtpFechaNacimiento.Value
   dr.NumCarnetId = Me.txtNumDocumento.Text
   If Me.txtDependientes.Text <> String.Empty And IsNumeric(Me.txtDependientes.Text) Then
     dr.NumDependientes = Me.txtDependientes.Text
   End If
   dr.PrimerApellido = Me.txtPrimerApellido.Text
   dr.PrimerNombre = Me.txtPrimerNombre.Text
   dr.SegundoApellido = Me.txtSegundoApellido.Text
   dr.SegundoNombre = Me.txtSegundoNombre.Text
   dr.UsuarioMod = clsDatosUsuario.usuario
     dsI.Merge(ws.UpdDatos(dsI, tbClientes))
     Me.txtCodigo.Text = dsI.Clientes.Rows(0)(0)
     Dim ii As Integer
     For ii = 1 To 4
       Me.TabControl1.TabPages.Item(ii).Enabled = True
     MessageBox.Show("Se insertó el registro con éxito", "Inserción", MessageBoxButtons.OK, MessageBoxIcon.Information)
   Catch e1 As Exception
     MessageBox.Show("Falla en la actualización de la base de datos." _
             & ControlChars.CrLf & ControlChars.CrLf & _
             e1.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
   End Try

 End Sub

 End Class

Pages: 1 [2]