OC Es Temporal, PS Actualziar Utimo Costo

Ventas/RepVentas.aspx.vb

@@ -260,8 +260,12 @@ Partial Class Ventas_RepVentas
         Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
         Dim Estatus As String = If(DdlEstatus.GetSelectedValuesM = "", "-1", DdlEstatus.GetSelectedValuesM)
         Dim Vendedores As String = If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM)
-        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
-
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
+
+        If TipoComprobante.Contiene("Rem") And Not Estatus.Contiene("11") Then
+            Estatus = Estatus & ",11"
+        End If
+
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
             TCEspecifico = TxtEspecifico.Text.ToDecimal
         Else
@@ -340,7 +344,19 @@ Partial Class Ventas_RepVentas
             DdlEstatus.DataSource = GlobalDTEstatusFactura
         End If
         'DdlEstatus.Items.Add(New ListItem("Todos", "-1"))
-        DdlEstatus.DataBind()
+        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
 
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged