From 4375bd2a8b69ef24d55a2271fd869d880d077198 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 26 Sep 2022 13:04:16 -0700
Subject: [PATCH] =?UTF-8?q?--=20validaci=C3=B3n=20de=20remisi=C3=B3n,,=20q?=
 =?UTF-8?q?ue=20aplique=20para=20todos,=20no=20solo=20rol=201?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx    |  2 +-
 OC/OC.aspx.vb | 29 ++++++++---------------------
 2 files changed, 9 insertions(+), 22 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index c718afcb9..f44a7c14a 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -338,7 +338,7 @@
                                     <div class="col-md-3" runat="server" id="DvNumRemision2" visible="false">
                                         <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%"  onblur="ValidaNumRemision()"></asp:TextBox>
                                         <asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click"   Style="display: none;" runat="server" />
-                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarNumRemision" OnClick="LnkActualziarNumRemision_Click"  
+                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualizarNumRemision" OnClick="LnkActualizarNumRemision_Click"  
                                             data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión"
                                             data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" 
                                             ToolTip="¿Está seguro que desea actualizar el número de remisión?" />
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index fc2519e8f..6fd2db531 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -844,11 +844,8 @@ Partial Class OC_OC
                 DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
-                If UsuarioActual.CveRol = 1 Then
-                    DvNumRemision1.Visible = True
-                    DvNumRemision2.Visible = True
-                End If
-
+                DvNumRemision1.Visible = True
+                DvNumRemision2.Visible = True
 
             End If
 
@@ -2637,7 +2634,7 @@ Partial Class OC_OC
 
             If GeneraReq Then
 
-                If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
+                If TxtNumRemision.Text.Trim() <> "" AndAlso Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
                     TieneError = True
                 End If
 
@@ -8762,15 +8759,12 @@ Partial Class OC_OC
         Return Retorno
 
     End Function
-
-
-
     Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
         Dim NumRemisionValida As Boolean = False
-        LnkActualziarNumRemision.Visible = False
+        LnkActualizarNumRemision.Visible = False
 
         If NumRemision.Trim.Length > 0 Then
-            If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
 
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
@@ -8786,12 +8780,10 @@ Partial Class OC_OC
         Else
             NumRemisionValida = True
         End If
-
-
         If NumRemisionValida Then
 
             If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
-                LnkActualziarNumRemision.Visible = True
+                LnkActualizarNumRemision.Visible = True
             End If
 
         End If
@@ -8808,13 +8800,9 @@ Partial Class OC_OC
 
     End Sub
 
-    Protected Sub LnkActualziarNumRemision_Click(sender As Object, e As EventArgs)
+    Protected Sub LnkActualizarNumRemision_Click(sender As Object, e As EventArgs)
 
-
-
-        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then
-            Exit Sub
-        End If
+        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then Exit Sub
 
         If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then
 
@@ -8845,6 +8833,5 @@ Partial Class OC_OC
             Alert("El número de remisión no es valido.")
         End If
 
-
     End Sub
 End Class