Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -5243,7 +5243,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
@@ -5261,7 +5260,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
@@ -13735,14 +13733,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
@@ -13750,8 +13744,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
 
@@ -13759,8 +13751,6 @@ Partial Class Compras_Compras
                 ObjComprasComprobacion.Dispose()
                 Exit Sub
             End If
-
-
         End If
         ObjComprasComprobacion.Dispose()
         Dim cvemovimientoentrada As Integer = -1
@@ -13979,7 +13969,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-
         'CANCELA COMPRA
         If Not ErrorCancelar Then
             If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then
@@ -13987,7 +13976,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-
         If Not ErrorCancelar Then
             If ObjAC IsNot Nothing Then
                 ObjAC.Commit()
@@ -14011,8 +13999,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