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

Local VyA Viajes

Browse Source
This commit is contained in:
rakcsle
2024-11-28 11:26:08 -07:00
parent 66cedee067
commit f08f16c91d
6 changed files with 98 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -710,7 +710,11 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns.Add(New DataColumn("Código CPK", GetType(String)))
End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'Empresa Acumuladores
'End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
DtExcel.Columns.Add(New DataColumn("Número de parte", GetType(String)))
End If
@@ -744,6 +748,9 @@ Partial Class Ventas_ActualizarPrecios
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
NewRow("Código CPK") = Row("NumeroParte")
End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
NewRow("Número de parte") = Row("NumeroParte")
End If
NewRow("Producto/Servicio") = Row("PS")
NewRow("Clasificación") = Row("Clasificacion")