E13. Contrato y descripcion de ventas (Parte 1)

CxC/RepCxC.aspx

@@ -362,6 +362,14 @@
                                 <asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
+                            Contrato:
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
 
                 </div>

CxC/RepCxC.aspx.vb

@@ -172,6 +172,20 @@ Partial Class RepCxC
         '    Next
         'End If
         'ObjSisUsuarios.Dispose()
+        If UsuarioActual.CveEmpresa = 13 Then
+            CargaContratos()
+        End If
+
+    End Sub
+
+    Private Sub CargaContratos()
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then
+            DdlContrato.DataSource = ObjContratos.DtResultados
+        End If
+
+        ObjContratos.Dispose()
+        DdlContrato.DataBind()
 
     End Sub