2022-09-05 16:24:03 -07:00
parent 6b5ec7f1ee
commit 7312ce4e68
9 changed files with 564 additions and 222 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -562,6 +562,10 @@ Partial Class PopUpVerFactura
        If Not IsNothing(Request("cvePersonal")) Then
            cvePersonal = Request("cvePersonal").ToString.ToEntero()
        End If
+        If Not IsNothing(Request("cveSubProyecto")) Then
+            cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
+        End If
+
        Dim params As New List(Of ReportParameter)
        Dim lrds As New List(Of ReportDataSource)
        Using objnom As New ClsNominas