diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index d6b4ed630..b5a36f751 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -138,6 +138,17 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaProveedorExtranjera").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property CtaAcreedor As Integer
+        Get
+            Return ViewState("CtaAcreedor").ToString.ToEntero
+        End Get
+    End Property
+
+    Private ReadOnly Property IdCtaAcreedorExtranjera As Integer
+        Get
+            Return ViewState("IdCtaAcreedorExtranjera").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property CveCuentaProveedor As Integer
         Get
@@ -215,6 +226,11 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaContComplementaria").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property IdCtaContAcreedorComplementaria As Integer
+        Get
+            Return ViewState("IdCtaContAcreedorComplementaria").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property IdCtaContRetIVA As Integer
         Get
@@ -521,7 +537,10 @@ Partial Class Bancos_ProveedoresAbonar
 
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
                 ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
+                ViewState("CtaAcreedor") = ObjProveedor.IdCtaContAcreedor
+                ViewState("IdCtaAcreedorExtranjera") = ObjProveedor.IdCtaContAcreedorExtranjera
                 ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
+                ViewState("IdCtaAcreedorComplementaria") = ObjProveedor.IdCtaContAcreedorComplementaria
 
                 ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
                 ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
@@ -1013,8 +1032,13 @@ Partial Class Bancos_ProveedoresAbonar
                                                     ConceptoMovimiento = $"{HplProveedor.Text} F:{gvr.DataKey("SerieFolio")}"
                                                     'cuando son dolares, y tienen complementaria, se hace el registro
                                                     If gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                        IdCtaContable = CtaProveedor
-                                                        CveCuenta = CveCuentaProveedor
+                                                        If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+                                                            IdCtaContable = CtaAcreedor
+                                                        Else
+                                                            IdCtaContable = CtaProveedor
+                                                            CveCuenta = CveCuentaProveedor
+                                                        End If
+
                                                     Else
                                                         Dim CveConceptoComplementaria As Integer = 206
                                                         If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoComplementaria = 310
diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index 8483f7265..0bb5d7b3a 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -2248,7 +2248,7 @@
                                                 <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cliente" DataTextField="Cliente" Target="_blank" ItemStyle-Width="35%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                                <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Total" DataTextField="SubTotalDetalle" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index dce2ecdcf..4a59ab77a 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -586,7 +586,7 @@ Partial Class Contratos_Default
         'TabContratosGastos.Visible = False
 
         'DONDE OCUPA ALMACEN
-        Dim CveTipoAlmacenOrigen = "12"
+        Dim CveTipoAlmacenOrigen = "12,15"
         Dim CveTipoAlmacenDestino = "11,12"
         If TipoContrato.Contiene({7, 9, 13, 16, 18, 21, 27}) Then
             RowAlmacen.Visible = True
@@ -1503,7 +1503,7 @@ Partial Class Contratos_Default
     End Sub
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProyectoContrato.Items.Clear()
-        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
+        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
         DdlSubProyectoContrato.DataBind()
         DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     End Sub
@@ -3018,9 +3018,9 @@ Partial Class Contratos_Default
     Public Sub CargaDatosEncabezado()
 
         TablaUtilidad.Visible = True
-        LblUtilidad.Text = $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"
+        LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}"
 
-        If (SumaUtilidad - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red
+        If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red
         LblFacturado.Text = SumaAvance.FormatoNumero
         LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero
 
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index c8cc4acb8..6993058d7 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1964,13 +1964,8 @@ Partial Class Inventarios_EntregaAlmacen
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Dim CveSeccionAlmacen As Integer = -1
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If CBool(Dr("AplicaSeccion")) Then
-                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                Else
-                                    CveSeccionAlmacen = -1
-                                End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For
@@ -2151,13 +2146,6 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtTraspasos.Rows.Add(DrMovto)
                                         End If
 
-                                        Dim CveSeccionAlmacen As Integer = -1
-                                        If CBool(Dr("AplicaSeccion")) Then
-                                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                        Else
-                                            CveSeccionAlmacen = -1
-                                        End If
-
                                         CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal)
 
                                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
@@ -2165,7 +2153,7 @@ Partial Class Inventarios_EntregaAlmacen
                                                                                     CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
                                                                                     FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
                                                                                     Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
-                                                                                    CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                                                                    CveSeccionAlmacen:=-3) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -2209,7 +2197,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccionAlmacen").ToString.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                         Exit For
@@ -2398,7 +2386,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2410,7 +2398,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2421,7 +2409,7 @@ Partial Class Inventarios_EntregaAlmacen
                                     PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero}").ToString.ToDecimal
                                 End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar.")
                                     Exit For
diff --git a/Inventarios/RepMaximoMinimo.aspx b/Inventarios/RepMaximoMinimo.aspx
index 3be94d878..364c9d148 100644
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -127,7 +127,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div>
-                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
+                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen,Almacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
                     <Columns>
                         <asp:TemplateField ItemStyle-Width="10%" HeaderText="Código">
                             <ItemTemplate>
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index 4b08f2b3a..d113b1b1c 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -235,13 +235,19 @@ Partial Class Inventarios_RepMaximoMinimo
         Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
         Dim strPS As String = GvRow.DataKey("PS").ToString()
+        Dim strAlmacen As String = GvRow.DataKey("Almacen").ToString()
         Dim Maximo As String = GvRow.DataKey("Maximo").ToString
         Dim Minimo As String = GvRow.DataKey("Minimo").ToString
 
         DdlAlmacenModal.Enabled = False
         DdlPSModal.Enabled = False
 
