RepOC, filtro por Moneda

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

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