is possible code
ClassDTO = class generic
example
ClassBLL
classDTO
ClassDTO = class generic
example
ClassBLL
B4X:
Private Sub GetAllAtributtes(ClassDTO)
CallSub2(ClassDTO, "setID","100")
End Sub
classDTO
B4X:
Sub Class_Globals
Private mvarID As Long
Private mvarName As String
End Sub
Public Sub getID() As Long
Return mvarID
End Sub
Public Sub setID(value As Long)
mvarID = value
End Sub
Public Sub getName() As String
Return mvarName
End Sub
Public Sub setName(value As String)
mvarName = value
End Sub