Consumo Interno activo fijo, RepCompras Activo Fijo integrar Consumo interno en reporte padre y detalle.

Compras/RepComprasAF.aspx.vb

@@ -111,18 +111,22 @@ Partial Class Compras_RepComprasAF
 
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
             DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal"
+            'LblSubProyecto.Text = "Sucursal"
             LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            ' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+            'DdlSubProyecto.DataBind()
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
             DdlProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto"
+            'LblSubProyecto.Text = "Proyecto"
             LblProyecto.Visible = False
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.DataBind()
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
             LblProyecto.Text = "Proyecto"
 
@@ -149,10 +153,14 @@ Partial Class Compras_RepComprasAF
     End Sub
 
     Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        'DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()

Compras/RepComprasAFDetalle.aspx.vb

@@ -174,6 +174,11 @@ Partial Class Compras_RepComprasAFDetalle
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
 
+        If Request.QueryString("CveProveedor") IsNot Nothing AndAlso Request.QueryString("CveProveedor").ToEntero = -3 Then
+            DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
+        End If
+
+
         DdlMonedas.DataSource = GlobalDTMonedas()
         DdlMonedas.DataBind()
 
@@ -325,11 +330,18 @@ Partial Class Compras_RepComprasAFDetalle
             FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
 
-            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Dim Liga As String = ""
+
+
+            If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
+                Liga = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+            Else
+                Liga = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}"
+            End If
 
 
             If e.Row.DBCampo("Orden") = "1" Then
-                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
+                e.Row.Cells(0).Text = String.Format("<a Class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
             Else
                 e.Row.BackColor = Drawing.Color.LightGray
                 e.Row.Font.Bold = True

Compras/RepProductosServicios.aspx.vb

@@ -202,6 +202,9 @@ Partial Class Compras_RepProductosServicios
         DdlGrupo.SelectedValueExist("8")
     End Sub
     Private Sub CargaTipoCentroCosto()
+
+
+
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
             DdlSubProyecto.Items.Clear()
             DivProyecto.Visible = False