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 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)