-cleanup

Ventas/Ventas.aspx.vb

@@ -1,16 +1,16 @@
 Option Explicit On
 Option Strict On
 
-Imports Extensiones
 Imports System.Data
-Imports System.IO
-Imports System.Xml
-Imports Microsoft.Reporting.WebForms
-Imports System.Security.Cryptography.X509Certificates
-Imports System.Globalization
-Imports System.Net.Http
-Imports Newtonsoft.Json.Linq
 Imports System.Diagnostics
+Imports System.Globalization
+Imports System.IO
+Imports System.Net.Http
+Imports System.Security.Cryptography.X509Certificates
+Imports System.Xml
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Imports Newtonsoft.Json.Linq
 
 Partial Class Ventas
     Inherits ClsPaginas
@@ -34798,48 +34798,48 @@ Partial Class Ventas
         sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
 
         Dim Relacionados = Timbrado.ConsultarUUIDRelacionados(UsuarioActual.Empresa, FolioFiscal, UsuarioActual.Empresa.FacturaProduccion)
-            If Relacionados IsNot Nothing Then
-                Dim sbExtra As New StringBuilder()
-                If Relacionados.Codigo = 500 Then
-                    sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.")
-                Else
-                    sbExtra.Append(Relacionados.Mensaje)
+        If Relacionados IsNot Nothing Then
+            Dim sbExtra As New StringBuilder()
+            If Relacionados.Codigo = 500 Then
+                sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.")
+            Else
+                sbExtra.Append(Relacionados.Mensaje)
 
-                    Dim SbHijos = New StringBuilder()
-                    Dim SbPadres = New StringBuilder()
+                Dim SbHijos = New StringBuilder()
+                Dim SbPadres = New StringBuilder()
+
+                If Relacionados.RelacionadosPadre IsNot Nothing Then
+                    For Each padre In Relacionados.RelacionadosPadre
+                        SbPadres.AppendFormat("{0};", padre.Uuid)
+                    Next
+                    If SbPadres.Length > 0 Then
+                        SbPadres.Remove(SbPadres.Length - 1, 1)
+                    End If
+                End If
+
+                Using ObjVentas As New ClsVentas
+
+                    If SbPadres.Length > 0 Then
+                        If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
+                            Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
+
+                            For Each dr As DataRow In dtt.Rows
+                                sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
+                            Next
 
-                    If Relacionados.RelacionadosPadre IsNot Nothing Then
-                        For Each padre In Relacionados.RelacionadosPadre
-                            SbPadres.AppendFormat("{0};", padre.Uuid)
-                        Next
-                        If SbPadres.Length > 0 Then
-                            SbPadres.Remove(SbPadres.Length - 1, 1)
                         End If
                     End If
 
-                    Using ObjVentas As New ClsVentas
-
-                        If SbPadres.Length > 0 Then
-                            If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
-                                Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
-
-                                For Each dr As DataRow In dtt.Rows
-                                    sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
-                                Next
-
-                            End If
-                        End If
-
-                    End Using
-
-                End If
-
-                If sbExtra.Length > 0 Then
-                    LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
-                End If
+                End Using
 
             End If
-            Alert(sb.ToString(), TipoMensaje.MsgInformacion)
+
+            If sbExtra.Length > 0 Then
+                LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
+            End If
+
+        End If
+        Alert(sb.ToString(), TipoMensaje.MsgInformacion)
 
     End Sub
 End Class