-- cambio de GlobalDTSubProyectos
- cambio en GlobalDTUsuarios
This commit is contained in:
@@ -2791,7 +2791,7 @@ Partial Class PopUpVerFactura
|
||||
Dim CantidadProductos As Decimal = 0
|
||||
Dim CantidadUsados As Decimal = 0
|
||||
|
||||
If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
|
||||
If CveConcepto.Contiene(3, 18, 30, 34, 16, 7, 40) Then 'SALIDA Y DEVOLUCION DEL CLIENTE
|
||||
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
|
||||
DtMovimientos = ObjInventarios.DtResultados
|
||||
|
||||
@@ -3151,7 +3151,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
End If
|
||||
|
||||
Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
|
||||
Case 3, 16, 37, 40, 45, 47 ' S A L I D A S
|
||||
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
|
||||
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
@@ -3611,7 +3611,7 @@ Partial Class PopUpVerFactura
|
||||
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
||||
End If
|
||||
|
||||
Case 8, 26 ' T R A S L A D O - S A L I D A
|
||||
Case 8, 26, 35 ' T R A S L A D O - S A L I D A
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
|
||||
@@ -3619,8 +3619,6 @@ Partial Class PopUpVerFactura
|
||||
RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
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
|
||||
@@ -3641,7 +3639,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Dim CveContrato As Integer = 0
|
||||
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
||||
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
|
||||
If DtMovimientos.Columns.Contains("CveContrato") Then
|
||||
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
@@ -3721,8 +3721,6 @@ Partial Class PopUpVerFactura
|
||||
ObjVentas.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
|
||||
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
||||
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
|
||||
@@ -3767,7 +3765,6 @@ Partial Class PopUpVerFactura
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
|
||||
Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
|
||||
|
||||
@@ -5129,7 +5126,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
||||
Dim SBDomicilioSucursal As New StringBuilder()
|
||||
Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
||||
Dim DRSucursal As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
||||
|
||||
If DRSucursal IsNot Nothing Then
|
||||
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
|
||||
@@ -5253,7 +5250,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
|
||||
If Archivo.Exists Then
|
||||
@@ -5465,7 +5462,7 @@ Partial Class PopUpVerFactura
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
Dim InicialesUsuarioGenero As String = ""
|
||||
Try
|
||||
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
|
||||
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
|
||||
If NombreUsuarioRenero.Trim.Length > 0 Then
|
||||
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
|
||||
End If
|
||||
@@ -6427,7 +6424,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
|
||||
Reference in New Issue
Block a user