Revert "-- correccion de texto"

This reverts commit 1c08843dd9.
2020-09-10 05:59:25 -07:00
parent de34c4f2e2
commit cff8e704de
20 changed files with 917 additions and 1892 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14534,10 +14534,7 @@ Partial Class Ventas
    End Sub
    Private Sub RecargaSucursalPartidas()
        Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-        Dim SubProyecto As String = ""
-        If CveSubProyecto > 0 Then
-            SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
-        End If
+        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