--FIX error de ultimo costo

Ventas/Ventas.aspx.vb

@@ -2866,6 +2866,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("PSAlterno", GetType(String))
                         TmpDT.Columns.Add("Costo", GetType(Decimal))
                         TmpDT.Columns("Costo").DefaultValue = 0D
+                        TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
+                        TmpDT.Columns("UltimoCosto").DefaultValue = 0D
 
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
@@ -2887,6 +2889,8 @@ Partial Class Ventas
                         TmpDT = ObjCGame.DtResultados
                         TmpDT.Columns.Add("Costo", GetType(Decimal))
                         TmpDT.Columns("Costo").DefaultValue = 0D
+                        TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
+                        TmpDT.Columns("UltimoCosto").DefaultValue = 0D
                         If Not TmpDT.Columns.Contains("NumeroParte") Then TmpDT.Columns.Add("NumeroParte", GetType(String))
 
                         GvPS.DataBind()
@@ -2935,6 +2939,9 @@ Partial Class Ventas
                         TmpDT.Columns.Add("NumeroParte", GetType(String))
                         TmpDT.Columns.Add("Costo", GetType(Decimal))
                         TmpDT.Columns("Costo").DefaultValue = 0D
+                        TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
+                        TmpDT.Columns("UltimoCosto").DefaultValue = 0D
+
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -9283,6 +9290,9 @@ Partial Class Ventas
             If DrPS IsNot Nothing Then
                 gvr.FCTextBox("TxtPrecio").Enabled = CBool(DrPS("PrecioLibre"))
             End If
+
+            'PONER LA CLASIFICACION EN TODAS, PARA NO FILTRAR POR CLASIFICACION
+            gvr.FCDropDownList("DdlClasificacion").SelectedValueExist("-1")
         End If
 
         If UsuarioActual.TienePermisoProceso(253) Then gvr.FCTextBox("TxtPrecio").Enabled = True
@@ -10381,7 +10391,6 @@ Partial Class Ventas
                     PU = dr("PU").ToString().ToDecimal * If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.ToDecimal)
 
                     If UsuarioActual.Empresa.Funcionalidad(602) = "UC" Then 'validación sobre el último costo
-
                         If ObjInventarios.GetUltimoCosto(UsuarioActual.CveEmpresa, dr("CvePS").ToString().ToEntero()) Then
                             Dim drps As DataRow = ObjInventarios.DtResultados.FiltroPrimero("")
                             If drps IsNot Nothing Then
@@ -10391,6 +10400,7 @@ Partial Class Ventas
                     Else
                         Costo = ObjInventarios.GetCostoPS(dr("CvePS").ToString().ToEntero(), dr("Cantidad").ToString().ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
                     End If
+
                     Dim PrecioMinimo As Decimal = 0
                     'RMF. condicion temporal, para reubicación, precio mínimo 
                     If UsuarioActual.CveEmpresa = 119 Then
@@ -13781,13 +13791,7 @@ Partial Class Ventas
         Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
         Timbre.Comprobante.Folio = Obj.Folio.ToString()
         Timbre.Comprobante.Serie = Obj.Serie
-
+        Timbre.Comprobante.Fecha = Obj.FechaCP
-        If Me.CveVenta = 4381091 Then
-            Timbre.Comprobante.Fecha = Obj.Fecha
-        Else
-            Timbre.Comprobante.Fecha = Obj.FechaCP
-        End If
-
 
         Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76, 198), "No Aplica", Obj.FormaPago)
         Timbre.Comprobante.MetodoPago = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {Obj.CveMetodoPago}") ' Obj.ClaveMetodoPagoSAT
@@ -21691,6 +21695,9 @@ Partial Class Ventas
 
         TmpDT.Columns.Add("Costo", GetType(Decimal))
         TmpDT.Columns("Costo").DefaultValue = 0D
+
+        TmpDT.Columns.Add("UltimoCosto", GetType(Decimal))
+        TmpDT.Columns("UltimoCosto").DefaultValue = 0D
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable