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

-- cambio a globalDTRHPersonal

Browse Source
This commit is contained in:
rrene
2023-02-28 17:55:37 -07:00
parent 98cccccebc
commit c219696a99
1 changed files with 12 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Bancos/IE.aspx.vb
View File

@@ -1472,38 +1472,9 @@ Partial Class Bancos_IE
e.Row.Cells(4).Width = Unit.Pixel(100) e.Row.Cells(4).Width = Unit.Pixel(100)
End If End If
'If e.Row.DBCampo("TipoDocto") = "Egsc" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
' e.Row.CssClass = "Totales TextCenter"
' e.Row.Cells(1).Text = "Egreso Por Comprobar"
'End If
'If e.Row.DBCampo("TipoDocto") = "Ant" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
' e.Row.CssClass = "Totales TextCenter"
' e.Row.Cells(1).Text = "Anticipos"
'End If
If e.Row.DBCampo("TipoDocto") = "NC" AndAlso e.Row.DataKey("CveCompra").ToString.ToEntero > 0 Then If e.Row.DBCampo("TipoDocto") = "NC" AndAlso e.Row.DataKey("CveCompra").ToString.ToEntero > 0 Then
e.Row.FCCheckBox("Chk").InputAttributes.Add("data-saldo", e.Row.DataKey("Saldo")) e.Row.FCCheckBox("Chk").InputAttributes.Add("data-saldo", e.Row.DataKey("Saldo"))
End If End If
'If e.Row.DBCampo("TipoDocto") = "DEV" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
' e.Row.CssClass = "Totales TextCenter"
' e.Row.Cells(0).Text = "Devolución"
'End If
'If e.Row.DBCampo("CveProveedor") = "" Then
' e.Row.BackColor = Drawing.Color.LightGray
'End If
'If UsuarioActual.TienePermisoProceso(273) Then
' If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
' Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
' e.Row.FCHyperLink("HLDevolverDinero").Visible = True
' e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
' End If
'End If
End If End If
End Sub End Sub
@@ -1562,15 +1533,18 @@ Partial Class Bancos_IE
#Region " CARGA PERSONAL " #Region " CARGA PERSONAL "
Protected Sub CargaDDLPersonal() Protected Sub CargaDDLPersonal()
Dim ObjPersonal As New ClsRH DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then DdlPersonal.DataBind()
If ObjPersonal.DtResultados.Rows.Count > 0 Then DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
DdlPersonal.DataSource = ObjPersonal.DtResultados 'Dim ObjPersonal As New ClsRH
DdlPersonal.DataBind() 'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1")) ' If ObjPersonal.DtResultados.Rows.Count > 0 Then
End If ' DdlPersonal.DataSource = ObjPersonal.DtResultados
End If ' DdlPersonal.DataBind()
ObjPersonal.Dispose() ' DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
' End If
'End If
'ObjPersonal.Dispose()
End Sub End Sub
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)