' Options:
'Date: 2025-06-07 19:23:39
'Version: 8.12
'Tip: To override a DTO option, remove "''" prefix before updating
'BaseUrl: https://soluser-recaudo.sgsas.co
'
'''GlobalNamespace: 
'''MakePartial: True
'''MakeVirtual: True
'''MakeDataContractsExtensible: False
'''AddReturnMarker: True
'''AddDescriptionAsComments: True
'''AddDataContractAttributes: False
'''AddIndexesToDataMembers: False
'''AddGeneratedCodeAttributes: False
'''AddResponseStatus: False
'''AddImplicitVersion: 
'''InitializeCollections: True
'''ExportValueTypes: False
'IncludeTypes: ArbolPermisosFormasRQ.*
'''ExcludeTypes: 
'''AddNamespaces: 
'''AddDefaultXmlNamespace: http://schemas.servicestack.net/types

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Runtime.Serialization
Imports ServiceStack
Imports ServiceStack.DataAnnotations
Imports Administrador.Modelo.Tipos

Namespace Global

    Namespace Administrador.Modelo.Tipos

        <Route("/Usuarios/Permisos/Forma")>
        Public Partial Class ArbolPermisosFormasRQ
            Implements IReturn(Of PermisosFormas)
            Public Overridable Property Usuario As String
            Public Overridable Property CodSistema As Integer
            Public Overridable Property CodEmpresa As Integer
            Public Overridable Property CodModulo As Integer
            Public Overridable Property CodForma As Integer
            Public Overridable Property Lenguaje As Lenguajes
        End Class

        Public Enum Lenguajes
            ES
            PT
            EN
        End Enum

        Public Partial Class PermisosFormas
            Public Sub New()
                Items = New List(Of PermisosItems)
            End Sub

            Public Overridable Property CodForma As Integer
            Public Overridable Property Nombre As String
            Public Overridable Property Descripcion As String
            Public Overridable Property Items As List(Of PermisosItems)
        End Class

        Public Partial Class PermisosItems
            Public Sub New()
                Items = New List(Of PermisosItems)
            End Sub

            Public Overridable Property CodigoMenu As Decimal
            Public Overridable Property CodigoPadre As Decimal
            Public Overridable Property Nombre As String
            Public Overridable Property Descripcion As String
            Public Overridable Property TienePermiso As Boolean
            Public Overridable Property TipoEjecucion As String
            Public Overridable Property IDEjecucion As String
            Public Overridable Property InfoAdicional As String
            Public Overridable Property Orden As Integer
            Public Overridable Property Items As List(Of PermisosItems)
            Public Overridable Property Icono As String
        End Class
    End Namespace
End Namespace