--Solo mostrar refacturacion en dias posteriores a la fecha de emision, el dia de la fecha solo se puede cancelar

Ventas/Ventas.aspx.vb

@@ -3231,6 +3231,10 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(301) <> "" Then
                 TxtFecha.Enabled = True
                 ImgFecha.Visible = True
+            Else
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+                CEFecha.Enabled = False
             End If
 
             CargarCodigo()
@@ -5037,7 +5041,10 @@ Partial Class Ventas
                         If (Not CveEstatus.Contiene(4, 5, 12, 13, 20, 23) OrElse (CveEstatus = 5 AndAlso DbRowVenta("CveEstatusRefacturacion").ToString().ToEntero() = 4)) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Ant") AndAlso UsuarioActual.TienePermisoProceso(159) Then
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then
+                                If Not (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") Then
                                     LkRefacturacion.Visible = True
+                                End If
+
                                 If (CveEstatus = 5 AndAlso DbRowVenta("CveEstatusRefacturacion").ToString().ToEntero() = 4) Then
                                     RefacturarCancelada = True
                                 End If
@@ -5065,10 +5072,19 @@ Partial Class Ventas
                                     '    End If
                                     '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
+                                    If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") Then
+                                        LkRefacturacion.Visible = False
+                                        If DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
+                                            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Ant") AndAlso UsuarioActual.TienePermisoProceso(159) Then
+                                                LkRefacturacion.Visible = True
+                                                LbCancelarDocumento.Visible = False
+                                            Else
                                                 LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378)
                                             End If
                                         End If
+                                    End If
+
+                                End If
 
                             End If
                         End If
@@ -7272,7 +7288,11 @@ Partial Class Ventas
             TxtCantidad.Focus()
         End If
 
-
+        'SI ES REFACTURACION HABILITAR LOS CAMPOS
+        If NuevaFactura = 1 Then
+            DdlMetodoPago33.Enabled = True
+            DdlFormaPago33.Enabled = True
+        End If
         'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
         '    Using ObjVentas As New ClsVentas
         '        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then