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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Hector
2021-08-05 10:14:38 -07:00
parent 80487fd93c 423ec7da9b
commit dc0caab3f3
32 changed files with 2510 additions and 1160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -658,7 +658,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click
Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder
Dim ObjInventario As New ClsInventarios
Dim DtPS As DataTable
Dim DtPS As DataTable = Nothing
If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"})
@@ -666,6 +666,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
Alert("Error al consultar la informacion")
End If
End If
ObjInventario.Dispose()
Dim NombreArchivo As String
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim workbook As New ExcelFile()

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -899,7 +899,7 @@ Partial Class Inventarios_TrasladoSolicitud
End If
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
ImprimirPDF(String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
Else
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
End If