diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 40ae54762..72c113536 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6893,19 +6893,37 @@ Partial Class Clientes
         Dim memoryStreamDoc As New System.IO.MemoryStream
         Dim objGemBoxDocument As New clsGemBoxDocument(linkDescarga)
         Dim Tags As New List(Of TagsDocumentos)
+        Dim ObjClientes As New ClsClientes
 
-        Tags.Add(New TagsDocumentos("{Monto}", "xyz"))
-        Tags.Add(New TagsDocumentos("{Fecha}", Date.Today.ToString))
-        Tags.Add(New TagsDocumentos("{FechaConFormato}", "23 de marzo del 2020"))
-        Tags.Add(New TagsDocumentos("{CantidadLetra}", "69420"))
-        Tags.Add(New TagsDocumentos("{RazonSocial}", "mengano y perengano"))
-        Tags.Add(New TagsDocumentos("{Direccion}", "merida 1270"))
-        Tags.Add(New TagsDocumentos("{Ciudad}", "Hermosillo"))
-        Tags.Add(New TagsDocumentos("{Telefono}", "2209839"))
-        Tags.Add(New TagsDocumentos("{RazonSocialAval}", "blablabla"))
-        Tags.Add(New TagsDocumentos("{DireccionAval}", "asdfqwer"))
-        Tags.Add(New TagsDocumentos("{CiudadAval}", "Hermosillo"))
-        Tags.Add(New TagsDocumentos("{TelefonoAval}", "6621432648"))
+        Dim monto As String = ""
+        Dim razonSocial As String = ""
+        Dim direccion As String = ""
+        Dim ciudad As String = ""
+        Dim Telefono As String = ""
+        Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+        Dim hoy As DateTime = DateTime.Now
+        Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
+
+        If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
+            razonSocial = ObjClientes.DtResultados.FiltroPrimeroValor("NombreComercial")
+            direccion = ObjClientes.DtResultados.FiltroPrimeroValor("Direccion")
+            ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
+            Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
+        End If
+
+        Tags.Add(New TagsDocumentos("{Monto}", monto))
+        Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
+        Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
+        Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
+        Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
+        Tags.Add(New TagsDocumentos("{Direccion}", direccion))
+        Tags.Add(New TagsDocumentos("{Ciudad}", ciudad))
+        Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
+        Tags.Add(New TagsDocumentos("{RazonSocialAval}", UsuarioActual.Empresa.NombreCorto))
+        Tags.Add(New TagsDocumentos("{DireccionAval}", UsuarioActual.Empresa.Direccion))
+        Tags.Add(New TagsDocumentos("{CiudadAval}", UsuarioActual.Empresa.Ciudad))
+        Tags.Add(New TagsDocumentos("{TelefonoAval}", UsuarioActual.Empresa.Telefono))
 
         'objGemBoxDocument.AgregarImagen(RutaLogo, 61.0, 53.0)
         objGemBoxDocument.SustituirTags(Tags)