OC Es Temporal, PS Actualziar Utimo Costo

Ventas/RepVentasDetalle.aspx.vb

@@ -362,6 +362,17 @@ Partial Class RepVentasDetalle
         End If
         ' DdlEstatus.Items.Add(New ListItem("Todos", "-1"))
         DdlEstatus.DataBind()
+
+        If DdlTipoComprobante.GetSelectedValuesM(True).Contains("Rem") Then
+            For Each item As ListItem In DdlEstatus.Items
+                If item.Value = "11" Then
+                    DdlEstatus.Items.Remove(item)
+                    DdlEstatus.Items.Insert(0, New ListItem("Registrada", "2"))
+                    Exit For
+                End If
+            Next
+        End If
+
     End Sub
 
 #End Region
@@ -430,6 +441,10 @@ Partial Class RepVentasDetalle
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
+        If TipoComprobante.Contiene("Rem") And Not Estatus.Contiene("11") Then
+            Estatus = Estatus & ",11"
+        End If
+
         Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
 
         ChkLecturaAdmin.Checked = Not ModalidadContable