SMS RDLC Entrada, salida , traslado

Compras/PopUpVerFactura.aspx.vb

@@ -3720,7 +3720,7 @@ Partial Class PopUpVerFactura
                     If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
 
                     'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186) Then
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
@@ -3742,6 +3742,12 @@ Partial Class PopUpVerFactura
 
                         params.Add(New ReportParameter("Observaciones", Observaciones))
 
+                        If UsuarioActual.CveEmpresa.Contiene(186) Then
+                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
+                        End If
+
+
                         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                             params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                             params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
@@ -3909,7 +3915,7 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
 
                         'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
                             Dim CiudadSucursal As String = ""
                             Dim DomicilioSucursal As String = ""
                             Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
@@ -3923,6 +3929,9 @@ Partial Class PopUpVerFactura
                                 DomicilioSucursal = DomicilioCliente
                             End If
 
+                            If UsuarioActual.CveEmpresa.Contiene(186) Then
+                                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                            End If
 
                             If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
 
@@ -4389,7 +4398,7 @@ Partial Class PopUpVerFactura
                     Observaciones = ObservacionesSolicitud
                 End If
 
-                If UsuarioActual.CveEmpresa = 119 Then
+                If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
                     If CalleOrigen.Length > 0 Then
                         SBDireccionO.AppendFormat("{0}", CalleOrigen)
                         If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
@@ -4449,7 +4458,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
                     End If
 
-                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
                         params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("AlmacenOrigen", Almacen))
@@ -4500,7 +4509,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                     params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
 
-                    If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 119, 186) Then
                         params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("AlmacenOrigen", Almacen))

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3675,7 +3675,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Msg.AppendFormat("<br/>La Orden de Compra se dividió en los siguientes productos:<br/>{0}", MensajeOC)
                 End If
                 If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then
-                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Individual")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))
                     'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
 
                 End If