diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx
index 25098cc6c..08e150953 100644
--- a/OC/RepOC.aspx
+++ b/OC/RepOC.aspx
@@ -266,6 +266,14 @@
                                 <asp:ListItem Text="Si" Value="1"/>
                             </asp:DropDownList>
                         </div>
+                        <label class="colf-1">Método Pago</label>
+                        <div class="colf-2">
+                            <asp:DropDownList ID="DdlMetodoPago" runat="server" CssClass="form-control input-sm select2me" Style="width: 95px; height: 30px; display: inline-block;">
+                                <asp:ListItem selected="True" Text="Todos" Value="-1"/>
+                                <asp:ListItem Text="Contado" Value="0"/>
+                                <asp:ListItem Text="Crédito" Value="1"/>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb
index 359058272..63c5ead40 100644
--- a/OC/RepOC.aspx.vb
+++ b/OC/RepOC.aspx.vb
@@ -386,7 +386,8 @@ 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(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
+                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
+                        CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero) Then
 
             GvConsultar.DataSource = OC.DtResultados
             DtOC = OC.DtResultados