85 lines
4.0 KiB
VB.net
85 lines
4.0 KiB
VB.net
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
|