From 0658970ac69c6f8359f961da0b8240ce9b8c3a8a Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Mar 2020 18:08:12 -0700
Subject: [PATCH 1/2] =?UTF-8?q?terminada=20la=20impresi=C3=B3n=20del=20for?=
 =?UTF-8?q?mato=20de=20pagar=C3=A9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx.vb | 42 +++++++++++++++++++++++++++++------------
 1 file changed, 30 insertions(+), 12 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 40ae54762..4e5bf88f0 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))
+        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)

From b9f4734437fbac1e5bb6e9ff97ce9b35344aae2e Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 23 Mar 2020 18:45:38 -0700
Subject: [PATCH 2/2] campo monto ahora en letra

---
 Ventas/Clientes.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 4e5bf88f0..72c113536 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6915,7 +6915,7 @@ Partial Class Clientes
         Tags.Add(New TagsDocumentos("{Monto}", monto))
         Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
         Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
-        Tags.Add(New TagsDocumentos("{CantidadLetra}", monto))
+        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))