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:
JORGE LUIS CAUDILLO ESPARZA
2021-08-05 07:37:14 -07:00
parent 264973f24f 3a2143feee
commit 30f29b82e7
69 changed files with 19279 additions and 2367 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/ActualizarPrecios.aspx
View File

@@ -153,7 +153,7 @@
<input type="text" id="TxtBuscar" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Porcentaje,CodigoPS"
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,Codigo2,Porcentaje,CodigoPS"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" ToolTip="Listado de Nombres">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">

65
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -177,7 +177,7 @@ Partial Class Ventas_ActualizarPrecios
End If
objPS.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
GVPrecios.Columns(2).Visible = True
End If
@@ -314,6 +314,7 @@ Partial Class Ventas_ActualizarPrecios
Select New With
{
.Codigo = row.DataKey("Codigo"),
.Codigo2 = row.DataKey("Codigo2"),
.PS = row.DataKey("PS"),
.Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal()
}).QueryToDataTable(True)
@@ -344,6 +345,11 @@ 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"
Else
DtExcel.Columns.Remove("Codigo2")
End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()
@@ -361,33 +367,8 @@ Partial Class Ventas_ActualizarPrecios
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next
'worksheet.Cells.Style.Locked = False
'worksheet.Cells.Style.FormulaHidden = False
'worksheet.Columns(0).Cells.Style.Locked = True
'worksheet.Protected = True
'Dim protectionSettings = worksheet.ProtectionSettings
'protectionSettings.AllowDeletingColumns = False
'protectionSettings.AllowDeletingRows = True
'protectionSettings.AllowEditingObjects = True
'protectionSettings.AllowEditingScenarios = True
'protectionSettings.AllowFormattingCells = True
'protectionSettings.AllowFormattingColumns = True
'protectionSettings.AllowFormattingRows = True
'protectionSettings.AllowInsertingColumns = False
'protectionSettings.AllowInsertingRows = True
'protectionSettings.AllowSelectingLockedCells = True
'protectionSettings.AllowSelectingUnlockedCells = True
'protectionSettings.AllowSelectingUnlockedCells = True
'protectionSettings.AllowSorting = True
'protectionSettings.AllowUsingAutoFilter = True
'protectionSettings.AllowUsingPivotTableReports = True
'protectionSettings.SetPassword(ModExtensiones.IMEI)
Next
FileExcel.Save(Response, "Precios.xlsx", SaveOptions.XlsxDefault)
End Sub
@@ -420,19 +401,29 @@ Partial Class Ventas_ActualizarPrecios
Exit Sub
End If
If Not dt.Columns(0).ColumnName = "Código" Then
Alert("El nombre de la tercera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(1).ColumnName = "Producto / Servicio" Then
Alert("El nombre de la cuarta columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Alert("El nombre de la segunda columna debe ser 'Producto / Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
If Not dt.Columns(2).ColumnName = "Precio" Then
Alert("El nombre de la sexta columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub
End If
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"
Dim ProductosNoCargados As New StringBuilder()
Dim RowsCargados As Integer = 0

14
Ventas/Ventas.aspx.vb
View File

@@ -17073,12 +17073,14 @@ Partial Class Ventas
End If
End If
'verifica si tiene ventaminima
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
Return False
'SI NO ES REFACTURACION verifica si tiene ventaminima
If NuevaFactura <> 1 Then
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
Return False
End If
End If
End If