diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index b8ab0b757..be43ad1ff 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -21,7 +21,7 @@
 
         #chartdiv {
             width: 100%;
-            height: 500px;
+            height: 700px;
         }
     </style>
 </asp:Content>
@@ -613,9 +613,15 @@
                     orientation: "horizontal"
                 });
 
+                var scrollbarY = am5.Scrollbar.new(root, {
+                    orientation: "vertical"
+                });
+
                 chart.set("scrollbarX", scrollbarX);
                 chart.bottomAxesContainer.children.push(scrollbarX);
 
+                chart.set("scrollbarY", scrollbarY);
+
                 // Make stuff animate on load
                 // https://www.amcharts.com/docs/v5/concepts/animations/
                 series.appear();
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 91813e109..383b245e7 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -62,11 +62,13 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            For Each Row As DataRow In DtAvance.Rows
-                If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
-                    Row("CodigoAF") = "Unidad no asignada"
-                End If
-            Next
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"})
+
+            'For Each Row As DataRow In DtAvance.Rows
+            '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
+            '        Row("CodigoAF") = "Unidad no asignada"
+            '    End If
+            'Next
 
             Dim jsonData As New JArray()
             Dim jsonCategorias As New JArray()
@@ -87,10 +89,10 @@ Partial Class RepContratosCalendario
                 jsonData.Add(obj)
             Next
 
-            'CATEGORIAS
-            For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows
+            'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES
+            For Each Row As DataRow In DtUnidades.Rows
                 Dim obj As New JObject(
-                    New JProperty("category", Row("CodigoAF"))
+                    New JProperty("category", Row("Codigo"))
                 )
                 jsonCategorias.Add(obj)
             Next
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 86e9bb18b..121b91ca6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3747,7 +3747,7 @@ Partial Class Ventas
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5)
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then
+                If (UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso FechaICorte < NowADS().Date Then
                     DebeCerrarCorte = True
                     LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
                 Else
@@ -16512,8 +16512,25 @@ Partial Class Ventas
 
             Dim ObjMovtos As New ClsMovimientos()
             If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then
-
                 Me.TmpDTAnticiposNCIxCCliente = ObjMovtos.DtResultados.Copy()
+            End If
+
+            'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveEmpresa = 190 Then
+                Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
+                If CveClientePublicoGeneral > 0 Then
+                    If CveCliente <> CveClientePublicoGeneral Then
+                        If ObjMovtos.GetAnticiposNCIxCCliente(CveClientePublicoGeneral) Then
+                            For Each DrGeneral As DataRow In ObjMovtos.DtResultados.Rows
+                                Me.TmpDTAnticiposNCIxCCliente.Rows.Add(DrGeneral.ItemArray)
+                            Next
+                        End If
+                    End If
+                End If
+            End If
+            ObjMovtos.Dispose()
+
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")}  {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
@@ -16527,7 +16544,6 @@ Partial Class Ventas
             Else
                 GVAnticipos.DataSource = Nothing
             End If
-            ObjMovtos.Dispose()
 
             If CveVenta <= 0 OrElse (EsCreaApartirDe Or CveDevolucion > 0) Then
                 divAmortizacionTipo.Visible = True