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

SMS RDLC Entrada, salida , traslado

Browse Source
This commit is contained in:
rakcsle
2023-12-29 20:25:50 -07:00
parent a02f8082c6
commit 59bf3373df
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/PopUpVerFactura.aspx.vb
View File

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

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

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