Trapasos con pendientes por surtir,validar pagos,cambiar cliente de dispositivo,guardar PDF factura

Ventas/Ventas.aspx.vb

@@ -1142,6 +1142,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property PermiteCredito As Boolean
+        Get
+            Return If(IsNothing(ViewState("PermiteCredito")), False, CBool(ViewState("PermiteCredito")))
+        End Get
+        Set(value As Boolean)
+            ViewState("PermiteCredito") = value
+        End Set
+    End Property
+
 #End Region
 
 #Region "Propiedades PuntoVenta"
@@ -4860,7 +4869,7 @@ Partial Class Ventas
                 TrAtencionA.Visible = True
                 tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
                 tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
-
+                Me.PermiteCredito = ObjCliente.PermiteCredito
 
                 LbAgregar.Enabled = True
                 LnkAgregarPyME.Enabled = True
@@ -16531,6 +16540,11 @@ Partial Class Ventas
     Private Function ValidaPagosContado() As Boolean
         Dim Retorno = False
 
+        If (UsuarioActual.CveEmpresa = 140) AndAlso (Not PermiteCredito) AndAlso (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0) Then
+            Alert("Es necesario especificar un pago.", TipoMensaje.MsgAdvertencia)
+            Retorno = True
+        End If
+
         If DtPagos.SUM("Importe").ToString.ToDecimal > TxtTotal.Text.ToDecimal Then
             Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia)
             Retorno = True