mejora en manejo lote/cad

Inventarios/EntradasSalidas.aspx

@@ -81,11 +81,7 @@
             </li>
             <li>
                 <asp:HyperLink ID="HplPrePoliza" Target="_blank" runat="server" Visible="false"> Ver PrePóliza</asp:HyperLink>
-            </li>
-            <li>
-                <asp:LinkButton runat="server" ID="LnkCambioInventarioFisico" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioInventarioFisico_Click"
-                    Text="<i class='fa fa-truck'></i> Inventario Fisico"></asp:LinkButton>
-            </li>
+            </li>           
             <li>
                 <asp:LinkButton runat="server" ID="LnkCambioVigencia" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioVigencia_Click"
                     Text="<i class='fa fa-truck'></i> Cambiar Vigencias"></asp:LinkButton>
@@ -104,6 +100,10 @@
                 <asp:LinkButton runat="server" ID="LnkGenerarVirtual" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkGenerarVirtual_Click"
                     title="Generar Movimiento Virtual" Text="<i class='fa fa-server'></i> Generar Movimiento Virtual"></asp:LinkButton>
             </li>
+             <li>
+                <asp:LinkButton runat="server" ID="LnkCambioInventarioFisico" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioInventarioFisico_Click"
+                    Text="<i class='fa fa-truck'></i> Inventario Fisico"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/EntradasSalidas.aspx.vb

@@ -1312,7 +1312,8 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha)
 
-        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
+
+        If RowPS("AplicaSerie").ToString = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
             Valido = False
             Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
@@ -1324,6 +1325,18 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
+        Dim tCveSubProyecto As Integer
+        Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
+        If drA2 IsNot Nothing Then
+            tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+        End If
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.Contiene(10276) Then
+            FechaCaducidadVal = MinFecha
+            FechaCaducidad = MinFecha
+            Lote = ""
+        End If
+
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
@@ -1762,7 +1775,7 @@ Partial Class Inventarios_EntradasSalidas
                             If UsuarioActual.Empresa.UsaAC AndAlso (DdlConcepto.SelectedValue = "3") AndAlso EsContabilizable Then
                                 Dim DtII As DataTable = Nothing
                                 Dim TotalDetalle As Double = 0.0
-                                Dim Importe As Decimal = DtMovimientos.SUM("Total", "Estatus IN ('','U')")
+                                Dim Importe As Decimal = DtMovimientos.SUMD("Total", "Estatus IN ('','U')")
                                 'NOTA. CUANDO ES SALIDA, EN AUTOMATICO NO TENEMOS LOS VALORES DE LA SALIDA TODAVIA, Y POR ESO IMPORTE ES CERO, ES RECARGAR CON LOS DATOS YA INSERTADOS
 
                                 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then