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

Compras/PopUpVerFactura.aspx.vb

@@ -5986,189 +5986,211 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("Observaciones", Observacion))
             params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
 
-            Dim DtMovimientosPoliza As DataTable = Nothing
-            If UsuarioActual.CveEmpresa = 48 Then
-                'Movimientos del IE
-                If ObjIE.IDPoliza > 0 Then
 
-                    Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If UsuarioActual.CveEmpresa.Contiene(141) Then
-                    If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
+
-                        Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
+
-                    Else
+                Dim InicialesUsuarioGenero As String = ""
-                        DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
+
+                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
 
-                    ObjConta.Dispose()
+                End Try
-                Else
-                    DtMovimientosPoliza = New DataTable
-                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
 
-                    Dim Dr = DtMovimientosPoliza.NewRow
+
-                    Dr("CODIGO") = ""
+                params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
-                    Dr("Cuenta") = ""
+
-                    Dr("Cargo") = 0
+
-                    Dr("Abono") = 0
+
-                    DtMovimientosPoliza.Rows.Add(Dr)
+            End If
+
+            Dim DtMovimientosPoliza As DataTable = Nothing
+                If UsuarioActual.CveEmpresa = 48 Then
+                    'Movimientos del IE
+                    If ObjIE.IDPoliza > 0 Then
+
+                        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+                        If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
+                            Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
+                        Else
+                            DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
+                        End If
+
+                        ObjConta.Dispose()
+                    Else
+                        DtMovimientosPoliza = New DataTable
+                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
+                        Dim Dr = DtMovimientosPoliza.NewRow
+                        Dr("CODIGO") = ""
+                        Dr("Cuenta") = ""
+                        Dr("Cargo") = 0
+                        Dr("Abono") = 0
+                        DtMovimientosPoliza.Rows.Add(Dr)
+                    End If
+                ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                    Dim PreP As New ClsContabilidad
+                    If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                        DtMovimientosPoliza = New DataTable
+                        DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
+                        DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
+                        DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
+
+                        If PreP.DtResultados.Rows.Count > 0 Then
+
+                            For Each drt As DataRow In PreP.DtResultados.Rows
+                                Dim Dr = DtMovimientosPoliza.NewRow
+                                Dr("CODIGO") = drt("CuentaCodigo")
+                                Dr("Cuenta") = drt("CuentaNombre")
+                                Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
+                                Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
+                                DtMovimientosPoliza.Rows.Add(Dr)
+
+                            Next
+
+
+                        End If
+                    End If
+                    PreP.Dispose()
                 End If
-            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+
+
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
+
+                If Archivo.Exists Then
+                    ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                Else
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+                    ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                End If
+
+
+            ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
+
+                Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
+                Dim FechaExpedicion As Date = Now
+                Dim Importe As Double
+                Dim FormatoCheque As String = ""
+
+                Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
+                Dim tIdPoliza As Integer
+                Dim DtMovimientosPoliza As DataTable = Nothing
+                Dim RFC As String = ""
+                Dim Correo As String = ""
+                Dim CLABE As String = ""
+                Dim NoSucursal As String = ""
+                Dim Telefono As String = ""
+                Dim IVA As Double = 0
+
+                Folio = ""
+                TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
+                CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
+                Ruta = UsuarioActual.Empresa.Ruta
+
+                PagueseA = ObjIE.PagueseA
+                Folio = ObjIE.Folio
+                Importe = ObjIE.Importe
+                CveTipoTransaccion = ObjIE.CveTipoTransaccion
+                Banco = ObjIE.Banco
+                NumCuenta = ObjIE.DepositoCuenta
+                If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
+                CLABE = ObjIE.DepositoCLABE
+                If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
+                NoSucursal = ObjIE.DepositoSucursal
+                RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
+                TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
+                FechaExpedicion = ObjIE.FechaDocumento
+                Observacion = ObjIE.Observaciones
+                UsuarioRegistro = ObjIE.UsuarioNombre
+                SubProyecto = ObjIE.SubProyecto
+                AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
+                NotificarA = ObjIE.NotificarA
+                tIdPoliza = ObjIE.IDPoliza
+
                 Dim PreP As New ClsContabilidad
                 If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                    DtMovimientosPoliza = New DataTable
-                    DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
-                    DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
-                    DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
-
                     If PreP.DtResultados.Rows.Count > 0 Then
+                        CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
+                        CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
 
-                        For Each drt As DataRow In PreP.DtResultados.Rows
+                        IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
-                            Dim Dr = DtMovimientosPoliza.NewRow
-                            Dr("CODIGO") = drt("CuentaCodigo")
-                            Dr("Cuenta") = drt("CuentaNombre")
-                            Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
-                            Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
-                            DtMovimientosPoliza.Rows.Add(Dr)
 
-                        Next
+                        If CveProveedor > 0 Then
+                            Dim Prov As New ClsCompProveedores
+                            If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
+                                If Prov.DtResultados.Rows.Count > 0 Then
+                                    RFC = Prov.DtResultados.Rows(0)("RFC").ToString
+                                    Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
+                                End If
+                            End If
+                            Prov.Dispose()
+                        End If
+
+                        If CvePersonal > 0 Then
+                            Dim RH As New ClsRH
+                            If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+                                If RH.DtResultados.Rows.Count > 0 Then
+                                    Correo = RH.DtResultados.Rows(0)("Correo").ToString
+                                    Banco = RH.DtResultados.Rows(0)("Banco").ToString
+                                    NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
+                                    CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
+                                End If
 
 
+                            End If
+
+                            RH.Dispose()
+
+                        End If
                     End If
                 End If
                 PreP.Dispose()
