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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-05 18:50:33 -07:00
parent 2062dbdb05 3513da0ba1
commit 1474122603
6 changed files with 344 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1884,14 +1884,24 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
params.Add(New ReportParameter("SubProyecto", "Traslado de: ")) 'DdlAlmacenDestino.SelectedItem.ToString
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
params.Add(New ReportParameter("Accion", "Recibió")) 'Antes Trasladó
params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
params.Add(New ReportParameter("Observaciones", Observaciones))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
Dim DTCliente As New DataTable
Dim SBDireccionO As New StringBuilder()