- permiso para editar precio de PU en la vinculación de la OC

proceso 242

Compras/Compras.aspx.vb

@@ -13,7 +13,6 @@ Imports MoreLinq
 Imports System.Data.SqlClient
 Imports ClsPaginas
 Imports Microsoft.Reporting.WebForms
-Imports DocumentFormat.OpenXml.Math
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -283,6 +282,15 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property PermisoVinculacionImporteDiferente As Boolean
+        Get
+            Return CType(ViewState("PermisoVinculacionImporteDiferente"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoVinculacionImporteDiferente") = value
+        End Set
+    End Property
+
     Private Property NuevaValidacionXML As Integer
         Get
             Return ViewState("NuevaValidacionXML").ToString.ToEntero
@@ -1260,6 +1268,7 @@ Partial Class Compras_Compras
             'ImgBtnBuscarOC.Attributes.Add("data-placement", "top")
             EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
             TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
+            LbTotalOC1.Attributes.Add(“readonly”, “readonly”)
 
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
@@ -2090,6 +2099,10 @@ Partial Class Compras_Compras
 
                     If TxtFolio.Text.Trim = "" Then TxtFolio.Enabled = True : TxtSerie.Enabled = True
 
+                    If UsuarioActual.TienePermisoProceso(242) Then
+                        PermisoVinculacionImporteDiferente = True
+                    End If
+
                     If UsuarioActual.TienePermisoProceso(112) Then
                         PermisoEdicionManual = True
                         TxtSubTotal.Enabled = True
@@ -15233,15 +15246,21 @@ Partial Class Compras_Compras
     Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim JSCambiaScript As String = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")}', {e.Row.DBCampo("Cantidad").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});"
+            Dim JSCambiaScript As String = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")}', {e.Row.DBCampo("Cantidad").ToDouble},{e.Row.DBCampo("PU").ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToDouble});"
             e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadPendienteVincular")}, this);{JSCambiaScript}")
             e.Row.FCTextBox("TxtPU").Attributes.Add("onkeyup", JSCambiaScript)
 
             e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});")
             e.Row.FCTextBox("TxtPU").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});")
-
             RegistraScript(JSCambiaScript)
 
+            'activo el rangevalidator para cambios Proc.242
+            If Not PermisoVinculacionImporteDiferente Then
+                Dim tdif As Decimal = 10D ' solo 10 permitido a nivel total
+                e.Row.FCRangeValidator("RValPU").MinimumValue = ((e.Row.DBCampo("Total").ToDecimal - tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("N6")
+                e.Row.FCRangeValidator("RValPU").MaximumValue = ((e.Row.DBCampo("Total").ToDecimal + tdif) / e.Row.DBCampo("Cantidad").ToDecimal).ToString("N6")
+            End If
+
             If e.Row.DataKey("FolioREQ").ToString.Trim.Length > 0 Then
                 Dim LblOC As Label = e.Row.FCLabel("LblOC")
                 LblOC.Attributes.Add("data-toggle", "tooltip")