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

Correccion en carga de precios por excel

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-23 12:25:17 -07:00
parent 17fd309153
commit bbb5c15de7
1 changed files with 28 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -400,28 +400,37 @@ Partial Class Ventas_ActualizarPrecios
Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
'LA PRIMERA COLUMNA SIEMRPE ES CODIGO
If Not dt.Columns(0).ColumnName = "Código" Then
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
Dim IndiceActualColExcel As Integer = 1
Dim StrColPos As String() = {"primera", "segunda", "tecera", "cuarta"}
'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)
Exit Sub
End If
IndiceActualColExcel += 1
End If
If Not dt.Columns(IndiceActualColExcel).ColumnName = "Producto / Servicio" Then
Alert($"El nombre de la {StrColPos(IndiceActualColExcel)} columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
IndiceActualColExcel += 1
If Not dt.Columns(IndiceActualColExcel).ColumnName = "Precio" Then
Alert($"El nombre de la {StrColPos(IndiceActualColExcel)} columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(1).ColumnName = "Producto / Servicio" Then
Alert("El nombre de la segunda columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
If Not dt.Columns(3).ColumnName = "Precio" Then
Alert("El nombre de la cuarta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
Else
If Not dt.Columns(2).ColumnName = "Precio" Then
Alert("El nombre de la tercera columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
End If
dt.TableName = "Datos"
@@ -483,11 +492,7 @@ Partial Class Ventas_ActualizarPrecios
ObjPS.Dispose()
End Try
'If RowNoEncontrados.Length > 0 Then
' Alert("Los siguientes Productos o Servicios no se encontraron en la Base de Datos.<\BR>" & RowNoEncontrados, TipoMensaje.MsgAdvertencia)
'Else
' Alert("Se Cargaron " & NumRow & " Productos o Servicios correctamente.")
'End If
End If
End Sub