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

Cheques 141 iniciales quien genero movimiento, UsuarioDetalles Glbal -1 de Usaurios

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-03-08 09:15:36 -07:00
parent 7c305afd6d
commit 918e36ae27
7 changed files with 211 additions and 173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5986,6 +5986,28 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Observaciones", Observacion))
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
If UsuarioActual.CveEmpresa.Contiene(141) Then
Dim InicialesUsuarioGenero As String = ""
Try
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
If NombreUsuarioRenero.Trim.Length > 0 Then
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
End If
Catch ex As Exception
End Try
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
End If
Dim DtMovimientosPoliza As DataTable = Nothing
If UsuarioActual.CveEmpresa = 48 Then
'Movimientos del IE

14
Empresas/141/Formatos/CHQ-7451.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet">
@@ -818,7 +818,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>IAP</Value>
<Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
@@ -829,9 +829,9 @@
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>3.13986cm</Left>
<Left>2.53509cm</Left>
<Height>0.6cm</Height>
<Width>0.85958cm</Width>
<Width>1.46435cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType>

12
Empresas/141/Formatos/CHQ-7452.rdlc
View File

@@ -818,7 +818,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>IAP</Value>
<Value>=Parameters!InicialesUsuarioGenero.Value</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
@@ -829,9 +829,9 @@
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>3.13986cm</Left>
<Left>2.53509cm</Left>
<Height>0.6cm</Height>
<Width>0.85958cm</Width>
<Width>1.46435cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -1042,6 +1042,12 @@
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="InicialesUsuarioGenero">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType>

5
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1383,8 +1383,9 @@ Partial Class Sistemas_UsuarioDetalle
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
If UsuarioActual.CveUsuario = 100 Then
Alert("Globals Recargados")
GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then
Alert("Globals Recargados " & UsuarioActual.CveEmpresa)
End If
'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados

3
Sistemas/Usuarios.aspx.vb
View File

@@ -60,6 +60,9 @@ Partial Class Sistemas_Usuarios
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ViewState("Orden") = ""
ViewState("CveRol") = -1
CargarEmpresa()

2
Ventas/PV.aspx.vb
View File

@@ -6663,7 +6663,7 @@ Partial Class PV
Dim ObjCliente As New ClsClientes
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1, True, False)
Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,