-

Compras/Compras.aspx.vb

@@ -1260,6 +1260,21 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property FechaMovtoDev As Date
+        Get
+            If ViewState("FechaMovtoDev") Is Nothing Then
+                ViewState("FechaMovtoDev") = MinFecha
+            End If
+            Return ViewState("FechaMovtoDev").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaMovtoDev") = value
+        End Set
+    End Property
+
+
+
+
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -13926,6 +13941,7 @@ Partial Class Compras_Compras
 
     Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double)
         Dim objcompras As New ClsCompras()
+
         If objcompras.GetCompraParaDevolucion(CveProveedor, UsuarioActual.CveEmpresa, SubTotal) Then
             DDLDevolucion.Items.Clear()
             Dim dtt As DataTable = objcompras.DtResultados
@@ -13943,6 +13959,9 @@ Partial Class Compras_Compras
     End Sub
 
     Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged
+
+        FechaMovtoDev = MinFecha
+
         If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
             DivAlmacenDev.Visible = True
         End If
@@ -13950,6 +13969,7 @@ Partial Class Compras_Compras
         Dim objcompras As New ClsCompras()
         If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
             GVDevolucion.DataSource = objcompras.DtResultados
+            FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate.ToString("dd/MM/yyyy").ToDate
         End If
         objcompras.Dispose()
         GVDevolucion.DataBind()
@@ -13960,8 +13980,12 @@ Partial Class Compras_Compras
             End If
         Next
         DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen)
-
         UPDevolucion.Update()
+
+        If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then
+            Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia)
+        End If
+
     End Sub
 
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
@@ -13990,6 +14014,13 @@ Partial Class Compras_Compras
                 If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion)
                 If Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) <= tTolerancia Then
                     VinculaDevolucion()
+
+                    If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then
+                        TxtFecha.Text = FechaMovtoDev.AddDays(1).ToString("dd/MM/yyyy")
+                        Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia)
+                        UpParametros.Update()
+                    End If
+
                 Else
                     Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
                 End If