From 35fb0d2dd09a3b316e791f10ff3abae1d1358d1b Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 16 Jan 2024 19:08:57 -0700
Subject: [PATCH] SMS  - Mejoras

---
 Empresas/186/Formatos/Traslado.rdlc | 41 ++++++++++++++++++++++++++---
 Inventarios/EntregaAlmacen.aspx.vb  |  4 +++
 2 files changed, 41 insertions(+), 4 deletions(-)

diff --git a/Empresas/186/Formatos/Traslado.rdlc b/Empresas/186/Formatos/Traslado.rdlc
index 7a9a096a5..1f5390b8a 100644
--- a/Empresas/186/Formatos/Traslado.rdlc
+++ b/Empresas/186/Formatos/Traslado.rdlc
@@ -724,7 +724,7 @@
       <Width>8.06981in</Width>
       <Page>
         <PageHeader>
-          <Height>4.8037cm</Height>
+          <Height>5.67302cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -824,7 +824,7 @@ CIUDAD DE MEXICO</Value>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "AVISO", "ENTRADA") &amp; " DE TRASLADO "</Value>
+                      <Value>=Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "PRE-REMISIÓN", "ENTRADA DE TRASLADO")</Value>
                       <Style>
                         <FontSize>12pt</FontSize>
                       </Style>
@@ -982,7 +982,7 @@ CIUDAD DE MEXICO</Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox12</rd:DefaultName>
-              <Top>2.21518cm</Top>
+              <Top>2.85018cm</Top>
               <Left>16.09549cm</Left>
               <Height>0.44478cm</Height>
               <Width>4.32987cm</Width>
@@ -1187,7 +1187,7 @@ CIUDAD DE MEXICO</Value>
                 </Textbox>
               </ReportItems>
               <KeepTogether>true</KeepTogether>
-              <Top>2.70907cm</Top>
+              <Top>3.66157cm</Top>
               <Height>2.01145cm</Height>
               <Width>20.32792cm</Width>
               <ZIndex>8</ZIndex>
@@ -1229,6 +1229,39 @@ CIUDAD DE MEXICO</Value>
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
+            <Textbox Name="Textbox36">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Parameters!Observaciones.Value</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox31</rd:DefaultName>
+              <Top>2.27107cm</Top>
+              <Left>0.13678cm</Left>
+              <Height>1.37286cm</Height>
+              <Width>13.15003cm</Width>
+              <ZIndex>10</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index d907fcd2b..8839f7004 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -654,6 +654,10 @@ Partial Class Inventarios_EntregaAlmacen
                     TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
+                    If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
+                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
+                    End If
+
                     LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
                     HLFolio.Text = drE("SerieFolio").ToString()
                     If UsuarioActual.TienePermisoProceso(201) Then