diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 3c87cf0e2..9eae7b0f1 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5910,6 +5910,16 @@ Public Class ClsPaginas
         lrds.Add(rds)
         ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR, Content_Disposition)
     End Sub
+
+    Public Sub ImprimirPDFStimulsoft(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "Datos", Optional Content_Disposition As String = "attachment")
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource
+        rds.Name = RDSName
+        rds.Value = DtDatos
+        lrds.Add(rds)
+
+        ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="PDF"), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
+    End Sub
     Public Sub ImprimirPDFMultiDS(RutaReporte As String, lrds As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing)
         ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR)
     End Sub
@@ -8081,7 +8091,7 @@ Public Class ClsPaginas
         Return retorno
     End Function
 
-    Protected Function StreamBytesStimulsoft(Opcion As String, RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF") As Byte()
+    Protected Function StreamBytesStimulsoft(Opcion As String, RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional NombreDataSource As String = "Datos") As Byte()
         'limpio ReportViwer   
         Dim sw As New System.Diagnostics.Stopwatch()
         sw.Start()
@@ -8150,6 +8160,7 @@ Public Class ClsPaginas
             Dim payload As New JObject(
                             New JProperty("formato", Formato),
                             New JProperty("ruta", RutaReporte),
+                            New JProperty("nombreDataSource", NombreDataSource),
                             New JProperty("UsarFormatoCompilado", False),
                             New JProperty("parametros", paramsArray),
                             New JProperty("dataSource", dataSourceArray)
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 31effa199..000c80239 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -7,7 +7,7 @@ Partial Class Sistemas_CatSesiones
 
     Protected Sub BtnCargar_Click(sender As Object, e As EventArgs) Handles BtnCargar.Click
         If DdlVariable.SelectedItem.Value = "GlobalDTUsuarios" Then
-            CargaUsuarios()
+            CargaUsuarios()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTUsuarioResponsable" Then
             CargaUsuariosResponsable()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAlmacenUsuarios" Then
@@ -35,7 +35,7 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralPaises" Then
             CargaPaises()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralEstados" Then
-            CargaEstados()
+            CargaEstados()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralColonias" Then
             CargaColonias()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTGralMunicipios" Then
@@ -92,29 +92,29 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATMotivoTraslado" Then
             CargaSATMotivoTraslado()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
-            CargaConceptosContables()
+            CargaConceptosContables()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
-            CargaDTClasificacionPorcentaje()
+            CargaDTClasificacionPorcentaje()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
-            CargaDTInvPSSeccionesAlmacen()
+            CargaDTInvPSSeccionesAlmacen()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
             CargaGlobalDTTipoTransacciones()
-        End If
-
-
-
-
-    End Sub
-    Private Sub CargaGlobalDTTipoTransacciones()
-        Using ObjBancos As New ClsBancos
-            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
-            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
-            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
-            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
-        End Using
-    End Sub
-
-
+        End If
+
+
+
+
+    End Sub
+    Private Sub CargaGlobalDTTipoTransacciones()
+        Using ObjBancos As New ClsBancos
+            If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
+            If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
+            If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
+            If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
+        End Using
+    End Sub
+
+
     Private Sub CargaConceptosContables()
         Dim ObjContabilidad As New ClsContabilidad
         If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
@@ -130,8 +130,8 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaContratos()
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
+        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
         ObjContratos.Dispose()
         GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
     End Sub
@@ -216,7 +216,7 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaVenta()
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
+        'If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
         If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
         If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
 
@@ -232,11 +232,11 @@ Partial Class Sistemas_CatSesiones
         If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
         'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
         ObjPS.Dispose()
-        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
-        Using ObjVenta As New ClsVentas
-            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
-                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
-            End If
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        Using ObjVenta As New ClsVentas
+            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
+                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
+            End If
         End Using
 
         'Fin Carga Usuarios
@@ -290,9 +290,9 @@ Partial Class Sistemas_CatSesiones
             Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
         Else
             Application("GlobalDTUsuarios") = Nothing
-        End If
-        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
-        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        End If
+        GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
         ObjUsuarios.Dispose()
         'Fin Carga Usuarios
     End Sub
@@ -300,12 +300,12 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaUsuariosResponsable()
         'Carga Usuarios
         Dim ObjUsuarios As New ClsSisUsuarios
-        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
-            Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
+        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
+            Alert(ObjUsuarios.DtResultados.Rows.Count.ToString)
             Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
         Else
             Application("GlobalDTUsuarioResponsable") = Nothing
-        End If
+        End If
         ObjUsuarios.Dispose()
         'Fin Carga Usuarios
     End Sub
@@ -402,25 +402,25 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaPaises()
         Dim Gral As New ClsGenerales
-        GlobalDTGralPaises = Nothing
-        'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
+        GlobalDTGralPaises = Nothing
+        'If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
         If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 
         Gral.Dispose()
     End Sub
 
     Private Sub CargaEstados()
-        GlobalDTGralEstados("") = Nothing
-        'Dim Gral As New ClsGenerales
-        'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
-        'Gral.Dispose()
+        GlobalDTGralEstados("") = Nothing
+        'Dim Gral As New ClsGenerales
+        'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
+        'Gral.Dispose()
     End Sub
 
     Private Sub CargaColonias()
-        GlobalDTGralColonias("", "", "") = Nothing
-        'Dim Gral As New ClsGenerales
-        'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
-        'Gral.Dispose()
+        GlobalDTGralColonias("", "", "") = Nothing
+        'Dim Gral As New ClsGenerales
+        'If Gral.GetGralEstados Then Application("GlobalDTGralEstados") = Gral.DtResultados Else Application("GlobalDTGralEstados") = Nothing
+        'Gral.Dispose()
     End Sub
 
 
@@ -482,10 +482,10 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     'Compras
-    Private Sub CargaProveedores()
-        GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
-
-
+    Private Sub CargaProveedores()
+        GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
+
+
         Dim ObjProveedores As New ClsCompProveedores
         'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing
         If ObjProveedores.GetClasificacionProveedores Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing
@@ -570,7 +570,7 @@ Partial Class Sistemas_CatSesiones
             End If
         End If
         ObjGral.Dispose()
-        Application("TipoCambioActual") = Nothing
+        Application("TipoCambioActual") = Nothing
     End Sub
 
     Private Sub CargarEquivalencias()
@@ -606,19 +606,19 @@ Partial Class Sistemas_CatSesiones
         '    Response.Redirect(dominio)
         'End If
         LblTotal.Text = dominio
-    End Sub
-
-    Private Sub CargaDTClasificacionPorcentaje()
-
-        Dim ObjGenerales As New ClsGenerales
-        If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
-        ObjGenerales.Dispose()
-
-    End Sub
-
-    Private Sub CargaDTInvPSSeccionesAlmacen()
-        GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
-        GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
-    End Sub
-
+    End Sub
+
+    Private Sub CargaDTClasificacionPorcentaje()
+
+        Dim ObjGenerales As New ClsGenerales
+        If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        ObjGenerales.Dispose()
+
+    End Sub
+
+    Private Sub CargaDTInvPSSeccionesAlmacen()
+        GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+        GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1) = Nothing
+    End Sub
+
 End Class
diff --git a/Sistemas/ListadoReportes.aspx b/Sistemas/ListadoReportes.aspx
index 04c7bdaa4..ab2ce9e1c 100644
--- a/Sistemas/ListadoReportes.aspx
+++ b/Sistemas/ListadoReportes.aspx
@@ -5,7 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Listado de reportes de Stimulsoft
+    Listado de formatos de impresión
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -21,7 +21,7 @@
                     <div class="portlet light smmallpadding traspasorow bordered">
                         <div class="portlet-title">
                             <div class="caption font-green">
-                                <span class="caption-subject bold uppercase" style="line-height: 1;">Listado de formatos</span>
+                                <span class="caption-subject bold uppercase" style="line-height: 1;">Listado de formatos de la empresa</span>
                             </div>
                             <div class="actions">
                                 <div class="btn-group">
@@ -51,6 +51,40 @@
                         </div>
                     </div>
                 </div>
+                <div class="col-md-4" id="DivGenerales" runat="server" visible="false">
+                    <div class="portlet light smmallpadding traspasorow bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <span class="caption-subject bold uppercase" style="line-height: 1;">Listado de formatos generales</span>
+                            </div>
+                            <div class="actions">
+                                <div class="btn-group">
+                                    <div class="row" style="margin-left: 0px; text-align: right" align="left">
+                                        <div style="margin-right: 15px">
+                                            <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet-body rowpadding">
+                            <asp:GridView ID="GvGenerales" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron formatos" DataKeyNames="RutaReporte"
+                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None" Width="100%">
+                                <Columns>
+                                    <asp:BoundField HeaderText="Formato" DataField="Reporte" ItemStyle-Width="80%" />
+                                    <asp:TemplateField HeaderText="Editar" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
+                                        <ItemTemplate>
+                                            <asp:LinkButton runat="server" ID="BtnEditar" OnClick="BtnEditar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea editar el formato?" data-btn-ok-label="si"></asp:LinkButton>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                </Columns>
+                                <RowStyle CssClass="Texto" />
+                                <HeaderStyle CssClass="Titulos" />
+                            </asp:GridView>
+                        </div>
+                    </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
diff --git a/Sistemas/ListadoReportes.aspx.cs b/Sistemas/ListadoReportes.aspx.cs
index 4ab288968..37abde9f4 100644
--- a/Sistemas/ListadoReportes.aspx.cs
+++ b/Sistemas/ListadoReportes.aspx.cs
@@ -21,12 +21,27 @@ public partial class Sistemas_ListadoReportes : ClsPaginas
     {
         string RutaReportes = string.Format("{0}/Formatos", UsuarioActual.Empresa.Ruta);
 
-        string[] allfiles = Directory.GetFiles(RutaReportes, "*.mrt", SearchOption.AllDirectories);
+        string[] allfiles = Directory.GetFiles(RutaReportes, "*.mrt", SearchOption.TopDirectoryOnly);
 
         GvDatos.DataSource = (from Reporte in allfiles
                               let file = new FileInfo(Reporte)
                               select new { RutaReporte = file.FullName, Reporte = file.Name.Replace(".mrt","") }).QueryToDataTable(true);
         GvDatos.DataBind();
+
+        //EN LA EMPRESA DE JULIAN SE PUEDEN EDITAR LOS GENERALES
+        if (UsuarioActual.CveEmpresa == 2 )
+        {
+            DivGenerales.Visible = true;
+            string RutaGenerales = string.Format("{0}/Grales/Formatos",  Extensiones.ModExtensiones.DirectorioEmpresas);
+
+            string[] allFormatosGenerales = Directory.GetFiles(RutaGenerales, "*.mrt", SearchOption.TopDirectoryOnly);
+
+            GvGenerales.DataSource = (from Reporte in allFormatosGenerales
+                                      let file = new FileInfo(Reporte)
+                                      select new { RutaReporte = file.FullName, Reporte = file.Name.Replace(".mrt", "") }).QueryToDataTable(true);
+            GvGenerales.DataBind();
+        }
+
         UPDatos.Update();
     }
 
@@ -34,8 +49,8 @@ public partial class Sistemas_ListadoReportes : ClsPaginas
     {
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         var RutaReporteEncriptada = Encripta(GvRow.DataKey("RutaReporte"));
-        var hostURL = "https://localhost:7162";
-        if (UsuarioActual.Empresa.FacturaProduccion)
+        var hostURL = "http://localhost:2202";
+        if (EsProduccion)
         {
             hostURL = "http://sig.adssistemas.mx:6599";
         }