DigiNG edición Scripting

Método EsMismaEntidad

Nos dice si dos objetos Entidad representan la misma entidad.

¿Esto que significa?

Podemos tener dos referencias diferentes a la misma entidad:

Ejemplo:

Const vbLineas = 1

Dim linea1

Dim linea2

digi.ImprimeMensaje "Seleccione una línea"

Set linea1 = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

digi.ImprimeMensaje "Seleccione la misma línea"

Set linea2 = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

Si el usuario selecciona realmente dos veces la misma línea, tenemos dos referencias distintas (ya que si comprobamos si linea1 = linea2 nos devuelve False) a la misma línea.

Para comprobar con seguridad si las dos referencias se refieren a la misma entidad en DigiNG, utilizamos el método EsMismaEntidad.

Ejemplo:

Const vbLineas = 1

Dim linea1

Dim linea2

digi.ImprimeMensaje "Seleccione una línea"

Set linea1 = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

digi.ImprimeMensaje "Seleccione la misma línea"

Set linea2 = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

If linea1 = Linea2 Then    ' Esto está mal y nunca dará True

    MsgBox "Es muy poco probable que aparezca este cuadro de diálogo"

End If

If linea1.EsMismaEntidad( linea2 ) Then

    MsgBox "Este código ya si que es correcto."

End If

Mirar también:

Método ImprimeMensaje | Método PideEntidad | Objeto Entidad

Fecha de última modificación: lunes, 28 de enero de 2002

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.