Imports bdGestionAsegasa.seriesfacturas

Partial Public Class registrosverifactu
    Public ReadOnly Property CSV As String
        Get

            If Me.peticionesverifactu Is Nothing Then
                Return String.Empty
            Else
                Return Me.peticionesverifactu.CSV
            End If
        End Get
    End Property
    Public ReadOnly Property DescripcionEstado As String
        Get
            Return (CType(Me.Estado, EstadoEnum)).ToString().Replace("_", " ")
        End Get
    End Property

    Public ReadOnly Property DescripcionOperacion As String
        Get
            Return (CType(Me.Operacion, OperacionEnum)).ToString().Replace("_", " ")
        End Get
    End Property
    Public ReadOnly Property DescripcionTipoFactura As String
        Get

            Select Case CType(Me.TipoFactura, TipoFacturaEnum)
                Case TipoFacturaEnum.F1
                    Return "F1 - Factura (art. 6, 7.2 y 7.3 del RD 1619/2012)"
                Case TipoFacturaEnum.F2
                    Return "F2 - Factura Simplificada y Facturas sin identificación del destinatario"
                Case TipoFacturaEnum.F3
                    Return "F3 - Factura emitida en sustitución de facturas simplificadas facturadas y declaradas"
                Case TipoFacturaEnum.R1
                    Return "R1 - Factura Rectificativa (Error fundado en derecho y Art. 80 Uno Dos y Seis LIVA)"
                Case TipoFacturaEnum.R2
                    Return "R2 - Factura Rectificativa (Art. 80.3). Cuando el destinatario de las operaciones sujetas al Impuesto no haya hecho efectivo el pago de las cuotas repercutidas y siempre que, con posterioridad al devengo de la operación, se dicte auto de declaración de concurso."
                Case TipoFacturaEnum.R3
                    Return "R3 - Factura Rectificativa (Art. 80.4). Cuando los créditos correspondientes a las cuotas repercutidas por las operaciones gravadas sean total o parcialmente incobrables."
                Case TipoFacturaEnum.R4
                    Return "R4 - Factura Rectificativa (Resto)"
                Case TipoFacturaEnum.R5
                    Return "R5 - Factura Rectificativa en facturas simplificadas. Factura emitida en sustitución de facturas simplificadas facturadas y declaradas"
                    'Case TipoFacturaEnum.A
                    '    Return "Factura Anulación"
                Case Else
                    Return "Tipo de factura desconocido"
            End Select
        End Get
    End Property

    Public Enum TipoFacturaEnum
        F1 'Factura (art. 6, 7.2 y 7.3 del RD 1619/2012).
        F2 'Factura Simplificada y Facturas sin identificación del destinatario art. 6.1.d) RD 1619/2012.
        F3 'Factura emitida en sustitución de facturas simplificadas facturadas y declaradas.
        R1 'Factura Rectificativa (Error fundado en derecho y Art. 80 Uno Dos y Seis LIVA).
        R2 'Factura Rectificativa (Art. 80.3). Cuando el destinatario de las operaciones sujetas al Impuesto no haya hecho efectivo el pago de las cuotas repercutidas y siempre que, con posterioridad al devengo de la operación, se dicte auto de declaración de concurso.
        R3 'Factura Rectificativa (Art. 80.4). Cuando los créditos correspondientes a las cuotas repercutidas por las operaciones gravadas sean total o parcialmente incobrables.
        R4 'Factura Rectificativa (Resto).
        R5 'Factura Rectificativa en facturas simplificadas. Factura emitida en sustitución de facturas simplificadas facturadas y declaradas.
        '        A = 100 'Factura Anulación (Tipo añadido por Tecnosis)
    End Enum
    Public Enum OperacionEnum
        ALTA = 0
        SUBSANACION = 1
        ALTA_POR_RECHAZO = 2
        REENVÍO = 3
        ANULACIÓN = 9
        CONSULTA_DATOS = 5
        OBTENCIÓN_QR = 100
    End Enum
    Public Enum EstadoEnum
        PENDIENTE_RESPUESTA = 0
        CORRECTO = 1
        ACEPTADO_CON_ERRORES = 2
        INCORRECTO = 3
        COMPLETADO = 10
    End Enum
    Public Enum AplicacionEnum As Integer
        LIQUIDACION_AGENTE = 0
    End Enum

End Class