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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/RepEvaluacionProveedor.aspx.vb
View File

@@ -40,7 +40,7 @@ Partial Class RepEvaluacionProveedor
Dim fFin As Date = Date.Parse(TxtFechaF.Text)
Dim objCompras As New ClsCompras
objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin)
objCompras.GetRepEvaluacionProveedores(UsuarioActual.Empresa.CveEmpresa, DdlProveedor.SelectedValue.ToEntero, DdlCveClasificacionProveedor.SelectedValue.ToEntero, fInicio, fFin)
GV.DataSource = objCompras.DtResultados
LtlTotalRegistros.Text = objCompras.DtResultados.Rows.Count.ToString
@@ -59,7 +59,6 @@ Partial Class RepEvaluacionProveedor
If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
Dim Liga As String = String.Empty
If (e.Row.DBCampo("ReqCve").ToString <> "") Then
Liga = String.Format("<a class='Texto' href='javascript:IrO(""{0}"");'>", e.Row.DBCampo("ReqCve"))
e.Row.FCLabel("lblReqFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("ReqFolio"))
@@ -68,27 +67,17 @@ Partial Class RepEvaluacionProveedor
If e.Row.DBCampo("OcCve").ToString <> "" Then
Liga = String.Format("<a class='Texto' href='javascript:IrO(""{0}"");'>", e.Row.DBCampo("OcCve"))
e.Row.FCLabel("lblOcFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("OcFolio"))
End If
Liga = String.Format("<a class='Texto' href='javascript:IrP(""{0}"");'>", e.Row.DBCampo("CveProveedor"))
e.Row.FCLabel("lblProveedor").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
'Liga = String.Format("<a class='Texto' href='javascript:IrC(""{0}"");'>", e.Row.DBCampo("CveCompra"))
'e.Row.FCLabel("lblReqFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("ReqFolio"))
Dim atraso As Integer = e.Row.DBCampo("Atraso").Trim.ToEntero
e.Row.FCLabel("lblAtraso").Font.Bold = True
e.Row.FCLabel("lblAtraso").Text = atraso
e.Row.FCLabel("lblAtraso").Text = atraso.ToString
e.Row.FCLabel("lblAtraso").Width = 70
If atraso > 0 Then
@@ -96,7 +85,6 @@ Partial Class RepEvaluacionProveedor
Else
e.Row.FCLabel("lblAtraso").CssClass = "label label-success"
End If
End If
End If