diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index e3e1494bf..637c36959 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -2,7 +2,6 @@
 Option Strict On
 
 Imports Extensiones
-Imports System
 Imports System.IO
 Imports System.Security.Cryptography
 Imports System.Security.Cryptography.X509Certificates
@@ -10,7 +9,6 @@ Imports System.Text
 Imports System.Xml
 Imports System.Xml.Xsl
 Imports System.Data
-Imports CrystalDecisions.Web
 Imports DocumentFormat.OpenXml.Wordprocessing
 Imports Org.BouncyCastle.Asn1
 Imports Org.BouncyCastle.Tls.Crypto.Impl
@@ -134,7 +132,7 @@ Partial Class Contabilidad_ContabilidadElectronica
                     Str.AppendFormat("Desc=""{0}"" ", HttpUtility.HtmlEncode(Dr("Nombre").ToString))
                     Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("CodigoPadre").ToString)
                     Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel").ToString)
-                    Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "D", "G", "H"), "D", "A"))  'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora.
+                    Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "E", "G", "I", "K"), "D", "A"))  'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora.
                 Else
                     Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup").ToString)
                     Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
@@ -274,12 +272,12 @@ Partial Class Contabilidad_ContabilidadElectronica
             objconta.Dispose()
 
             If DtCuentas IsNot Nothing Then
-                Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD")
-                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA")
-                'If Deudor <> Acreedor Then
-                '    Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError)
-                '    Exit Sub
-                'End If
+                Dim Deudor As Decimal = DtCuentas.SUM("SaldoFCargo", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
+                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoFAbono", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
+                If Deudor <> Acreedor Then
+                    Alert(String.Format("los Saldos Actuales no cuadran. {0}-{1}", Deudor, Acreedor), TipoMensaje.MsgError)
+                    Exit Sub
+                End If
             End If
         Else
             Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx
index 3cec952cb..8cedf3845 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx
+++ b/Contabilidad/RepBalanzaComprobacion.aspx
@@ -186,7 +186,7 @@
                                     </table>
                                 </HeaderTemplate>
                                 <ItemTemplate>
-                                    <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                                    <asp:Label ID="LbSaldoInicial" Style="padding-right: 75px;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
                                 </ItemTemplate>
                                 <ItemStyle Width="120" HorizontalAlign="Right" />
                             </asp:TemplateField>
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb
index ed2233a4c..c8b5a5d7e 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -11,8 +11,6 @@ Imports System.IO
 Imports System.Drawing
 Imports System.Web.Services
 
-
-
 Partial Class Contabilidad2_RepBalanzaComprobacion
     Inherits ClsPaginas
 
@@ -193,6 +191,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             'Acomoda Deudor y Acreedor
             If e.Row.DBCampo("CveTipo") = "1" Then
                 e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
+                e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
                 e.Row.FCLabel("LbSaldoActual").Text = "     "
             End If
 
@@ -211,19 +210,25 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             End If
 
             'Total general
-            If e.Row.DBCampo("Id") = "" Then
-
+            If e.Row.DBCampo("CveCuenta") = "" Then
                 e.Row.ControlStyle.Font.Bold = True
                 e.Row.ControlStyle.Font.Size = 9
                 e.Row.ControlStyle.Height = 30
                 e.Row.FCLabel("LbNombre").Text = "Sumas Iguales"
-                e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          <br/>{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero)
-                e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero
-                e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero
+                e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
+                e.Row.FCLabel("LbSaldoInicial").Style.Add("white-space", "pre")
+                e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}          <br/>{1}", e.Row.DBCampo("SaldoICargo").FormatoNumero, e.Row.DBCampo("SaldoIAbono").FormatoNumero)
+                e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").FormatoNumero
+                e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").FormatoNumero
                 e.Row.FCLabel("LbSaldoActual").Visible = True
-                e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
+                e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoFCargo").FormatoNumero, e.Row.DBCampo("SaldoFAbono").FormatoNumero)
+                e.Row.FCHyperLink("HLSaldoActual").Visible = False
             Else
