AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- Empresa SMS, no visualizar columna subproyecto en dtalle

Browse Source
This commit is contained in:
rrene
2024-01-09 20:36:01 -07:00
parent d5db746f60
commit ebcd6c0e78
1 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
Ventas/Ventas.aspx.vb
View File

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