Al seleccionar una RNC, para emitir, sugerir el importe al 100%

Ventas/Ventas.aspx

@@ -6401,6 +6401,38 @@
             }
         }
 
+        function CalculaTotalRNCChk(TxtImporte, Saldo, Chk) {
+            if (Chk.checked) {
+                TxtImporte.value = FormatoNumero(Saldo, 2);
+            } else {
+                TxtImporte.value = "";
+            }
+
+            if ('<%= UsuarioActual.Empresa.Funcionalidad(344) %>' == '1')
+            {
+                CompararNC();
+            }
+        }
+
+        function LimitaCantidadRNCMasivo(TxtImporte,Saldo, Chk) {
+            var ImporteNuevo = TxtImporte.value;
+            Chk.checked = true;
+
+            if (ImporteNuevo > Saldo) {
+                ImporteNuevo = Saldo;
+                Entro = 1;
+            }
+
+            if (Entro == 1) {
+                TxtImporte.value = FormatoNumero(ImporteNuevo, 2);
+            }
+
+            if ('<%= UsuarioActual.Empresa.Funcionalidad(344) %>' == '1')
+            {
+                CompararNC();
+            }
+        }
+
         function LimitaCantidadNCMasivo(Porcentaje, Saldo, Total, Subtotal, TxtTotalGv, TxtTotal, Chk, TxtImporte) {
             var ImporteNivel = 0, ImporteNuevo = 0, Entro = 0, ValorMaximoPorPorcentaje = 0, TotalConPorcentaje = 0, TotalImportes = 0;
             ImporteNivel = ($('#C_DdlNCNivelImporte').val() == "1" ? Total : Subtotal);

Ventas/Ventas.aspx.vb

@@ -20338,6 +20338,12 @@ Partial Class Ventas
             e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaCantidadNCMasivo({TxtNCPorcentaje.Text.ToDouble()},{e.Row.DBCampo("Saldo").ToDouble},{e.Row.DBCampo("Original").ToDouble},{e.Row.DBCampo("SubTotal").ToDouble},{TxtTotalGv.ClientID},{TxtNCImporte.ClientID},{e.Row.FCCheckBox("ChkCxC").ClientID}, this);")
         End If
     End Sub
+    Protected Sub GvRemisionesNC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNC.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaTotalRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+            e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaCantidadRNCMasivo({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+        End If
+    End Sub
 
     Protected Sub DdlNCNivelImporte_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim ImporteReferencia As Double = 0, PorcentajeMaximo As Double = 0