E13. Contrato y descripcion de ventas (Parte 1)

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