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

-- option explicit

Browse Source
This commit is contained in:
rrene
2023-08-29 09:23:10 -07:00
parent 86f4b9fd45
commit a520e3254b
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -100,7 +100,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim ObjInventario As New ClsInventarios
If ObjInventario.GetInventarioFisico(CveInventarioFisico, CveEmpresa, -1, -1, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim CveEstatus = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
Dim CveEstatus As String = ObjInventario.DtResultados.FiltroPrimeroValor("CveEstatus")
Select Case CveEstatus
Case "0" 'NUEVO
CveSubProyecto = ObjInventario.CveSubProyectoInventario
@@ -341,23 +341,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim CveSeccionAlmacen As Integer = -1
Dim SeccionAlmacen As String = ""
Dim Cantidad = TxtCantidadProducto.Text.ToDouble
Dim Cantidad As Double = TxtCantidadProducto.Text.ToDouble
Dim dr As DataRow
'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")
dr = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}'")
If dr IsNot Nothing Then
CveProducto = dr("CvePS").ToString.ToEntero
CveUnidadMedida = dr("CveUnidadMedida").ToString.ToEntero
'Dim AplicaSeccion As Boolean = dr("AplicaSeccion") = "1"
Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad").ToString = "1"
Dim AplicaLote As Boolean = dr("AplicaLote").ToString = "1"
Dim AplicaSerie As Boolean = dr("AplicaSerie").ToString = "1"
Dim AplicaSeccion As Boolean = dr("AplicaSeccion").ToString = "1"
Dim AplicaCaducidad As Boolean = dr("AplicaCaducidad").ToString = "True"
Dim AplicaLote As Boolean = dr("AplicaLote").ToString = "True"
Dim AplicaSerie As Boolean = dr("AplicaSerie").ToString = "True"
Dim AplicaSeccion As Boolean = dr("AplicaSeccion").ToString = "True"
'divSeccionAlmacen.Visible = AplicaSeccion
divLote.Visible = AplicaLote
@@ -643,7 +641,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
params.Add(New ReportParameter("FechaFin", lbFechaF.Text))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc", DtDatos, params, String.Format("Reporte Inventario Físico-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
@@ -669,7 +667,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Dim NombreArchivo As String
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim workbook As New ExcelFile()
Dim worksheet = workbook.Worksheets.Add("Productos")
Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add("Productos")
worksheet.InsertDataTable(DtPS, New InsertDataTableOptions() With
{
.ColumnHeaders = True,
@@ -682,8 +680,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
'worksheet.Columns("Q").Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(217, 217, 217), SpreadsheetColor.FromArgb(255, 255, 255))
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
For i As Integer = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next