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

Inventarios/EntradasSalidas.aspx

@@ -331,12 +331,22 @@
                                         </div>
                                         <div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false">
                                             <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
-                                            <div class="col-md-2">
-                                                <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 250px"></asp:DropDownList>
+                                            <div class="col-md-5">
+                                                <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList>
                                                 <asp:RangeValidator ID="RVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" MinimumValue="0" MaximumValue="9999999" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
+                                        <div class="row" runat="server" id="TrActivoFijo" visible="false">
+
+                                            <asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Activo Fijo:</asp:Label>
+                                            <div class="col-md-5">
+                                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="95%">
+                                                    <asp:ListItem Selected="True" Text="Seleccione Uno" Value="-1"></asp:ListItem>
+                                                </asp:DropDownList>
+                                            </div>
+
+                                        </div>
                                         <div class="row" runat="server" id="DivRemision" visible="false">
                                             <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
                                             <div class="col-md-2">

Inventarios/EntradasSalidas.aspx.vb

@@ -1508,6 +1508,11 @@ Partial Class Inventarios_EntradasSalidas
                     ActivoFijo = -2
                 End If
 
+                'Esto es parte de consumo interno
+                If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
+                    ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
+                End If
+
                 'ACTUALIZAR
                 If CveMovimiento > 0 Then
                     Dim Mensaje As String = ""
@@ -3353,15 +3358,22 @@ Partial Class Inventarios_EntradasSalidas
 
             DVCultivosCuadro.Visible = True
             CargaCultivos()
-
         End If
 
+
+        TrActivoFijo.Visible = True
+        DdlActivoFijo.Items.Clear()
+        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")
+        DdlActivoFijo.DataBind()
+        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlActivoFijo.SelectedValueExist(-1)
+
     End Sub
 
 
     Private Sub CargaCultivos()
         DdlModalCultivosCuadro.Items.Clear()
-        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ")
         DdlModalCultivosCuadro.DataBind()
         DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub

Inventarios/RepAnomalias.aspx.vb

@@ -459,10 +459,10 @@ Partial Class Inventarios_RepAnomalias
             params.Add(New ReportParameter("FechaInicio", Inventario.FechaI))
             params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If