From ebcd6c0e78cff71befb7259c926c5441ab0ca80e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Jan 2024 20:36:01 -0700
Subject: [PATCH] -- Empresa SMS, no visualizar columna subproyecto en dtalle

---
 Ventas/Ventas.aspx.vb | 34 +++++++++++++++++++---------------
 1 file changed, 19 insertions(+), 15 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6ad972f7e..10a8649fd 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3387,19 +3387,27 @@ Partial Class Ventas
                 End If
             End If
 
-
-            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                EsVentaMedica = True
-                CargaTiposVenta()
-
-                If CveCliente > 0 Then
-                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                If CveVenta <= 0 Then
+                    EsVentaMedica = True
+                    CargaTiposVenta()
+                    If CveCliente > 0 Then
+                        SeleccionarClienteSucursal(CveCliente:=CveCliente)
+                    End If
+                End If
+                If CveVenta >= 0 Then
+                    HLFAgregarOS.Visible = True
+                    HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
                 End If
-            End If
 
-            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-                HLFAgregarOS.Visible = True
-                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+                TxtPrecio.Enabled = False
+                'ocultar la columna de subproyecto
+                GvPS.Columns(ColumnaSubProyecto).Visible = False
+                ThProyecto.Visible = False
+                ThProyecto2.Visible = False
+
+                TxtCantidad.Text = "1"
+                TxtCantidad.Focus()
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -3418,10 +3426,6 @@ Partial Class Ventas
                 RegistraScript("$('#TxtCantidad').focus();", "A1")
             End If
 
-            If EsVentaMedica Then
-                TxtPrecio.Enabled = False
-            End If
-
         End If
 
     End Sub