mejoras en autorizaciones de crédito

Ventas/Ventas.aspx.vb

@@ -26939,9 +26939,7 @@ Partial Class Ventas
     Protected Sub BtnAplicarNC_Click(sender As Object, e As EventArgs)
         'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
             Dim Verificacion As Boolean = False
-
             If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs
                 Verificacion = True
             Else
@@ -26954,7 +26952,7 @@ Partial Class Ventas
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
                             Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
-                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                            If ImporteAutorizacion > TxtNCImporte.Text.ToDecimal Then
                                 Verificacion = True
                             End If
                         End If