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

-- cambio en clase de validación de usuario

Browse Source
This commit is contained in:
rrene
2024-06-30 23:21:37 -07:00
parent da8683d2e1
commit 3cb056ac95
2 changed files with 25 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx
View File

@@ -1671,7 +1671,7 @@
<td style="border: 1px none white"><b>Amort. Ant.:</b></td> <td style="border: 1px none white"><b>Amort. Ant.:</b></td>
<td> <td>
<asp:Label ID="LblAmortizacion" ClientIDMode="Static" runat="server" Style="text-align: right;" Text="0.00" Width="78px"></asp:Label></td> <asp:Label ID="LblAmortizacion" ClientIDMode="Static" runat="server" Style="text-align: right;" Text="0.00" Width="78px"></asp:Label></td>
<td align="right">&nbsp;<asp:LinkButton ID="ImgAntiPend" runat="server" OnClick="ImgAntiPend_Click" Text=" <i class='fa fa-money font-green'></i> " AlternateText="Cancelación de Anticipos" Style="cursor: pointer;" /> <td align="right">&nbsp;<asp:LinkButton ID="ImgAntiPend" runat="server" OnClick="ImgAntiPend_Click" Text=" <i class='fa fa-money font-green'></i> " AlternateText="Cancelación de Anticipos" Style="cursor: pointer;" />
</td> </td>
</tr> </tr>
@@ -3682,7 +3682,7 @@
<asp:TemplateField ItemStyle-Width="8000px"> <asp:TemplateField ItemStyle-Width="8000px">
<HeaderTemplate>Referencia</HeaderTemplate> <HeaderTemplate>Referencia</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}") %>'></asp:HyperLink> <asp:HyperLink ID="LtlConceptoInfo" runat="server" Text='<%# Eval("Concepto") %>' NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}") %>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>

63
Ventas/Ventas.aspx.vb
View File

@@ -3658,8 +3658,8 @@ Partial Class Ventas
tUsuario = DrUsuario("Usuario").ToString tUsuario = DrUsuario("Usuario").ToString
tContraseña = DrUsuario("Contraseña").ToString tContraseña = DrUsuario("Contraseña").ToString
tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero tCveEmpresa = DrUsuario("CveEmpresa").ToString.ToEntero
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
Dim ObjUsuario As New ClsSisUsuarios Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Dim Usuario As Usuario Dim Usuario As Usuario
Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa) Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, CveEmpresa:=tCveEmpresa)
@@ -3680,25 +3680,25 @@ Partial Class Ventas
End If End If
dt.Dispose() dt.Dispose()
Dim ObjEmpresa As New ClsSisEmpresas() 'Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then 'If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then
If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then ' If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados ' Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
Dim EmpresasFuncionalidades As New HybridDictionary ' Dim EmpresasFuncionalidades As New HybridDictionary
For Each Row As Data.DataRow In dttmp.Rows ' For Each Row As Data.DataRow In dttmp.Rows
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString) ' EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
Next ' Next
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades) ' ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
End If ' End If
Usuario.Empresa = ObjEmpresa.Empresa ' Usuario.Empresa = ObjEmpresa.Empresa
ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa ' ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa) ' ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
End If 'End If
ObjEmpresa.Dispose() 'ObjEmpresa.Dispose()
End If End If
@@ -16723,7 +16723,7 @@ Partial Class Ventas
If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then
HdnTieneAnticipos.Value = "1" HdnTieneAnticipos.Value = "1"
End If End If
If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtMovtos IsNot Nothing AndAlso DtMovtos.Rows.Count = 0 Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DtMovtos IsNot Nothing AndAlso DtMovtos.Rows.Count = 0 Then
ImgAntiPend.Visible = False ImgAntiPend.Visible = False
End If End If
@@ -31463,11 +31463,13 @@ Partial Class Ventas
divAmortizacionTipoRelacion.Visible = False divAmortizacionTipoRelacion.Visible = False
GVAnticipos.DataSource = DtMovtos GVAnticipos.DataSource = DtMovtos
GVAnticipos.DataBind() GVAnticipos.DataBind()
If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
Else Else
Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}") Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
divAmortizacionTipoRelacion.Visible = True divAmortizacionTipoRelacion.Visible = True
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}") DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}")
If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
End If End If
End If End If
End If End If
@@ -31477,7 +31479,6 @@ Partial Class Ventas
'cuando es amortización por descuento, debe tener seleccionado descuentos previamente registrados 'cuando es amortización por descuento, debe tener seleccionado descuentos previamente registrados
If DdlTipoAmortizacionAnticipo.SelectedValue = "1" AndAlso LblDescuentos.Text.ToDecimal <= 0 Then If DdlTipoAmortizacionAnticipo.SelectedValue = "1" AndAlso LblDescuentos.Text.ToDecimal <= 0 Then
divAnticipoMsg.Visible = True divAnticipoMsg.Visible = True
End If End If
If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
@@ -37415,25 +37416,8 @@ Partial Class Ventas
End Sub End Sub
Public Sub CargaDdlAF() Public Sub CargaDdlAF()
Dim strAF = UsuarioActual.Empresa.Funcionalidad(380)
Dim CvePSAF As Integer = -1
If String.IsNullOrEmpty(strAF) Then Dim CvePSAF As Integer = UsuarioActual.Empresa.Funcionalidad(380).ToEntero
Dim RowFuncionalidad380 As DataRow = Nothing
Using ObjEmpresas As New ClsSisEmpresas
If ObjEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
RowFuncionalidad380 = ObjEmpresas.DtResultados.FiltroPrimero("CveFuncionalidad = 380")
End If
End Using
If RowFuncionalidad380 IsNot Nothing Then
CvePSAF = RowFuncionalidad380("Valor").ToString().ToEntero()
End If
Else
CvePSAF = strAF.ToEntero()
End If
If CvePSAF > 0 Then If CvePSAF > 0 Then
Dim dtt = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSAF, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC Dim dtt = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSAF, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC
@@ -38293,13 +38277,12 @@ Partial Class Ventas
Protected Sub BtnAutorizarDescuento_Click(sender As Object, e As EventArgs) Protected Sub BtnAutorizarDescuento_Click(sender As Object, e As EventArgs)
Dim UsuarioAutorizar As Usuario = Nothing Dim UsuarioAutorizar As Usuario = Nothing
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
Using ObjUsuario As New ClsSisUsuarios Using ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
If RblTipoAutorizacionDesc.SelectedValue = "1" Then If RblTipoAutorizacionDesc.SelectedValue = "1" Then
UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa) UsuarioAutorizar = ObjUsuario.ValidaUsuario(txtUserDesc.Text.Trim, Encripta(txtPassDesc.Text), CveEmpresa:=UsuarioActual.CveEmpresa)
Else Else
Dim CveUsuarioNuevo As Integer = -1 Dim CveUsuarioNuevo As Integer = -1
Using ObjUsuarios As New ClsSisUsuarios Using ObjUsuarios As New ClsSisUsuarios
CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa) CveUsuarioNuevo = ObjUsuarios.ValidaUsuarioCodigoAcceso(TxtCodAccDesc.Text.Trim, UsuarioActual.CveEmpresa)
End Using End Using