From b0df315e00335c287e9fe3094e3a572f19c073b3 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 13 Jun 2024 16:33:42 -0700
Subject: [PATCH] Ajustes Formato General OC

---
 Contratos/RepPresupuestos.aspx.vb  | 35 ++++++++++++++++++++++++------
 Empresas/197/Formatos/OC.rdlc      |  8 ++++---
 Empresas/Grales/Formatos/OC.rdlc   |  8 ++++---
 Inventarios/EntregaAlmacen.aspx.vb |  5 +++--
 4 files changed, 41 insertions(+), 15 deletions(-)

diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb
index 24714de4d..32dd3467a 100644
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/Contratos/RepPresupuestos.aspx.vb
@@ -89,6 +89,7 @@ Partial Class Contratos_RepPresupuestos
         Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha)
         Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha)
         Dim EsMensual = ChkMensual.Checked
+        Dim TieneDatos As Boolean = False
 
         If UsaComprometido Then
             thComprometido.Visible = True
@@ -98,22 +99,39 @@ Partial Class Contratos_RepPresupuestos
 
         If Not EsMensual Then
             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
-                GvDatos.DataSource = DtPresupuestos
+                GvDatos.DataSource = DtPresupuestos
+
             End If
+
             ObjPresupuestos.Dispose()
             DivDatosMensual.Visible = False
             DivRepDatos.Visible = True
-            DivIndicadores.Visible = True
+            DivIndicadores.Visible = True
+
             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()
 
         Else
             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
                 GvDatosMensual.DataSource = DtPresupuestos
             End If
@@ -122,7 +140,10 @@ Partial Class Contratos_RepPresupuestos
             DivRepDatos.Visible = False
             DivIndicadores.Visible = False
             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()
 
         End If
diff --git a/Empresas/197/Formatos/OC.rdlc b/Empresas/197/Formatos/OC.rdlc
index 3c76700ea..2497110a5 100644
--- a/Empresas/197/Formatos/OC.rdlc
+++ b/Empresas/197/Formatos/OC.rdlc
@@ -925,12 +925,14 @@
                         </Style>
                       </TextRun>
                     </TextRuns>
-                    <Style />
+                    <Style>
+                      <TextAlign>Right</TextAlign>
+                    </Style>
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox46</rd:DefaultName>
-                <Top>4.85549cm</Top>
-                <Left>0.00001cm</Left>
+                <Top>4.80434cm</Top>
+                <Left>1.24126cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>19.46272cm</Width>
                 <ZIndex>6</ZIndex>
diff --git a/Empresas/Grales/Formatos/OC.rdlc b/Empresas/Grales/Formatos/OC.rdlc
index 09f4dea97..cc597ee16 100644
--- a/Empresas/Grales/Formatos/OC.rdlc
+++ b/Empresas/Grales/Formatos/OC.rdlc
@@ -925,12 +925,14 @@
                         </Style>
                       </TextRun>
                     </TextRuns>
-                    <Style />
+                    <Style>
+                      <TextAlign>Right</TextAlign>
+                    </Style>
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox46</rd:DefaultName>
-                <Top>4.85549cm</Top>
-                <Left>0.00001cm</Left>
+                <Top>4.82374cm</Top>
+                <Left>1.23826cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>19.46272cm</Width>
                 <ZIndex>6</ZIndex>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index c9e87ca28..d29e4a631 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2100,11 +2100,12 @@ Partial Class Inventarios_EntregaAlmacen
             'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
             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 CveCliente = 819998 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
                         End If
                     Else