From 9c66c816c609368098e95dd7158d3bca001cd57a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 25 Aug 2022 19:25:34 -0700
Subject: [PATCH] =?UTF-8?q?--remisi=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 46 +++++++++++++---------------------------------
 1 file changed, 13 insertions(+), 33 deletions(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 09e76310d..224a1c223 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -820,12 +820,11 @@ Partial Class OC_OC
             DdlSubProyectoContrato.DataBind()
             DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-
-            If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
 
                 DVCultivosCuadro.Visible = True
                 DdlSubProyecto.AutoPostBack = True
-                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus =1")
+                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} And Estatus =1")
                 DdlCultivosCuadro.DataBind()
                 DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -896,17 +895,17 @@ Partial Class OC_OC
             UPPDetalle.Update()
 
             PermisosPagina()
-            RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();")
+            RegistraScript("$Get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();")
 
             'NO MOSTRAR LA OPCION DE ENTREGA DIRECTA (ECONOLLANTAS)
             If UsuarioActual.CveEmpresa = 141 Then
-                DivEntregaDirecta.Visible = False
-                ChkEntregaDirecta.Enabled = False
-                ChkEntregaDirecta.Checked = False
-            End If
+                    DivEntregaDirecta.Visible = False
+                    ChkEntregaDirecta.Enabled = False
+                    ChkEntregaDirecta.Checked = False
+                End If
 
-        End If
-        MostrarUsuarioAsignado()
+            End If
+            MostrarUsuarioAsignado()
         Me.Form.DefaultButton = ""
     End Sub
 
@@ -8728,35 +8727,20 @@ Partial Class OC_OC
 
 
 
-    Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTranasaccion As System.Data.SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
+    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
 
-
-
         If NumRemision.Trim.Length > 0 Then
-            If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 AndAlso UsuarioActual.CveRol = 1 Then
-
-                Dim ObjOC As ClsOC
-
-                If OcTranasaccion IsNot Nothing Then
-                    ObjOC = New ClsOC(OcTranasaccion)
-                Else
-                    ObjOC = New ClsOC
-                End If
-
+            If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then
 
+                Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
-
                     If ObjOC.DtResultados.Rows.Count > 0 Then
-                        Alert($"La remision  ya se encuentra asiganada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>", TipoMensaje.MsgAdvertencia)
+                        Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>", TipoMensaje.MsgAdvertencia)
                     Else
                         NumRemisionValida = True
                     End If
-
                 End If
-
-
-
             Else
                 NumRemisionValida = True
             End If
@@ -8764,10 +8748,6 @@ Partial Class OC_OC
             NumRemisionValida = True
         End If
 
-
-
-
-
         Return NumRemisionValida
 
     End Function