Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Ventas/ProductosServicios.aspx.vb

@@ -1162,6 +1162,16 @@ Partial Class ProductosyServicios
             Return
         End If
 
+        If UsuarioActual.CveEmpresa = 119 AndAlso DdlTipoPS.SelectedValue = "2" Then
+            If TxtVentaMinima.Text.ToDecimal <= 0 Then
+                Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+
+        End If
+
+
+
         Dim ObjProductosServicios As New ClsProductosServicios()
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
 
@@ -1176,6 +1186,7 @@ Partial Class ProductosyServicios
             CveProveedor = DdlProveedor.txtValue.Value.ToEntero
         End If
 
+
         Dim CveMarca As Integer = 0
         If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 

Ventas/Ventas.aspx.vb

@@ -22995,6 +22995,7 @@ Partial Class Ventas
         AplicaNC = False
         LBNotaCredito.Visible = True
         'LkNotaCredito.Visible = False
+        DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
 
         TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNC();")
         TxtNCImporte.Attributes.Add("onkeyup", "CalculaPorcentajeNC();")