Manual de programador _ControlsSAP.pdf

ControlsSAP Framework ®
• ExistDeletedLines.
Ejemplo:
Creamos un objeto Presupuesto e intentamos simular el mismo funcionamiento que un
documento de la DI de SAP. Tendremos varios campos entre ellos el código de cliente y el
nombre. Deberemos tener las siguientes restricciones:
1. Para entrar una Presupuesto es obligatorio entrar el código de cliente.
2. El código de cliente y el nombre no pueden modificarse una vez creado el Presupuesto.
3. El valor del código de cliente debe existir en la tabla de clientes [OCRD.CardCode]
4. Una vez creado el Presupuesto no se permitirá añadir nuevas líneas ni eliminarlas.
Public Class Presupuesto
Inherits ControlsSAP.SAPObject
'...
_
_
_
Public Property CardCode() As String
Get
Return Me.FilaActual("U_GSP_CardCode")
End Get
Set(ByVal Value As String)
Me.FilaActual("U_GSP_CardCode") = Value
End Set
End Property
_
Public Property CardName() As String
Get
Return Me.FilaActual("U_GSP_CardName")
End Get
Set(ByVal Value As String)
Me.FilaActual("U_GSP_CardName") = Value
End Set
End Property
Private Sub Oferta_Updating(ByVal Obj As SAPObject) Handles
Me.Updating
If Me.ExistAddedLines(Me.Lines) Then
Throw New ValidationException("No se puede añadir
una línea una vez creado el
documento")
End If
If Me.ExistDeletedLines(Me.Lines) Then
Throw New ValidationException("No se puede borrar una
fila una vez creado el
documento ")
12