limpia de renglones vacíos

Compras/Compras.aspx.vb

@@ -5235,7 +5235,6 @@ Partial Class Compras_Compras
 
                                 If Not ErrorAC AndAlso Not TieneError Then
 
-
                                     Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
                                     If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
@@ -5253,7 +5252,6 @@ Partial Class Compras_Compras
                                     For Each Row As DataRow In TmpDT.Rows
                                         Dim TipoRecepcion As Integer = -1
 
-
                                         ''INVENTARIOS
                                         If GvInv.Rows.Count > indiceTR Then
                                             If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
@@ -13547,14 +13545,10 @@ Partial Class Compras_Compras
     Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivCancelarCompra').modal('hide');")
 
-
         Dim ObjComprasComprobacion As New ClsCompras
-
-
         If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
 
             Dim TienePagosConciliados As Boolean = False
-
             If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
                 TienePagosConciliados = True
                 Dim PagosConciliados As New StringBuilder
@@ -13562,8 +13556,6 @@ Partial Class Compras_Compras
                 For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
                     PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a>  <br>")
                 Next
-
-
                 Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br>  {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
             End If
 
@@ -13571,8 +13563,6 @@ Partial Class Compras_Compras
                 ObjComprasComprobacion.Dispose()
                 Exit Sub
             End If
-
-
         End If
         ObjComprasComprobacion.Dispose()
         Dim cvemovimientoentrada As Integer = -1
@@ -13791,7 +13781,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-
         'CANCELA COMPRA
         If Not ErrorCancelar Then
             If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then
@@ -13799,7 +13788,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-
         If Not ErrorCancelar Then
             If ObjAC IsNot Nothing Then
                 ObjAC.Commit()
@@ -13823,8 +13811,6 @@ Partial Class Compras_Compras
             ObjAC.Dispose()
         End If
 
-
-
     End Sub
 
     Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click