Validaciones de folio fijo

Ventas/Ventas.aspx.vb

@@ -17939,21 +17939,23 @@ Partial Class Ventas
         TabAlmacen.Enabled = DdlTipoComprobante.SelectedValue <> "Ant"
 
         'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO
-        If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO
-            BtnEmitirImprimir.Visible = True
-            TrVistaPrevia.Visible = True
-        Else
-            If LblCliente.Text <> "Cliente" And Not EstatusCliente Then
-                Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
-            End If
-            If Not CveEmpresaCRM > 0 Then
-                BtnEmitirImprimir.Visible = EstatusCliente
-                TrVistaPrevia.Visible = EstatusCliente
-            Else
+        If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
+            If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO
                 BtnEmitirImprimir.Visible = True
                 TrVistaPrevia.Visible = True
-            End If
+            Else
+                If LblCliente.Text <> "Cliente" And Not EstatusCliente Then
+                    Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
+                End If
+                If Not CveEmpresaCRM > 0 Then
+                    BtnEmitirImprimir.Visible = EstatusCliente
+                    TrVistaPrevia.Visible = EstatusCliente
+                Else
+                    BtnEmitirImprimir.Visible = True
+                    TrVistaPrevia.Visible = True
+                End If
 
+            End If
         End If
 
         If DdlTipoComprobante.SelectedValue = "Ing" Then
@@ -20406,8 +20408,10 @@ Partial Class Ventas
         End If
     End Sub
     Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
-        ViewState("EstablecioFolio") = True
-        Alert("Se estableció el Folio Fijo para el nuevo documento.")
+        If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
+            ViewState("EstablecioFolio") = True
+            Alert("Se estableció el Folio Fijo para el nuevo documento.")
+        End If
     End Sub
     Private Sub HabilitarFacturacionSucursal()
         trsucursalciente.Visible = True