diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 122b2b6c1..b633d917d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14534,7 +14534,10 @@ Partial Class Ventas
     End Sub
     Private Sub RecargaSucursalPartidas()
         Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-        Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
+        Dim SubProyecto As String = ""
+        If CveSubProyecto > 0 Then
+            SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
+        End If
 
         If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
             For Each Row As DataRow In TmpDT.Rows
@@ -15233,8 +15236,6 @@ Partial Class Ventas
         Row("CvePS") = CvePS
         Row("Obs") = Obs
 
-
-
         Dim DrPS As DataRow = Nothing
 
         DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1