-- con codigo temporal

Inventarios/EntradasSalidas.aspx.vb

@@ -1480,10 +1480,9 @@ Partial Class Inventarios_EntradasSalidas
         Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha)
 
 
-
         If RowPS("AplicaSerie").ToString = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
-            'SI NO ES USADO O GARANTIA
-            If Not Me.CveTipoAlmacenSeleccionado.Contiene(6, 22) Then
+            'SI NO ES USADO O GARANTIA O SALIDA APOYO LOGISTICO
+            If Not Me.CveTipoAlmacenSeleccionado.Contiene(6, 22, 21) Then
                 Valido = False
                 Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
             End If
@@ -1500,8 +1499,13 @@ Partial Class Inventarios_EntradasSalidas
         Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
         If drA2 IsNot Nothing Then
             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+            'codigo temporal
+            If UsuarioActual.CveEmpresa = 140 AndAlso drA2("CveTipoAlmacen").ToString = "21" Then
+                Serie = ""
+            End If
         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
 
@@ -1523,7 +1527,6 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
-
         If Valido Then
             Dim CveClasificacion As Integer
             'Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
@@ -1911,8 +1914,12 @@ Partial Class Inventarios_EntradasSalidas
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero
                                         IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero
                                     End If
+                                Case 3
+                                    CveConceptoContable = 51
+                                    EsContabilizable = True
                                 Case Else
                                     CveConceptoContable = 95
+
                             End Select
 
                             '2-78