From f8310d58948533da1a880cf8ba19622c7eb9cf57 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 19 Feb 2024 13:17:13 -0700
Subject: [PATCH] =?UTF-8?q?-=20tama=C3=B1o=20txtobs?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx    | 2 +-
 Inventarios/EntregaAlmacen.aspx.vb | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index ab17fcfb1..323447b51 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -229,7 +229,7 @@
                                         <tr>
                                             <td>Observaciones:</td>
                                             <td>
-                                                <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="1" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
+                                                <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
                                             </td>
                                         </tr>
                                         <tr id="DivTransitorio1" runat="server" visible="false">
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index d7e800585..e16742721 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -672,6 +672,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                     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}"
+                        TxtObservaciones.Rows = 4
                     End If
 
                     LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()