-            End If
 
 
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
+                params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
+                params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
+                params.Add(New ReportParameter("PagueseA", PagueseA))
+                params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
+                params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
+                params.Add(New ReportParameter("Banco", Banco))
+                params.Add(New ReportParameter("NumCuenta", NumCuenta))
+                params.Add(New ReportParameter("CLABE", CLABE))
+                params.Add(New ReportParameter("Concepto", Observacion))
+                params.Add(New ReportParameter("Factura", ""))
+                params.Add(New ReportParameter("RFC", RFC))
+                params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
+                params.Add(New ReportParameter("NumSucursal", NoSucursal))
+                params.Add(New ReportParameter("Correo", Correo))
+                params.Add(New ReportParameter("Telefono", Telefono))
+                params.Add(New ReportParameter("NotifiqueA", NotificarA))
+                params.Add(New ReportParameter("Obra", SubProyecto))
+                params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
+                params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
 
-            If Archivo.Exists Then
+                If UsuarioActual.CveEmpresa = 66 Then
-                ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
+                    params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
-            Else
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
-                ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
-            End If
-
-
-        ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
-
-            Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
-            Dim FechaExpedicion As Date = Now
-            Dim Importe As Double
-            Dim FormatoCheque As String = ""
-
-            Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
-            Dim tIdPoliza As Integer
-            Dim DtMovimientosPoliza As DataTable = Nothing
-            Dim RFC As String = ""
-            Dim Correo As String = ""
-            Dim CLABE As String = ""
-            Dim NoSucursal As String = ""
-            Dim Telefono As String = ""
-            Dim IVA As Double = 0
-
-            Folio = ""
-            TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
-            CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
-            Ruta = UsuarioActual.Empresa.Ruta
-
-            PagueseA = ObjIE.PagueseA
-            Folio = ObjIE.Folio
-            Importe = ObjIE.Importe
-            CveTipoTransaccion = ObjIE.CveTipoTransaccion
-            Banco = ObjIE.Banco
-            NumCuenta = ObjIE.DepositoCuenta
-            If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
-            CLABE = ObjIE.DepositoCLABE
-            If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
-            NoSucursal = ObjIE.DepositoSucursal
-            RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
-            TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
-            FechaExpedicion = ObjIE.FechaDocumento
-            Observacion = ObjIE.Observaciones
-            UsuarioRegistro = ObjIE.UsuarioNombre
-            SubProyecto = ObjIE.SubProyecto
-            AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
-            NotificarA = ObjIE.NotificarA
-            tIdPoliza = ObjIE.IDPoliza
-
-            Dim PreP As New ClsContabilidad
-            If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-                If PreP.DtResultados.Rows.Count > 0 Then
-                    CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
-                    CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
-
-                    IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
-
-                    If CveProveedor > 0 Then
-                        Dim Prov As New ClsCompProveedores
-                        If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
-                            If Prov.DtResultados.Rows.Count > 0 Then
-                                RFC = Prov.DtResultados.Rows(0)("RFC").ToString
-                                Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
-                            End If
-                        End If
-                        Prov.Dispose()
-                    End If
-
-                    If CvePersonal > 0 Then
-                        Dim RH As New ClsRH
-                        If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-                            If RH.DtResultados.Rows.Count > 0 Then
-                                Correo = RH.DtResultados.Rows(0)("Correo").ToString
-                                Banco = RH.DtResultados.Rows(0)("Banco").ToString
-                                NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
-                                CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
-                            End If
-
-
-                        End If
-
-                        RH.Dispose()
-
-                    End If
                 End If
-            End If
-            PreP.Dispose()
 
 
-            params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
+                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
-            params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
+                If Archivo.Exists Then
-            params.Add(New ReportParameter("PagueseA", PagueseA))
+                    ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
+                Else
-            params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
+                    ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            params.Add(New ReportParameter("Banco", Banco))
+                End If
-            params.Add(New ReportParameter("NumCuenta", NumCuenta))
-            params.Add(New ReportParameter("CLABE", CLABE))
-            params.Add(New ReportParameter("Concepto", Observacion))
-            params.Add(New ReportParameter("Factura", ""))
-            params.Add(New ReportParameter("RFC", RFC))
-            params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
-            params.Add(New ReportParameter("NumSucursal", NoSucursal))
-            params.Add(New ReportParameter("Correo", Correo))
-            params.Add(New ReportParameter("Telefono", Telefono))
-            params.Add(New ReportParameter("NotifiqueA", NotificarA))
-            params.Add(New ReportParameter("Obra", SubProyecto))
-            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
-            params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
 
-            If UsuarioActual.CveEmpresa = 66 Then
+            ElseIf CveTipoTransaccion.Contiene(6) Then
-                params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
+                'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
-            End If
+                Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
-
-
-            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
-            If Archivo.Exists Then
-                ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            Else
-                ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
-            End If
-
-        ElseIf CveTipoTransaccion.Contiene(6) Then
-            'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
-            Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
             Dim Ruta As String = UsuarioActual.Empresa.Ruta
             Dim FechaExpedicion As Date = Now
             Dim Importe As Double

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>

Inventarios/EntradasSalidas.aspx.vb

@@ -3947,7 +3947,7 @@ Partial Class Inventarios_EntradasSalidas
                                                 End If
 
                                             Next
-                                            End If
+                                        End If
                                         End If
                                     End If
                                 End If

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,7 +60,10 @@ 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("Orden") = ""
             ViewState("CveRol") = -1
             CargarEmpresa()
             CargaDatos()

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,