Cambios OS, Compras anticipos comisiones

OS/RepServicioDomicilio.aspx.vb

@@ -63,7 +63,14 @@ Partial Class OS_RepServicioDomicilio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoEtiqueta)
+
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
+            LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
+
+            DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlTecnico.DataBind()
+            DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
+
             InicializaCalendar()
         End If
     End Sub
@@ -270,4 +277,8 @@ Partial Class OS_RepServicioDomicilio
 #End Region
 
 
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        RegistraScript("Calendario();")
+    End Sub
 End Class