Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3,6 +3,7 @@ Option Explicit On
 
 Imports System.Data
 Imports System.IO
+Imports System.Text
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
@@ -2299,6 +2300,10 @@ Partial Class Inventarios_RecepcionAlmacen
 
         'VERIFICA EXISTENCIAS
         If TipoMovimiento > 1 Then
+            Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimeroValor("CveTipoAlmacen", "").ToEntero
+            Dim ValidaExistencia As Boolean = True
+            If CveTipoAlmacen.Contiene(6, 21) AndAlso UsuarioActual.CveEmpresa = 140 Then ValidaExistencia = False ' si es garantia no valida existencia
+            If ValidaExistencia Then
                 Dim MensajeExistencias As New StringBuilder
                 Dim ObjInventarios As New ClsInventarios
                 For Each gvr As GridViewRow In GvInv.Rows
@@ -2316,7 +2321,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         End If
                     End If
 
-                Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:= (TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
+                    Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
                     If Existencia < ExistenciaActual Then
                         MensajeExistencias.Append($"Producto: <b>{GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}</b>.</br>")
                         Continue For
@@ -2330,6 +2335,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
             End If
+        End If
 
         Return True
     End Function

Ventas/Ventas.aspx.vb

@@ -14287,6 +14287,7 @@ Partial Class Ventas
                                                         If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
                                                             Dim DescuentosAnticipos As Decimal = row2.DataKey("Descuentos").ToDecimal
                                                             ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / (row2.DataKey("TotalAnticipo").ToDecimal - DescuentosAnticipos) * row2.DataKey("SubTotalAnticipo").ToDecimal
+                                                            ImporteAnticipo = ImporteAnticipo.RoundSQL(2)
                                                         End If
 
                                                         Dim Importe11MX As Decimal = ImporteAnticipo
@@ -30167,6 +30168,11 @@ Partial Class Ventas
             Dim importePuTemp As Decimal = 0
             importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr)))
 
+            Dim DescuentoAplicado As Decimal = 0
+            If AplicaDescuentos Then
+                DescuentoAplicado = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr)
+            End If
+
             If Not AplicaImpuestosLocales Then
                 importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal
             End If
@@ -30186,8 +30192,8 @@ Partial Class Ventas
             Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal())
 
             If AplicaDescuentos Then
-                Dr("ImportePU") = importePuTemp + TmpDT.SUMD("Descuento", FiltroStr)
+                Dr("ImportePU") = importePuTemp + DescuentoAplicado
-                Dr("Descuento") = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr)
+                Dr("Descuento") = DescuentoAplicado
                 Dr("ImporteTotal") = Dr("ImportePU").ToString().ToDecimal().RoundSQL(2)
             Else
                 Dr("ImportePU") = importePuTemp