diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 76e29e41b..86a562758 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -38,6 +38,10 @@
         .showgrph .chkgraf {
             visibility: inherit;
         }
+
+        .table>tbody>tr>td{
+            vertical-align:bottom;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index a7fba26be..762a25374 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -1480,8 +1480,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor)
             e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor)
             e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
-            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor)
-            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor)
+            e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJunio").ForeColor)
             e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor)
             e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor)
             e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor)
diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx
index 86820315a..c0bf14666 100644
--- a/Sistemas/Empresa.aspx
+++ b/Sistemas/Empresa.aspx
@@ -44,6 +44,7 @@
                         <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                         <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
                         <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
+                            
                             <ajax:TabPanel HeaderText="Empresa" ID="TabPanel1" runat="server">
                                 <ContentTemplate>
 
@@ -152,14 +153,14 @@
                                                                 <asp:TextBox ID="TxtLocalidad" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
                                                             </td>
                                                         </tr>
-                                                        <tr>
+                                                      <%--  <tr>
                                                             <td>Régimen:</td>
                                                             <td>
                                                                 <asp:TextBox ID="TxtRegimen" runat="server" MaxLength="100" Width="350px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVRegimen" runat="server" ControlToValidate="TxtRegimen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen'</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCERegimen" runat="server" HighlightCssClass="vco" TargetControlID="RFVRegimen" Width="300px"></ajax:ValidatorCalloutExtender>
                                                             </td>
-                                                        </tr>
+                                                        </tr>--%>
                                                         <tr>
                                                             <td>Régimen:</td>
                                                             <td>
@@ -708,7 +709,7 @@
                                     </div>
                                 </ContentTemplate>
                             </ajax:TabPanel>
-                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabPanel3" runat="server">
+                            <ajax:TabPanel HeaderText="Contabilidad" ID="TabContabilidad" runat="server" Visible="false">
                                 <ContentTemplate>
                                     <div class="row">
                                         <div class="col-md-6">
diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb
index b944b5b36..51c58ba61 100644
--- a/Sistemas/Empresa.aspx.vb
+++ b/Sistemas/Empresa.aspx.vb
@@ -108,6 +108,21 @@ Partial Class Sistemas_Empresa
     End Property
 
 
+    Public Property TipoContabilidad As Integer
+        Get
+            If ViewState("TipoContabilidad") Is Nothing Then
+                ViewState("TipoContabilidad") = -1
+            End If
+
+            Return CType((ViewState("TipoContabilidad")), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("TipoContabilidad") = value
+        End Set
+    End Property
+
+
+
     Enum EnumOpActualizaArchivosCer
         SinOpcion
         KEY
@@ -186,6 +201,9 @@ Partial Class Sistemas_Empresa
             End If
             ConfiguracionEmpresa()
 
+
+
+
         End If
     End Sub
 
@@ -231,7 +249,7 @@ Partial Class Sistemas_Empresa
                     ChkSendMailSSL.Checked = .SendMailSSL
                     ChkMostrarRetIVA.Checked = .MostrarRetIVA
                     ChkMostrarRetISR.Checked = .MostrarRetISR
-                    TxtRegimen.Text = .Regimen
+                    'TxtRegimen.Text = .Regimen
                     ChkEstatusFacturacion.Checked = .EstatusFacturacion
                     TxtTimbres.Text = .Timbres.ToString
                     ChkUsaContabilidad.Checked = .UsaContabilidad
@@ -280,6 +298,7 @@ Partial Class Sistemas_Empresa
                     ChkReqCentroCostos.Checked = .RequiereCentroCostos
                     DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
                     TxtImporte.Text = .Importe.ToString
+                    TipoContabilidad = .TipoContabilidad
 
                     'NUEVOS
                     TxtAreaGeografica.Text = .AreaGeografica
@@ -490,7 +509,7 @@ Partial Class Sistemas_Empresa
                                       TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim,
                                       DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim,
                                       TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked,
-                                      ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
+                                      ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
                                       TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked,
                                       ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim,
                                       TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked,
@@ -537,7 +556,7 @@ Partial Class Sistemas_Empresa
             If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
                                          TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim,
                                          TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, ChkEstatus.Checked,
-                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, TxtRegimen.Text.Trim, ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
+                                         ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked,
                                          ChkUsaVentas.Checked, ChkUsaCxC.Checked, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim,
                                          TxtServerContPAQi.Text.Trim, TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
@@ -1255,6 +1274,9 @@ Partial Class Sistemas_Empresa
             BtnEliminar.Visible = False
             BiInform.Visible = False
         End If
+        If TipoContabilidad = 2 Then
+            TabContabilidad.Visible = True
+        End If
     End Sub
 #End Region
 
@@ -1303,18 +1325,36 @@ Partial Class Sistemas_Empresa
 
 #Region "TAB CONTABILIDAD - CLASIFICACION DE IVA"
     Private Sub ActualizaNombresCuentas()
+
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXAcreditar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaAcreditable") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaXTrasladar") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(Integer))
+        'End If
+        'If Not DtClasificacionIVA.Columns.Contains("CuentaTrasladado") Then
+        '    DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(Integer))
+        'End If
+
         For Each Dr As DataRow In DtClasificacionIVA.Rows
             If Dr("IdCtaIVAXAcreditar").ToString.ToEntero > 0 Then
-                Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXAcreditar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXAcreditar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAAcreditable").ToString.ToEntero > 0 Then
-                Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaAcreditable") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAAcreditable").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVAXTrasladar").ToString.ToEntero > 0 Then
-                Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaXTrasladar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXTrasladar").ToString}").ToString.ToEntero
             End If
             If Dr("IdCtaIVATrasladado").ToString.ToEntero > 0 Then
-                Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                'Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
+                Dr("CuentaTrasladado") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVATrasladado").ToString}").ToString.ToEntero
             End If
         Next
         DtClasificacionIVA.AcceptChanges()
@@ -1361,12 +1401,16 @@ Partial Class Sistemas_Empresa
         Dim ObjEmpresas As New ClsSisEmpresas()
         If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
             If ObjEmpresas.Empresa.UsaContabilidad Then
+
+                'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
                 Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
-                If Cuenta.GetCuentas(-1, "-1", -1) Then
-                    DtCuentas = Cuenta.DtResultados
-                End If
-                Cuenta.Dispose()
-                Try
+                    If Cuenta.GetCuentas(-1, "-1", -1) Then
+                        DtCuentas = Cuenta.DtResultados
+                    End If
+                    Cuenta.Dispose()
+                    'End If
+
+                    Try
                     DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
                 Catch ex As Exception
                 End Try