diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 896018f1c..f21c6e65b 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -540,7 +540,7 @@ Public Class ClsClientes
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
+                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -677,6 +677,7 @@ Public Class ClsClientes
             .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
             .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
             .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
+            .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -723,7 +724,7 @@ Public Class ClsClientes
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                 Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean
+                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -870,6 +871,7 @@ Public Class ClsClientes
             .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas
             .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
             .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
+            .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index fc597ae2b..d8864b53d 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -498,6 +498,11 @@
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" HeaderText="OdeC">
+                        <ItemTemplate>
+                            <asp:Label ID="LbOC" runat="server" Text='<%# Eval("NoOrden")%>' data-toggle="tooltip" title='<%# Eval("CveOrdendeCorte")%>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <AlternatingRowStyle CssClass="TextoAlterno" />
@@ -646,11 +651,12 @@
                                         <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:BoundField HeaderText="Orden de corte" DataField="NoOrden" ItemStyle-Width="15%" />
+                                <asp:BoundField HeaderText="Orden de corte" DataField="NoOrden" ItemStyle-Width="10%" />
+                                <asp:BoundField HeaderText="Concepto" DataField="Concepto" ItemStyle-Width="15%" />
                                 <asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="15%" />
                                 <asp:BoundField HeaderText="Entrada" DataField="Entrada" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
-<%--                                <asp:BoundField HeaderText="Salida" DataField="Salida" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />--%>
+                                <%--                                <asp:BoundField HeaderText="Salida" DataField="Salida" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />--%>
                                 <asp:BoundField HeaderText="Disponible" DataField="Disponible" DataFormatString="{0:#,###.##}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
                             </Columns>
                         </asp:GridView>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 201d4f049..c42f89860 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -82,6 +82,8 @@ Partial Class Inventarios_Kardex
         GvM.Columns(15).Visible = TienePermisoImportes ' importe
         GvM.Columns(17).Visible = TienePermisoImportes ' valor
 
+        GvM.Columns(18).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
+
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
             DVFiltroCodigo.Visible = True
         End If
@@ -282,7 +284,7 @@ Partial Class Inventarios_Kardex
                 LnkSeries.Visible = AuxAplicaSerie
                 LnkCaducidad.Visible = AuxAplicaCad
 
-                If UsuarioActual.CveEmpresa = 172 Then
+                If UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 Then
                     LnkExistenciasPorCapas.Visible = True
                 End If
                 'CARGA INDICADORES
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 55ea1a365..326188def 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5030,9 +5030,14 @@ Partial Class Ventas
                         BtnArchivoAdjunto.Visible = True
                         BtnEliminarAdjunto.Visible = True
                         BtnAdjuntar.Visible = False
-                        BtnReemplazarAdjunto.Visible = True
+
+                        If Request("CveVenta") IsNot Nothing Then
+                            BtnReemplazarAdjunto.Visible = True
+                        End If
                     Else
-                        BtnReemplazarAdjunto.Visible = True
+                        If Request("CveVenta") IsNot Nothing Then
+                            BtnReemplazarAdjunto.Visible = True
+                        End If
                     End If
 
                     ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
@@ -6070,19 +6075,23 @@ Partial Class Ventas
                             ThCantidadFacturada2.Visible = False
                         End If
 
-                        'ACTIVA EDITAR 
-                        'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
-                        If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") 
-                            BtnPermisoEditarCotizacion.Visible = True
+                        'SI ES FACTURACION DIRECTA DESDE URL NO CARGAR LOS BOTONES
+                        If Request("CveCotizacion") Is Nothing Then
+                            'ACTIVA EDITAR 
+                            'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
+                            If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") 
+                                BtnPermisoEditarCotizacion.Visible = True
+                            End If
+
+                            'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
+                            If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") 
+                                BtnPermisoEditarCotizacion.Visible = True
+                            End If
+
+                            'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
+                            VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero())
                         End If
 
-                        'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA
-                        If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") 
-                            BtnPermisoEditarCotizacion.Visible = True
-                        End If
-
-                        'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero())
                     End If
 
                     If DbRowVenta("TipoDocto").ToString().Contiene("Ped") Then
@@ -6115,6 +6124,11 @@ Partial Class Ventas
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
 
+                    'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL
+                    If UsuarioActual.Empresa.Funcionalidad(558) <> "1" AndAlso Request("CveCotizacion") IsNot Nothing Then
+                        BtnEditar.Visible = False
+                    End If
+
                     If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
                         RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString)
                         RblPaqueteria.Enabled = False
@@ -12103,7 +12117,7 @@ Partial Class Ventas
                 '**** IMPUESTOS LOCALES
 
                 factura.DtDetalle = tmpcon
-                Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte")
+                Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte").RoundSQL(2)
                 Dim TotalDescuentos As Decimal = tmpcon.SUMD("Descuento")
 
                 Dim TotalIVA As Decimal = tmpcon.SUMD("ImporteIVA")