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