AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

terminada la impresión del formato de pagaré

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-23 18:08:12 -07:00
parent d0bb637083
commit 0658970ac6
1 changed files with 30 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Ventas/Clientes.aspx.vb
View File

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