agregado procesos y bd clases

2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions
--- a/guia/Extensiones/registrosverifactu.vb
+++ b/guia/Extensiones/registrosverifactu.vb
@@ -0,0 +1,84 @@
+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