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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
AbrahamCastilloV
2024-02-02 09:16:37 -07:00
parent 8dd30bf95d 730f7e7ae5
commit c24b378b66
8 changed files with 182 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Transportes/RepContratos.aspx.vb
View File

@@ -23,15 +23,17 @@ Partial Class ListadoContratos
End Sub
Private Sub InicializaCombos()
'Lista Activos Fijos'
Dim ObjAF As New ClsAF()
If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
If ObjAF.DtResultados.Rows.Count > 0 Then
DdlTransporte.DataSource = ObjAF.DtResultados
DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))
End If
End If
DdlTransporte.DataBind()
ObjAF.Dispose()
'Dim ObjAF As New ClsAF()
'If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
' If ObjAF.DtResultados.Rows.Count > 0 Then
' DdlAF.DataSource = ObjAF.DtResultados
' DdlAF.Items.Insert(0, New ListItem("Seleccione", ""))
' End If
'End If
'ObjAF.Dispose()
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTipoAF.DataBind()
'Lista Chofer'
DdlChofer.DataSource = GlobalDTRHPersonal(185)
@@ -58,7 +60,7 @@ Partial Class ListadoContratos
TxtFechaRegreso.Text = FechaRegreso
TxtObservaciones.Text = Observaciones
TxtUbicacion.Text = Ubicacion
DdlTransporte.SelectedValue = Transporte
DdlAF.SelectedValue = Transporte
DdlClientes.SelectedText = Cliente
DdlChofer.SelectedValue = Chofer
TxtDolares.Text = Dolares