nominas en reporte de presupuestos, correciones de reporte af,correciones en traspasos y ventas

Compras/RepComprasAF.aspx.vb

@@ -59,16 +59,20 @@ Partial Class Compras_RepComprasAF
         txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
 
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedores.DataBind()
+        DdlProveedores.DataBind()
+        DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlMonedas.DataSource = GlobalDTMonedas()
-        DdlMonedas.DataBind()
+        DdlMonedas.DataBind()
+        DdlMonedas.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
         DdlTipoActivoFijo.DataBind()
+        DdlTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
 
         Dim ObjClasificacion As New ClsClasificaciones
@@ -81,9 +85,11 @@ Partial Class Compras_RepComprasAF
 
         ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
+        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)