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

-- activación de proyecto: Zona

Browse Source
This commit is contained in:
rrene
2024-07-13 08:45:37 -07:00
parent 6e49a52182
commit cba1e4cdef
16 changed files with 1022 additions and 1077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/RepComprasDetalle.aspx.vb
View File

@@ -114,14 +114,8 @@ Partial Class Compras_RepComprasDetalle
If IfNull(Request("TipoCambio"), "1").ToString <> "1" Then
RblTipoCambio.SelectedValue = IfNull(Request("TipoCambio"), "1").ToString
End If
'txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
'txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
'txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 2).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
End If
If Fecha <> "-1" Then
txtFechaI.Text = Fecha
txtFechaF.Text = Fecha
@@ -130,7 +124,6 @@ Partial Class Compras_RepComprasDetalle
If FechaF <> "-1" Then txtFechaF.Text = FechaF
End If
If FechaCaptura <> "-1" Then
TxtFechaICaptura.Text = FechaCaptura
TxtFechaFCaptura.Text = FechaCaptura
@@ -145,6 +138,8 @@ Partial Class Compras_RepComprasDetalle
DdlProyecto.SelectedValueExist(CveProyecto)
If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
'CARGA LISTBOXs
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
@@ -189,7 +184,7 @@ Partial Class Compras_RepComprasDetalle
Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
'Carga Tipo de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)