Correciones: Carga de Retenciones al CrearAPartirDe, Validación de existencia solo en productos, Validación de surtidos al facturar remisión, aplicación de NC, boton de agregar cliente en E140 cuando es cotización.

Ventas/Ventas.aspx.vb

@@ -2628,6 +2628,10 @@ Partial Class Ventas
                             'DdlEstatus.Enabled = False
                         End If
 
+                        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                            LnkAgregarCliente.Visible = True
+                        End If
+
                     End If
                     CargaEstatusFactura(Opcion)
 
@@ -5632,7 +5636,7 @@ Partial Class Ventas
                 ViewState("ClienteRetIVA") = ObjCliente.RetIVA / 100
                 ViewState("ClienteRetISR") = ObjCliente.RetISR / 100
 
-                If CveVenta <= 0 Then
+                If CveVenta <= 0 OrElse EsCreaApartirDe Then
                     DdlTipoRetencion.SelectedValueExist(ObjCliente.DtResultados(0)("CveTipoRetencion").ToString())
                     DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
 
@@ -7689,13 +7693,7 @@ Partial Class Ventas
                 Dim CveProducto As Integer
                 Dim Existencia As Double
                 Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero()
-                For Each dr As DataRow In TmpDT.Rows
+                For Each dr As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
-
-                    'SI ES SERVICIO NO VALIDA
-                    'GlobalDTProductosServicios
-                    If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString().ToEntero()).FiltroPrimeroValor("CveTipoPS").ToString().ToEntero() = 1 Then
-                        Continue For
-                    End If
 
                     If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                         'VALIDA EXISTENCIA
@@ -18966,6 +18964,12 @@ Partial Class Ventas
                 ' rowSurtidos("Surtido").ToString().ToDouble < rowSurtidos("Cantidad").ToString().ToDouble AndAlso (dr("CantidadDisponible").ToString().ToDouble - rowSurtidos("Surtido").ToString().ToDouble > 0 Or dr("Serie").ToString() <> "")
                 If rowSurtidos("Surtido").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDecimal Then
                     Dim CantidadSurtida As Double = If(dr("CantidadDisponible").ToString().ToDecimal < rowSurtidos("Cantidad").ToString().ToDouble, dr("CantidadDisponible").ToString().ToDecimal, rowSurtidos("Cantidad").ToString().ToDecimal)
+
+                    'SI LA CANTIDAD SURTIDA SUPERA LO REQUERIDO, TOMA SOLO LO NECESARIO PARA COMPLETAR
+                    If (rowSurtidos("Surtido").ToString().ToDecimal + CantidadSurtida) > rowSurtidos("Cantidad").ToString().ToDecimal Then
+                        CantidadSurtida = (rowSurtidos("Cantidad").ToString().ToDecimal - rowSurtidos("Surtido").ToString().ToDecimal)
+                    End If
+
                     MovDTCuadrados.ImportRow(dr)
                     MovDTCuadrados(MovDTCuadrados.Rows.Count - 1)("Cantidad") = CantidadSurtida
                     DtRemConceptosSurtidos(Indice)("Surtido") = rowSurtidos("Surtido").ToString().ToDecimal + CantidadSurtida
@@ -26913,7 +26917,7 @@ Partial Class Ventas
 
         For Each Dr As DataRow In DtImpuestosLocal.Rows
             FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("CveSubProyecto"))
-            Dim importePuTemp As Decimal = (Porcentaje * (TmpDT.SUMD("Total", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr)))
+            Dim importePuTemp As Decimal = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr)))
 
             If Not AplicaImpuestosLocales Then
                 importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal
@@ -29767,7 +29771,7 @@ Partial Class Ventas
             End If
         End If
         ObjCliente.Dispose()
-        'DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
+        DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
 
         TrVistaPrevia.Visible = True
         TxtFechaVencimientoCotizacion.Text = Now.ToShortDateString
@@ -31158,6 +31162,8 @@ Partial Class Ventas
                             tClienteRetIVA = 0.04D
                         ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
                             tClienteRetIVA = 0.06D
+                        ElseIf DdlTipoRetencion.SelectedValue.Contiene("0") Then
+                            tClienteRetIVA = 0.00D
                         End If
                         ViewState("ClienteRetIVA") = tClienteRetIVA
                     End If