From e3fa5b67a51a1cd294020917856fafccd506ee28 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 14 Oct 2019 16:48:44 -0700
Subject: [PATCH] Al seleccionar una RNC, para emitir, sugerir el importe al
 100%

---
 Ventas/Ventas.aspx    | 32 ++++++++++++++++++++++++++++++++
 Ventas/Ventas.aspx.vb |  6 ++++++
 2 files changed, 38 insertions(+)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 86d66d7d5..6a2ce3a9a 100644
--- a/Ventas/Ventas.aspx
+++ b/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);
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 36d8b66a2..418259357 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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