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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-03-23 18:54:18 -07:00
parent 7e7a596719 b9f4734437
commit 416899a450
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.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.AgregarImagen(RutaLogo, 61.0, 53.0)
objGemBoxDocument.SustituirTags(Tags) objGemBoxDocument.SustituirTags(Tags)