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:44 -07:00
parent 407256f079
commit 7ee978059d
9 changed files with 57 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/RepCxCCliente.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class Bancos_RepCxCCliente
End If
End If
Dim CveSubProyecto As Integer = IIf(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1)
Dim CveSubProyecto As Integer = If(DdlAgrupador.SelectedValue = "1", e.Row.DBCampo("CveSubProyecto").ToEntero, -1)
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
'"/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}&CveUsuario={6}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"), e.Row.DBCampo("CveUsuario")
e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Ventas/ClientesAbonar.aspx?CveCliente={0}&FechaI={1}&FechaF={2}&CveMoneda={3}&CveUsuario={4}&CveSubProyecto={5}&CveClienteSucursal={6}", e.Row.DBCampo("CveCliente"), e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveMoneda"), UsuarioActual.CveUsuario, CveSubProyecto, e.Row.DBCampo("CveClienteSucursal"))