From 387433952de7f1c523332a1415b3ee05366fa94f Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 13 Mar 2020 14:52:33 -0700
Subject: [PATCH] .

---
 Empresas/141/Formatos/Cotizacion.rdlc |  2 +-
 Empresas/141/Formatos/Factura.rdlc    | 29 ++++++++++++++++++---------
 RH/CatCursos.aspx.vb                  | 15 +++++++++-----
 3 files changed, 30 insertions(+), 16 deletions(-)

diff --git a/Empresas/141/Formatos/Cotizacion.rdlc b/Empresas/141/Formatos/Cotizacion.rdlc
index f3e160397..eb94d461e 100644
--- a/Empresas/141/Formatos/Cotizacion.rdlc
+++ b/Empresas/141/Formatos/Cotizacion.rdlc
@@ -905,7 +905,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value>
+                                  <Value>=Fields!PS.Value &amp; IIF(Fields!Obs.Value &lt;&gt; "",System.Environment.NewLine &amp;"Observaciones: ","") &amp; Fields!Obs.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
                                     <FontSize>8.75pt</FontSize>
diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc
index 64cddcd84..0797b644c 100644
--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -491,31 +491,31 @@
             <TablixBody>
               <TablixColumns>
                 <TablixColumn>
-                  <Width>0.53032in</Width>
+                  <Width>0.54014in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.58129in</Width>
+                  <Width>0.59111in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.79377in</Width>
+                  <Width>0.80359in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.65422in</Width>
+                  <Width>0.66404in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.59092in</Width>
+                  <Width>2.60074in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.8212in</Width>
+                  <Width>0.83102in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.63048in</Width>
+                  <Width>0.6403in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.68106in</Width>
+                  <Width>0.69088in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.88308in</Width>
+                  <Width>0.80447in</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -919,6 +919,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Cantidad1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -954,6 +955,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="UM">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -989,6 +991,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="SATClaveProdServ">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1024,6 +1027,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="SATClaveUM">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1059,6 +1063,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PS">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1092,6 +1097,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PU1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1126,6 +1132,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PorcentajeIVA">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1163,6 +1170,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Descuento1">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1200,6 +1208,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="TiempoEntrega">
+                          <CanGrow>true</CanGrow>
                           <CanShrink>true</CanShrink>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -1265,7 +1274,7 @@
             <Top>1.92778in</Top>
             <Left>0.09836in</Left>
             <Height>0.36206in</Height>
-            <Width>8.16634in</Width>
+            <Width>8.16633in</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
diff --git a/RH/CatCursos.aspx.vb b/RH/CatCursos.aspx.vb
index 5c6ac960e..f65601b07 100644
--- a/RH/CatCursos.aspx.vb
+++ b/RH/CatCursos.aspx.vb
@@ -480,9 +480,8 @@ Partial Class RH_CatCursos
             Dim Correo As String = row.DataKey("Correo")
             Dim _Nombres As String = row.DataKey("Nombres")
             Dim _CvePersonal As Integer = row.DataKey("CvePersonal").ToString.ToEntero
-
             Dim chkGrupo As CheckBox = row.FCCheckBox("chkGrupo")
-            Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos de esta empresa   le hace la cordial invitación  para asistir al curso  " & Curso & " Impartido por " & Capacitador & ".  Esperamos contar con su asistencia."
+            Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente, el departamento de Capital Humano de " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación  para asistir al curso  " & Curso & " Impartido por el capacitador " & Capacitador & ".Esperamos contar con su asistencia."
 
             If CveCursoPersonal = -1 Then
                 If chkGrupo.Checked = True Then
@@ -638,11 +637,17 @@ Partial Class RH_CatCursos
 
     End Sub
 
-    Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer) As Byte()
+    Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer, _Fecha As String, _Ubicacion As String) As Byte()
 
+        'Darle formato a la fecha
+        Dim FechaAux As Date = Date.Parse(_Fecha)
+        Dim dia As Integer = Day(FechaAux)
+        Dim mes As Integer = Month(FechaAux)
+        Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
+        Dim año As Integer = Year(FechaAux)
         Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx"
         Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png")
-        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
+        Dim Contenido As String = "Buen día. Estimado(a)  " & _Nombres & vbLf & vbLf & vbLf & vbLf & "   Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
 
         If Not File.Exists(RutaArchivo) Then
             RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
@@ -793,7 +798,7 @@ Partial Class RH_CatCursos
 
 
 
-                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal)
+                    Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
                     MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
 
                     Contador = Contador + 1