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

Ajustes Formato General OC

Browse Source
This commit is contained in:
rakcsle
2024-06-13 16:33:42 -07:00
parent aa5678c6f5
commit b0df315e00
4 changed files with 41 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Contratos/RepPresupuestos.aspx.vb
View File

@@ -89,6 +89,7 @@ Partial Class Contratos_RepPresupuestos
Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
Dim EsMensual = ChkMensual.Checked Dim EsMensual = ChkMensual.Checked
Dim TieneDatos As Boolean = False
If UsaComprometido Then If UsaComprometido Then
thComprometido.Visible = True thComprometido.Visible = True
@@ -98,22 +99,39 @@ Partial Class Contratos_RepPresupuestos
If Not EsMensual Then If Not EsMensual Then
Dim ObjPresupuestos As New ClsContratos Dim ObjPresupuestos As New ClsContratos
If ObjPresupuestos.GetPresupuestosRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then If ObjPresupuestos.GetPresupuestosRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then
TieneDatos = True
End If
DtPresupuestos = ObjPresupuestos.DtResultados DtPresupuestos = ObjPresupuestos.DtResultados
GvDatos.DataSource = DtPresupuestos GvDatos.DataSource = DtPresupuestos
End If End If
ObjPresupuestos.Dispose() ObjPresupuestos.Dispose()
DivDatosMensual.Visible = False DivDatosMensual.Visible = False
DivRepDatos.Visible = True DivRepDatos.Visible = True
DivIndicadores.Visible = True DivIndicadores.Visible = True
GvDatos.DataBind() GvDatos.DataBind()
GvDatos.HeaderRow.Cells(0).Text = If(Agrupador = 1, "Clasificación", "Centro de Costo")
If TieneDatos Then
GvDatos.HeaderRow.Cells(0).Text = If(Agrupador = 1, "Clasificación", "Centro de Costo")
End If
UpDatos.Update() UpDatos.Update()
Else Else
Dim ObjPresupuestos As New ClsContratos Dim ObjPresupuestos As New ClsContratos
If ObjPresupuestos.GetPresupuestosMensualRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then If ObjPresupuestos.GetPresupuestosMensualRep(-1, CveTipoGasto, Agrupador, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
If ObjPresupuestos.DtResultados IsNot Nothing AndAlso ObjPresupuestos.DtResultados.Rows.Count > 0 Then
TieneDatos = True
End If
DtPresupuestos = ObjPresupuestos.DtResultados DtPresupuestos = ObjPresupuestos.DtResultados
GvDatosMensual.DataSource = DtPresupuestos GvDatosMensual.DataSource = DtPresupuestos
End If End If
@@ -122,7 +140,10 @@ Partial Class Contratos_RepPresupuestos
DivRepDatos.Visible = False DivRepDatos.Visible = False
DivIndicadores.Visible = False DivIndicadores.Visible = False
GvDatosMensual.DataBind() GvDatosMensual.DataBind()
GvDatosMensual.HeaderRow.Cells(0).Text = If(Agrupador = 1, "Clasificación", "Centro de Costo") If TieneDatos Then
GvDatosMensual.HeaderRow.Cells(0).Text = If(Agrupador = 1, "Clasificación", "Centro de Costo")
End If
UpDatosMensual.Update() UpDatosMensual.Update()
End If End If

8
Empresas/197/Formatos/OC.rdlc
View File

@@ -925,12 +925,14 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName> <rd:DefaultName>Textbox46</rd:DefaultName>
<Top>4.85549cm</Top> <Top>4.80434cm</Top>
<Left>0.00001cm</Left> <Left>1.24126cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>19.46272cm</Width> <Width>19.46272cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>

8
Empresas/Grales/Formatos/OC.rdlc
View File

@@ -925,12 +925,14 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName> <rd:DefaultName>Textbox46</rd:DefaultName>
<Top>4.85549cm</Top> <Top>4.82374cm</Top>
<Left>0.00001cm</Left> <Left>1.23826cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>19.46272cm</Width> <Width>19.46272cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>

5
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2100,11 +2100,12 @@ Partial Class Inventarios_EntregaAlmacen
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR 'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5 'SoloNumeros entrega
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 9
If Not EsDevolucionVenta = 1 Then If Not EsDevolucionVenta = 1 Then
If CveCliente = 819998 Then If CveCliente = 819998 Then
If NumRegistros > 9 Then If NumRegistros > 9 Then
Alert("Solo se pueden recibir máximo 8 partidas.", TipoMensaje.MsgAdvertencia) Alert("Solo se pueden recibir máximo 9 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Else Else