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

Contratos, Indicadores reportes

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-11-13 19:02:03 -07:00
parent a241dca5b1
commit 1d49c40910
11 changed files with 904 additions and 399 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Contratos/RepContratosObraAvancesPartida.aspx.vb
View File

@@ -25,7 +25,6 @@ Partial Class RepContratosObraAvancesPartida
Property CveContrato As Integer
Get
If ViewState("CveContrato") Is Nothing Then
Return -1
@@ -36,8 +35,20 @@ Partial Class RepContratosObraAvancesPartida
Set(value As Integer)
ViewState("CveContrato") = value
End Set
End Property
Property NumeroContrato As String
Get
If ViewState("NumeroContrato") Is Nothing Then
Return ""
Else
Return ViewState("NumeroContrato").ToString
End If
End Get
Set(value As String)
ViewState("NumeroContrato") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -46,8 +57,9 @@ Partial Class RepContratosObraAvancesPartida
CveEstimacion = If(Request("CveEstimacion") IsNot Nothing AndAlso Request("CveEstimacion").ToString.ToEntero > 0, Request("CveEstimacion").ToString.ToEntero, -1)
CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1)
NumeroContrato = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"{Request("NumeroContrato").ToString}", "")
LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Numero Estimacion: {Request("NumeroEstimacion").ToString}", "")
LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Contgrato { NumeroContrato } Estimacion {Request("NumeroEstimacion").ToString}", "")
If CveEstimacion > 0 Then