-- correccion de texto

2020-09-10 05:58:32 -07:00
parent fe8dc62296
commit 1c08843dd9
20 changed files with 1892 additions and 917 deletions
--- 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