Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/CatAutorizacionLimites.aspx.vb

@@ -180,7 +180,7 @@ Partial Class Ventas_CatAutorizacionLimites
             '    e.Row.Cells(1).Text = "Inactivo"
             '    e.Row.Cells(1).ForeColor = Drawing.Color.Red
             '    e.Row.Cells(1).Font.Bold = True
-            'End If
+            'End If
         End If
     End Sub
 
@@ -197,7 +197,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim Importe = gvRow.DataKey("Importe").ToDecimal()
         Dim CveEstatusAutorizacion As Integer = 1
 
-        Dim ObjVentas As New ClsVentas
+        Dim ObjVentas As New ClsVentas
         If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
             Alert("El límite de crédito fue autorizado.")
         End If

Ventas/Ventas.aspx.vb

@@ -26998,7 +26998,10 @@ Partial Class Ventas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
-                            Verificacion = True
+                            Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
+                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                                Verificacion = True
+                            End If
                         End If
                     End If
                     ObjVentas.Dispose()