diff --git a/Empresas/190/Formatos/RepCortes.rdlc b/Empresas/190/Formatos/RepCortes.rdlc
index 3d72d3b77..b967bd1ab 100644
--- a/Empresas/190/Formatos/RepCortes.rdlc
+++ b/Empresas/190/Formatos/RepCortes.rdlc
@@ -402,6 +402,7 @@
                               <Value>=Fields!SerieFolio.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -415,6 +416,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -434,6 +436,7 @@
                               <Value>=Fields!NombreComercial.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -447,6 +450,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -468,6 +472,7 @@
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <Format>#,0.00</Format>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -481,6 +486,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -501,6 +507,7 @@
                               <Value>=Fields!MetodoPago.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -514,6 +521,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -1668,6 +1676,10 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="CveVenta">
+          <DataField>CveVenta</DataField>
+          <rd:TypeName>System.Integer</rd:TypeName>
+        </Field>
         <Field Name="SerieFolio">
           <DataField>SerieFolio</DataField>
           <rd:TypeName>System.String</rd:TypeName>
diff --git a/Empresas/193/Formatos/RepCortes.rdlc b/Empresas/193/Formatos/RepCortes.rdlc
index 5b7ac4c46..8a722aea3 100644
--- a/Empresas/193/Formatos/RepCortes.rdlc
+++ b/Empresas/193/Formatos/RepCortes.rdlc
@@ -182,6 +182,7 @@
                               <Value>=Fields!SerieFolio.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -195,6 +196,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -214,6 +216,7 @@
                               <Value>=Fields!NombreComercial.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -227,6 +230,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -248,6 +252,7 @@
                               <Style>
                                 <FontSize>8pt</FontSize>
                                 <Format>#,0.00</Format>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -261,6 +266,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -281,6 +287,7 @@
                               <Value>=Fields!MetodoPago.Value</Value>
                               <Style>
                                 <FontSize>8pt</FontSize>
+                                <Color>=IIF(Fields!CveVenta.Value = nothing,"White","Black")</Color>
                               </Style>
                             </TextRun>
                           </TextRuns>
@@ -294,6 +301,7 @@
                         <Border>
                           <Style>None</Style>
                         </Border>
+                        <BackgroundColor>=IIF(Fields!CveVenta.Value = nothing,IIF(Fields!MetodoPago.Value = "","#5E738B","#578EBE"),"White")</BackgroundColor>
                         <PaddingLeft>2pt</PaddingLeft>
                         <PaddingRight>2pt</PaddingRight>
                         <PaddingTop>2pt</PaddingTop>
@@ -2577,6 +2585,10 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="CveVenta">
+          <DataField>CveVenta</DataField>
+          <rd:TypeName>System.Integer</rd:TypeName>
+        </Field>
         <Field Name="SerieFolio">
           <DataField>SerieFolio</DataField>
           <rd:TypeName>System.String</rd:TypeName>
diff --git a/Ventas/CatClasificaciones2.aspx.vb b/Ventas/CatClasificaciones2.aspx.vb
index 4380f1c83..f1a7b9dcf 100644
--- a/Ventas/CatClasificaciones2.aspx.vb
+++ b/Ventas/CatClasificaciones2.aspx.vb
@@ -186,33 +186,31 @@ Partial Class Ventas_CatClasificaciones2
 
     Protected Sub LbAgregarS_Click(sender As Object, e As EventArgs) Handles LbAgregarS.Click
         Dim ObjClasificaciones As New ClsClasificaciones
-        'If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "",
-        '                                         -1, "", -1, "", -1, "",
-        '                                         DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then
+        If ObjClasificaciones.AddClasificaciones(TxtClasificacionS.Text.Trim, "", DdlCategoriaS.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False) Then
 
-        '    'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text,
-        '    'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text,
-        '    'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text,
-        '    TxtClasificacionS.Text = ""
-        '    Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
-        '    UpTitulosS.Update()
+            'DdlCuentaGastoS.SelectedValue.ToEntero, DdlCuentaGastoS.SelectedItem.Text,
+            'DdlCuentaAnticipoS.SelectedValue.ToEntero, DdlCuentaAnticipoS.SelectedItem.Text,
+            'DdlCuentaInventarioS.SelectedValue.ToEntero, DdlCuentaInventarioS.SelectedItem.Text,
+            TxtClasificacionS.Text = ""
+            Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
+            UpTitulosS.Update()
 
-        '    If ObjClasificaciones.GetClasificaciones(-1, 4) Then
-        '        GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing
-        '        ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        '        GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        '    End If
+            If ObjClasificaciones.GetClasificaciones(-1, 4) Then
+                GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = Nothing
+                ViewState("DTClasificacion2") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+                GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            End If
 
-        '    'DdlCuentaGastoS.SelectedValue = "-1"
-        '    'DdlCuentaAnticipoS.SelectedValue = "-1"
-        '    'DdlCuentaInventarioS.SelectedValue = "-1"
+            'DdlCuentaGastoS.SelectedValue = "-1"
+            'DdlCuentaAnticipoS.SelectedValue = "-1"
+            'DdlCuentaInventarioS.SelectedValue = "-1"
 
-        '    If ViewState("Orden2").ToString() <> String.Empty Then
-        '        CargaGridS(ViewState("Orden2").ToString())
-        '    Else
-        '        CargaGridS("")
-        '    End If
-        'End If
+            If ViewState("Orden2").ToString() <> String.Empty Then
+                CargaGridS(ViewState("Orden2").ToString())
+            Else
+                CargaGridS("")
+            End If
+        End If
         ObjClasificaciones.Dispose()
     End Sub
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bd8cae3a5..fbbffc483 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5073,7 +5073,7 @@ Partial Class Ventas
                                     'End If
                                     'si utiliza cortes, y cajas, no permitir cancelar de días anteriores
                                     If UsuarioActual.CveRol <> 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
-                                        LbCancelarDocumento.Visible = False
+                                        LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378)
                                     End If
                                 End If