eFacturas Vinculacion de complemento por Partida

Inventarios/EntradasSalidas.aspx.vb

@@ -543,8 +543,14 @@ Partial Class Inventarios_EntradasSalidas
         'Llenar el dropdownlist de almacén
         If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then
+            '    DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+
 
         End If
+
+
+
         DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
 
@@ -2060,7 +2066,11 @@ Partial Class Inventarios_EntradasSalidas
         If DdlAlmacen.SelectedValue = "-1" Then
             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
 
         DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(filtro)
@@ -2139,6 +2149,7 @@ Partial Class Inventarios_EntradasSalidas
         ''condicion de limpieza si es el usuario 1490, se dejan sino 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
             If Not UsuarioActual.CveUsuario.Contiene(1490, 2185) Then 'luz del mar(1490), y celia(2185)
+
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))
@@ -2153,12 +2164,21 @@ Partial Class Inventarios_EntradasSalidas
 
             End If
 
+
+
         End If
 
+
+        If UsuarioActual.CveUsuario.Contiene(2185, 100) And DdlAlmacen.SelectedValue.ToEntero.Contiene(651, 658) Then
+            DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
+        End If
+
+
+
         DdlConcepto.SelectedValue = "-1"
         ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
 
-
+        UpGenerales.Update()
 
     End Sub