Manual de programador _ControlsSAP.pdf

ControlsSAP Framework ®
Get
Return Me.FilaActual("U_GSP_ItemCode")
End Get
Set(ByVal value As String)
Me.FilaActual("U_GSP_ItemCode") = value
End Set
End Property
Public Property Import() As Double
Get
Return Me.FilaActual("U_GSP_Import")
End Get
Set(ByVal value As Double)
Me.FilaActual("U_GSP_Import") = value
End Set
End Property
Listado 3: Ejemplo creación de un objeto de tipo línea.
Una vez tengamos la clase líneas creada deberemos crear una propiedad para tener acceso a
estas en la clase maestra. Esta deberá ser de solo-lectura e instanciarse solamente si no tiene
valor la variable que utilicemos para definirla. No nos olvidemos después de inicializar las líneas
en el método InitializeLines.
Private _lines As Contract_Lines
Protected Overrides Function InitializeLines() As Long
Me.DestroyLines(_lines)
End Function
Public ReadOnly Property Cnt1() As Contract_Lines
Get
If Me._lines Is Nothing Then
Me._lines = New Contract_Lines(Me)
End If
Return Me._lines
End Get
End Property
Listado 4: Añadir referencia clase líneas en objeto cabecera.
2.4 Utilización de un objeto de negocio
Una vez definidas todas las clases que componen nuestro objeto de negocio podremos ser
capaces de utilizar este objeto para entrar datos, recuperar datos y actualizarlos.
Dim cont As Contract
cont = New Contract(Me.Company)
10