RepOC, filtro por Moneda

-CAMBIOS EN BD (SIG_Resp_MLR y Ventas)
PA_OC_OrdenesCompraRep
 + @CveMoneda = -1

App_Code/ClsOC.vb

@@ -1649,7 +1649,7 @@ Public Class ClsOC
                                         FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
                                         CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
                                         Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
-                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
+                                        Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraRep")
@@ -1678,6 +1678,7 @@ Public Class ClsOC
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
             .Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
 
         End With
 

OC/RepOC.aspx

@@ -196,6 +196,11 @@
                             <asp:DropDownList ID="DdlUsuarioAsignado" runat="server" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" Style="width: 95px; height: 30px; display: inline-block;">
                             </asp:DropDownList>
                         </div>
+                        <label class="colf-1">Moneda</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlMoneda" runat="server" CssClass="form-control input-sm select2me" DataTextField="Moneda" DataValueField="CveMoneda" Style="width: 95px; height: 30px; display: inline-block;">
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
                     <div class="row rownomargin">

OC/RepOC.aspx.vb

@@ -63,6 +63,7 @@ Partial Class RepOC
             CargaProyectos()
             'CargaSubProyectos()
             CargaUsuarios()
+            CargaMonedas()
             CargaProveedores()
             CargaEstatus()
             CargaActivoFijo()
@@ -122,6 +123,11 @@ Partial Class RepOC
         DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
+    Protected Sub CargaMonedas()
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
+        DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
+    End Sub
     Protected Sub CargaProveedores()
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
             DdlProveedores.setEsWebService(True)
@@ -380,7 +386,7 @@ Partial Class RepOC
                         DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
                         If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
                         ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
-                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
+                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
 
             GvConsultar.DataSource = OC.DtResultados
             DtOC = OC.DtResultados