-        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
+        DdlAlmacenModal.SelectedValue = "-1"
+        DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
+        If (DdlAlmacenModal.SelectedValue = "-1") Then
+            DdlAlmacenModal.Items.Add(New ListItem(strAlmacen, CveAlmacen.ToString()))
+        End If
+        DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
         DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString
         TxtMaximo.Text = Maximo
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 4d16cf36d..3dec2293d 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -569,7 +569,7 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright" runat="server" id="DivProyectosAsignado">
-                                                        <asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">Proyecto:  </asp:Label>
+                                                        <asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" Style="margin-bottom: unset; color: #888888">Proyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlProyectoAsignado" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <%-- <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>--%>
                                                         </asp:DropDownList>
@@ -577,7 +577,7 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">SubProyecto:  </asp:Label>
+                                                        <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style="margin-bottom: unset; color: #888888">SubProyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
@@ -1285,7 +1285,7 @@
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                            <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtMailrecibonomina" Text="Mail recibo nómina:"></asp:Label>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
@@ -1317,42 +1317,42 @@
                                                     </div>
                                                     <asp:Panel runat="server" ID="PnlSalarios" Visible="false">
 
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario"  Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled ="false" Text="Salario Diario (SDD):"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled="false" Text="Salario Diario (SDD):"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright" style="display: none;">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright" style="display: none;">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                        <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
 
-                                                        <i></i>
+                                                            <i></i>
+                                                        </asp:Panel>
+
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtBono" Text="Bono:"></asp:Label>
+                                                            <asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                            <i></i>
+                                                        </div>
                                                     </asp:Panel>
-                                                    </asp:Panel>
-
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtBono" Text="Bono:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                        <i></i>
-                                                    </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtNumDiasAguinaldo" runat="server" MaxLength="10"></asp:TextBox>
@@ -3876,9 +3876,9 @@
                             <div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
                                 <asp:Label Text="Sección: " runat="server" Style="width: 20%" />
                                 <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
-                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>                            
-                        </div>
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
@@ -4681,7 +4681,7 @@
 
 
 
-        <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
+    <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpdatePanel4" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content rowpadding">
@@ -4692,7 +4692,7 @@
                         <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
                     </div>
                     <div class="modal-body">
-                        
+
                         <asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
 
@@ -4712,15 +4712,15 @@
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                         <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
+                                        <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
                                             <ItemTemplate>
-                                                
-                                                <asp:TextBox ID="TxtParametro" runat="server" Text=""  Width="150px" ValidationGroup="GrpDescargaFormato" ></asp:TextBox>                                               
-                                                <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro"  Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
+
+                                                <asp:TextBox ID="TxtParametro" runat="server" Text="" Width="150px" ValidationGroup="GrpDescargaFormato"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="CERFVTxtParametro" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtParametro" Width="300px"></ajax:ValidatorCalloutExtender>
-                                             
+
                                             </ItemTemplate>
-                                        </asp:TemplateField>  
+                                        </asp:TemplateField>
 
                                     </Columns>
                                 </asp:GridView>
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index ceeb01198..88f01e6ec 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -113,11 +113,11 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaContratos()
         Dim ObjContratos As New ClsContratos
-        If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        'If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
+        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
+        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
         ObjContratos.Dispose()
-
+        GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
     End Sub
     Private Sub CargaTiposRelacion()
         Dim ObjVentas As New ClsVentas
diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index 62de315c2..acda2dfa4 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -48,27 +48,34 @@ Partial Class Sistemas_PopUpCambiaUsuario
             Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
 
             Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
-            If splitedtext.Length > 0 Then
-                Select Case splitedtext(0).ToUpper()
-                    Case "VSH" : CveEmpresa = "7"
-                    Case "JAM" : CveEmpresa = "119"
-                    Case "COMPUPROVEEDORES" : CveEmpresa = "72"
-                    Case "DNDIFUSA" : CveEmpresa = "80"
-                End Select
+            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                CveEmpresa = 119
             End If
-            DdlEmpresa.DataBind()
-            DdlEmpresa.SelectedValue = CveEmpresa
 
-            'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
-            'DdlRol.DataBind()
-            'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
+            If splitedtext.Length > 0 Then
+                    Select Case splitedtext(0).ToUpper()
+                        Case "VSH" : CveEmpresa = "7"
+                        Case "JAM" : CveEmpresa = "119"
+                        Case "COMPUPROVEEDORES" : CveEmpresa = "72"
+                        Case "DNDIFUSA" : CveEmpresa = "80"
+                        Case "SOGO" : CveEmpresa = "8"
+                        Case "BDH" : CveEmpresa = "140"
+                        Case "ECONOLLANTAS" : CveEmpresa = "141"
+                    End Select
+                End If
+                DdlEmpresa.DataBind()
+                DdlEmpresa.SelectedValue = CveEmpresa
 
-            TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
+                'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
+                'DdlRol.DataBind()
+                'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            CargaUsuarios()
-            'LblUsuario.Text = usuarioactual.
+                TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
 
-        End If
+                CargaUsuarios()
+                'LblUsuario.Text = usuarioactual.
+
+            End If
     End Sub
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c17d1f432..11b76af6b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5094,7 +5094,7 @@ Partial Class Ventas
                             DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
                             DdlSubProyectoDatos.Enabled = False
                         Else
-                            DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
+                            DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto) '    DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
                         End If
                         'RECARGA LOS VALORES DE LA SUCURSAL
                         CambiaSucursal()