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

CatRutas Remaquetado, Rep Conrtatos detalles, RecepcionAalmacenes correcicion redondeo Importe MN Concepto 229

Browse Source
This commit is contained in:
rakcsle
2024-11-29 18:25:20 -07:00
parent 6fae25ffba
commit 6d0ee4bcb8
7 changed files with 247 additions and 245 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -493,14 +493,16 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
End If
Else
DtExcel.Columns.Remove("Número de parte")
End If
End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()