-                If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
+                If ModoImpresion Then
+                    e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text
+                Else
+                    e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
+                End If
             End If
         End If
     End Sub
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 3ad751fca..e4155c514 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -488,7 +488,6 @@ Partial Class Inventarios_EntradasSalidas
                 End If
             End If
 
-            InicializaClientes()
             InicializaBitacoraTemporal()
 
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
@@ -514,7 +513,6 @@ Partial Class Inventarios_EntradasSalidas
                 PermisoVerImportes()
             End If
 
-
             If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
 
                 TxtFecha.Enabled = False
@@ -3941,17 +3939,7 @@ Partial Class Inventarios_EntradasSalidas
 
 
 #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
-    Private Sub InicializaClientes()
-        If UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso CveMovimiento <= 0 Then
 
-            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-            DdlClientes.DataBind()
-
-            DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlClientes.SelectedValue = "-1"
-
-        End If
-    End Sub
     Protected Sub ActivaClientes()
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
             DivCliente.Visible = True
@@ -3959,10 +3947,6 @@ Partial Class Inventarios_EntradasSalidas
             'TxtDepartamentoEntrega.Text = ""
         End If
 
-        'If UsuarioActual.CveRol = 1 Then
-        '    RfvCliente.Enabled = False
-        'End If
-
     End Sub
     Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
         CambiaCliente()
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 032209f71..14e6cb8b4 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1011,7 +1011,7 @@ Partial Class RH_Personal
             CargaOutSourcing()
             CargaDDlPersonalRefsReference()
 
-            If UsuarioActual.CveEmpresa = 13 AndAlso UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.CveEmpresa = 13 Then 'código temporal
                 CargaDTSCaracteristicas()
                 CargaDatosCaracteristicas()
             End If
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 982be9602..426e22577 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -141,6 +141,7 @@ Partial Class Sistemas_CatSesiones
         GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
+        GlobalDTEstadoActivoFijo() = Nothing
     End Sub
 
     Private Sub CargaSATGenerales()
diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index 86a826897..5f0b42e1d 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -173,7 +173,7 @@
                             <div class="row">
                                 <label class="col-md-2">Observaciones</label>
                                 <div class="col-md-7">
-                                    <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
+                                    <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="750" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
                                     <asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
                                 </div>
                                 <div class="col-md-2 input-icon">
diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb
index 06e929e9f..87d19bf9e 100644
--- a/Ventas/RepPedidosSTF.aspx.vb
+++ b/Ventas/RepPedidosSTF.aspx.vb
@@ -1,11 +1,10 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Activities.Expressions
 Imports System.Data
-Imports DocumentFormat.OpenXml.Office.CustomUI
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
+
 Partial Class Ventas_RepPedidosSTF
     Inherits ClsPaginas
 
@@ -297,6 +296,7 @@ Partial Class Ventas_RepPedidosSTF
         ObjA.IniciaTransacSQL()
         Dim TieneError As Boolean = False
         Dim StrAlerta As New StringBuilder
+        Dim ActivaEnvio As Boolean = False
 
         For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
 
@@ -327,10 +327,13 @@ Partial Class Ventas_RepPedidosSTF
                             TieneError = True
                         End If
                     End If
+
+                    If dr("CvePS").ToString.ToEntero = 1069499 Then ActivaEnvio = True
+
                 End If
             Next
 
-            If drt("GastosEnvio").ToString.ToDecimal > 0 Then
+            If drt("GastosEnvio").ToString.ToDecimal > 0 AndAlso ActivaEnvio Then
                 Dim tCvePSEnvio As Integer = UsuarioActual.Empresa.Funcionalidad(160).ToEntero
                 If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
                     TieneError = True
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2426570ff..a1ea5290a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9115,10 +9115,10 @@ Partial Class Ventas
                     If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                         If ModalidadEdicion Then
                             e.Row.FCLinkButton("imgE").Visible = True
-                            e.Row.FCLinkButton("imgD").Visible = False
+                            'e.Row.FCLinkButton("imgD").Visible = False
                         Else
                             e.Row.FCLinkButton("imgE").Visible = False
-                            e.Row.FCLinkButton("imgD").Visible = False
+                            'e.Row.FCLinkButton("imgD").Visible = False
                         End If
                     End If
                 End If