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

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