Merge branch 'master' of http://192.168.10.111:8383/SIG

Sistemas/CatSesiones.aspx

@@ -60,6 +60,7 @@
         <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
         <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> 
+        <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       

Sistemas/CatSesiones.aspx.vb

@@ -99,12 +99,26 @@ Partial Class Sistemas_CatSesiones
             CargaDTInvPSSeccionesAlmacen()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
             CargaGlobalDTTipoTransacciones()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
+            CargaSATGenerales()
         End If
 
 
 
 
     End Sub
+    Private Sub CargaSATGenerales()
+        Using ObjGrales As New ClsGenerales
+            If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados
+            If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable()
+            If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados
+            If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados
+            If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados
+            If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados
+            If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados
+        End Using
+    End Sub
+
     Private Sub CargaGlobalDTTipoTransacciones()
         Using ObjBancos As New ClsBancos
             If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
@@ -286,30 +300,32 @@ Partial Class Sistemas_CatSesiones
     'Generales
     Private Sub CargaUsuarios()
         'Carga Usuarios
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        Else
-            Application("GlobalDTUsuarios") = Nothing
-        End If
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+        'Else
+        '    Application("GlobalDTUsuarios") = Nothing
+        'End If
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
         'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        ObjUsuarios.Dispose()
+        'ObjUsuarios.Dispose()
         'Fin Carga Usuarios
     End Sub
 
     Private Sub CargaUsuariosResponsable()
         'Carga Usuarios
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        Else
-            Application("GlobalDTUsuarioResponsable") = Nothing
-        End If
-        ObjUsuarios.Dispose()
-        'Fin Carga Usuarios
+        GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
+        'Else
+        '    Application("GlobalDTUsuarioResponsable") = Nothing
+        'End If
+        'ObjUsuarios.Dispose()
+        ''Fin Carga Usuarios
     End Sub
 
 
@@ -350,13 +366,14 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaProyectos()
         'Carga Proyectos
-        Dim ObjProyectos As New ClsProyectos
-        If ObjProyectos.GetProyectos Then
-            Application("GlobalDTProyectos") = ObjProyectos.DtResultados
-        Else
-            Application("GlobalDTProyectos") = Nothing
-        End If
-        ObjProyectos.Dispose()
+        'Dim ObjProyectos As New ClsProyectos
+        'If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then
+        '    Application("GlobalDTProyectos") = ObjProyectos.DtResultados
+        'Else
+        '    Application("GlobalDTProyectos") = Nothing
+        'End If
+        'ObjProyectos.Dispose()
+        GlobalDTProyectos(UsuarioActual.CveEmpresa) = Nothing
         'Fin Carga Proyectos
     End Sub
 

Sistemas/PopUpAddUsuario.aspx.vb

@@ -563,12 +563,14 @@ Partial Class Sistemas_PopUpAddUsuario
         GPS.Dispose()
     End Sub
     Private Sub RecargarGlobalUsuarios()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+        'End If
+        'ObjUsuarios.Dispose()
     End Sub
 
 #Region "MANDAR CORREOS"

Sistemas/PopUpCambiaUsuario.aspx.vb

@@ -25,9 +25,9 @@ Partial Class Sistemas_PopUpCambiaUsuario
                 RegistraScript("window.close();")
             End If
 
-            Dim DtEmp As DataTable = GlobalDTEmpresas.Copy
+            Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy
             Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
-            '''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
+            ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
             ''If UsuarioActual.CveUsuario = 100 Then
 
             ''    Dim customerRow() As Data.DataRow
@@ -197,7 +197,7 @@ Partial Class Sistemas_PopUpCambiaUsuario
     End Sub
 
     Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
-        Dim dtt As DataTable = GlobalDTUsuarios(-1, DdlEmpresa.SelectedValue.ToEntero)
+        Dim dtt As DataTable = GlobalDTUsuarios(-1, CveEmpresa:=DdlEmpresa.SelectedValue.ToEntero)
         'If DdlRol.SelectedValue <> "-1" Then
         '    dtt = dtt.FiltraParametros("CveRol=" & DdlRol.SelectedValue)
         'End If

Sistemas/PopUpPerfil.aspx.vb

@@ -126,10 +126,11 @@ Partial Class Sistemas_PopUpPerfil
         CargaGlobal()
     End Sub
     Private Sub CargaGlobal()
-        Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-        End If
-        ObjUsuarios.Dispose()
+        GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjUsuarios As New ClsSisUsuarios
+        'If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        'End If
+        'ObjUsuarios.Dispose()
     End Sub
 End Class

Sistemas/UsuarioDetalle.aspx.vb

@@ -1383,13 +1383,16 @@ Partial Class Sistemas_UsuarioDetalle
 
         'RECARGA GLOBAL ALMACEN
         'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
-
-        'RECARGA GLOBAL EMPRESAS USUARIOS
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
-        End If
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+
+        'RECARGA GLOBAL EMPRESAS USUARIOS
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
+        '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
+        '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
+        'End If
     End Sub
     Private Sub EnviaCorreo()