--NuevaColumna en PS. NumeroParte

En ventas.aspx:
--poner por default, cantidad 1.
--especificar el cliente, publico general por defecto, RFC XAXX010101000
--poner focus en producto con ya con funcionalidad de escritura
--quitar txtdescripción,  y usar AtenciónA
--bug. al clonar y cuando se tiene activada la lista de precio, marca error ( Ener Elec)

Ventas/ActualizarPrecios.aspx.vb

@@ -436,11 +436,16 @@ Partial Class Ventas_ActualizarPrecios
 
         DtExcel.Columns("Codigo").ColumnName = "Código"
         DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
-            DtExcel.Columns("Codigo2").ColumnName = "Código CPK"
+        DtExcel.Columns("Codigo2").ColumnName = "Número de parte"
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
+            End If
         Else
-            DtExcel.Columns.Remove("Codigo2")
+            DtExcel.Columns.Remove("Número de parte")
         End If
+
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
 
         Dim FileExcel As New ExcelFile()
@@ -504,7 +509,16 @@ Partial Class Ventas_ActualizarPrecios
             'SI ES EMPRESA DE ACUMULADORES SE AGREGA LA COLUMNA "Código CPK"
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 If Not dt.Columns(IndiceActualColExcel).ColumnName = "Código CPK" Then
-                    Alert("El nombre de la segunda columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la segunda columna debe ser 'Código CPK'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                IndiceActualColExcel += 1
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                If Not dt.Columns(IndiceActualColExcel).ColumnName = "Número de parte" Then
+                    Alert("El nombre de la segunda columna debe ser 'Número de parte'. Favor de corregirlo", TipoMensaje.MsgError)
                     Exit Sub
                 End If
 
@@ -641,6 +655,10 @@ 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
+            DtExcel.Columns.Add(New DataColumn("Número de parte", GetType(String)))
+        End If
+
         DtExcel.Columns.Add(New DataColumn("Producto/Servicio", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Clasificación", GetType(String)))
         DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))