diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1f413cf80..b42c1d81d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14484,7 +14484,7 @@ Partial Class Ventas
 
             DdlSubProyectoEjecucion.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             DdlSubProyectoCobranza.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
-            UpDetalle.Update()
+
 
             'If ObjSucursal.GetSucursales(UsuarioActual.CveEmpresa) Then
             '    DTSucursal = ObjSucursal.DtResultados.FiltraParametros(String.Format("CveSucursal = {0}", drc("CveSucursal").ToString().ToEntero()))
@@ -14495,12 +14495,15 @@ Partial Class Ventas
             'End If
         End If
         ObjSubProyectos.Dispose()
+
+        UpDetalle.Update()
     End Sub
     Private Sub CambiaSucursal()
         CargaFormatoSucursal()
         CargaFolios()
         CargaVendedores()
         CargarAlmacenes()
+        RecargaSucursalPartidas()
         DdlPS.Attributes.Remove("data-cvesubproyecto")
         DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
 
@@ -14509,6 +14512,22 @@ Partial Class Ventas
 
         UpPS.Update()
     End Sub
+    Private Sub RecargaSucursalPartidas()
+        Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+        Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
+
+        If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+            For Each Row As DataRow In TmpDT.Rows
+                Row("CveSubProyecto") = CveSubProyecto
+                Row("SubProyecto") = SubProyecto
+            Next
+        End If
+
+        GvPS.DataSource = TmpDT
+        DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+        GvPS.DataBind()
+        UpPS.Update()
+    End Sub
     Private Sub CargaFolios()
         If ExFolioFactura Then
             Exit Sub