funcionalidad para JAM para actvar caducos de otra sucursal

Inventarios/EntradasSalidas.aspx.vb

@@ -1345,7 +1345,7 @@ Partial Class Inventarios_EntradasSalidas
             tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
         End If
 
-        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
             FechaCaducidadVal = MinFecha
             FechaCaducidad = MinFecha
             Lote = ""
@@ -2116,8 +2116,6 @@ Partial Class Inventarios_EntradasSalidas
             filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
         Else
 
-
-
             filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
 
         End If
@@ -2160,6 +2158,14 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 1, 1, 0), New ListItem(" Salida por Ajuste ", "34"))
         End If
 
+        ' RECEPCION USADOS
+        If CveTipoAlmacen = 22 Then
+            If DdlConcepto.Items.FindByValue("3") Is Nothing Then
+                DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida Almacen ", "3"))
+            End If
+
+        End If
+
         '[IPP]: PARCHE PARA JAM
         If UsuarioActual.CveEmpresa = 119 And CveTipoAlmacen.Contiene(4, 8, 16) Then
             If DdlConcepto.Items.FindByValue("2") Is Nothing Then
@@ -2212,20 +2218,14 @@ Partial Class Inventarios_EntradasSalidas
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
 
             End If
-
-
-
         End If
 
-
         If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
             DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
 
         End If
 
-
-
         DdlConcepto.SelectedValue = "-1"
         ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
 
@@ -4475,7 +4475,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     AplicaLote = False
                     AplicaCaducidad = False
                 End If
@@ -4517,7 +4517,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     AplicaLote = False
                     AplicaCaducidad = False
                 End If

Inventarios/EntregaAlmacen.aspx

@@ -345,8 +345,16 @@
                             <div class="portlet light xspadding bordered">
                                 <div class="portlet-title">
                                     <div class="caption font-green">
-                                        <i class="icon-pin font-green"></i>
+                                         
-                                        <span class="caption-subject bold uppercase">Ventas por surtir</span>
+                                                  <i class="icon-pin font-green"></i>
+                                                <span class="caption-subject bold uppercase">Ventas por surtir</span>
+                                             
+                                                 <code style="font-family: Menlo,Monaco,Consolas,'Courier New',monospace; font-size: 10px">
+                                                <asp:Literal Text="" runat="server" ID="LtActualizado" />
+                                            </code>
+                                              
+                                        
+                                            &nbsp
                                     </div>
                                     <div class="actions">
                                         <div class="btn-group">
@@ -355,10 +363,7 @@
                                     <div class="tools">
                                         <asp:Panel runat="server" DefaultButton="BtnConsultarPendientes">
 
-                                            <code>
+                                           
-                                                <asp:Literal Text="" runat="server" ID="LtActualizado" />
-                                            </code>
-                                            &nbsp
                                             <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 70px;" />
                                             <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GVPendientes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                             &nbsp

Inventarios/EntregaAlmacen.aspx.vb

@@ -670,7 +670,7 @@ Partial Class Inventarios_EntregaAlmacen
                     If UsuarioActual.CveEmpresa = 119 Then
                         Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-                        If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                        If CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                             ValidaLoteCaducidad = True
                         Else
                             ValidaLoteCaducidad = False

Inventarios/RecepcionAlmacen.aspx.vb

@@ -559,7 +559,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
             Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
             'RMF condición temporal
-            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                 ValidaLoteCaducidad = True
             Else
                 ValidaLoteCaducidad = False

Inventarios/ResguardoMaterial.aspx.vb

@@ -1126,7 +1126,7 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
         Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
         'RMF condición temporal
-        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
             ValidaLoteCaducidad = True
         Else
             ValidaLoteCaducidad = False

Inventarios/TraspasoAlmacen.aspx.vb

@@ -593,14 +593,14 @@ Partial Class Inventarios_TraspasoAlmacen
                 'codigo provisional.
                 Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" AndAlso CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                     If Not ChkSugiereFechaCaducidad.Checked AndAlso (TxtnFechaCaducidad.Text = "" OrElse TxtnLote.Text = "") Then
                         Alert("Falta Especificar lote/Fecha del producto", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
                 End If
 
-                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                If DrPS("AplicaCaducidad").ToString = "True" AndAlso ChkSugiereFechaCaducidad.Checked And CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
 
                     Dim ObjInventarios As New ClsInventarios
                     If ObjInventarios.GetExistenciasCaducidad(CveProducto, DdlAlmacenOrigen.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue) Then
@@ -637,7 +637,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
                     tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
 
-                    If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                    If Not CveSubP.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                         tLote = "-1"
                         tCaducidad = MinFecha
                     End If
@@ -2163,7 +2163,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         Dim tSerie As String = gvr.FCTextBox("TxtSerie").Text 'gvr.DataKey("Serie").ToString
                         Dim tFechaCaducidad As Date = gvr.DataKey("FechaCaducidad").ToDate
 
-                        If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                        If CveSubProyectoRecibe.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347).Split(","c)) Then
                             tLote = gvr.FCTextBox("TxtLote").Text
                             tFechaCaducidad = gvr.FCTextBox("TxtCaducidad").Text.ToDate
                         End If