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

Compras/PopUpVerFactura.aspx.vb

@@ -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

Empresas/141/Formatos/CHQ-7451.rdlc

@@ -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>

Empresas/141/Formatos/CHQ-7452.rdlc

@@ -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>

Sistemas/UsuarioDetalle.aspx.vb

@@ -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
+        GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
-            Alert("Globals Recargados")
+        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

Sistemas/Usuarios.aspx.vb

@@ -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()

Ventas/PV.aspx.vb

@@ -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,