Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
290
GPS/DispositivosControles.aspx.vb.vb.exclude
Normal file
290
GPS/DispositivosControles.aspx.vb.vb.exclude
Normal file
@@ -0,0 +1,290 @@
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports System.IO
|
||||
Imports GemBox.Spreadsheet
|
||||
|
||||
Partial Class GPS_DispositivosControles
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
Public Property CveControl As Integer
|
||||
Get
|
||||
Return ViewState("CveControl").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveControl") = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property EsEditar As Integer
|
||||
Get
|
||||
Return ViewState("EsEditar").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("EsEditar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CveControl = -1
|
||||
EsEditar = 0
|
||||
CargaDatos(-1)
|
||||
CargaDdls()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdls()
|
||||
DdlEquipo.DataSource = GlobalDTDispositivos(-1)
|
||||
DdlEquipo.DataBind()
|
||||
DdlEquipo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
Dim GPS As New ClsGPS
|
||||
If GPS.UnidadMedidaGet() Then
|
||||
DdlUnidadMedida.DataSource = GPS.DtResultados
|
||||
Else
|
||||
DdlUnidadMedida.DataSource = Nothing
|
||||
End If
|
||||
GPS.Dispose()
|
||||
DdlUnidadMedida.DataBind()
|
||||
DdlUnidadMedida.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos(CveCliente As Integer)
|
||||
Dim GPS As New ClsGPS
|
||||
If GPS.ControlesGet(CveCliente) Then
|
||||
GvDatos.DataSource = GPS.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
GPS.Dispose()
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub imgE_Click(sender As Object, e As EventArgs)
|
||||
Dim Boton = CType(sender, LinkButton)
|
||||
CveControl = Boton.CommandArgument.ToEntero
|
||||
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
|
||||
EsEditar = 1
|
||||
DdlUnidadMedida.SelectedValueExist(GvRow.DataKey("CveUnidadMedida"))
|
||||
DdlEquipo.SelectedValueExist(GvRow.DataKey("CveDispositivo"))
|
||||
TxtAlto.Text = GvRow.DataKey("Alto")
|
||||
TxtAncho.Text = GvRow.DataKey("Ancho")
|
||||
TxtCalibración.Text = "[]"
|
||||
TxtCapacidad.Text = GvRow.DataKey("Capacidad")
|
||||
TxtControl.Text = GvRow.DataKey("Control")
|
||||
TxtLargo.Text = GvRow.DataKey("Largo")
|
||||
TxtLongitud.Text = GvRow.DataKey("Longitud")
|
||||
TxtSensor.Text = GvRow.DataKey("Sensor")
|
||||
DdlNumero.SelectedValueExist(GvRow.DataKey("CveMetrica"))
|
||||
BtnAgregarCatalogo.Text = "Actualizar"
|
||||
UpBodyCompuesto.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#divAgregar').modal()")
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click
|
||||
Dim GPS As New ClsGPS
|
||||
GPS.IniciaTransacSQL()
|
||||
Dim huboerror As Boolean = False
|
||||
If EsEditar = 0 Then
|
||||
If TxtCalibración.getfiles().Archivos.Count > 0 Then
|
||||
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
|
||||
If Archivo.Extencion <> "xls" AndAlso Archivo.Extencion <> "xlsx" Then
|
||||
GPS.RollBack()
|
||||
GPS.Dispose()
|
||||
Alert("El archivo de calibración debe de ser un archivo excel.")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If GPS.ControlAdd(TxtControl.Text, 1, TxtCapacidad.Text.ToDouble, TxtLargo.Text.ToDouble, TxtAncho.Text.ToDouble, TxtAlto.Text.ToDouble, TxtLongitud.Text.ToDouble, TxtSensor.Text, DdlEquipo.SelectedValue.ToEntero, DdlNumero.SelectedValue.ToEntero) Then
|
||||
CveControl = GPS.CveControl
|
||||
Else
|
||||
huboerror = True
|
||||
End If
|
||||
If TxtCalibración.getfiles().Archivos.Count > 0 AndAlso CveControl > 0 AndAlso Not huboerror Then
|
||||
Try
|
||||
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
|
||||
Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
|
||||
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
|
||||
If File.Exists(dirSonido) Then
|
||||
My.Computer.FileSystem.DeleteFile(dirSonido)
|
||||
End If
|
||||
My.Computer.FileSystem.MoveFile(Archivo.FileUrl, dirSonido)
|
||||
SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
|
||||
Dim EF As ExcelFile = ExcelFile.Load(dirSonido)
|
||||
Dim Hoja As ExcelWorksheet = EF.Worksheets(0)
|
||||
Dim Opciones As New CreateDataTableOptions()
|
||||
Opciones.ColumnHeaders = True
|
||||
Opciones.StartRow = 0
|
||||
Opciones.NumberOfColumns = 3
|
||||
Opciones.NumberOfRows = Hoja.Rows.Count
|
||||
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
||||
Dim TempDT As DataTable = Hoja.CreateDataTable(Opciones)
|
||||
For Each row As DataRow In TempDT.Rows
|
||||
If Not GPS.CalibracionAdd(row("Nivel").ToString.ToDouble, row("Valor").ToString.ToDouble, CveControl) Then
|
||||
huboerror = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
huboerror = True
|
||||
End Try
|
||||
End If
|
||||
If Not huboerror Then
|
||||
GPS.Commit()
|
||||
Alert("El Control se agregó correctamente")
|
||||
Else
|
||||
GPS.RollBack()
|
||||
Alert("Ocurrió un error al realizar la calibración", TipoMensaje.MsgError)
|
||||
End If
|
||||
ElseIf EsEditar = 1 Then
|
||||
If TxtCalibración.getfiles().Archivos.Count > 0 Then
|
||||
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
|
||||
If Archivo.Extencion <> "xls" AndAlso Archivo.Extencion <> "xlsx" Then
|
||||
GPS.RollBack()
|
||||
GPS.Dispose()
|
||||
Alert("El archivo de calibración debe de ser un archivo excel.")
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If Not GPS.ControlUpdate(TxtControl.Text, 1, TxtCapacidad.Text.ToDouble, TxtLargo.Text.ToDouble, TxtAncho.Text.ToDouble, TxtAlto.Text.ToDouble, TxtLongitud.Text.ToDouble, TxtSensor.Text, DdlEquipo.SelectedValue.ToEntero, CveControl, DdlNumero.SelectedValue.ToEntero) Then
|
||||
huboerror = True
|
||||
End If
|
||||
If TxtCalibración.getfiles().Archivos.Count > 0 AndAlso Not huboerror Then
|
||||
Try
|
||||
huboerror = Not GPS.CalibracionDelete(CveControl)
|
||||
If Not huboerror Then
|
||||
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
|
||||
Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
|
||||
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
|
||||
If File.Exists(dirSonido) Then
|
||||
My.Computer.FileSystem.DeleteFile(dirSonido)
|
||||
End If
|
||||
My.Computer.FileSystem.MoveFile(Archivo.FileUrl, dirSonido)
|
||||
SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
|
||||
Dim EF As ExcelFile = ExcelFile.Load(dirSonido)
|
||||
Dim Hoja As ExcelWorksheet = EF.Worksheets(0)
|
||||
Dim Opciones As New CreateDataTableOptions()
|
||||
Opciones.ColumnHeaders = True
|
||||
Opciones.StartRow = 0
|
||||
Opciones.NumberOfColumns = 3
|
||||
Opciones.NumberOfRows = Hoja.Rows.Count
|
||||
Opciones.Resolution = ColumnTypeResolution.AutoPreferStringInvariantCulture
|
||||
Dim TempDT As DataTable = Hoja.CreateDataTable(Opciones)
|
||||
For Each row As DataRow In TempDT.Rows
|
||||
If Not GPS.CalibracionAdd(row("Nivel").ToString.ToDouble, row("Valor").ToString.ToDouble, CveControl) Then
|
||||
huboerror = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
huboerror = True
|
||||
End Try
|
||||
End If
|
||||
If Not huboerror Then
|
||||
GPS.Commit()
|
||||
Alert("El Control se actualizó correctamente")
|
||||
Else
|
||||
GPS.RollBack()
|
||||
Alert("Ocurrió un error al realizar la calibración", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
TxtAlto.Text = ""
|
||||
TxtAncho.Text = ""
|
||||
TxtCalibración.Text = "[]"
|
||||
TxtCapacidad.Text = ""
|
||||
TxtControl.Text = ""
|
||||
TxtLargo.Text = ""
|
||||
TxtLongitud.Text = ""
|
||||
TxtSensor.Text = ""
|
||||
DdlEquipo.SelectedValueExist("-1")
|
||||
DdlUnidadMedida.SelectedValueExist("-1")
|
||||
GPS.Dispose()
|
||||
CargaDatos(-1)
|
||||
RegistraScript("$('#divAgregar').modal('hide')")
|
||||
UpBodyCompuesto.Update()
|
||||
UpFooter.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim GPS As New ClsGPS
|
||||
Dim CveControl As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveControl").ToEntero
|
||||
If GPS.ControlesDelete(CveControl) Then
|
||||
Alert("El Control se eliminó correctamente", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
GPS.Dispose()
|
||||
CargaDatos(-1)
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.VerticalAlign = VerticalAlign.Middle
|
||||
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveControl").ToString
|
||||
e.Row.FCLinkButton("ImgC").CommandArgument = e.Row.DataKey("CveControl").ToString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles BtnOpenDiv.Click
|
||||
EsEditar = 0
|
||||
BtnAgregarCatalogo.Text = "Agregar"
|
||||
TxtControl.Text = ""
|
||||
TxtCapacidad.Text = ""
|
||||
TxtLargo.Text = ""
|
||||
TxtAncho.Text = ""
|
||||
TxtAlto.Text = ""
|
||||
TxtLongitud.Text = ""
|
||||
TxtSensor.Text = ""
|
||||
TxtCalibración.Text = "[]"
|
||||
DdlEquipo.SelectedValueExist("-1")
|
||||
DdlUnidadMedida.SelectedValueExist("-1")
|
||||
UpBodyCompuesto.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#divAgregar').modal()")
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function FormatearNombreArchivo(nombreArchivoOriginal As String) As String
|
||||
Dim nombreArchivoFormateado As String
|
||||
nombreArchivoFormateado = nombreArchivoOriginal.Replace(" ", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("'", "")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace(Chr(34), "")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("$", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("#", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("%", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("!", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("&", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("?", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("¿", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("¡", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("*", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("~", "_")
|
||||
nombreArchivoFormateado = nombreArchivoFormateado.Replace("^", "_")
|
||||
Return nombreArchivoFormateado
|
||||
End Function
|
||||
|
||||
|
||||
Protected Sub imgC_Click(sender As Object, e As EventArgs)
|
||||
Dim Boton = CType(sender, LinkButton)
|
||||
CveControl = Boton.CommandArgument.ToEntero
|
||||
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
|
||||
myModalLabel2.InnerText = $"Tabla de calibración de {GvRow.DataKey("Control")}"
|
||||
Dim GPS As New ClsGPS
|
||||
If GPS.CalibracionGet(0, CveControl) Then
|
||||
GvCalibracion.DataSource = GPS.DtResultados
|
||||
End If
|
||||
GPS.Dispose()
|
||||
GvCalibracion.DataBind()
|
||||
EsEditar = 1
|
||||
UPCalibracion.Update()
|
||||
RegistraScript("$('#dvConsulta').modal()")
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user