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

-- cambio en GlobalDT Usuarios

Browse Source
This commit is contained in:
rrene
2023-02-01 00:00:39 -07:00
parent e75e462991
commit 97c04f1c02
14 changed files with 332 additions and 497 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Clientes.aspx
View File

@@ -1104,10 +1104,8 @@
<div class="caption font-blue">
<i class="icon-pin font-blue"></i>
<span class="caption-subject bold uppercase">CFDI Versión 3.3</span>
<span class="caption-subject bold uppercase">CFDI Versión</span>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlUsoCFDI" CssClass="form-control select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

13
Ventas/Clientes.aspx.vb
View File

@@ -875,7 +875,7 @@ Partial Class Clientes
End If
'CargaCuentasyConceptos()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
DVLnkCambiarVendedor.Visible = True
End If
@@ -6505,11 +6505,12 @@ Partial Class Clientes
End Sub
Public Sub CargaGlobal()
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
End If
ObjUsuarios.Dispose()
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
'Dim ObjUsuarios As New ClsSisUsuarios
'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
'End If
'ObjUsuarios.Dispose()
End Sub
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound