AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- valor seleccionado en proyecto

Browse Source
This commit is contained in:
rrene
2020-09-15 09:57:39 -07:00
parent be490d8d75
commit c6784a5fa3
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/Ventas.aspx.vb
View File

@@ -14534,7 +14534,10 @@ Partial Class Ventas
End Sub End Sub
Private Sub RecargaSucursalPartidas() Private Sub RecargaSucursalPartidas()
Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero() 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 If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
@@ -15233,8 +15236,6 @@ Partial Class Ventas
Row("CvePS") = CvePS Row("CvePS") = CvePS
Row("Obs") = Obs Row("Obs") = Obs
Dim DrPS As DataRow = Nothing Dim DrPS As DataRow = Nothing
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1 DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1