-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Inventarios/EntregaAlmacen.aspx.vb

@@ -437,7 +437,7 @@ Partial Class Inventarios_EntregaAlmacen
             End If
             ObjInventarios.Dispose()
         Else
-            DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         End If
         DdlSubProyectos.DataBind()
         DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString())
@@ -2872,6 +2872,10 @@ Partial Class Inventarios_EntregaAlmacen
                 If TipoMovimiento = 2 And ConceptoMovimiento = 18 AndAlso EsDevolucionDirecta Then
                     ConceptoMovimiento = 41
                 End If
+                'sms
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ConceptoMovimiento = 8 AndAlso TipoMovimiento = 1 Then
+                    ConceptoMovimiento = 35
+                End If
 
                 CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=Guia, Recibio:=Recibio,
                                                         CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7")