From c6784a5fa3b1f2fcbb77749617a7d0026ae6ffb0 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 15 Sep 2020 09:57:39 -0700
Subject: [PATCH] -- valor seleccionado en proyecto

---
 Ventas/Ventas.aspx.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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