3718 lines
170 KiB
VB.net
3718 lines
170 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Imports System.IO
|
|
Imports System.Data
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports ZXing
|
|
Imports Newtonsoft.Json.Linq
|
|
|
|
Partial Class AF_AF
|
|
Inherits ClsPaginas
|
|
|
|
'Configuración
|
|
#Region "PROPIEDADES"
|
|
Private Property CveActivoFijo As Integer
|
|
Get
|
|
Return ViewState("CveActivoFijo").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveActivoFijo") = value
|
|
End Set
|
|
End Property
|
|
Private Property CodigoAF As String
|
|
Get
|
|
Return ViewState("CodigoAF").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("CodigoAF") = value
|
|
End Set
|
|
End Property
|
|
Private Property AutoFolioAF As Integer
|
|
Get
|
|
Return ViewState("AutoFolioAF").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("AutoFolioAF") = value
|
|
End Set
|
|
End Property
|
|
Private Property UltimaFecha As Date
|
|
Get
|
|
Return ViewState("UltimaFecha").ToString.ToDate
|
|
End Get
|
|
Set(value As Date)
|
|
ViewState("UltimaFecha") = value
|
|
End Set
|
|
End Property
|
|
Private Property UltimoHodometro As Integer
|
|
Get
|
|
Return ViewState("UltimoHodometro").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("UltimoHodometro") = value
|
|
End Set
|
|
End Property
|
|
Private ReadOnly Property ImgConsecutivo As String
|
|
Get
|
|
Return ViewState("ImgConsecutivo").ToString
|
|
End Get
|
|
End Property
|
|
Private Property CaracClasif As String
|
|
Get
|
|
Return ViewState("CaracClasif").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("CaracClasif") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveEmpresaActual As Integer
|
|
Get
|
|
Return ViewState("CveEmpresaActual").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveEmpresaActual") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveResguardoPadre As Integer
|
|
Get
|
|
Return ViewState("CveResguardoPadre").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveResguardoPadre") = value
|
|
End Set
|
|
End Property
|
|
Private Property EsURL2 As Boolean
|
|
Get
|
|
Return CType(ViewState("EsURL2"), Boolean)
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("EsURL2") = value
|
|
End Set
|
|
End Property
|
|
Private Property AFInvCvePS As Integer
|
|
Get
|
|
Return If(ViewState("AFInvCvePS") Is Nothing, -1, ViewState("AFInvCvePS").ToString.ToEntero())
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("AFInvCvePS") = value
|
|
End Set
|
|
End Property
|
|
Private Property AFInvCveAlmacen As Integer
|
|
Get
|
|
Return If(ViewState("AFInvCveAlmacen") Is Nothing, -1, ViewState("AFInvCveAlmacen").ToString.ToEntero())
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("AFInvCveAlmacen") = value
|
|
End Set
|
|
End Property
|
|
Private Property AFInvSerie As String
|
|
Get
|
|
Return If(ViewState("AFInvSerie") Is Nothing, "", ViewState("AFInvSerie").ToString())
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("AFInvSerie") = value
|
|
End Set
|
|
End Property
|
|
Private Property Placas As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("Placas")), Nothing, CType(ViewState("Placas"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Placas") = value
|
|
End Set
|
|
End Property
|
|
Private Property Licencias As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("Licencias")), Nothing, CType(ViewState("Licencias"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Licencias") = value
|
|
End Set
|
|
End Property
|
|
Private Property Polizas As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("Polizas")), Nothing, CType(ViewState("Polizas"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Polizas") = value
|
|
End Set
|
|
End Property
|
|
Private Property Eventos As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("Eventos")), Nothing, CType(ViewState("Eventos"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("Eventos") = value
|
|
End Set
|
|
End Property
|
|
Private Property AFHijos As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("AFHijos")), Nothing, CType(ViewState("AFHijos"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("AFHijos") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTGrupos As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("DTGrupos")), Nothing, CType(ViewState("DTGrupos"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTGrupos") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTCompras As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("DTCompras")), Nothing, CType(ViewState("DTCompras"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCompras") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
#Region "CLASIFICACIONES"
|
|
|
|
Private Property DTAFCaracteristicas As DataTable
|
|
Get
|
|
Return CType(ViewState("DTAFCaracteristicas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTAFCaracteristicas") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property CveCaracteristica As Integer
|
|
Get
|
|
Return ViewState("CveCaracteristica").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveCaracteristica") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
|
|
#Region "G P S"
|
|
Public Property CveClienteGPS As Integer
|
|
Get
|
|
Return IfNull(ViewState("CveClienteGPS"), -1).ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveClienteGPS") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Offset() As Integer
|
|
Get
|
|
Return DirectCast(IfNull(ViewState("Offset"), 0), Integer)
|
|
End Get
|
|
Set(ByVal value As Integer)
|
|
ViewState("Offset") = value
|
|
End Set
|
|
End Property
|
|
Public ReadOnly Property FechaClienteGPS() As DateTime
|
|
Get
|
|
Return DateTime.UtcNow.AddMinutes(10).AddMinutes(Offset)
|
|
End Get
|
|
End Property
|
|
|
|
Private Property DTCargas As DataTable
|
|
Get
|
|
Return CType(ViewState("DTCargas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCargas") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTDescargas As DataTable
|
|
Get
|
|
Return CType(ViewState("DTDescargas"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTDescargas") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
|
|
InicializaValores()
|
|
|
|
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
|
|
CargaCuentasContables()
|
|
End If
|
|
|
|
If Request("CveActivoFijo") IsNot Nothing AndAlso IsNumeric(Request("CveActivoFijo")) AndAlso Request("CveActivoFijo").ToEntero > 0 Then
|
|
ViewState("CveActivoFijo") = Request("CveActivoFijo")
|
|
CargaDatos()
|
|
CargaEventos()
|
|
CargaActividades()
|
|
|
|
'Configuración de Modalidad Update
|
|
BtnGuardar.Text = "Guardar Cambios"
|
|
LtlTitulo.Text = "Consulta del Activo Fijo:"
|
|
|
|
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
|
|
HlEvento.Visible = True
|
|
HlEvento.NavigateUrl = String.Format("/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveActivoFijo=" & CveActivoFijo & "&TB_iframe=true&height=370&width=600;")
|
|
Else
|
|
ViewState("CveActivoFijo") = -1
|
|
CargaCombos()
|
|
'Configuración de Modalidad Insert
|
|
ImgAddObs.Visible = False
|
|
LblFechaCaptura.Text = Now.ToShortDateString()
|
|
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
|
|
|
BtnEliminar.Visible = False
|
|
CargaAFPadres()
|
|
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
|
|
ActivarRegistroCuentaAF()
|
|
End If
|
|
|
|
CargaAFInv()
|
|
cargaOrdenesdeservicio()
|
|
End If
|
|
End Sub
|
|
Private Sub cargaOrdenesdeservicio()
|
|
Dim dt As New DataTable()
|
|
dt.Columns.Add("Folio", GetType(String))
|
|
dt.Columns.Add("Fecha", GetType(Date))
|
|
dt.Columns.Add("Obra", GetType(String))
|
|
dt.Columns.Add("TipodeServicio", GetType(String))
|
|
dt.Columns.Add("Servicio", GetType(String))
|
|
dt.Columns.Add("Estatus", GetType(String))
|
|
dt.Columns.Add("Duracion", GetType(String))
|
|
dt.Columns.Add("Atendio", GetType(String))
|
|
|
|
Dim dr As DataRow = dt.NewRow()
|
|
dr("Folio") = "101"
|
|
dr("Fecha") = "2019/08/23"
|
|
dr("Obra") = "Ganaderos"
|
|
dr("TipodeServicio") = "Preventivo"
|
|
dr("Servicio") = "100 Hrs"
|
|
dr("Estatus") = "Terminada"
|
|
dr("Duracion") = "5 Hrs"
|
|
dr("Atendio") = "Juan perez"
|
|
dt.Rows.Add(dr)
|
|
dr = dt.NewRow()
|
|
dr("Folio") = "190"
|
|
dr("Fecha") = "2019/09/30"
|
|
dr("Obra") = "Ganaderos"
|
|
dr("TipodeServicio") = "Preventivo"
|
|
dr("Servicio") = "200 Hrs"
|
|
dr("Estatus") = "Terminada"
|
|
dr("Duracion") = "5 hrs"
|
|
dr("Atendio") = "Ernesto Lopez"
|
|
dt.Rows.Add(dr)
|
|
dr = dt.NewRow()
|
|
dr("Folio") = "501"
|
|
dr("Fecha") = "2019/11/30"
|
|
dr("Obra") = "Vildósola"
|
|
dr("TipodeServicio") = "Preventivo"
|
|
dr("Servicio") = "400 Hrs"
|
|
dr("Estatus") = "Terminada"
|
|
dr("Duracion") = "8 hrs"
|
|
dr("Atendio") = "Juan perez"
|
|
dt.Rows.Add(dr)
|
|
dr = dt.NewRow()
|
|
dr("Folio") = "505"
|
|
dr("Fecha") = "2019/12/14"
|
|
dr("Obra") = "Vildósola"
|
|
dr("TipodeServicio") = "Correctivo"
|
|
dr("Servicio") = "Rep. Mayor motor"
|
|
dr("Estatus") = "En proceso"
|
|
dr("Duracion") = "ND"
|
|
dr("Atendio") = "Juan perez"
|
|
dt.Rows.Add(dr)
|
|
|
|
GVOrdenesdeServicio.DataSource = dt
|
|
GVOrdenesdeServicio.DataBind()
|
|
End Sub
|
|
Private Sub CargaFechaGPS()
|
|
TxtFechaIH.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
|
|
TxtFechaFH.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
|
|
|
|
TxtFechaIC.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
|
|
TxtFechaFC.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
|
|
|
|
TxtFechaID.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
|
|
TxtFechaFD.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
|
|
|
|
TxtFechaIG.Text = $"01/{DateTime.Now.ToString("MM")}/{DateTime.Now.Year} 00:00"
|
|
TxtFechaFG.Text = $"{DateTime.Now.ToString("dd/MM/yyyy")} 23:59"
|
|
End Sub
|
|
|
|
Private Sub InicializaValores()
|
|
Session("FileUpload") = ""
|
|
|
|
ViewState("Orden") = ""
|
|
ViewState("OTipo") = "Tipo DESC"
|
|
ViewState("OTipoReferencia") = "TipoReferencia DESC"
|
|
ViewState("OEstado") = "Estado DESC"
|
|
ViewState("OFechaIng") = "FechaIng DESC"
|
|
ViewState("OUsuario") = "Usuario DESC"
|
|
AFInvSerie = ""
|
|
|
|
CveEmpresaActual = UsuarioActual.CveEmpresa
|
|
End Sub
|
|
|
|
|
|
#Region " CARGA COMBOS "
|
|
Private Sub CargaCombos()
|
|
CargaTipoActivoFijo()
|
|
CargaResponsable()
|
|
CargaEstatusActivoFijo()
|
|
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
|
|
RowProyecto.Visible = DdlProyecto.Visible
|
|
CargaCliente()
|
|
CargaGrupos()
|
|
CargaMarcas()
|
|
CargaTiposAgenda()
|
|
CargaTipoFallas()
|
|
CargaDdlActividades()
|
|
CargaDdlOperadores()
|
|
|
|
If UsuarioActual.CveEmpresa = 66 Then
|
|
If Not UsuarioActual.TienePermisoProceso(167) Then
|
|
DdlProyecto.Enabled = False
|
|
DdlSubProyecto.Enabled = False
|
|
DdlEstadoActivoFijo.Enabled = False
|
|
End If
|
|
DdlResponsable.Enabled = False
|
|
End If
|
|
|
|
End Sub
|
|
Private Sub CargaTipoActivoFijo()
|
|
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(CveEmpresaActual).FiltraParametros("", "TipoActivoFijo")
|
|
DdlTipoActivoFijo.DataBind()
|
|
End Sub
|
|
Private Sub CargaSubTipoActivoFijo()
|
|
DdlSubTipoActivoFijo.Items.Clear()
|
|
DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo")
|
|
DdlSubTipoActivoFijo.DataBind()
|
|
DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlSubTipoActivoFijo.SelectedIndex = 0
|
|
End Sub
|
|
Private Sub CargaDispositivos()
|
|
DivDispositivo.Visible = False
|
|
Dim AplicaGPSStr = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AplicaGPS", $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue.ToEntero}")
|
|
Dim AplicaGPS As Boolean = CBool(If(String.IsNullOrEmpty(AplicaGPSStr), "False", AplicaGPSStr))
|
|
If AplicaGPS Then
|
|
Dim ObjGPS As New ClsGPS
|
|
Try
|
|
If ObjGPS.GetClientesEmpresa(UsuarioActual.CveEmpresa) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
|
|
|
|
CveClienteGPS = ObjGPS.DtResultados.Rows(0)("CveCliente").ToString().ToEntero()
|
|
Offset = ObjGPS.DtResultados.Rows(0)("UTCOffset").ToString().ToEntero()
|
|
|
|
DdlDispositivo.Items.Clear()
|
|
DdlDispositivo.DataSource = GlobalDTDispositivosUsuarios(CveClienteGPS)
|
|
DdlDispositivo.DataBind()
|
|
DdlDispositivo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlDispositivo.SelectedIndex = 0
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString())
|
|
Finally
|
|
ObjGPS.Dispose()
|
|
DivDispositivo.Visible = True
|
|
TabGPS.Visible = True
|
|
End Try
|
|
End If
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub CargaGrupos()
|
|
Dim ObjAF As New ClsAF
|
|
|
|
DdlGrupo.Items.Clear()
|
|
If ObjAF.GetGrupoAF(-1, UsuarioActual.CveEmpresa) Then
|
|
DdlGrupo.DataSource = ObjAF.DtResultados
|
|
Else
|
|
DdlGrupo.DataSource = Nothing
|
|
End If
|
|
DdlGrupo.DataBind()
|
|
ObjAF.Dispose()
|
|
DdlGrupo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
Private Sub CargaResponsable()
|
|
Dim DtPersonal = GlobalDTRHPersonal(CveEmpresaActual).FiltraParametros("", "NombreCompleto")
|
|
DdlResponsable.DataSource = DtPersonal
|
|
DdlResponsable.DataBind()
|
|
End Sub
|
|
Private Sub CargaSubProyecto()
|
|
DdlSubProyecto.Items.Clear()
|
|
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, CveEmpresaActual, 1)
|
|
DdlSubProyecto.DataBind()
|
|
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
|
|
End Sub
|
|
'Private Sub CargaProyecto()
|
|
' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
|
|
' DdlProyecto.DataBind()
|
|
'End Sub
|
|
Private Sub CargaEstatusActivoFijo()
|
|
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
|
|
DdlEstadoActivoFijo.DataBind()
|
|
End Sub
|
|
Private Sub CargaCliente()
|
|
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
|
DdlClientes.DataBind()
|
|
End Sub
|
|
|
|
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
|
CargaSubProyecto()
|
|
End Sub
|
|
|
|
Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
|
|
CargaFolios()
|
|
End Sub
|
|
|
|
Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
|
|
CargaFolios()
|
|
End Sub
|
|
|
|
Private Sub CargaFolios()
|
|
Dim ObjFolios As New ClsGralFolios()
|
|
|
|
If CveActivoFijo > 0 Then
|
|
If GlobalDTTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AutoFolio", $"CveTipoActivoFijo = '{DdlTipoActivoFijo.SelectedValue}'").ToString = "Activo" Then
|
|
If ObjFolios.GetFolios("AF", UsuarioActual.CveEmpresa) Then
|
|
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyecto.SelectedValue))
|
|
If DT.Rows.Count > 0 Then
|
|
TxtCodigo.Enabled = False
|
|
TxtCodigo.Text = $"{DT.Rows(0)("Serie").ToString}-{DT.Rows(0)("FActual").ToString}"
|
|
Else
|
|
TxtCodigo.Enabled = True
|
|
TxtCodigo.Text = CodigoAF
|
|
Alert("No tiene registrados Folios para Activos Fijos en esta sucursal.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
Else
|
|
TxtCodigo.Enabled = True
|
|
TxtCodigo.Text = CodigoAF
|
|
End If
|
|
Else
|
|
If GlobalDTTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AutoFolio", $"CveTipoActivoFijo = '{DdlTipoActivoFijo.SelectedValue}'").ToString = "Activo" Then
|
|
If ObjFolios.GetFolios("AF", UsuarioActual.CveEmpresa) Then
|
|
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" CveSubProyecto = {0} And Estado = 'Activo'", DdlSubProyecto.SelectedValue))
|
|
If DT.Rows.Count > 0 Then
|
|
TxtCodigo.Enabled = False
|
|
TxtCodigo.Text = $"{DT.Rows(0)("Serie").ToString}-{DT.Rows(0)("FActual").ToString}"
|
|
Else
|
|
TxtCodigo.Enabled = True
|
|
TxtCodigo.Text = ""
|
|
Alert("No tiene registrados Folios para Activos Fijos en esta sucursal.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
Else
|
|
TxtCodigo.Enabled = True
|
|
TxtCodigo.Text = ""
|
|
End If
|
|
End If
|
|
|
|
ObjFolios.Dispose()
|
|
CargaSubTipoActivoFijo()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Private Sub CargaAFInv()
|
|
If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then
|
|
|
|
HLAFInv.Visible = True
|
|
|
|
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
|
|
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
|
|
DdlAFInvAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
|
|
DdlAFInvAlmacen.SelectedValue = "-1"
|
|
DdlAFInvAlmacen.DataBind()
|
|
DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
|
|
DdlAFInvPS.setEsWebService(True)
|
|
|
|
'DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
|
|
'DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
|
|
'DdlAFInvPS.DataBind()
|
|
'DdlAFInvPS.SelectedValue = "-1"
|
|
End If
|
|
End Sub
|
|
Private Sub CargaMarcas()
|
|
DdlMarcas.DataSource = GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa)
|
|
DdlMarcas.DataBind()
|
|
DdlMarcas.Items.Insert(0, New ListItem("-", "-1"))
|
|
End Sub
|
|
Private Sub CargaModelos(CveMarca As Integer)
|
|
DdlModelos.Items.Clear()
|
|
DdlModelos.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, CveMarca)
|
|
DdlModelos.DataBind()
|
|
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub CargaDatos()
|
|
Dim ObjActivoFijo As New ClsAF()
|
|
|
|
If ObjActivoFijo.GetActivosFijos(CveActivoFijo, CveEmpresaActual, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, BuscaGrupoEmpresa:=-1) Then
|
|
If ObjActivoFijo.DtResultados.Rows.Count > 0 Then
|
|
|
|
'CARGA LA EMPRESA QUE PERTENECE EL AF
|
|
CveEmpresaActual = ObjActivoFijo.CveEmpresa
|
|
CargaCombos()
|
|
|
|
'Pestaña Datos Generales
|
|
LtlActivoFijo.Text = ObjActivoFijo.Descripcion
|
|
TxtDescripcion.Text = ObjActivoFijo.Descripcion
|
|
TxtCodigo.Text = ObjActivoFijo.Codigo
|
|
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
|
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
|
DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
|
|
CargaSubTipoActivoFijo()
|
|
DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
|
|
|
|
If ObjActivoFijo.CveMovimientoInv > 0 Then
|
|
UpAFInvMovimiento.Visible = True
|
|
HLAFInvMovimiento.Text = ObjActivoFijo.FolioInv
|
|
HLAFInvMovimiento.NavigateUrl = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={ObjActivoFijo.CveMovimientoInv}"
|
|
LbAFInvAlmacen.Text = ObjActivoFijo.AlmacenInv
|
|
End If
|
|
|
|
'DdlEstadoActivoFijo.SelectedValueExist(ObjActivoFijo.CveEstadoActivoFijo.ToString)
|
|
'DdlProyecto.SelectedValueExist(ObjActivoFijo.CveProyecto.ToString)
|
|
'DdlSubProyecto.SelectedValueExist(ObjActivoFijo.CveSubProyecto.ToString)
|
|
'DdlResponsable.SelectedValueExist(ObjActivoFijo.CvePersonaResponsable.ToString)
|
|
'If ObjActivoFijo.CvePersonaResponsable > 0 Then
|
|
' DdlResponsable.Enabled = False
|
|
' DdlProyecto.Enabled = False
|
|
' DdlSubProyecto.Enabled = False
|
|
' DdlEstadoActivoFijo.Enabled = False
|
|
'End If
|
|
CodigoAF = ObjActivoFijo.Codigo
|
|
If GlobalDTTipoActivoFijo(CveEmpresaActual).FiltroPrimeroValor("AutoFolio", $"CveTipoActivoFijo = '{ObjActivoFijo.CveTipoActivoFijo}'").ToString = "Activo" Then
|
|
TxtCodigo.Enabled = False
|
|
Else
|
|
TxtCodigo.Enabled = True
|
|
End If
|
|
|
|
If ObjActivoFijo.MedidaVehicular = 2 Then
|
|
LabelInicial.InnerText = "Odómetro Inicial"
|
|
LabelFinal.InnerText = "Odómetro Final"
|
|
|
|
ElseIf ObjActivoFijo.MedidaVehicular = 3 Then
|
|
LabelInicial.InnerText = "Horómetro Inicial"
|
|
LabelFinal.InnerText = "Horómetro Final"
|
|
Else
|
|
TabActividades.Visible = False
|
|
TabIncidentes.Visible = False
|
|
LnkAddActividad.Visible = False
|
|
LnkAddAccidente.Visible = False
|
|
LnkAddFalla.Visible = False
|
|
End If
|
|
|
|
TxtNoSerie.Text = ObjActivoFijo.NoSerie
|
|
TxtAño.Text = ObjActivoFijo.Año.ToString
|
|
'CargaSubProyecto()
|
|
DdlCtaContable.SelectedValue = ObjActivoFijo.Cuenta.ToString
|
|
LblFechaCaptura.Text = ObjActivoFijo.FechaIng.ToShortDateString
|
|
LblUsuarioCapturo.Text = ObjActivoFijo.Usuario
|
|
DdlCtaContableDepreciacion.SelectedValue = ObjActivoFijo.IdCtaContDepreciacion.ToString
|
|
TxtPorDepreciacion.Text = ObjActivoFijo.PorDepreciacion.ToString
|
|
LtlFechaUltimaDepreciacion.Text = ObjActivoFijo.FechaUltimaDepreciacion.ToString
|
|
TxtObservaciones.Text = ObjActivoFijo.Observaciones
|
|
|
|
If ObjActivoFijo.CveCompra > 0 Then
|
|
TxtValorCompra.Enabled = False
|
|
TxtFechaCompra.Enabled = False
|
|
|
|
DivCompra.Visible = True
|
|
HLCompra.NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", ObjActivoFijo.CveCompra)
|
|
End If
|
|
CargarArchivo()
|
|
'CargaBitacora()
|
|
CargaEventoBitacora()
|
|
|
|
CargarHistorialModificaciones()
|
|
CargaEventos()
|
|
'AQUI ESTABA LA CARGA DE PLACAS, LICENCIAS Y SEGUROS
|
|
CargaProveedor()
|
|
'AQUI ESTABA LA CARGA DE SERVICIOS E INCIDENTES
|
|
|
|
|
|
CargaPlacas()
|
|
CargaLicencias()
|
|
CargaSeguros()
|
|
CargaServicios()
|
|
CargaFallas()
|
|
CargaAccidentes()
|
|
|
|
CargaResguardos()
|
|
CargarHistorial()
|
|
CargaCaracteristicas()
|
|
|
|
DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString
|
|
DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
|
|
DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
|
|
CargaSubProyecto()
|
|
DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString
|
|
DdlClientes.SelectedValueExist(ObjActivoFijo.CveCliente)
|
|
DdlMarcas.SelectedValueExist(ObjActivoFijo.CveMarcaActivoFijo)
|
|
CargaModelos(DdlMarcas.SelectedValue.ToEntero)
|
|
DdlModelos.SelectedValueExist(ObjActivoFijo.CveModeloActivoFijo)
|
|
DdlGrupo.SelectedValueExist(ObjActivoFijo.CveGrupoAF)
|
|
|
|
'DEPRECIACIONES
|
|
LtImporteCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
|
|
LtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
|
|
|
|
If LtFechaCompra.Text <> "" Then
|
|
LtFechaFinDepreciación.Text = ObjActivoFijo.FechaCompra.AddMonths(ObjActivoFijo.MesesDepreciacion).ToShortDateString
|
|
End If
|
|
|
|
CargaAFPAdreEHijos()
|
|
DdlAFPadres.SelectedValue = ObjActivoFijo.CveAFPadre.ToString
|
|
|
|
If ObjActivoFijo.CveDispositivo > 0 Then
|
|
CargaFechaGPS()
|
|
CargaDispositivos()
|
|
CargaUltimaPosicion(ObjActivoFijo.CveDispositivo)
|
|
DdlDispositivo.SelectedValueExist(ObjActivoFijo.CveDispositivo)
|
|
End If
|
|
Else
|
|
Alert("El Activo Fijo Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
BtnGuardar.Enabled = False
|
|
End If
|
|
End If
|
|
ObjActivoFijo.Dispose()
|
|
End Sub
|
|
|
|
#Region "P L A C A S"
|
|
Public Sub CargaPlacas()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetPlacas(-1, CveActivoFijo, UsuarioActual.CveEmpresa, CveDispositivo:=-1, CveCliente:=-1) Then
|
|
GvPlacas.DataSource = ObjAF.DtResultados
|
|
Placas = ObjAF.DtResultados
|
|
GvPlacas.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidad.Value = "U"
|
|
HdnID.Value = GvRow.DataKey("CvePlaca")
|
|
UpDatos.Update()
|
|
BtnAgregarPlaca.Text = "Actualizar"
|
|
myModalLabel.InnerText = "Actualizar Placa"
|
|
TxtPlaca.Text = GvRow.DataKey("Placa")
|
|
TxtObservacionPlacas.Text = GvRow.DataKey("Observacion")
|
|
UpAddPlacas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddPlacas"))
|
|
End Sub
|
|
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
|
Dim ObjAF As New ClsAF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnID.Value = GvRow.DataKey("CvePlaca")
|
|
UpDatos.Update()
|
|
If ObjAF.RemovePlaca(HdnID.Value.ToEntero) Then
|
|
CargaPlacas()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddPlacas_Click(sender As Object, e As EventArgs) Handles LnkAddPlacas.Click
|
|
HdnModalidad.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarPlaca.Text = "Agregar"
|
|
myModalLabel.InnerText = "Agregar Placa"
|
|
TxtPlaca.Text = ""
|
|
TxtObservacionPlacas.Text = ""
|
|
TxtArchivo.Text = ""
|
|
|
|
UpAddPlacas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddPlacas"))
|
|
End Sub
|
|
Private Sub BtnAgregarPlaca_Click(sender As Object, e As EventArgs) Handles BtnAgregarPlaca.Click
|
|
Dim ObjAF As New ClsAF
|
|
|
|
Dim FileExtension As String = ""
|
|
Dim Filesgral As List(Of Archivo) = TxtArchivo.getfiles().Archivos
|
|
Dim Filename As String = ""
|
|
|
|
For Each fileItem As Archivo In Filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
Filename = fileItem.filename
|
|
Next
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Placas\{1}", AppDomain.CurrentDomain.BaseDirectory, Filename))
|
|
If Archivo.Exists() Then
|
|
Archivo.Delete()
|
|
End If
|
|
|
|
If Filename <> "" Then
|
|
Filename.FilesMove(String.Format("{0}", Archivo.Name), String.Format("Empresas\{0}\AF\Placas", UsuarioActual.CveEmpresa))
|
|
End If
|
|
|
|
If HdnModalidad.Value = "A" Then
|
|
If ObjAF.AddPlacas(CveActivoFijo, TxtPlaca.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Observacion:=TxtObservacionPlacas.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ElseIf HdnModalidad.Value = "U" Then
|
|
If ObjAF.UpdatePlacas(HdnID.Value.ToEntero, TxtPlaca.Text.Trim, Observacion:=TxtObservacionPlacas.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End If
|
|
|
|
TxtArchivo.Text = ""
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddPlacas"))
|
|
CargaPlacas()
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub GvPlacas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPlacas.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
|
|
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
|
|
Dim separado As Char() = ".".ToCharArray
|
|
Dim array() As String = Adjunto.Split(separado)
|
|
Dim extencion As String = ""
|
|
|
|
If array.Length > 0 Then
|
|
extencion = array(array.Length - 1)
|
|
End If
|
|
|
|
If Adjunto.Trim.Length > 0 Then
|
|
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Placas/" & Adjunto & "." & extencion
|
|
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Placas/" & Adjunto & "." & extencion
|
|
|
|
If File.Exists(linkDescargaArchivo) Then
|
|
ImgDownLoad.Visible = True
|
|
If extencion.Length > 0 Then
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Placa" & "." & extencion)
|
|
Else
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Placa")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "L I C E N C I A S"
|
|
Public Sub CargaLicencias()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetLicencias(-1, CveActivoFijo, UsuarioActual.CveEmpresa) Then
|
|
GvLicencias.DataSource = ObjAF.DtResultados
|
|
Licencias = ObjAF.DtResultados
|
|
GvLicencias.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Public Sub EditLicencia_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidadLicencia.Value = "U"
|
|
HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
|
|
UpDatos.Update()
|
|
BtnAgregarLicencia.Text = "Actualizar"
|
|
LabelLicencia.InnerText = "Actualizar Licencia"
|
|
TxtLicencia.Text = GvRow.DataKey("Licencia")
|
|
TxtFechaExpLicencia.Text = GvRow.DataKey("FechaExpedicion")
|
|
TxtFechaVencLicencia.Text = GvRow.DataKey("FechaVencimiento")
|
|
TxtObservacionLicencia.Text = GvRow.DataKey("Observacion")
|
|
UpAddLicencias.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddLicencias"))
|
|
End Sub
|
|
Public Sub DeleteLicencia_Click(sender As Object, e As EventArgs)
|
|
Dim ObjAF As New ClsAF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
|
|
UpDatos.Update()
|
|
If ObjAF.RemoveLicencia(HdnIDLicencia.Value.ToEntero) Then
|
|
CargaLicencias()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddLicencias_Click(sender As Object, e As EventArgs) Handles LnkAddLicencias.Click
|
|
HdnModalidadLicencia.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarLicencia.Text = "Agregar"
|
|
LabelLicencia.InnerText = "Agregar Licencia"
|
|
TxtLicencia.Text = ""
|
|
TxtFechaExpLicencia.Text = ""
|
|
TxtFechaVencLicencia.Text = ""
|
|
|
|
UpAddLicencias.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddLicencias"))
|
|
End Sub
|
|
Private Sub BtnAgregarLicencia_Click(sender As Object, e As EventArgs) Handles BtnAgregarLicencia.Click
|
|
Dim ObjAF As New ClsAF
|
|
|
|
Dim FileExtension As String = ""
|
|
Dim Filesgral As List(Of Archivo) = TxtArchivoLicencia.getfiles().Archivos
|
|
Dim Filename As String = ""
|
|
|
|
For Each fileItem As Archivo In Filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
Filename = fileItem.filename
|
|
Next
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Licencias\{1}", ModExtensiones.DirectorioBaseEmpresas, Filename))
|
|
If Archivo.Exists() Then
|
|
Archivo.Delete()
|
|
End If
|
|
|
|
If Filename <> "" Then
|
|
Filename.FilesMove(String.Format("{0}", Archivo.Name), String.Format("Empresas\{0}\AF\Licencias", UsuarioActual.CveEmpresa))
|
|
End If
|
|
|
|
If HdnModalidadLicencia.Value = "A" Then
|
|
If ObjAF.AddLicencia(CveActivoFijo, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Observacion:=TxtObservacionLicencia.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ElseIf HdnModalidadLicencia.Value = "U" Then
|
|
If ObjAF.UpdateLicencia(HdnIDLicencia.Value.ToEntero, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, Observacion:=TxtObservacionLicencia.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End If
|
|
TxtArchivoLicencia.Text = "[]"
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddLicencias"))
|
|
CargaLicencias()
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub GvLicencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvLicencias.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
|
|
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
|
|
Dim separado As Char() = ".".ToCharArray
|
|
Dim array() As String = Adjunto.Split(separado)
|
|
Dim extencion As String = ""
|
|
|
|
If array.Length > 0 Then
|
|
extencion = array(array.Length - 1)
|
|
End If
|
|
|
|
If Adjunto.Trim.Length > 0 Then
|
|
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Licencias/" & Adjunto & "." & extencion
|
|
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Licencias/" & Adjunto & "." & extencion
|
|
|
|
If File.Exists(linkDescargaArchivo) Then
|
|
ImgDownLoad.Visible = True
|
|
If extencion.Length > 0 Then
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia" & "." & extencion)
|
|
Else
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Licencia")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub GvPolizas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPolizas.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
|
|
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
|
|
Dim separado As Char() = ".".ToCharArray
|
|
Dim array() As String = Adjunto.Split(separado)
|
|
Dim extencion As String = ""
|
|
|
|
If array.Length > 0 Then
|
|
extencion = array(array.Length - 1)
|
|
End If
|
|
|
|
If Adjunto.Trim.Length > 0 Then
|
|
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/AF/Polizas/" & Adjunto & "." & extencion
|
|
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "AF/Polizas/" & Adjunto & "." & extencion
|
|
|
|
If File.Exists(linkDescargaArchivo) Then
|
|
ImgDownLoad.Visible = True
|
|
If extencion.Length > 0 Then
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza" & "." & extencion)
|
|
Else
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, "Poliza")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "S E G U R O S"
|
|
Public Sub CargaSeguros()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetPolizasSeguro(-1, CveActivoFijo, -1, UsuarioActual.CveEmpresa) Then
|
|
GvPolizas.DataSource = ObjAF.DtResultados
|
|
Polizas = ObjAF.DtResultados
|
|
GvPolizas.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub CargaProveedor()
|
|
DdlProveedor.Items.Clear()
|
|
DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DdlProveedor.DataBind()
|
|
|
|
UpAddPolizas.Update()
|
|
End Sub
|
|
Public Sub EditPoliza_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidadPoliza.Value = "U"
|
|
HdnIDPoliza.Value = GvRow.DataKey("CvePolizaSeguro")
|
|
UpDatos.Update()
|
|
BtnAgregarPoliza.Text = "Actualizar"
|
|
LabelPolizas.InnerText = "Actualizar Poliza"
|
|
TxtPolizaSeguro.Text = GvRow.DataKey("PolizaSeguro")
|
|
TxtFechaExpPoliza.Text = GvRow.DataKey("FechaExpedicion")
|
|
TxtFechaVenPoliza.Text = GvRow.DataKey("FechaVencimiento")
|
|
TxtObservacionPoliza.Text = GvRow.DataKey("Observacion")
|
|
UpAddPolizas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddPolizas"))
|
|
End Sub
|
|
Public Sub DeletePoliza_Click(sender As Object, e As EventArgs)
|
|
Dim ObjAF As New ClsAF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnIDPoliza.Value = GvRow.DataKey("CvePolizaSeguro")
|
|
UpDatos.Update()
|
|
If ObjAF.RemovePoliza(HdnIDPoliza.Value.ToEntero) Then
|
|
CargaSeguros()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddPolizaSeguro_Click(sender As Object, e As EventArgs) Handles LnkAddPolizaSeguro.Click
|
|
HdnModalidadPoliza.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarPoliza.Text = "Agregar"
|
|
LabelPolizas.InnerText = "Agregar Póliza de seguro"
|
|
DdlProveedor.SelectedIndex = 0
|
|
TxtPolizaSeguro.Text = ""
|
|
TxtFechaExpPoliza.Text = ""
|
|
TxtFechaVenPoliza.Text = ""
|
|
TxtObservacionPoliza.Text = ""
|
|
|
|
UpAddPolizas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddPolizas"))
|
|
End Sub
|
|
Private Sub BtnAgregarPoliza_Click(sender As Object, e As EventArgs) Handles BtnAgregarPoliza.Click
|
|
Dim ObjAF As New ClsAF
|
|
|
|
Dim FileExtension As String = ""
|
|
Dim Filesgral As List(Of Archivo) = TxtArchivoPoliza.getfiles().Archivos
|
|
Dim Filename As String = ""
|
|
|
|
For Each fileItem As Archivo In Filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
Filename = fileItem.filename
|
|
Next
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Polizas\{1}", AppDomain.CurrentDomain.BaseDirectory, Filename))
|
|
If Archivo.Exists() Then
|
|
Archivo.Delete()
|
|
End If
|
|
|
|
If Filename <> "" Then
|
|
Filename.FilesMove(String.Format("{0}", Archivo.Name), String.Format("Empresas\{0}\AF\Polizas", UsuarioActual.CveEmpresa))
|
|
End If
|
|
|
|
If HdnModalidadPoliza.Value = "A" Then
|
|
If ObjAF.AddPolizasSeguro(CveActivoFijo, DdlProveedor.SelectedValue.ToEntero, TxtPolizaSeguro.Text.Trim, TxtFechaExpPoliza.Text.ToDateTime, TxtFechaVenPoliza.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Observacion:=TxtObservacionPoliza.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ElseIf HdnModalidadPoliza.Value = "U" Then
|
|
If ObjAF.UpdatePolizaSeguro(HdnIDPoliza.Value.ToEntero, DdlProveedor.SelectedValue.ToEntero, TxtPolizaSeguro.Text.Trim, TxtFechaExpPoliza.Text.ToDateTime, TxtFechaVenPoliza.Text.ToDateTime, Observacion:=TxtObservacionPoliza.Text.Trim, Adjunto:=If(Filename <> "", Archivo.Name, "-1")) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End If
|
|
TxtArchivoPoliza.Text = "[]"
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddPolizas"))
|
|
CargaSeguros()
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "S E R V I C I O S - M A N T E M I E N T O"
|
|
Public Sub CargaServicios()
|
|
Dim TmpServicios As New DataTable
|
|
TmpServicios.Columns.Add("CveProveedor", GetType(Integer))
|
|
TmpServicios.Columns.Add("CveCompra", GetType(Integer))
|
|
TmpServicios.Columns.Add("Tipo", GetType(String))
|
|
TmpServicios.Columns.Add("Fecha", GetType(Date))
|
|
TmpServicios.Columns.Add("Proveedor", GetType(String))
|
|
TmpServicios.Columns.Add("Factura", GetType(String))
|
|
TmpServicios.Columns.Add("OdHorometro", GetType(Double))
|
|
TmpServicios.Columns.Add("Observaciones", GetType(String))
|
|
|
|
Dim Row As DataRow = TmpServicios.NewRow
|
|
Row("CveProveedor") = 3100
|
|
Row("CveCompra") = 181656
|
|
Row("Tipo") = "Preventivo"
|
|
Row("Fecha") = "01/02/2016"
|
|
Row("Proveedor") = "EMPRESAS MATCO, S.A. DE C.V."
|
|
Row("Factura") = "HERAA-158591"
|
|
Row("OdHorometro") = "198,567"
|
|
Row("Observaciones") = "Servicio Preventivo 200,000 Kilometros - Servicio Completo"
|
|
TmpServicios.Rows.Add(Row)
|
|
|
|
GvServiciosMant.DataSource = TmpServicios
|
|
GvServiciosMant.DataBind()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "F A L L A S"
|
|
Public Sub CargaTipoFallas()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
DdlTipoFallas.Items.Clear()
|
|
DdlTipoFallaAccidente.Items.Clear()
|
|
|
|
If ObjAF.GetTipoFallas(-1, UsuarioActual.CveEmpresa, 2) Then
|
|
DdlTipoFallas.DataSource = ObjAF.DtResultados
|
|
DdlTipoFallas.DataBind()
|
|
End If
|
|
|
|
If ObjAF.GetTipoFallas(-1, UsuarioActual.CveEmpresa, 1) Then
|
|
DdlTipoFallaAccidente.DataSource = ObjAF.DtResultados
|
|
DdlTipoFallaAccidente.DataBind()
|
|
End If
|
|
|
|
DdlTipoFallas.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlTipoFallaAccidente.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Public Sub CargaFallas()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetFallas(-1, CveActivoFijo, UsuarioActual.CveEmpresa, -1, 2) Then
|
|
GvFallas.DataSource = ObjAF.DtResultados
|
|
GvFallas.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Public Sub EditIndicente_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidadFalla.Value = "U"
|
|
HdnIDFalla.Value = GvRow.DataKey("CveFalla")
|
|
UpDatos.Update()
|
|
BtnAgregarFalla.Text = "Actualizar"
|
|
LabelIndicente.InnerText = "Actualizar Falla"
|
|
DdlPrioridad.SelectedValueExist(GvRow.DataKey("Prioridad"))
|
|
TxtAsuntoFalla.Text = GvRow.DataKey("Asunto")
|
|
TxtDescripcionFalla.Text = GvRow.DataKey("Descripcion")
|
|
TxtAFMedida.Text = GvRow.DataKey("AFMedida")
|
|
TxtFechaFalla.Text = GvRow.DataKey("FechaFalla")
|
|
TxtCorreoNotificacion.Text = GvRow.DataKey("CorreoNotificacion")
|
|
DdlTipoFallas.SelectedValueExist(GvRow.DataKey("CveTipoFalla"))
|
|
UpAddFallas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddFallas"))
|
|
End Sub
|
|
Public Sub DeleteIncidente_Click(sender As Object, e As EventArgs)
|
|
Dim ObjAF As New ClsAF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnIDFalla.Value = GvRow.DataKey("CveFalla")
|
|
UpDatos.Update()
|
|
If ObjAF.RemoveFalla(HdnIDFalla.Value.ToEntero) Then
|
|
CargaFallas()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddFalla_Click(sender As Object, e As EventArgs) Handles LnkAddFalla.Click
|
|
HdnModalidadFalla.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarFalla.Text = "Agregar"
|
|
LabelIndicente.InnerText = "Agregar Falla"
|
|
DdlPrioridad.SelectedIndex = 0
|
|
TxtAsuntoFalla.Text = ""
|
|
TxtDescripcionFalla.Text = ""
|
|
TxtAFMedida.Text = ""
|
|
TxtFechaFalla.Text = ""
|
|
DdlTipoFallas.SelectedIndex = 0
|
|
TxtCorreoNotificacion.Text = ""
|
|
|
|
UpAddFallas.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddFallas"))
|
|
End Sub
|
|
Private Sub BtnAgregarFalla_Click(sender As Object, e As EventArgs) Handles BtnAgregarFalla.Click
|
|
Dim ObjAF As New ClsAF
|
|
Dim TieneError = False
|
|
|
|
If HdnModalidadFalla.Value = "A" Then
|
|
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text.Trim) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
ElseIf HdnModalidadFalla.Value = "U" Then
|
|
If ObjAF.UpdateFalla(HdnIDFalla.Value.ToEntero, TxtAsuntoFalla.Text.Trim, TxtDescripcionFalla.Text.Trim, TxtAFMedida.Text.ToEntero, DdlPrioridad.SelectedValue.ToEntero, TxtFechaFalla.Text.ToDate, DdlTipoFallas.SelectedValue.ToEntero, TxtCorreoNotificacion.Text) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddFallas"))
|
|
CargaFallas()
|
|
|
|
If Not TieneError AndAlso HdnModalidadFalla.Value = "A" Then
|
|
EnviaCorreoFallas()
|
|
End If
|
|
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub EnviaCorreoFallas()
|
|
Try
|
|
Dim Para = TxtCorreoNotificacion.Text.Trim
|
|
Dim Asunto = "Registro de Falla de Activo Fijo"
|
|
Dim Body = ""
|
|
Dim strBody As New StringBuilder
|
|
|
|
strBody.Append("Registro de Falla de Activo Fijo")
|
|
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
|
strBody.Append("<head> ")
|
|
strBody.Append(" <style type=""text/css""> ")
|
|
strBody.Append(" body ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" margin:0px; ")
|
|
strBody.Append(" padding:0px 0px 0px 0px; ")
|
|
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
|
strBody.Append(" font-size: 10px; ")
|
|
strBody.Append(" background-color:#F0F0F0; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" a.Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" font-size:11px; ")
|
|
strBody.Append(" background-color:#F7F6F3; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .TextoAlterno ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .BarraIdentidad ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" color:#FFFFFF; ")
|
|
strBody.Append(" background:#F0F0F0; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" font-size:19px; ")
|
|
strBody.Append(" font-style:oblique; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Titulos ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color: Gray;")
|
|
strBody.Append(" color:White; ")
|
|
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Verde {color: #00CC00;} ")
|
|
strBody.Append(" .Negro {color: #000000;} ")
|
|
strBody.Append(" .Rojo {color: #FF0000;} ")
|
|
strBody.Append(" </style> ")
|
|
strBody.Append("</head> ")
|
|
strBody.Append("<body> ")
|
|
|
|
strBody.AppendFormat(" <div id=""C_divOC"" style=""width: 550px""> <fieldset> <legend><b>Datos del Activo Fijo</b></legend> ")
|
|
strBody.Append(" <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> ")
|
|
strBody.Append(" <tr style=""height: 22px""> ")
|
|
strBody.AppendFormat(" <td style=""width: 90px""> Activo FIjo:</td><td style=""width: 125px""><b>{0}</b></td>", LtlActivoFijo.Text)
|
|
strBody.Append(" </tr> ")
|
|
strBody.Append(" </table> ")
|
|
strBody.Append(" </fieldset> ")
|
|
strBody.Append(" </div> ")
|
|
|
|
|
|
'Cargo el detalle
|
|
strBody.Append(" <div style='width: 550px'> ")
|
|
strBody.Append(" <fieldset> ")
|
|
strBody.Append(" <legend>Fallas</legend> ")
|
|
strBody.Append(" <table width=""550px""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>
|
|
<th scope='col' style='width: 50px'>Fecha</th>
|
|
<th scope='col' style='width: 50px'>Asunto</th>
|
|
<th scope='col' style='width: 225px'>Descripción</th>
|
|
<th scope ='col' style='width: 85px'>Prioridad</th>
|
|
<th scope ='col' style='width: 85px'>Horómetro / Odómetro</th>
|
|
<th scope ='col' style='width: 85px'>Tipo Falla</th>")
|
|
|
|
strBody.AppendFormat("<tr class='Texto'> <td style='width:50px;'>{0}</td> <td style='width:250px;'>{1}</td> <td align='left' style='width:225px;'>{2}</td> <td align='left' style='width:150px;'>{3}</td> <td align='left' style='width:225px;'>{4}</td> <td align='left' style='width:225px;'>{5}</td> </tr>",
|
|
TxtFechaFalla.Text, TxtAsuntoFalla.Text, TxtDescripcionFalla.Text, DdlPrioridad.SelectedItem, TxtAFMedida.Text, DdlTipoFallas.SelectedItem)
|
|
|
|
|
|
|
|
|
|
strBody.Append(" </table> ")
|
|
strBody.Append(" </fieldset> ")
|
|
strBody.Append(" </div> ")
|
|
strBody.Append("</body></html>")
|
|
|
|
Body = strBody.ToString
|
|
|
|
Dim Mail As New ClsSisMail()
|
|
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
|
|
Catch ex As Exception
|
|
OnError("Ocurrió error al mandar MAIL", ex)
|
|
End Try
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "A C C I D E N T E S "
|
|
Public Sub CargaAccidentes()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetFallas(-1, CveActivoFijo, UsuarioActual.CveEmpresa, -1, 1) Then
|
|
GvAccidentes.DataSource = ObjAF.DtResultados
|
|
GvAccidentes.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Public Sub EditAccidente_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidadAccidente.Value = "U"
|
|
HdnIDAccidente.Value = GvRow.DataKey("CveFalla")
|
|
UpDatos.Update()
|
|
BtnRegistrarAccidente.Text = "Actualizar"
|
|
LabelAccidente.InnerText = "Actualizar Accidente"
|
|
DdlPrioridadAccidente.SelectedValueExist(GvRow.DataKey("Prioridad"))
|
|
TxtAsuntoAccidente.Text = GvRow.DataKey("Asunto")
|
|
TxtDescripcionAccidente.Text = GvRow.DataKey("Descripcion")
|
|
TxtAFMedidaAccidente.Text = GvRow.DataKey("AFMedida")
|
|
TxtFechaAccidente.Text = GvRow.DataKey("FechaFalla")
|
|
TxtCorreoNotificacionAccidente.Text = GvRow.DataKey("CorreoNotificacion")
|
|
DdlTipoFallaAccidente.SelectedValueExist(GvRow.DataKey("CveTipoFalla"))
|
|
UpAddAccidente.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddAccidentes"))
|
|
End Sub
|
|
Public Sub DeleteAccidente_Click(sender As Object, e As EventArgs)
|
|
Dim ObjAF As New ClsAF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnIDAccidente.Value = GvRow.DataKey("CveFalla")
|
|
UpDatos.Update()
|
|
If ObjAF.RemoveFalla(HdnIDFalla.Value.ToEntero) Then
|
|
CargaAccidentes()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddAccidente_Click(sender As Object, e As EventArgs) Handles LnkAddAccidente.Click
|
|
HdnModalidadAccidente.Value = "A"
|
|
UpDatos.Update()
|
|
BtnRegistrarAccidente.Text = "Agregar"
|
|
LabelAccidente.InnerText = "Agregar Accidente"
|
|
DdlPrioridadAccidente.SelectedIndex = 0
|
|
TxtAsuntoAccidente.Text = ""
|
|
TxtDescripcionAccidente.Text = ""
|
|
TxtAFMedidaAccidente.Text = ""
|
|
TxtFechaAccidente.Text = ""
|
|
DdlTipoFallaAccidente.SelectedIndex = 0
|
|
TxtCorreoNotificacionAccidente.Text = ""
|
|
|
|
UpAddAccidente.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddAccidentes"))
|
|
End Sub
|
|
Private Sub BtnRegistrarAccidente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarAccidente.Click
|
|
Dim ObjAF As New ClsAF
|
|
Dim TieneError = False
|
|
|
|
If HdnModalidadAccidente.Value = "A" Then
|
|
If ObjAF.AddFalla(CveActivoFijo, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text.Trim) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
ElseIf HdnModalidadAccidente.Value = "U" Then
|
|
If ObjAF.UpdateFalla(HdnIDAccidente.Value.ToEntero, TxtAsuntoAccidente.Text.Trim, TxtDescripcionAccidente.Text.Trim, TxtAFMedidaAccidente.Text.ToEntero, DdlPrioridadAccidente.SelectedValue.ToEntero, TxtFechaAccidente.Text.ToDate, DdlTipoFallaAccidente.SelectedValue.ToEntero, TxtCorreoNotificacionAccidente.Text) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
If Not TieneError AndAlso HdnModalidadAccidente.Value = "A" Then
|
|
EnviaCorreoAccidente()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddAccidentes"))
|
|
CargaAccidentes()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub EnviaCorreoAccidente()
|
|
Try
|
|
Dim Para = TxtCorreoNotificacion.Text.Trim
|
|
Dim Asunto = "Registro de Accidente de Activo Fijo"
|
|
Dim Body = ""
|
|
Dim strBody As New StringBuilder
|
|
|
|
strBody.Append("Registro de Accidente de Activo Fijo")
|
|
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
|
strBody.Append("<head> ")
|
|
strBody.Append(" <style type=""text/css""> ")
|
|
strBody.Append(" body ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" margin:0px; ")
|
|
strBody.Append(" padding:0px 0px 0px 0px; ")
|
|
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
|
strBody.Append(" font-size: 10px; ")
|
|
strBody.Append(" background-color:#F0F0F0; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" a.Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" font-size:11px; ")
|
|
strBody.Append(" background-color:#F7F6F3; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .TextoAlterno ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .BarraIdentidad ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" color:#FFFFFF; ")
|
|
strBody.Append(" background:#F0F0F0; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" font-size:19px; ")
|
|
strBody.Append(" font-style:oblique; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Titulos ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color: Gray;")
|
|
strBody.Append(" color:White; ")
|
|
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Verde {color: #00CC00;} ")
|
|
strBody.Append(" .Negro {color: #000000;} ")
|
|
strBody.Append(" .Rojo {color: #FF0000;} ")
|
|
strBody.Append(" </style> ")
|
|
strBody.Append("</head> ")
|
|
strBody.Append("<body> ")
|
|
|
|
strBody.AppendFormat(" <div id=""C_divOC"" style=""width: 550px""> <fieldset> <legend><b>Datos del Activo Fijo</b></legend> ")
|
|
strBody.Append(" <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> ")
|
|
strBody.Append(" <tr style=""height: 22px""> ")
|
|
strBody.AppendFormat(" <td style=""width: 90px""> Activo FIjo:</td><td style=""width: 125px""><b>{0}</b></td>", LtlActivoFijo.Text)
|
|
strBody.Append(" </tr> ")
|
|
strBody.Append(" </table> ")
|
|
strBody.Append(" </fieldset> ")
|
|
strBody.Append(" </div> ")
|
|
|
|
|
|
'Cargo el detalle
|
|
strBody.Append(" <div style='width: 550px'> ")
|
|
strBody.Append(" <fieldset> ")
|
|
strBody.Append(" <legend>Fallas</legend> ")
|
|
strBody.Append(" <table width=""550px""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>
|
|
<th scope='col' style='width: 50px'>Fecha</th>
|
|
<th scope='col' style='width: 50px'>Asunto</th>
|
|
<th scope='col' style='width: 225px'>Descripción</th>
|
|
<th scope ='col' style='width: 85px'>Prioridad</th>
|
|
<th scope ='col' style='width: 85px'>Horómetro / Odómetro</th>
|
|
<th scope ='col' style='width: 85px'>Tipo Falla</th>")
|
|
|
|
strBody.AppendFormat("<tr class='Texto'> <td style='width:50px;'>{0}</td> <td style='width:250px;'>{1}</td> <td align='left' style='width:225px;'>{2}</td> <td align='left' style='width:150px;'>{3}</td> <td align='left' style='width:225px;'>{4}</td> <td align='left' style='width:225px;'>{5}</td> </tr>",
|
|
TxtFechaAccidente.Text, TxtAsuntoAccidente.Text, TxtDescripcionAccidente.Text, DdlPrioridadAccidente.SelectedItem, TxtAFMedidaAccidente.Text, DdlTipoFallaAccidente.SelectedItem)
|
|
|
|
|
|
|
|
|
|
strBody.Append(" </table> ")
|
|
strBody.Append(" </fieldset> ")
|
|
strBody.Append(" </div> ")
|
|
strBody.Append("</body></html>")
|
|
|
|
Body = strBody.ToString
|
|
|
|
Dim Mail As New ClsSisMail()
|
|
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
|
|
Catch ex As Exception
|
|
OnError("Ocurrió error al mandar MAIL", ex)
|
|
End Try
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "A C T I V I D A D E S "
|
|
Private Sub CargaDdlActividades()
|
|
DdlActividad.DataSource = GlobalDTMFActividad(UsuarioActual.CveEmpresa, 1)
|
|
DdlActividad.DataBind()
|
|
DdlActividad.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
UpDatos.Update()
|
|
UpAgregarBitacora.Update()
|
|
End Sub
|
|
Private Sub CargaDdlOperadores()
|
|
DdlOperador.DataSource = GlobalDTMFOperador(UsuarioActual.CveEmpresa, 1)
|
|
DdlOperador.DataBind()
|
|
DdlOperador.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
UpDatos.Update()
|
|
UpAgregarBitacora.Update()
|
|
End Sub
|
|
Public Sub CargaActividades()
|
|
Dim ObjMF As New ClsMF()
|
|
|
|
If ObjMF.GetBitacoraAF(-1, CveActivoFijo, -1, -1, MinFecha, MaxFecha, UsuarioActual.CveEmpresa) Then
|
|
ViewState("UltimaFecha") = ObjMF.DtResultados.MAX("Fecha").ToDate
|
|
ViewState("UltimoHodometro") = ObjMF.DtResultados.MAX("Final")
|
|
CalendarExtender9.StartDate() = UltimaFecha
|
|
GvActividades.DataSource = ObjMF.DtResultados.FiltraParametros("CveBitacora > 0")
|
|
GvActividades.DataBind()
|
|
End If
|
|
|
|
ObjMF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub LnkAddActividad_Click(sender As Object, e As EventArgs) Handles LnkAddActividad.Click
|
|
HdnActividades.Value = "A"
|
|
HdnHorometroAnterior.Value = "-1"
|
|
HdnHorometroSiguiente.Value = "-1"
|
|
UpDatos.Update()
|
|
BtnAgregarActividades.Text = "Agregar"
|
|
LabelActividad.InnerText = "Agregar Actividad"
|
|
DdlActividad.SelectedIndex = 0
|
|
TxtFechaActividad.Text = ""
|
|
TxtObservacion.Text = ""
|
|
TxtHorometroInicial.Text = ""
|
|
TxtHorometroFinal.Text = ""
|
|
UpAgregarBitacora.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivActividades"))
|
|
End Sub
|
|
Public Sub EditActividades_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnActividades.Value = "U"
|
|
HdnIDActividades.Value = GvRow.DataKey("CveBitacora")
|
|
HdnHorometroAnterior.Value = GvRow.DataKey("HorometroAnterior")
|
|
HdnHorometroSiguiente.Value = GvRow.DataKey("HorometroSiguiente")
|
|
UpDatos.Update()
|
|
BtnAgregarActividades.Text = "Actualizar"
|
|
LabelActividad.InnerText = "Actualizar Actividad"
|
|
DdlActividad.SelectedValueExist(GvRow.DataKey("CveActividad"))
|
|
|
|
If GvRow.DataKey("CveOperador").ToEntero > 0 Then
|
|
DdlOperador.SelectedValueExist(GvRow.DataKey("CveOperador"))
|
|
Else
|
|
DdlOperador.SelectedIndex = 0
|
|
End If
|
|
|
|
TxtFechaActividad.Text = GvRow.DataKey("Fecha")
|
|
TxtObservacion.Text = GvRow.DataKey("Observacion")
|
|
TxtHorometroInicial.Text = GvRow.DataKey("HorometroInicial")
|
|
TxtHorometroFinal.Text = GvRow.DataKey("HorometroFinal")
|
|
UpAgregarBitacora.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivActividades"))
|
|
End Sub
|
|
Public Sub DeleteActividades_Click(sender As Object, e As EventArgs)
|
|
Dim ObjMF As New ClsMF()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnIDActividades.Value = GvRow.DataKey("CveBitacora")
|
|
UpDatos.Update()
|
|
|
|
If ObjMF.RemoveBitacora(HdnIDActividades.Value.ToEntero) Then
|
|
CargaActividades()
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
ObjMF.Dispose()
|
|
End Sub
|
|
Private Sub BtnAgregarActividades_Click(sender As Object, e As EventArgs) Handles BtnAgregarActividades.Click
|
|
Dim TieneError = False
|
|
|
|
If HdnIDActividades.Value.ToEntero > 0 Then
|
|
If TxtHorometroInicial.Text.ToEntero < HdnHorometroAnterior.Value.ToEntero Then
|
|
Alert("Horómetro/Odómetro Inicial no puede ser menor al último registro", TipoMensaje.MsgAdvertencia)
|
|
TieneError = True
|
|
ElseIf TxtHorometroInicial.Text.ToEntero > HdnHorometroAnterior.Value.ToEntero Then
|
|
Alert("Horómetro/Odómetro Inicial no puede ser mayor al último registro", TipoMensaje.MsgAdvertencia)
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
If TxtHorometroInicial.Text.ToEntero < UltimoHodometro.ToEntero Then
|
|
Alert("Horómetro/Odómetro Inicial no puede ser menor al último registro", TipoMensaje.MsgAdvertencia)
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
Dim ObjMF As New ClsMF()
|
|
|
|
If HdnActividades.Value = "A" And Not TieneError Then
|
|
If ObjMF.AddBitacora(CveActivoFijo, -1, -1, TxtFechaActividad.Text.ToDate, DdlActividad.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, TxtObservacion.Text, TxtHorometroInicial.Text.ToEntero, TxtHorometroFinal.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
ElseIf HdnActividades.Value = "U" And Not TieneError Then
|
|
If ObjMF.UpdateBitacora(HdnIDActividades.Value.ToEntero, CveActivoFijo, -1, -1, TxtFechaActividad.Text.ToDate, DdlActividad.SelectedValue.ToEntero, DdlOperador.SelectedValue.ToEntero, TxtObservacion.Text, TxtHorometroInicial.Text.ToEntero, TxtHorometroFinal.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivActividades"))
|
|
CargaActividades()
|
|
End If
|
|
|
|
ObjMF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Private Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvActividades.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.Header Then
|
|
If LabelInicial.InnerText = "Odómetro Inicial" Then
|
|
e.Row.Cells(4).Text = "Odómetro Inicial"
|
|
e.Row.Cells(5).Text = "Odómetro Final"
|
|
ElseIf LabelInicial.InnerText = "Horómetro Inicial" Then
|
|
e.Row.Cells(4).Text = "Horómetro Inicial"
|
|
e.Row.Cells(5).Text = "Horómetro Final"
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "P R O G R A M A C I Ó N - D E - E V E N T O S"
|
|
Private Sub LnkAddEvento_Click(sender As Object, e As EventArgs) Handles LnkAddEvento.Click
|
|
TxtAsuntoEvento.Text = ""
|
|
DdlAgedaTipoAdd.SelectedIndex = 0
|
|
DdlPrioridadAdd.SelectedIndex = 0
|
|
TxtDescripcionAdd.Text = ""
|
|
TxtFechaInicioEvento.Text = ""
|
|
TxtFechaFinEvento.Text = ""
|
|
UpAddEvento.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddEvento"))
|
|
End Sub
|
|
Private Sub BtnGuardarEvento_Click(sender As Object, e As EventArgs) Handles BtnGuardarEvento.Click
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
If ObjEventos.AddEvento(2, DdlAgedaTipoAdd.SelectedValue.ToEntero, TxtAsuntoEvento.Text, TxtDescripcionAdd.Text, DdlPrioridadAdd.SelectedValue.ToEntero, -1, -1, TxtFechaInicioEvento.Text.ToDate, TxtFechaFinEvento.Text.ToDate, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveActivoFijo) Then
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Ocurrio un error al agrega evento.", TipoMensaje.MsgError)
|
|
End If
|
|
ObjEventos.Dispose()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddEvento"))
|
|
CargaEventos()
|
|
UpDatos.Update()
|
|
Response.Redirect("/OC/OC.aspx?Tipo=OC")
|
|
|
|
End Sub
|
|
Public Sub CargaEventos()
|
|
Dim ObjEventos As New ClsOIEventos
|
|
If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", CveActivoFijo, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
GvDatos.DataSource = ObjEventos.DtResultados
|
|
Eventos = ObjEventos.DtResultados
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
GvDatos.DataBind()
|
|
|
|
ObjEventos.Dispose()
|
|
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
|
|
End If
|
|
End Sub
|
|
Private Sub CargaTiposAgenda()
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
If ObjEventos.GetAgendaTipo() Then
|
|
DdlAgedaTipoAdd.DataSource = ObjEventos.DtResultados
|
|
DdlAgedaTipoAdd.DataBind()
|
|
Else
|
|
Alert("Ocurrió un error al obtener los tipos de agenda.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjEventos.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " R E S G U A R D O S"
|
|
|
|
'#Region "Ordenamiento"
|
|
' Protected Sub LbNombre_Click(sender As Object, e As System.EventArgs) Handles LbNombre.Click, ImgNombre.Click
|
|
' If ViewState("ONombre").ToString() = "Nombre DESC" Then
|
|
' ViewState("ONombre") = "Nombre ASC"
|
|
' ImgNombre.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("ONombre") = "Nombre DESC"
|
|
' ImgNombre.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("ONombre")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
' Protected Sub LbFechaInicio_Click(sender As Object, e As System.EventArgs) Handles LbFechaInicio.Click, ImgFechaInicio.Click
|
|
' If ViewState("OFechaInicio").ToString() = "FechaInicio DESC" Then
|
|
' ViewState("OFechaInicio") = "FechaInicio ASC"
|
|
' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("OFechaInicio") = "FechaInicio DESC"
|
|
' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("OFechaInicio")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
' Protected Sub LbFechaFin_Click(sender As Object, e As System.EventArgs) Handles LbFechaFin.Click, ImgFechaFin.Click
|
|
' If ViewState("OFechaFin").ToString() = "FechaFin DESC" Then
|
|
' ViewState("OFechaFin") = "FechaFin ASC"
|
|
' ImgFechaFin.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("OFechaFin") = "FechaFin DESC"
|
|
' ImgFechaFin.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("OFechaFin")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
' Protected Sub LbObservaciones_Click(sender As Object, e As System.EventArgs) Handles LbObservaciones.Click, ImgObservaciones.Click
|
|
' If ViewState("OObservaciones").ToString() = "Observaciones DESC" Then
|
|
' ViewState("OObservaciones") = "Observaciones ASC"
|
|
' ImgObservaciones.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("OObservaciones") = "Observaciones DESC"
|
|
' ImgObservaciones.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("OObservaciones")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
' Protected Sub LbURL_Click(sender As Object, e As System.EventArgs) Handles LbURL.Click, ImgURL.Click
|
|
' If ViewState("OURL").ToString() = "URL DESC" Then
|
|
' ViewState("OURL") = "URL ASC"
|
|
' ImgURL.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("OURL") = "URL DESC"
|
|
' ImgURL.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("OURL")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
' Protected Sub LbUsuario_Click(sender As Object, e As System.EventArgs) Handles LbUsuario.Click, ImgUsuario.Click
|
|
' If ViewState("OUsuario").ToString() = "Usuario DESC" Then
|
|
' ViewState("OUsuario") = "Usuario ASC"
|
|
' ImgUsuario.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
|
' Else
|
|
' ViewState("OUsuario") = "Usuario DESC"
|
|
' ImgUsuario.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
|
' End If
|
|
' ViewState("Orden") = ViewState("OUsuario")
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' End Sub
|
|
|
|
'#End Region
|
|
|
|
Private Sub CargaResguardos()
|
|
Dim ObjResguardos As New ClsAF
|
|
If ObjResguardos.GetActivosFijosResguardos(CveActivoFijo, -1, -1, -1) Then
|
|
GvResguardos.DataSource = ObjResguardos.DtResultados
|
|
Else
|
|
GvResguardos.DataSource = Nothing
|
|
End If
|
|
ObjResguardos.Dispose()
|
|
GvResguardos.DataBind()
|
|
End Sub
|
|
Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If Not UsuarioActual.TienePermisoPagina(574) Then
|
|
e.Row.FCLabel("LbImprimir1").Text = ""
|
|
e.Row.FCLabel("LbImprimir2").Text = ""
|
|
'e.Row.FCImageButton("imgE").Enabled = False
|
|
End If
|
|
|
|
If e.Row.RowState = DataControlRowState.Edit Then
|
|
e.Row.FCImageButton("BtnGuardaArchivo1").CommandArgument = e.Row.DBCampo("CveActivoFijoResguardo")
|
|
e.Row.FCImageButton("BtnGuardaArchivo2").CommandArgument = e.Row.DBCampo("CveActivoFijoResguardo")
|
|
Else
|
|
'ARCHIVOS DE RESGUARDOS
|
|
If e.Row.FCLiteral("LblFechaInicio").Text <> "" Then
|
|
e.Row.FCLabel("LbImprimir1").Text = String.Format("<a target='_blank' class=""btn btn-sm btn-circle gray"" href=""/Compras/PopUpVerFactura.aspx?P={0}""><i class='fa fa-print font-white' aria-hidden='true'></i></a> ", Encripta(String.Format("OP=AFR&CVEAFR={0}&TIPO={1}", e.Row.DBCampo("CveActivoFijoResguardo"), If(e.Row.DBCampo("Tipo").ToString = "1", 1, 2))))
|
|
End If
|
|
If e.Row.FCLabel("LblFechaFin").Text <> "" Then
|
|
e.Row.FCLabel("LbImprimir2").Text = String.Format("<a target='_blank' class=""btn btn-sm btn-circle gray"" href=""/Compras/PopUpVerFactura.aspx?P={0}""><i class='fa fa-print font-white' aria-hidden='true'></i></a> ", Encripta(String.Format("OP=AFR&CVEAFR={0}&TIPO={1}", e.Row.DBCampo("CveActivoFijoResguardo"), If(e.Row.DBCampo("Tipo").ToString = "1", 4, 3))))
|
|
End If
|
|
End If
|
|
|
|
If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then
|
|
Dim DescargarArchivo As String = "N/D"
|
|
If File.Exists(String.Format("{0}AF\Resguardos\{1}", UsuarioActual.Empresa.Ruta, e.Row.DBCampo("URL"))) Then
|
|
DescargarArchivo = String.Format("<a Class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Ver</a> ", Encripta(String.Format("OP=OI&Archivo=\Empresas\{0}\AF\Resguardos\{1}", CveEmpresaActual, e.Row.DBCampo("URL"))))
|
|
e.Row.FCImageButton("ImgArchivo").Visible = False
|
|
Else
|
|
e.Row.FCImageButton("ImgArchivo").Visible = True
|
|
End If
|
|
e.Row.FCLiteral("LtlURL").Text = DescargarArchivo
|
|
End If
|
|
|
|
If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then
|
|
Dim DescargarArchivo As String = "N/D"
|
|
If File.Exists(String.Format("{0}AF\Resguardos\", UsuarioActual.Empresa.Ruta) + e.Row.DBCampo("URL2")) Then
|
|
DescargarArchivo = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Ver</a> ", Encripta(String.Format("OP=OI&Archivo=\Empresas\{0}\AF\Resguardos\{1}", CveEmpresaActual, e.Row.DBCampo("URL2"))))
|
|
e.Row.FCImageButton("ImgArchivo2").Visible = False
|
|
Else
|
|
e.Row.FCImageButton("ImgArchivo2").Visible = True
|
|
End If
|
|
e.Row.FCLiteral("LtlURL2").Text = DescargarArchivo
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
'Protected Sub GvResguardos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvResguardos.RowCancelingEdit
|
|
' GvResguardos.EditIndex = -1
|
|
' GvResguardos.DataBind()
|
|
' CargaResguardos()
|
|
'End Sub
|
|
|
|
'Protected Sub GvResguardos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvResguardos.RowEditing
|
|
' GvResguardos.EditIndex = e.NewEditIndex
|
|
' CargaResguardos()
|
|
'End Sub
|
|
|
|
'Protected Sub GvResguardos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvResguardos.RowUpdating
|
|
|
|
' Dim ObjResguardos As New ClsAF
|
|
|
|
' ' Dim FechaFin As String = DirectCast(GvResguardos.Rows(e.RowIndex).FindControl("TxtFechaFin"), TextBox).Text
|
|
' ' FechaFin = If(IsDate(FechaFin), FechaFin, "-1")
|
|
' Dim Observaciones As String = DirectCast(GvResguardos.Rows(e.RowIndex).FindControl("TxtObservaciones"), TextBox).Text.Trim
|
|
' Dim URL As String = "-1"
|
|
' Dim URL2 As String = "-1"
|
|
' Dim RutaGuardar = ""
|
|
' Dim RutaArchivo = ""
|
|
' Dim RutaArchivo2 = ""
|
|
' Dim Archivo As String = ""
|
|
' Dim Archivo2 As String = ""
|
|
' Dim CveActivoFijoResguardo As Integer = GvResguardos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
|
|
|
' 'If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(String.Format("{0}Temp\{1}", UsuarioActual.Empresa.Ruta, Session("FileUpload").ToString)) Then
|
|
' ' Dim TmpArchivo As String = String.Format("{0}Temp\{1}", UsuarioActual.Empresa.Ruta, Session("FileUpload").ToString)
|
|
' ' Dim TmpRuta As String = String.Format("{0}ActivosFijos\Resguardos\", UsuarioActual.Empresa.Ruta)
|
|
' ' Dim Extension As String = Path.GetExtension(TmpArchivo)
|
|
' ' TmpRuta.DirectoryExistsCreate()
|
|
' ' 'If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Resguardos\") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Resguardos\")
|
|
' ' TmpRuta = String.Format("{0}{1}{2}", TmpRuta, CveActivoFijoResguardo, Extension)
|
|
' ' File.Move(TmpArchivo, TmpRuta)
|
|
' ' Session("FileUpload") = ""
|
|
|
|
' ' If File.Exists(TmpRuta) Then
|
|
' ' URL = URL & Extension
|
|
' ' Else
|
|
' ' URL = ""
|
|
' ' End If
|
|
' 'Else
|
|
' ' URL = URLOld
|
|
' 'End If
|
|
|
|
|
|
' 'RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
|
|
' 'If A2.HRef <> "" Then RutaArchivo = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, A2.HRef.Substring(1))
|
|
|
|
|
|
' 'End If
|
|
|
|
' 'If UsuarioActual.CveRol = 1037 Then
|
|
' ' RutaGuardar = String.Format("{0}Empresas\70\OI\", ModExtensiones.DirectorioBaseEmpresas)
|
|
' ' RutaGuardar.DirectoryExistsCreate()
|
|
' 'End If
|
|
' 'Else
|
|
' RutaGuardar = String.Format("{0}AF\Resguardos\", UsuarioActual.Empresa.Ruta)
|
|
' RutaArchivo = String.Format("{0}AF\Resguardos\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("AF"))
|
|
' RutaArchivo2 = (String.Format("{0}AF\Resguardos\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("AF1")))
|
|
|
|
' If Session("AF") IsNot Nothing AndAlso File.Exists(RutaArchivo) Then
|
|
' If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
|
' Archivo = Path.GetExtension(Session("AF").ToString)
|
|
' File.Move(RutaArchivo, String.Format("{0}{1}", RutaGuardar, CveActivoFijoResguardo.ToString + "_1" + Archivo))
|
|
' Session("AF") = ""
|
|
' URL = CveActivoFijoResguardo.ToString + "_1" + Archivo
|
|
' End If
|
|
|
|
|
|
' If Session("AF1") IsNot Nothing AndAlso File.Exists(RutaArchivo2) Then
|
|
' If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
|
' Archivo2 = Path.GetExtension(Session("AF1").ToString)
|
|
' File.Move(RutaArchivo2, String.Format("{0}{1}", RutaGuardar, CveActivoFijoResguardo.ToString + "_2" + Archivo2))
|
|
' Session("AF1") = ""
|
|
' URL2 = CveActivoFijoResguardo.ToString + "_2" + Archivo2
|
|
' End If
|
|
|
|
|
|
' If ObjResguardos.UpdateActivosFijosResguardos("-1", Observaciones, URL, CveActivoFijoResguardo, -1, URL2) Then
|
|
' GvResguardos.EditIndex = -1
|
|
' ViewState("DTResguardos") = ObjResguardos.DtResultados
|
|
' GvResguardos.DataSource = ObjResguardos.DtResultados
|
|
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
' 'If FechaFin <> "-1" Then DdlResponsable.Enabled = True : DdlResponsable.SelectedValue = "-1"
|
|
' UPEstatus.Update()
|
|
' End If
|
|
|
|
' ObjResguardos.Dispose()
|
|
' GvResguardos.DataBind()
|
|
'End Sub
|
|
|
|
|
|
#Region " ARCHIVO "
|
|
Protected Sub ImgArchivo_Click(sender As Object, e As ImageClickEventArgs)
|
|
CveResguardoPadre = CType(sender, ImageButton).CommandArgument.ToEntero
|
|
EsURL2 = False
|
|
RegistraScript("$('#DivArchivo').modal()")
|
|
End Sub
|
|
Protected Sub ImgArchivo2_Click(sender As Object, e As ImageClickEventArgs)
|
|
CveResguardoPadre = CType(sender, ImageButton).CommandArgument.ToEntero
|
|
EsURL2 = True
|
|
RegistraScript("$('#DivArchivo').modal()")
|
|
End Sub
|
|
Protected Sub btnAddArchivo_Click(sender As Object, e As EventArgs) Handles btnAddArchivo.Click
|
|
Dim FileExtension As String = "-1"
|
|
Dim filesgral As List(Of Archivo) = TxtUpFormato.getfiles().Archivos
|
|
Dim filemove As String = ""
|
|
|
|
|
|
Dim objAF As New ClsAF
|
|
objAF.IniciaTransacSQL()
|
|
Dim HuboError As Boolean = False
|
|
|
|
If filesgral.Count > 0 Then
|
|
|
|
For Each fileItem As Archivo In filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
filemove = fileItem.filename
|
|
Next
|
|
|
|
If EsURL2 Then
|
|
If objAF.UpdateActivosFijosResguardosURL("-1", $"AFT{CveResguardoPadre}.{FileExtension}", CveResguardoPadre) Then
|
|
If filemove <> "" Then
|
|
filemove.FilesMove(String.Format("AFT{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa))
|
|
End If
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
Else
|
|
If objAF.UpdateActivosFijosResguardosURL($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then
|
|
If filemove <> "" Then
|
|
filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa))
|
|
End If
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
If HuboError Then
|
|
objAF.RollBack()
|
|
Alert("Ocurrió un error al guardar el archivo.", TipoMensaje.MsgError)
|
|
Else
|
|
objAF.Commit()
|
|
Alert("El archivo se guardó correctamente", TipoMensaje.MsgInformacion)
|
|
TxtUpFormato.Text = "[]"
|
|
RegistraScript("$('#DivArchivo').modal('hide');")
|
|
End If
|
|
|
|
objAF.Dispose()
|
|
CargaResguardos()
|
|
UpDatos.Update()
|
|
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
|
|
|
|
#End Region
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "GALERIA DE IMAGENES"
|
|
'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
|
|
' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\Temp\" & Session("FileUpload").ToString) Then
|
|
' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\Temp\" & Session("FileUpload").ToString)
|
|
' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Imagenes") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Imagenes")
|
|
' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\" & CveActivoFijo & "_" & ImgConsecutivo & Extension)
|
|
' Session("FileUpload") = ""
|
|
|
|
' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Imagenes" & CveActivoFijo & "_" & ImgConsecutivo & Extension) Then
|
|
' Dim ObjActivosFijos As New ClsAF
|
|
' If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, CveActivoFijo & "_" & ImgConsecutivo & Extension, UsuarioActual.CveUsuario) Then
|
|
' CargarArchivo()
|
|
' Else
|
|
' File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & CveEmpresaActual & "\ActivosFijos\Imagenes" & CveActivoFijo & "_" & ImgConsecutivo & Extension)
|
|
' End If
|
|
|
|
' ObjActivosFijos.Dispose()
|
|
|
|
' End If
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub BtnUpFotos_Click(sender As Object, e As EventArgs) Handles BtnUpFotos.Click
|
|
|
|
Dim FilesGral As List(Of Archivo) = TxtUpFotos.getfiles().Archivos
|
|
Dim FileMove As String = ""
|
|
Dim NewName As String
|
|
For Each FileItem As Archivo In FilesGral
|
|
Dim Retorno As Boolean = False
|
|
NewName = DateTime.Now.Ticks.ToString
|
|
Dim ObjActivosFijos As New ClsAF
|
|
Try
|
|
FileMove = FileItem.filename
|
|
Dim DirectorioOld As New StringBuilder
|
|
Dim DirectorioNew As New StringBuilder
|
|
DirectorioOld.AppendFormat("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, FileMove)
|
|
DirectorioNew.AppendFormat("{0}Empresas\{1}\AF\", ModExtensiones.DirectorioBaseEmpresas, CveEmpresaActual)
|
|
If Not Directory.Exists(DirectorioNew.ToString) Then
|
|
Directory.CreateDirectory(DirectorioNew.ToString)
|
|
End If
|
|
NewName = String.Format("{0}{1}", NewName, IO.Path.GetExtension(DirectorioOld.ToString()))
|
|
DirectorioNew.Append(NewName)
|
|
If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario) Then
|
|
CargarArchivo()
|
|
My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString)
|
|
Else
|
|
End If
|
|
Retorno = True
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
ObjActivosFijos.Dispose()
|
|
RegistraScript("$(""#Modalupfotos"").modal(""hide"");initcarusel();")
|
|
TxtUpFotos.Text = "[]"
|
|
UpUpFotos.Update()
|
|
Next
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnEliminarFoto_Click(sender As Object, e As System.EventArgs)
|
|
Dim CveImagenActivoFijo As Integer = 0
|
|
CveImagenActivoFijo = Integer.Parse(DirectCast(sender, Button).CommandArgument)
|
|
|
|
If (CveImagenActivoFijo > 0) Then
|
|
Dim ObjActivoFijo As New ClsAF
|
|
If ObjActivoFijo.RemoveActivosFijosImagenes(CveImagenActivoFijo) Then
|
|
File.Delete(String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresaActual, ObjActivoFijo.DtResultados.Rows(0)("URL")))
|
|
CargarArchivo()
|
|
RegistraScript("initcarusel();")
|
|
End If
|
|
ObjActivoFijo.Dispose()
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub CargarArchivo()
|
|
Dim StrBuilder As New StringBuilder
|
|
Dim TmpDT As DataTable = Nothing
|
|
Dim ObjActivoFijo As New ClsAF
|
|
|
|
If ObjActivoFijo.GetActivosFijosImagenes(CveActivoFijo) Then
|
|
TmpDT = ObjActivoFijo.DtResultados
|
|
Else
|
|
TmpDT = Nothing
|
|
End If
|
|
ObjActivoFijo.Dispose()
|
|
RptFotos.DataSource = TmpDT
|
|
RptFotos.DataBind()
|
|
upGaleria.Update()
|
|
'myGallery.InnerHtml = ""
|
|
'If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
|
|
' For Each Row As DataRow In TmpDT.Rows
|
|
' StrBuilder.AppendFormat("<li><img src=""/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}"" /></li>", Encripta(Row("URL").ToString))
|
|
' Next
|
|
' myGallery.InnerHtml = StrBuilder.ToString
|
|
' ViewState("ImgConsecutivo") = TmpDT.Rows(0)("ImgConsecutivo").ToString
|
|
' TmpDT.Dispose()
|
|
' RegistraScript("$(function () { $('#myGallery').galleryView(); });")
|
|
'Else
|
|
' ViewState("ImgConsecutivo") = "1"
|
|
'End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
BtnGuardar2()
|
|
End Sub
|
|
|
|
Private Sub BtnGuardar2()
|
|
Dim ObjAF As New ClsAF
|
|
Dim ObjInventarios As New ClsInventarios(ObjAF.IniciaTransacSQL())
|
|
Dim ObjContabilidad As New ClsContabilidad(ObjAF.IniciaTransacSQL())
|
|
Dim ErrorGuardar As Boolean = False
|
|
|
|
If CveActivoFijo <= 0 Then
|
|
|
|
'SALIDA DE ALMACEN PARA IMPORTACION
|
|
Dim CveMovimientoSalidaInv = -1
|
|
If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
|
|
Dim CveUMInv = GlobalDTPS(CveEmpresaActual, CvePS:=AFInvCvePS).FiltroPrimeroValor("CveUM").ToEntero
|
|
If CveUMInv > 0 Then
|
|
CveMovimientoSalidaInv = ObjInventarios.AddMovimiento(AFInvCveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, CveEmpresaActual, -1, -1, -1, -1, Observaciones:=$"Salida de inventario para Activo Fijo | {TxtCodigo.Text.Trim}")
|
|
If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaInv, 1, CveUMInv, AFInvCvePS, 0, -1, Serie:=AFInvSerie) Then
|
|
ErrorGuardar = True
|
|
End If
|
|
Else
|
|
ErrorGuardar = True
|
|
End If
|
|
End If
|
|
|
|
|
|
If Not ErrorGuardar Then
|
|
If ObjAF.AddActivosFijos(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
|
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero,
|
|
DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
|
|
TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
|
|
CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) > 0 Then
|
|
ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
|
|
Else
|
|
ErrorGuardar = True
|
|
End If
|
|
End If
|
|
|
|
'PREPOLIZA DE IMPORTACION DESDE ALMACEN
|
|
If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
|
|
Dim IDCtaContableInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
|
|
Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
|
|
If Not ErrorGuardar Then
|
|
Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual)
|
|
If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(DdlCtaContable.SelectedValue.Trim.ToEntero, UsuarioActual.CveEmpresa), -1)) Then
|
|
If Not ErrorGuardar Then
|
|
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=CveCuentaInv) Then
|
|
ErrorGuardar = True
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Else
|
|
If Not ObjAF.UpdateActivosFijos(CveActivoFijo.ToString.ToEntero, TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
|
DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
|
|
DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
|
|
TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, DdlClientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
|
|
CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero) Then
|
|
|
|
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
|
|
'CargaDatos()
|
|
'GVHistModificaciones.DataSource = ObjAF.DtResultados
|
|
'GVHistModificaciones.DataBind()
|
|
'UPHistModificaciones.Update()
|
|
'UpDatos.Update()
|
|
' GuardaValores()
|
|
ErrorGuardar = True
|
|
End If
|
|
End If
|
|
|
|
If Not ErrorGuardar Then
|
|
For Each DR As GridViewRow In GvC.Rows
|
|
Dim CveCaracteristicaOpcion As Integer = -1
|
|
Dim CveValor As Integer = DR.FCHiddenField("HdnCveValor").Value.ToEntero
|
|
Dim Valor As String = DR.FCTextBox("TxtValor").Text.Trim
|
|
Dim tCveCaracteristica As Integer = DR.FCHiddenField("HdnCveCaracteristica").Value.ToEntero
|
|
Select Case DR.FCHiddenField("HdnEsOpcion").Value
|
|
Case "1" 'Listado o DropDownList
|
|
CveCaracteristicaOpcion = DR.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
|
|
Case "2" 'Radio o RadioButtonList
|
|
CveCaracteristicaOpcion = DR.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
|
|
Case "5"
|
|
Valor = DR.FCCheckBox("ChbValor").Checked.ToString
|
|
Case "6" 'Numerico
|
|
Valor = DR.FCTextBox("TxtValorNum").Text.Trim
|
|
End Select
|
|
|
|
If Not ObjAF.AddUpdActivosFijosValores(CveActivoFijo, tCveCaracteristica, CveCaracteristicaOpcion, If(Valor = "", "-1", Valor), UsuarioActual.CveUsuario) Then
|
|
ErrorGuardar = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If Not ErrorGuardar Then
|
|
'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
|
|
' GVHistModificaciones.DataSource = ObjAF.DtResultados
|
|
' GVHistModificaciones.DataBind()
|
|
' UPHistModificaciones.Update()
|
|
|
|
ObjAF.Commit()
|
|
Alert("El Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/AF/CatAF.aspx"";")
|
|
Else
|
|
ObjAF.RollBack()
|
|
Alert("Ocurrió un error al actualizar el Activo Fijo. Por favor vuelva a intentar o comuniquese con servicio técnico", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
|
Dim ObjActivoFijo As New ClsAF()
|
|
If ObjActivoFijo.RemoveActivosFijos(CveActivoFijo) Then
|
|
Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""")
|
|
End If
|
|
ObjActivoFijo.Dispose()
|
|
End Sub
|
|
|
|
#Region "CLASIFICACIONES CARACTERISTICAS"
|
|
|
|
Protected Sub GvCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvC.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If CaracClasif <> e.Row.DBCampo("CaracteristicaClasificacion") OrElse e.Row.RowIndex = 0 Then
|
|
CaracClasif = e.Row.DBCampo("CaracteristicaClasificacion")
|
|
e.Row.FCLabel("LblClasif").Text = e.Row.DBCampo("CaracteristicaClasificacion")
|
|
e.Row.FindControl("PnlClasif").Visible = True
|
|
End If
|
|
|
|
Dim TipoCampo As Integer = e.Row.DBCampo("TipoCampo").ToEntero
|
|
Dim tCveCaracteristica As Integer = e.Row.DBCampo("CveCaracteristica").ToEntero
|
|
Select Case TipoCampo
|
|
Case 0, 4 'Texto, Multiline
|
|
With e.Row.FCTextBox("TxtValor")
|
|
.Visible = True
|
|
If TipoCampo = 4 Then
|
|
.Rows = 3
|
|
.TextMode = TextBoxMode.MultiLine
|
|
End If
|
|
.Text = e.Row.DBCampo("Valor")
|
|
If e.Row.DBCampo("Requerida") = "True" Then
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "TxtValor"
|
|
End If
|
|
End With
|
|
Case 1, 2 'DropDownList, Radios
|
|
Dim dt As DataTable = DTAFCaracteristicas.FiltraParametros(String.Format("CveCaracteristica = {0} And EstatusOpcion ='True' AND CveCaracteristicaOpcion > 0 ", tCveCaracteristica))
|
|
If TipoCampo = 1 Then
|
|
With e.Row.FCDropDownList("DdlRespuesta")
|
|
.Visible = True
|
|
.DataTextField = "CaracteristicaOpcion"
|
|
.DataValueField = "CveCaracteristicaOpcion"
|
|
.DataSource = dt
|
|
.DataBind()
|
|
.Items.Insert(0, New ListItem("Seleccione", "-1")) '63636363636363
|
|
'.SelectedValue = e.Row.DBCampo("CveValor")
|
|
.SelectedValue = e.Row.DBCampo("CveOpcion")
|
|
If e.Row.DBCampo("Requerida") = "True" Then
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "DdlRespuesta"
|
|
End If
|
|
End With
|
|
ElseIf TipoCampo = 2 Then
|
|
With e.Row.FCRadioButtonList("RbRespuesta")
|
|
.Visible = True
|
|
.DataSource = dt
|
|
.DataBind()
|
|
.SelectedValue = e.Row.DBCampo("CveOpcion")
|
|
End With
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ErrorMessage = String.Format("ERROR: Falta contestar la pregunta: <b>{0}</b>", e.Row.DBCampo("Caracteristica"))
|
|
End If
|
|
Case 3 'Fecha
|
|
With e.Row.FCTextBox("TxtValor")
|
|
.Visible = True
|
|
.Width = New Unit(80)
|
|
.Text = e.Row.DBCampo("Valor")
|
|
End With
|
|
e.Row.FCImageButton("ImgTxtValor").Visible = True
|
|
e.Row.FCMaskedEditExtender("MEETxtValor").Enabled = True
|
|
e.Row.FCCalendarExtender("CETxtValor").Enabled = True
|
|
e.Row.FCCompareValidator("CVTxtValor").Enabled = True
|
|
e.Row.FCCompareValidator("CVTxtValor").Type = ValidationDataType.Date
|
|
Case 5 'Checkbox
|
|
With e.Row.FCCheckBox("ChbValor")
|
|
.Visible = True
|
|
.Text = e.Row.DBCampo("Caracteristica")
|
|
'.Checked = CBool(e.Row.DBCampo("Valor").ToEntero)
|
|
.Checked = (e.Row.DBCampo("Valor") = "True")
|
|
End With
|
|
|
|
Case 6 ' Numerico
|
|
With e.Row.FCTextBox("TxtValorNum")
|
|
.Visible = True
|
|
.Text = e.Row.DBCampo("Valor")
|
|
e.Row.FCCompareValidator("CVTxtValor").Enabled = True
|
|
e.Row.FCCompareValidator("CVTxtValor").Type = ValidationDataType.Integer
|
|
|
|
If e.Row.DBCampo("Requerida") = "True" Then
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").Enabled = True
|
|
e.Row.FCRequiredFieldValidator("RFVRbRespuesta").ControlToValidate = "TxtValorNum"
|
|
End If
|
|
End With
|
|
|
|
|
|
End Select
|
|
End If
|
|
'End If
|
|
End Sub
|
|
Private Sub CargaCaracteristicas()
|
|
|
|
CaracClasif = ""
|
|
Dim ObjAFCaracteristicas As New ClsAF
|
|
If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
|
|
|
|
Dim Filtro = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
|
|
GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
|
|
|
|
If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then
|
|
DTAFCaracteristicas = ObjAFCaracteristicas.DtResultados '.FiltraParametros("SubtipoActivoFijo = '" + DdlSubTipoActivoFijo.SelectedValue + "'") 'FiltraParametros("EstatusOpcion = 'True'")
|
|
End If
|
|
|
|
End If
|
|
ObjAFCaracteristicas.Dispose()
|
|
GvC.DataBind()
|
|
UpDatos.Update()
|
|
End Sub
|
|
'Protected Sub GuardaValores()
|
|
' Dim ObjActivoFijo As New ClsAF
|
|
|
|
' For Each DR As GridViewRow In GvC.Rows
|
|
' Dim CveCaracteristicaOpcion As Integer = -1
|
|
' Dim CveValor As Integer = DR.FCHiddenField("HdnCveValor").Value.ToEntero
|
|
' Dim Valor As String = DR.FCTextBox("TxtValor").Text.Trim
|
|
' Dim CveCaracteristica As Integer = DR.FCHiddenField("HdnCveCaracteristica").Value.ToEntero
|
|
' Select Case DR.FCHiddenField("HdnEsOpcion").Value
|
|
' Case "1" 'Listado o DropDownList
|
|
' CveCaracteristicaOpcion = DR.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
|
|
' Case "2" 'Radio o RadioButtonList
|
|
' CveCaracteristicaOpcion = DR.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
|
|
' Case "5"
|
|
' Valor = DR.FCCheckBox("ChbValor").Checked.ToString
|
|
' Case "6" 'Numerico
|
|
' Valor = DR.FCTextBox("TxtValorNum").Text.Trim
|
|
' End Select
|
|
|
|
' ObjActivoFijo.AddUpdActivosFijosValores(CveActivoFijo, CveCaracteristica, CveCaracteristicaOpcion, If(Valor = "", "-1", Valor), UsuarioActual.CveUsuario)
|
|
|
|
' Next
|
|
' GVHistModificaciones.DataSource = ObjActivoFijo.DtResultados
|
|
' GVHistModificaciones.DataBind()
|
|
' UPHistModificaciones.Update()
|
|
' ObjActivoFijo.Dispose()
|
|
'End Sub
|
|
|
|
|
|
'Private Sub GuardarAFCaracteristica()
|
|
' If CveActivoFijo = -1 Then
|
|
|
|
' Dim Correcto As Boolean = True
|
|
' Dim ObjActivosFijos As New ClsAF
|
|
|
|
' Dim RetValue As Integer = ObjActivosFijos.AddActivosFijos2(TxtCodigo.Text.Trim, TxtDescripcion.Text.Trim, TxtValorCompra.Text.Trim.ToDouble, TxtFechaCompra.Text.Trim.ToDate, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
|
|
' DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
|
|
' DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
|
|
' TxtPorDepreciacion.Text.Trim.ToDouble, TxtPorDeduccion.Text.Trim.ToDouble, UsuarioActual.CveUsuario, CveEmpresaActual)
|
|
|
|
' If RetValue > 0 OrElse RetValue = -2 Then
|
|
' Dim tCveActivoFijo As Integer = ObjActivosFijos.CveActivoFijo
|
|
' Dim Actualizar As Boolean = False
|
|
' 'registro la encuesta
|
|
' Dim Clave As Integer = 0
|
|
' 'verifico si ya existe una encuesta registrada
|
|
' If ObjActivosFijos.GetActivosFijosValores(tCveActivoFijo, CveEmpresaActual) Then
|
|
' If ObjActivosFijos.DtResultados.Rows.Count > 0 Then
|
|
' Clave = ObjActivosFijos.DtResultados(0)("CveCaracteristica").ToString.ToEntero
|
|
|
|
' Actualizar = True
|
|
|
|
' End If
|
|
' End If
|
|
|
|
' If Clave > 0 Then
|
|
|
|
|
|
' For Each gvr As GridViewRow In GvC.Rows
|
|
|
|
' Dim CveOpcion As Integer = -1
|
|
' Dim Valor As String = gvr.FCTextBox("TxtValor").Text.Trim
|
|
|
|
' Select Case gvr.DataKey("PreguntaTipo")
|
|
' Case "1" 'Listado o DropDownList
|
|
' CveOpcion = gvr.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
|
|
' Case "2" 'Radio o RadioButtonList
|
|
' CveOpcion = gvr.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
|
|
' End Select
|
|
' Next
|
|
' Else
|
|
' Correcto = False
|
|
' Alert("El Prospecto ya tiene esta encuesta registrada")
|
|
' End If
|
|
' Else
|
|
' Correcto = False
|
|
' ObjActivosFijos.Dispose()
|
|
|
|
' End If
|
|
' End If
|
|
'End Sub
|
|
'Private Sub GuardarCaracteristicas()
|
|
' Dim ObjActivoFijoValores As New ClsAF
|
|
|
|
' For Each GridValores As GridViewRow In GvC.Rows
|
|
' Dim CveOpcion As Integer = -1
|
|
' Dim Valor As String = GridValores.FCTextBox("TxtValor").Text.Trim
|
|
|
|
' Select Case GridValores.DataKey("TipoCampo")
|
|
' Case "1" 'Listado o DropDownList
|
|
' CveOpcion = GridValores.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
|
|
' Case "2" 'Radio o RadioButtonList
|
|
' CveOpcion = GridValores.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
|
|
' End Select
|
|
|
|
' If GridValores.DataKey("CveCaracteristica").ToEntero > 0 Then
|
|
' If CveActivoFijo > 0 Then
|
|
' If ObjActivoFijoValores.AddActivosFijosValores(CveActivoFijo, CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario) Then
|
|
' Alert("por aqui pasó" & CveActivoFijo & "")
|
|
' Exit For
|
|
' End If
|
|
' ObjActivoFijoValores.Dispose()
|
|
|
|
' End If
|
|
' End If
|
|
' Next
|
|
|
|
'End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "B I T A C O R A"
|
|
|
|
Private Sub CargaBitacora()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "E V E N T O - B I T A C O R A"
|
|
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(200)
|
|
e.Row.Cells(1).Width = Unit.Pixel(200)
|
|
e.Row.Cells(2).Width = Unit.Pixel(100)
|
|
e.Row.Cells(3).Width = Unit.Pixel(500)
|
|
End If
|
|
|
|
If e.Row.DBCampo("Archivo").ToString <> "" Then
|
|
e.Row.FCLinkButton("LinkArchivo").Visible = True
|
|
e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString)
|
|
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
|
|
End If
|
|
|
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
|
End If
|
|
End Sub
|
|
Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
|
|
Dim ObjEventoBitacora As New ClsOIEventos
|
|
|
|
Dim FileExtension As String = "-1"
|
|
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
|
Dim filemove As String = ""
|
|
|
|
For Each fileItem As Archivo In filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
filemove = fileItem.filename
|
|
Next
|
|
|
|
|
|
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, CveEmpresaActual, CveActivoFijo:=CveActivoFijo) Then
|
|
If filemove <> "" Then
|
|
filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", CveEmpresaActual))
|
|
End If
|
|
|
|
|
|
GvEB.DataSource = ObjEventoBitacora.DtResultados
|
|
TxtEventoDescripcion.Text = ""
|
|
Anexo.Text = "[]"
|
|
Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
|
|
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
GvEB.DataBind()
|
|
|
|
UPEventoBitacora.Update()
|
|
CargaEventoBitacora()
|
|
UPAddEventoBitacora.Update()
|
|
End Sub
|
|
Private Sub CargaEventoBitacora()
|
|
|
|
Dim ObjEventoBitacora As New ClsOIEventos()
|
|
If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, CveEmpresaActual, CveActivoFijo:=CveActivoFijo) Then
|
|
GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
|
|
Else
|
|
GvEB.DataSource = Nothing
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
GvEB.DataBind()
|
|
End Sub
|
|
|
|
Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
|
|
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
|
|
Dim Archivo As New System.IO.FileInfo(filePath)
|
|
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(filePath)
|
|
HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
|
|
Archivo = Nothing
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " H I S T O R I A L"
|
|
Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.CssClass = "Totales"
|
|
ElseIf e.Row.FCLiteral("LtlFecha").Text = String.Empty Then
|
|
e.Row.CssClass = "SubTotales"
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Private Sub CargarHistorial()
|
|
Dim ObjHistorial As New ClsAF
|
|
If ObjHistorial.GetActivosFijosCompras(CveActivoFijo) Then
|
|
DTCompras = ObjHistorial.DtResultados
|
|
GVHistorial.DataSource = DTCompras
|
|
Else
|
|
GVHistorial.DataSource = Nothing
|
|
End If
|
|
|
|
If DTCompras IsNot Nothing And DTCompras.Rows.Count > 0 Then
|
|
BtnPDFCompras.Visible = True
|
|
BtnExcelCompras.Visible = True
|
|
End If
|
|
|
|
ObjHistorial.Dispose()
|
|
GVHistorial.DataBind()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "H I S T O R I A L - M O D I F I C A C I O N E S"
|
|
Protected Sub GVHistModificaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVHistModificaciones.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(160)
|
|
e.Row.Cells(1).Width = Unit.Pixel(70)
|
|
e.Row.Cells(2).Width = Unit.Pixel(150)
|
|
e.Row.Cells(3).Width = Unit.Pixel(300)
|
|
e.Row.Cells(4).Width = Unit.Pixel(300)
|
|
End If
|
|
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
|
|
End If
|
|
End Sub
|
|
Private Sub CargarHistorialModificaciones()
|
|
Dim ObjGral As New ClsGenerales
|
|
If ObjGral.GetHistorialBitacora(-1, -1, CveActivoFijo, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
GVHistModificaciones.DataSource = ObjGral.DtResultados
|
|
Else
|
|
GVHistModificaciones.DataSource = Nothing
|
|
End If
|
|
ObjGral.Dispose()
|
|
GVHistModificaciones.DataBind()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "GUARDAR ARCHIVO"
|
|
Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
|
|
Dim objResguardos As New ClsAF
|
|
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero
|
|
Dim btn As ImageButton = CType(sender, ImageButton)
|
|
Dim URL As String = cve.ToString
|
|
Dim RutaGuardar = ""
|
|
Dim RutaArchivo = ""
|
|
|
|
Dim Archivo As String = ""
|
|
|
|
|
|
RutaGuardar = String.Format("{0}AF\Resguardos\", UsuarioActual.Empresa.Ruta)
|
|
RutaArchivo = String.Format("{0}AF\Resguardos\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("AF"))
|
|
|
|
|
|
If Session("AF") IsNot Nothing AndAlso File.Exists(RutaArchivo) Then
|
|
If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
|
Archivo = Path.GetExtension(Session("AF").ToString)
|
|
File.Move(RutaArchivo, String.Format("{0}{1}", RutaGuardar, cve.ToString + "_1" + Archivo))
|
|
Session("AF") = ""
|
|
End If
|
|
|
|
|
|
|
|
|
|
If objResguardos.UpdateActivosFijosResguardosURL(cve.ToString + "_1" + Archivo, "-1", cve) Then
|
|
GvResguardos.EditIndex = -1
|
|
ViewState("DTResguardos") = objResguardos.DtResultados
|
|
GvResguardos.DataSource = objResguardos.DtResultados
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
|
|
UPEstatus.Update()
|
|
End If
|
|
|
|
objResguardos.Dispose()
|
|
GvResguardos.DataBind()
|
|
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardaArchivo2_Click(sender As Object, e As ImageClickEventArgs)
|
|
Dim objResguardos As New ClsAF
|
|
Dim cve = CType(sender, ImageButton).CommandArgument.ToEntero
|
|
Dim btn As ImageButton = CType(sender, ImageButton)
|
|
Dim URL As String = cve.ToString
|
|
Dim RutaGuardar = ""
|
|
Dim RutaArchivo2 = ""
|
|
Dim Archivo2 As String = ""
|
|
|
|
|
|
RutaGuardar = String.Format("{0}AF\Resguardos\", UsuarioActual.Empresa.Ruta)
|
|
RutaArchivo2 = (String.Format("{0}AF\Resguardos\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("AF1")))
|
|
|
|
|
|
|
|
If Session("AF1") IsNot Nothing AndAlso File.Exists(RutaArchivo2) Then
|
|
If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
|
Archivo2 = Path.GetExtension(Session("AF1").ToString)
|
|
File.Move(RutaArchivo2, String.Format("{0}{1}", RutaGuardar, cve.ToString + "_2" + Archivo2))
|
|
Session("AF1") = ""
|
|
End If
|
|
|
|
If objResguardos.UpdateActivosFijosResguardosURL("-1", cve.ToString + "_2" + Archivo2, cve) Then
|
|
ViewState("DTResguardos") = objResguardos.DtResultados
|
|
GvResguardos.DataSource = objResguardos.DtResultados
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
|
|
UPEstatus.Update()
|
|
End If
|
|
|
|
objResguardos.Dispose()
|
|
GvResguardos.DataBind()
|
|
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged
|
|
CargaCaracteristicas()
|
|
CargaDispositivos()
|
|
End Sub
|
|
|
|
#Region "CARGAR CUENTA CONTABLE"
|
|
|
|
Private Sub CargaCuentasContables()
|
|
trCuentaContable.Visible = True
|
|
|
|
|
|
Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim DtCuentas As New DataTable
|
|
Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
|
|
|
|
If Conta.GetCuentasRecursiva(CuentaPadre, 1) Then
|
|
DtCuentas = Conta.DtResultados
|
|
Else
|
|
DtCuentas = Nothing
|
|
Alert("Ocurrió un error al obtener las Cuentas Contables.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
Conta.Dispose()
|
|
|
|
DdlCtaContable.DataSource = DtCuentas
|
|
DdlCtaContable.DataBind()
|
|
|
|
DdlCtaContableDepreciacion.DataSource = DtCuentas
|
|
DdlCtaContableDepreciacion.DataBind()
|
|
|
|
End Sub
|
|
|
|
Private Sub ActivarRegistroCuentaAF()
|
|
If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then
|
|
BtnCtaContable.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BtnCtaContable_Click(sender As Object, e As EventArgs) Handles BtnCtaContable.Click
|
|
Dim IdCuentaContable As Integer = -1
|
|
Dim CtaCodigo As String = ""
|
|
Dim TieneError = False
|
|
|
|
Dim CuentaPadre = UsuarioActual.Empresa.Funcionalidad(221).ToEntero
|
|
|
|
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim ObjAF As New ClsAF()
|
|
ObjContaAC.IniciaTransacSQL()
|
|
ObjAF.IniciaTransacSQL()
|
|
|
|
Dim NombreCuenta = If(TxtDescripcion.Text.Trim.Length > 50, TxtDescripcion.Text.Trim.Substring(0, 50), TxtDescripcion.Text.Trim)
|
|
|
|
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2)
|
|
If IdCuentaContable > 0 Then
|
|
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
|
Dim dt = ObjContaAC.DtResultados
|
|
|
|
If dt.Rows.Count = 1 Then
|
|
|
|
Dim row As DataRow = dt.Rows(0)
|
|
CtaCodigo = CStr(row("CtaCodigo"))
|
|
|
|
If Not ObjAF.UpdateActivosFijosCuentaAC(CveActivoFijo, IdCuentaContable, UsuarioActual.CveUsuario) Then
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
|
DdlCtaContable.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContable.SelectedValueExist(IdCuentaContable.ToString)
|
|
BtnCtaContable.Visible = False
|
|
ObjAF.Commit()
|
|
ObjContaAC.Commit()
|
|
Else
|
|
Alert("Ocurrio un erro al registrar la Cuenta Contable", TipoMensaje.MsgError)
|
|
ObjAF.RollBack()
|
|
ObjContaAC.RollBack()
|
|
End If
|
|
|
|
ObjContaAC.Dispose()
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region "IMPRESIÓN FULL"
|
|
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
|
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetActivosFijos(CveActivoFijo, CveEmpresaActual, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then
|
|
If ObjAF.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim datasource As DataTable = New DataTable
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Codigo", ObjAF.Codigo))
|
|
params.Add(New ReportParameter("Descripcion", ObjAF.Descripcion))
|
|
params.Add(New ReportParameter("TipoAF", If(DdlTipoActivoFijo.SelectedValue = "-1", "", DdlTipoActivoFijo.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("SubTipoAF", If(DdlSubTipoActivoFijo.SelectedValue = "-1", "", DdlSubTipoActivoFijo.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("ValorCompra", ObjAF.ValorCompra.ToString.FormatoNumero))
|
|
params.Add(New ReportParameter("FechaCompra", ObjAF.FechaCompra.ToShortDateString))
|
|
params.Add(New ReportParameter("NoSerie", ObjAF.NoSerie))
|
|
params.Add(New ReportParameter("Año", ObjAF.Año.ToString))
|
|
params.Add(New ReportParameter("Estado", If(DdlEstadoActivoFijo.SelectedValue = "-1", "", DdlEstadoActivoFijo.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("Responsable", If(DdlResponsable.SelectedValue = "-1", "", DdlResponsable.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("Proyecto", If(DdlProyecto.SelectedValue = "-1", "", DdlProyecto.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("SubProyecto", If(DdlSubProyecto.SelectedValue = "-1", "", DdlSubProyecto.SelectedItem.Text)))
|
|
params.Add(New ReportParameter("Observaciones", ObjAF.Observaciones))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
Dim ObjHistorial As New ClsAF()
|
|
|
|
If ObjHistorial.GetActivosFijosCompras(CveActivoFijo) Then
|
|
datasource = ObjHistorial.DtResultados
|
|
Else
|
|
datasource = Nothing
|
|
End If
|
|
|
|
Dim datasource2 As DataTable = New DataTable
|
|
If ObjHistorial.GetActivosFijosResguardos(CveActivoFijo, -1, -1, -1) Then
|
|
datasource2 = ObjHistorial.DtResultados
|
|
End If
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource
|
|
rds.Name = "DataSet1"
|
|
rds.Value = datasource
|
|
lrds.Add(rds)
|
|
|
|
Dim rds2 As New ReportDataSource
|
|
rds2.Name = "DataSet2"
|
|
rds2.Value = datasource2
|
|
lrds.Add(rds2)
|
|
|
|
Dim rds3 As New ReportDataSource
|
|
rds3.Name = "DataSet3"
|
|
rds3.Value = Placas
|
|
lrds.Add(rds3)
|
|
|
|
Dim rds4 As New ReportDataSource
|
|
rds4.Name = "DataSet4"
|
|
rds4.Value = Licencias
|
|
lrds.Add(rds4)
|
|
|
|
Dim rds5 As New ReportDataSource
|
|
rds5.Name = "DataSet5"
|
|
rds5.Value = Polizas
|
|
lrds.Add(rds5)
|
|
|
|
Dim rds6 As New ReportDataSource
|
|
rds6.Name = "DataSet6"
|
|
rds6.Value = Eventos
|
|
lrds.Add(rds6)
|
|
|
|
ObjHistorial.Dispose()
|
|
ImprimirPDFMultiDS("Empresas/Grales/Formatos/AF.rdlc", lrds, params, $"AF_{ObjAF.CveActivoFijo}", Formato)
|
|
Else
|
|
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
|
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
|
|
GenerarPDF("PDF")
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "Codigo Barras"
|
|
'Codigo barras/QR se retorna como una imagen bmp
|
|
Private Function GeneraCodigoQR(CodigoBarras As String, Alto As Integer, Largo As Integer, Margen As Integer, Formato As String) As Byte()
|
|
|
|
Dim barcodeWriter As New BarcodeWriter
|
|
Dim opciones As New ZXing.Common.EncodingOptions
|
|
Dim FormatoBar As New BarcodeFormat
|
|
'Dim Respuesta As Byte()
|
|
|
|
opciones.Height = Alto
|
|
opciones.Width = Largo
|
|
opciones.Margin = Margen
|
|
|
|
barcodeWriter.Options = opciones
|
|
|
|
Select Case Formato
|
|
Case "All_1D"
|
|
barcodeWriter.Format = BarcodeFormat.All_1D
|
|
Exit Select
|
|
Case "AZTEC"
|
|
barcodeWriter.Format = BarcodeFormat.AZTEC
|
|
Exit Select
|
|
Case "CODABAR"
|
|
barcodeWriter.Format = BarcodeFormat.CODABAR
|
|
Exit Select
|
|
Case "CODE_128"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_128
|
|
Exit Select
|
|
Case "CODE_39"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_39
|
|
Exit Select
|
|
Case "CODE_93"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_93
|
|
Exit Select
|
|
Case "DATA_MATRIX"
|
|
barcodeWriter.Format = BarcodeFormat.DATA_MATRIX
|
|
Exit Select
|
|
Case "EAN_13"
|
|
barcodeWriter.Format = BarcodeFormat.EAN_13
|
|
Exit Select
|
|
Case "EAN_8"
|
|
barcodeWriter.Format = BarcodeFormat.EAN_8
|
|
Exit Select
|
|
Case "IMB"
|
|
barcodeWriter.Format = BarcodeFormat.IMB
|
|
Exit Select
|
|
Case "ITF"
|
|
barcodeWriter.Format = BarcodeFormat.ITF
|
|
Exit Select
|
|
Case "MAXICODE"
|
|
barcodeWriter.Format = BarcodeFormat.MAXICODE
|
|
Exit Select
|
|
Case "MSI"
|
|
barcodeWriter.Format = BarcodeFormat.MSI
|
|
Exit Select
|
|
Case "PDF_417"
|
|
barcodeWriter.Format = BarcodeFormat.PDF_417
|
|
Exit Select
|
|
Case "PLESSEY"
|
|
barcodeWriter.Format = BarcodeFormat.PLESSEY
|
|
Exit Select
|
|
Case "QR_CODE"
|
|
barcodeWriter.Format = BarcodeFormat.QR_CODE
|
|
Exit Select
|
|
Case "RSS_14"
|
|
barcodeWriter.Format = BarcodeFormat.RSS_14
|
|
Exit Select
|
|
Case "RSS_EXPANDED"
|
|
barcodeWriter.Format = BarcodeFormat.RSS_EXPANDED
|
|
Exit Select
|
|
Case "UPC_A"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_A
|
|
Exit Select
|
|
Case "UPC_E"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_E
|
|
Exit Select
|
|
Case "UPC_EAN_EXTENSION"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_EAN_EXTENSION
|
|
Exit Select
|
|
|
|
End Select
|
|
|
|
Dim imgCod As Drawing.Bitmap = barcodeWriter.Write(CodigoBarras)
|
|
Dim memoriStream As New System.IO.MemoryStream
|
|
imgCod.Save(memoriStream, Drawing.Imaging.ImageFormat.Bmp)
|
|
|
|
'Respuesta = Convert.ToBase64String(memoriStream.ToArray())
|
|
|
|
Return memoriStream.ToArray()
|
|
|
|
End Function
|
|
Private Sub LnkModalCodigoBarrasQr_Click(sender As Object, e As EventArgs) Handles LnkModalCodigoBarrasQr.Click
|
|
|
|
LnkDescargaImagen.Enabled = False
|
|
LnkDescargaImpresion.Enabled = False
|
|
UpModalBotonesCodigos.Update()
|
|
|
|
TxtCodigoBarrasModal.Text = TxtCodigo.Text.Trim
|
|
UpModalUploadCodigoBarras.Update()
|
|
RegistraScript("$('#ModalCodigoBarrasQR').modal({ backdrop: 'static', keyboard: false});")
|
|
|
|
End Sub
|
|
Private Sub LnkModalGenerarCodigoBarrasQR_Click(sender As Object, e As EventArgs) Handles LnkModalGenerarCodigoBarrasQR.Click
|
|
|
|
Dim Alto As Integer = 150
|
|
Dim Ancho As Integer = 150
|
|
Dim Base64Code As String
|
|
|
|
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
|
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
|
|
|
Try
|
|
Base64Code = Convert.ToBase64String(GeneraCodigoQR(TxtCodigoBarrasModal.Text.Trim, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
|
ImgModalCodigo.Attributes.Add("src", $"data:image/gif;base64,{Base64Code}")
|
|
ImgModalCodigo.Width = Ancho
|
|
ImgModalCodigo.Height = Alto
|
|
LnkDescargaImagen.Enabled = True
|
|
LnkDescargaImpresion.Enabled = True
|
|
UpModalBotonesCodigos.Update()
|
|
Catch ex As Exception
|
|
ImgModalCodigo.Attributes.Add("src", "")
|
|
ImgModalCodigo.Width = Ancho
|
|
ImgModalCodigo.Height = Alto
|
|
LnkDescargaImagen.Enabled = False
|
|
LnkDescargaImpresion.Enabled = False
|
|
UpModalBotonesCodigos.Update()
|
|
End Try
|
|
|
|
UpModalUploadCodigoBarras.Update()
|
|
|
|
End Sub
|
|
Private Sub LnkDescargaImagen_Click(sender As Object, e As EventArgs) Handles LnkDescargaImagen.Click
|
|
|
|
Dim Alto As Integer = 150
|
|
Dim Ancho As Integer = 150
|
|
|
|
|
|
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
|
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
|
|
|
Try
|
|
Dim memoryStream As New System.IO.MemoryStream(GeneraCodigoQR(TxtCodigoBarrasModal.Text.Trim, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
|
Response.Clear()
|
|
Response.ContentType = "application/bmp"
|
|
Response.AddHeader("content-disposition", $"attachment;filename=code_{TxtCodigoBarrasModal.Text.Trim}.bmp")
|
|
Response.Buffer = True
|
|
memoryStream.WriteTo(Response.OutputStream)
|
|
Response.End()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
Private Sub DDLCodigoFormato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLCodigoFormato.SelectedIndexChanged
|
|
LnkDescargaImagen.Enabled = False
|
|
LnkDescargaImpresion.Enabled = False
|
|
UpModalBotonesCodigos.Update()
|
|
End Sub
|
|
Private Sub LnkDescargaImpresion_Click(sender As Object, e As EventArgs) Handles LnkDescargaImpresion.Click
|
|
Dim Alto As Integer = 150
|
|
Dim Ancho As Integer = 150
|
|
|
|
|
|
If TxtAlto.Text.ToEntero > 0 Then Alto = TxtAlto.Text.ToEntero
|
|
If TxtAncho.Text.ToEntero > 0 Then Ancho = TxtAncho.Text.ToEntero
|
|
|
|
Try
|
|
|
|
|
|
Dim Doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 10.0F, 10.0F, 100.0F, 0F)
|
|
Dim para As New iTextSharp.text.Paragraph
|
|
Dim memoryStreamDoc As New System.IO.MemoryStream
|
|
|
|
Dim gemBox As New clsGemBoxDocument()
|
|
|
|
gemBox.AgregarImagen(GeneraCodigoQR(TxtCodigoBarrasModal.Text.Trim, Alto, Ancho, 0, DDLCodigoFormato.SelectedValue))
|
|
gemBox.GuardarStreamPDF()
|
|
|
|
|
|
|
|
Dim memoryStream As New System.IO.MemoryStream(gemBox.GetBytesDocumento())
|
|
gemBox.Dispose()
|
|
Response.Clear()
|
|
Response.ContentType = "application/pdf"
|
|
Response.AddHeader("content-disposition", $"attachment;filename=code_{TxtCodigoBarrasModal.Text.Trim}.pdf")
|
|
Response.Buffer = True
|
|
memoryStream.WriteTo(Response.OutputStream)
|
|
Response.End()
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " AFInv "
|
|
Protected Sub BtnAFInv_Click(sender As Object, e As EventArgs)
|
|
|
|
If DdlAFInvPS.SelectedValue.ToEntero <= 0 Then
|
|
Alert("Seleccione un producto.")
|
|
Exit Sub
|
|
End If
|
|
Dim CveSeccionAlmacen As Integer = -1
|
|
AFInvSerie = ""
|
|
AFInvCvePS = -1
|
|
AFInvCveAlmacen = -1
|
|
|
|
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
|
|
If DrPS Is Nothing Then Exit Sub
|
|
|
|
Dim Inv_CveMetodoInventario As Integer = If(DrPS("AplicaSerie").ToString() = "True", 5, 1)
|
|
If CBool(DrPS("AplicaSeccion")) Then CveSeccionAlmacen = DdlSeccionAlmacen.SelectedValue.ToEntero
|
|
|
|
AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1")
|
|
|
|
|
|
Dim ObjInventario As New ClsInventarios
|
|
Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie)
|
|
Dim Costo As Decimal = 0
|
|
If Inv_CveMetodoInventario = 5 Then
|
|
Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
|
|
Else
|
|
Costo = ObjInventario.GetCostoPS(DdlAFInvPS.SelectedValue.ToEntero, 1, DdlAFInvAlmacen.SelectedValue.ToEntero, AFInvSerie, Now)
|
|
End If
|
|
|
|
ObjInventario.Dispose()
|
|
|
|
If Existencia <> 1 Then
|
|
AFInvSerie = ""
|
|
AFInvCvePS = -1
|
|
AFInvCveAlmacen = -1
|
|
|
|
Alert("No hay existencias suficientes del producto. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
|
Exit Sub
|
|
End If
|
|
|
|
TxtDescripcion.Text = DdlAFInvPS.SelectedText
|
|
TxtValorCompra.Text = Costo.FormatoNumero
|
|
TxtFechaCompra.Text = Now.ToShortDateString
|
|
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
|
|
|
|
TxtValorCompra.Enabled = False
|
|
TxtFechaCompra.Enabled = False
|
|
TxtNoSerie.Enabled = False
|
|
Calendario.Enabled = False
|
|
|
|
AFInvCvePS = DdlAFInvPS.SelectedValue.ToEntero
|
|
AFInvCveAlmacen = DdlAFInvAlmacen.SelectedValue.ToEntero
|
|
|
|
RegistraScript("$('#ModalAFInv').modal('hide')", "hide")
|
|
|
|
DivAFInvAdvertencia.Visible = True
|
|
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "AF GRUPOS"
|
|
Private Sub BtnAgregarGrupo_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupo.Click
|
|
TxtGrupoAF.Text = ""
|
|
CreaDT()
|
|
CargaGvGrupo()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddGrupo"))
|
|
End Sub
|
|
Private Sub CreaDT()
|
|
Dim DTGruposTemp As New DataTable
|
|
|
|
Dim column As DataColumn = New DataColumn("No")
|
|
column.DataType = Type.GetType("System.Int32")
|
|
With column
|
|
.AutoIncrement = True
|
|
.AutoIncrementSeed = 1
|
|
.AutoIncrementStep = 1
|
|
End With
|
|
|
|
DTGruposTemp.Columns.Add(column)
|
|
DTGruposTemp.Columns.Add("Grupo", GetType(String))
|
|
DTGruposTemp.Columns.Add("Estado", GetType(String))
|
|
DTGrupos = DTGruposTemp.Clone
|
|
End Sub
|
|
Private Sub CargaGvGrupo()
|
|
Dim ObjAF As New ClsAF
|
|
|
|
If ObjAF.GetGrupoAF(-1, UsuarioActual.CveEmpresa) Then
|
|
DTGrupos = ObjAF.DtResultados
|
|
GvGrupo.DataSource = DTGrupos
|
|
Else
|
|
GvGrupo.DataSource = Nothing
|
|
End If
|
|
GvGrupo.DataBind()
|
|
UpGvGrupo.Update()
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
Private Sub CargaDTGrupos(DtTemp As DataTable)
|
|
GvGrupo.DataSource = DtTemp
|
|
GvGrupo.DataBind()
|
|
|
|
UpGvGrupo.Update()
|
|
End Sub
|
|
Private Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
|
|
Dim registro As DataRow = DTGrupos.NewRow
|
|
|
|
registro.Item("No") = DTGrupos.Rows.Count + 1
|
|
registro.Item("Grupo") = TxtGrupoAF.Text.Trim
|
|
registro.Item("Estado") = "I"
|
|
DTGrupos.Rows.Add(registro)
|
|
CargaDTGrupos(DTGrupos.FiltraParametros("Estado <> 'D' "))
|
|
|
|
TxtGrupoAF.Text = ""
|
|
End Sub
|
|
Protected Sub GvGrupo_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvGrupo.RowEditing
|
|
GvGrupo.EditIndex = e.NewEditIndex
|
|
|
|
CargaDTGrupos(DTGrupos.FiltraParametros("Estado <> 'D' "))
|
|
End Sub
|
|
Protected Sub GvGrupo_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvGrupo.RowCancelingEdit
|
|
GvGrupo.EditIndex = -1
|
|
|
|
CargaDTGrupos(DTGrupos.FiltraParametros("Estado <> 'D' "))
|
|
End Sub
|
|
Protected Sub GvGrupo_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvGrupo.RowUpdating
|
|
|
|
Dim No As Integer = GvGrupo.Rows(e.RowIndex).DataKey("No").ToEntero
|
|
Dim Drs As DataRow() = DTGrupos.Select(String.Format("No = {0}", No))
|
|
|
|
If Drs.Count > 0 Then
|
|
If Drs(0)("CveGrupo").ToString.ToEntero > 0 Then
|
|
Drs(0)("Grupo") = GvGrupo.Rows(e.RowIndex).FCTextBox("TxtGrupo").Text.Trim
|
|
Drs(0)("Estado") = "U"
|
|
Else
|
|
Drs(0)("Grupo") = GvGrupo.Rows(e.RowIndex).FCTextBox("TxtGrupo").Text.Trim
|
|
Drs(0)("Estado") = "I"
|
|
End If
|
|
End If
|
|
|
|
DTGrupos.AcceptChanges()
|
|
GvGrupo.EditIndex = -1
|
|
|
|
CargaDTGrupos(DTGrupos.FiltraParametros("Estado <> 'D' "))
|
|
|
|
End Sub
|
|
Protected Sub DeleteRow(sender As Object, e As EventArgs)
|
|
Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
|
|
|
|
If DTGrupos.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
|
|
Dim i As Integer
|
|
i = lnkRemove.CommandArgument.ToString.ToEntero
|
|
Dim Drs As DataRow() = DTGrupos.Select(String.Format("No = {0}", i))
|
|
If Drs.Count > 0 Then
|
|
If Drs(0)("CveGrupo").ToString.ToEntero > 0 Then
|
|
Drs(0)("Estado") = "D"
|
|
Else
|
|
Drs(0).Delete()
|
|
End If
|
|
End If
|
|
DTGrupos.AcceptChanges()
|
|
End If
|
|
|
|
GvGrupo.EditIndex = -1
|
|
|
|
CargaDTGrupos(DTGrupos.FiltraParametros("Estado <> 'D' "))
|
|
End Sub
|
|
|
|
Private Sub BtnAgregarGrupoAF_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupoAF.Click
|
|
Dim ObjAF As New ClsAF
|
|
Dim CveGrupo As Integer
|
|
Dim TieneError = False
|
|
|
|
For Each Dr As DataRow In DTGrupos.Rows
|
|
|
|
If Dr("Estado").ToString = "I" Then
|
|
CveGrupo = ObjAF.AddGrupoAF(Dr("Grupo").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
|
|
If CveGrupo < 0 Then
|
|
TieneError = True
|
|
End If
|
|
|
|
ElseIf Dr("Estado").ToString = "U" Then
|
|
|
|
If Not ObjAF.UpdateGrupoAF(Dr("Grupo").ToString, True, Dr("CveGrupo").ToString.ToEntero) Then
|
|
TieneError = True
|
|
End If
|
|
ElseIf Dr("Estado").ToString = "D" Then
|
|
|
|
If Not ObjAF.RemoveGrupoAF(UsuarioActual.CveEmpresa, Dr("CveGrupo").ToString.ToEntero) Then
|
|
TieneError = True
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
If TieneError = False Then
|
|
Alert("Los Grupos se Guardaron correctamente", TipoMensaje.MsgInformacion)
|
|
CargaGrupos()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddGrupo"))
|
|
End If
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "AF MARCAR / MODELOS"
|
|
Private Sub DdlMarcas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMarcas.SelectedIndexChanged
|
|
CargaModelos(DdlMarcas.SelectedValue.ToEntero)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "AF PADRE E HIJOS"
|
|
Public Sub CargaAFPAdreEHijos()
|
|
CargaAFPadres()
|
|
CargaAFHijos()
|
|
End Sub
|
|
|
|
Public Sub CargaAFPadres()
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
|
|
|
|
DdlAFPadres.DataSource = ObjAF.DtResultados
|
|
DdlAFPadres.DataBind()
|
|
|
|
DdlAFPadres.Items.Remove(DdlAFPadres.Items.FindByValue(CveActivoFijo.ToString))
|
|
DdlAFPadres.Items.Insert(0, New ListItem("-", "-1"))
|
|
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Public Sub CargaAFHijos()
|
|
|
|
DivAFHijos.Visible = True
|
|
|
|
Dim ObjAF As New ClsAF()
|
|
|
|
If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, CveActivoFijo) Then
|
|
AFHijos = ObjAF.DtResultados
|
|
GvAFHijos.DataSource = AFHijos
|
|
GvAFHijos.DataBind()
|
|
End If
|
|
|
|
ObjAF.Dispose()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "G P S"
|
|
Protected Sub DdlDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
CargaUltimaPosicion(DdlDispositivo.SelectedValue.ToEntero)
|
|
End Sub
|
|
|
|
Private Sub CargaUltimaPosicion(CveDispositivo As Integer)
|
|
Dim ObjGPS As New ClsGPS
|
|
Dim SBJS As New StringBuilder
|
|
SBJS.Append("setTimeout(function(){initMapRastreo();")
|
|
|
|
Try
|
|
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = ""
|
|
If ObjGPS.UltimaPosicionEquipoGet($"{CveDispositivo};", CveClienteGPS) Then
|
|
If ObjGPS.DtResultados.Rows.Count > 0 Then
|
|
For Each row As DataRow In ObjGPS.DtResultados.Rows
|
|
Coord = SQLToGmaps(row("Posicion").ToString, "POINT")
|
|
Fecha = row("FechaTrama").ToString
|
|
Vehiculo = row("Vehiculo").ToString
|
|
Info = InfoWindowCombustible($" Vehículo: {Vehiculo}", $" No. Pasajeros: {row("Pasajeros").ToString}", row("CveDispositivo").ToString.ToEntero, row, UsuarioActual.TienePermisoProceso(200))
|
|
|
|
Dim Diferencia As Long = DateDiff(DateInterval.Minute, Fecha.ToDateTime(), FechaClienteGPS)
|
|
|
|
If Diferencia >= 30 AndAlso Diferencia < 120 Then
|
|
Icono = $"/Imagenes/rsz_11rsz_car_disconnected.png"
|
|
ElseIf Diferencia >= 120 Then
|
|
Icono = $"/Imagenes/rsz_11rsz_car_disable.png"
|
|
Else
|
|
If row("SPD").ToString.ToDouble > 1 Then
|
|
Icono = $"/Imagenes/{row("Icono").ToString}green.png"
|
|
Else
|
|
Icono = $"/Imagenes/{row("Icono").ToString}.png"
|
|
End If
|
|
End If
|
|
SBJS.Append($"CreaMarcadorWatch({Coord},'{row("NombreVehiculo")}', '{Info}', '{Icono}');")
|
|
Next
|
|
Else
|
|
Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString())
|
|
Finally
|
|
ObjGPS.Dispose()
|
|
SBJS.Append(" IniciarRastreoContinuo();},1000);")
|
|
RegistraScript(SBJS.ToString())
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function InfoWindowCombustible(Header As String, ExtraBody As String, CveDispositivo As Integer, row As DataRow, Optional PermisoComandos As Boolean = True) As String
|
|
Dim SBuilder As New StringBuilder
|
|
SBuilder.Clear()
|
|
SBuilder.Append($"<div>")
|
|
SBuilder.Append($"<div><h5><b>{Header}</b></h5></div>")
|
|
SBuilder.Append($"<div><table>")
|
|
Try
|
|
SBuilder.Append($"<tr><td>Fecha : {row("FechaTrama")} </td></tr>")
|
|
SBuilder.Append($"<tr><td>Conductor : {row("Conductor").ToString}</td></tr>")
|
|
If row.Table.Columns.Contains("Combustible") Then
|
|
SBuilder.Append($"<tr><td>Combustible : {IfNull(row("Combustible"), "NO DISPONIBLE", $"{row("Combustible").ToString.FormatoNumero} lts").ToString}</td></tr>")
|
|
End If
|
|
If row("SPD").ToString <> "-1" Then
|
|
SBuilder.Append($"<tr><td>Velocidad : {row("SPD").ToString} KM/H </td></tr>")
|
|
End If
|
|
If ExtraBody <> "" AndAlso ExtraBody <> "-1" Then
|
|
SBuilder.Append(ExtraBody)
|
|
End If
|
|
'If PermisoComandos Then
|
|
'SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo").ToString}\',{CveDispositivo});"">Comandos</a></td></tr>")
|
|
SBuilder.AppendFormat("<tr><td><a target=\'_blank\' href=\'https://www.google.com/maps/search/{0},{1}/\'>Ver en google maps</a></td></tr>", row("Lat").ToString, row("Lng").ToString)
|
|
'End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
SBuilder.Append($"</table></div><div></div></div>")
|
|
Return SBuilder.ToString
|
|
End Function
|
|
|
|
Protected Sub BtnConsultarHistorico_Click(sender As Object, e As EventArgs)
|
|
Dim ObjGPS As New ClsGPS
|
|
Try
|
|
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero
|
|
If ObjGPS.GetPosicionEquipo(CveDispositivo, TxtFechaIH.Text.ToDateTime(), TxtFechaFH.Text.ToDateTime()) Then
|
|
If ObjGPS.DtResultados.Rows.Count > 0 Then
|
|
Dim SBJS As New StringBuilder
|
|
|
|
Dim StrPolyPath As New StringBuilder
|
|
StrPolyPath.Append("[")
|
|
Dim POLYPATH As String = "["
|
|
Dim Contador = 0
|
|
Dim RowDispositivo As DataRow = GlobalDTDispositivosUsuarios(CveClienteGPS).FiltroPrimero($"CveDispositivo = {CveDispositivo}")
|
|
Dim CordenadaAnterior As String = ""
|
|
Dim Coord = "", Fecha = "", Vehiculo = "", Icono = "", Info As String = ""
|
|
SBJS.Append("initMapHistorico();")
|
|
|
|
For Each row As DataRow In ObjGPS.DtResultados.Rows
|
|
Contador += 1
|
|
Coord = SQLToGmaps(row("Posicion").ToString, "POINT")
|
|
Fecha = row("FechaTrama").ToString
|
|
Vehiculo = row("Vehiculo").ToString
|
|
|
|
Dim Velocidad As Double = row("SPD").ToString.ToDouble
|
|
|
|
If Contador = ObjGPS.DtResultados.Rows.Count Then
|
|
Info = InfoWindowCombustible($" Vehículo: {Vehiculo}", "-1", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))
|
|
|
|
If Velocidad > 1 Then
|
|
Icono = $"/Imagenes/{RowDispositivo("Icono")}green.png"
|
|
Else
|
|
Icono = $"/Imagenes/{RowDispositivo("Icono")}.png"
|
|
End If
|
|
StrPolyPath.AppendFormat("{0}]", Coord)
|
|
|
|
SBJS.Append($"creaPolyline({StrPolyPath.ToString}, '{RowDispositivo("ColorTrazo")}', '{Info}', {Coord}, '{Vehiculo}', '{Icono}',{CveDispositivo})")
|
|
Else
|
|
Info = InfoWindowCombustible($" Vehículo: {Vehiculo}", "-1", CveDispositivo, row, UsuarioActual.TienePermisoProceso(200))
|
|
|
|
If Velocidad > 1 Then
|
|
Icono = $"/Imagenes/{RowDispositivo("Icono")}green.png"
|
|
Else
|
|
Icono = $"/Imagenes/{RowDispositivo("Icono")}.png"
|
|
End If
|
|
|
|
StrPolyPath.AppendFormat("{0},", Coord)
|
|
|
|
'If ObjGPS.DtResultados.Rows.Count < 1500 Then
|
|
' SBJS.Append($"CreaMarcadorHistorico({Coord},'{Vehiculo}', '{Info}', 0, '{Icono}');")
|
|
'End If
|
|
|
|
End If
|
|
CordenadaAnterior = Coord
|
|
Next
|
|
HdnHistorico.Value = SBJS.ToString
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString)
|
|
End Try
|
|
ObjGPS.Dispose()
|
|
UpHistorico.Update()
|
|
RegistraScript("consultaHistorico();")
|
|
End Sub
|
|
|
|
Private Sub CargaDatosCombustible()
|
|
'LtlUnidad.Text = DdlDispositivo.SelectedItem.Text
|
|
Dim CveDispositivo = DdlDispositivo.SelectedValue.ToEntero()
|
|
Dim FechaI = TxtFechaIC.Text.ToDateTime
|
|
Dim FechaF = TxtFechaFC.Text.ToDateTime
|
|
'UpReportes.Update()
|
|
Dim GPS As New ClsGPS
|
|
If GPS.RepCombustibleGet(DdlDispositivo.SelectedValue.ToEntero(), FechaI, FechaF) AndAlso GPS.DtResultados.Rows.Count > 0 Then
|
|
Dim Arow As DataRow = GPS.DtResultados.Rows(0)
|
|
Dim TotalKilometros As Decimal = (Arow("Distancia").ToString().ToDecimal()) / 1000
|
|
Dim CombustibleConsumido As Decimal = ((Arow("CombustibleInicial").ToString().ToDecimal() + Arow("SumaCargas").ToString().ToDecimal()) - Arow("CombustibleFinal").ToString().ToDecimal())
|
|
Dim RendBruto As Decimal = If(CombustibleConsumido > 0, TotalKilometros / CombustibleConsumido, 0) '2.8
|
|
Dim CostoCombustible As Decimal = GlobalDTDispositivos(-1).FiltroPrimeroValor("CostoCombustible", $"CveDispositivo = {DdlDispositivo.SelectedValue}").ToDecimal
|
|
LtlDistancia.Text = TotalKilometros.ToString().FormatoNumero()
|
|
lblVelocidad.Text = $"{GPS.DtResultados.Rows(0)("VelocidadMaxima").ToString().FormatoNumero()}"
|
|
lblRendBruto.Text = $"{RendBruto.ToString().FormatoNumero()}"
|
|
LtlCombustibleConsumido.Text = CombustibleConsumido.ToString().FormatoNumero()
|
|
LtlCombustibleInicial.Text = $"{Arow("CombustibleInicial").ToString().ToDecimal():N2}"
|
|
LtlCombustibleFinal.Text = GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().FormatoNumero()
|
|
LtlNoCargas.Text = $"{Arow("Cargas").ToString().ToDecimal():N2}"
|
|
LtlNoDescargas.Text = $"{Arow("Descargas").ToString().ToDecimal():N2}"
|
|
SumaCargas.Text = $"{Arow("SumaCargas").ToString().ToDecimal():N2}"
|
|
LtlCostoCargas.Text = $"{Arow("SumaCargas").ToString().ToDecimal() * CostoCombustible:N2}"
|
|
SumaDescargas.Text = $"{Arow("SumaDescargas").ToString().ToDecimal():N2}"
|
|
LtlCostoDescargas.Text = $"{Arow("SumaDescargas").ToString().ToDecimal() * CostoCombustible:N2}"
|
|
LtlDistanciaR.Text = TotalKilometros.ToString().FormatoNumero()
|
|
lCombustibleConsumido.Text = $"{(CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()):N2}"
|
|
LtlCostoConsumo.Text = $"${((CombustibleConsumido - Arow("SumaDescargas").ToString().ToDecimal()) * CostoCombustible).ToString().FormatoNumero()}"
|
|
LtlCostoCombustibleF.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleFinal").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}"
|
|
LtlCostoInicial.Text = $"${(GPS.DtResultados.Rows(0)("CombustibleInicial").ToString().ToDecimal * CostoCombustible).ToString().FormatoNumero()}"
|
|
lblMuerto.Text = $"{((DateDiff(DateInterval.Minute, FechaI, FechaF).ToString().ToLong - GPS.DtResultados.Rows(0)("Horas").ToString().ToLong) / 60).ToString().FormatoNumero()} Hrs."
|
|
lblMovimiento.Text = $"{(GPS.DtResultados.Rows(0)("Horas").ToString().ToDecimal / 60).ToString().FormatoNumero()} Hrs"
|
|
LtlRalenti.Text = $"{GPS.DtResultados.Rows(0)("TiempoRalentiHoras").ToString().FormatoNumero()} Hrs. ({GPS.DtResultados.Rows(0)("TiempoRalentiMinutos").ToString()} Minutos)"
|
|
CargaHistoricoCombustible(GPS)
|
|
DvReporte.Visible = True
|
|
'lblRendEfectivo.Text = $"{(RendBruto + 1).ToString().FormatoNumero()} KM/L"
|
|
End If
|
|
GPS.Dispose()
|
|
UpReporte.Update()
|
|
UpDash.Update()
|
|
UPTabla.Update()
|
|
' bodyreportes.Visible = True
|
|
' UpReportes.Update()
|
|
End Sub
|
|
Private Sub CargaHistoricoCombustible(ByRef GPS As ClsGPS)
|
|
|
|
If GPS.GetCombustibleHistorico(DdlDispositivo.SelectedValue.ToEntero(), TxtFechaIC.Text.ToDateTime, TxtFechaFC.Text.ToDateTime) Then
|
|
Dim json As New StringBuilder
|
|
json.Append("data=[")
|
|
Dim color As String = ""
|
|
Dim encencido As Integer = -1
|
|
Dim encencidoC As Integer = -1
|
|
For Each gvrow As DataRow In GPS.DtResultados.Rows
|
|
encencidoC = gvrow("Encendido").ToString().ToEntero()
|
|
If encencido <> encencidoC Then
|
|
If encencidoC = 1 Then
|
|
color = ",lineColor:""#2498d2"""
|
|
Else
|
|
color = ",lineColor:""#F3565D"""
|
|
End If
|
|
Else
|
|
color = ""
|
|
End If
|
|
encencido = encencidoC
|
|
json.Append($",{{date: stringtodate(""{DirectCast(gvrow("FechaTrama"), DateTime).ToString("yyyy-MM-dd HH:mm:ss")}""), value: {gvrow("Valor").ToString().ToDecimal()} {color}}}")
|
|
Next
|
|
json.Append(" ]")
|
|
json.Remove(6, 1)
|
|
HdfVGrafica.Value = json.ToString()
|
|
RegistraScript($"CargaGraficaCombustible()")
|
|
End If
|
|
End Sub
|
|
Protected Sub lbCargas_Click(sender As Object, e As EventArgs) Handles lbCargas.Click
|
|
LtlTituloCD.Text = "Desglose de cargas de combustible"
|
|
Dim GPS As New ClsGPS
|
|
If GPS.GetCargasDescargas(DdlDispositivo.SelectedValue.ToEntero, TxtFechaIC.Text.ToDateTime, TxtFechaFC.Text.ToDateTime, 69) Then
|
|
GVHistorico.DataSource = GPS.DtResultados
|
|
DTCargas = GPS.DtResultados
|
|
Else
|
|
GVHistorico.DataSource = Nothing
|
|
End If
|
|
GPS.Dispose()
|
|
GVHistorico.DataBind()
|
|
UpdatePanel3.Update()
|
|
UpHistorico.Update()
|
|
RegistraScript("$('#dvHistorico').modal()")
|
|
End Sub
|
|
|
|
Protected Sub lbDesCargas_Click(sender As Object, e As EventArgs) Handles lbDescargas.Click
|
|
LtlTituloCD.Text = "Desglose de descargas de combustible"
|
|
Dim GPS As New ClsGPS
|
|
If GPS.GetCargasDescargas(DdlDispositivo.SelectedValue.ToEntero, TxtFechaIC.Text.ToDateTime, TxtFechaFC.Text.ToDateTime, 74) Then
|
|
GVHistorico.DataSource = GPS.DtResultados
|
|
DTDescargas = GPS.DtResultados
|
|
Else
|
|
GVHistorico.DataSource = Nothing
|
|
End If
|
|
GPS.Dispose()
|
|
GVHistorico.DataBind()
|
|
UpdatePanel3.Update()
|
|
UpHistorico.Update()
|
|
RegistraScript("$('#dvHistorico').modal()")
|
|
End Sub
|
|
|
|
Protected Sub GVHistorico_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVHistorico.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim RowID As String = $"row{e.Row.RowIndex}"
|
|
e.Row.Attributes("id") = RowID
|
|
End If
|
|
End Sub
|
|
Protected Sub BtnConsultarCombistible_Click(sender As Object, e As EventArgs)
|
|
CargaDatosCombustible()
|
|
End Sub
|
|
Protected Sub BtnConsultarDriving_Click(sender As Object, e As EventArgs)
|
|
Dim ObjGPS As New ClsGPS
|
|
Try
|
|
If ObjGPS.GetRepDrivingAF(DdlDispositivo.SelectedValue.ToEntero, TxtFechaID.Text.ToDateTime(), TxtFechaFD.Text.ToDateTime()) Then
|
|
GvIgnicion.DataSource = ObjGPS.DtSetResultados.Tables(0)
|
|
GvIgnicion.DataBind()
|
|
|
|
GvExcesos.DataSource = ObjGPS.DtSetResultados.Tables(1)
|
|
GvExcesos.DataBind()
|
|
|
|
GvRalenti.DataSource = ObjGPS.DtSetResultados.Tables(2)
|
|
GvRalenti.DataBind()
|
|
|
|
GvEventos.DataSource = ObjGPS.DtSetResultados.Tables(3)
|
|
GvEventos.DataBind()
|
|
End If
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString())
|
|
End Try
|
|
ObjGPS.Dispose()
|
|
UpDriving.Update()
|
|
End Sub
|
|
Protected Sub BtnConsultarGeoReferencia_Click(sender As Object, e As EventArgs)
|
|
Dim LastCoord As String = ""
|
|
Dim DtPosiciones As New DataTable
|
|
Dim Info = ""
|
|
Dim SBBody As New StringBuilder
|
|
Dim Icono As String = "/Imagenes/rsz_11rsz_car.png"
|
|
Dim CoordsPoligono As JArray
|
|
Dim Coords As JObject
|
|
Dim Titulo = ""
|
|
Dim COUNT = 0
|
|
Dim FechaI = If(TxtFechaIG.Text.Trim = "", MinFecha, TxtFechaIG.Text.Trim.ToDate)
|
|
Dim FechaF = If(TxtFechaFG.Text.Trim = "", MaxFecha, TxtFechaFG.Text.Trim.ToDate)
|
|
Dim CveDispositivo As Integer = DdlDispositivo.SelectedValue.ToEntero
|
|
Dim SBJS As New StringBuilder
|
|
Dim ArrayGeocercas As New JArray
|
|
Dim ArryaCoords As New JArray
|
|
|
|
Dim GPS As New ClsGPS
|
|
Try
|
|
Dim DtGeoReferencias As DataTable = Nothing
|
|
If GPS.GetReferenciaDetalle(-1, -1, CveDispositivo, CveClienteGPS) Then
|
|
DtGeoReferencias = GPS.DtResultados.FiltraParametros("Estatus = 1 AND Tipo = 'Geocerca'")
|
|
End If
|
|
If DtGeoReferencias IsNot Nothing Then
|
|
SBJS.Append("setTimeout(function(){initMapGeo();")
|
|
|
|
For Each Row As DataRow In DtGeoReferencias.Rows
|
|
CoordsPoligono = SQLToGmapsJArray(Row("Coordenadas").ToString, "POLYGON")
|
|
ArrayGeocercas.Add(New JObject(
|
|
New JProperty("Nombre", Row("GeoReferencia").ToString),
|
|
New JProperty("Coordenadas", CoordsPoligono),
|
|
New JProperty("Color", Row("Color").ToString)
|
|
))
|
|
'SBJS.Append($" creaPoligono([{CoordsPoligono}], '{Row("Color").ToString}'); ")
|
|
Next
|
|
|
|
|
|
|
|
SBJS.Append("creaPolygonosGeocercas();")
|
|
If GPS.GetRepEntradasSalidas(CveDispositivo, FechaI, FechaF) Then
|
|
If GPS.DtResultados.Rows.Count > 0 Then
|
|
For Each Row As DataRow In GPS.DtResultados.Rows
|
|
Coords = JObject.Parse(SQLToGmapsJArray(Row("Posicion").ToString, "POINT")(0).ToString())
|
|
Info = InfoWindowCombustible(Row("Evento").ToString, If(Row("Pasajeros").ToString = "", $"<tr><td>Vehículo: {DdlDispositivo.SelectedItem.Text}</td></tr>", $"<tr><td>Vehículo: {DdlDispositivo.SelectedItem.Text}</td></tr><tr><td>Pasajeros: {Row("Pasajeros").ToString}</td></tr>"), CveDispositivo, Row)
|
|
|
|
ArryaCoords.Add(New JObject(
|
|
New JProperty("Coords", Coords),
|
|
New JProperty("Vehiculo", DdlDispositivo.SelectedItem.Text),
|
|
New JProperty("Info", Info),
|
|
New JProperty("Icono", Icono)
|
|
))
|
|
|
|
'SBJS.Append($" CreaMarcadorGeo({Coords},'{DdlDispositivo.SelectedItem.Text}', '{Info}', '{Icono}'); ")
|
|
Next
|
|
End If
|
|
End If
|
|
Dim JsonData As New JObject(
|
|
New JProperty("Geocercas", ArrayGeocercas),
|
|
New JProperty("Puntos", ArryaCoords)
|
|
)
|
|
HdnGeocercas.Value = JsonData.ToString()
|
|
End If
|
|
Catch ex As Exception
|
|
GuardaLog(ex.ToString)
|
|
Finally
|
|
GPS.Dispose()
|
|
SBJS.Append("},1000);")
|
|
UpGeocercas.Update()
|
|
RegistraScript(SBJS.ToString())
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
Protected Sub DdlAFInvPS_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
|
|
If drr IsNot Nothing Then
|
|
DivSerie.Visible = CBool(drr("AplicaSerie"))
|
|
DivSeccion.Visible = CBool(drr("AplicaSeccion"))
|
|
DdlSeccionAlmacen.Items.Clear()
|
|
If CBool(drr("AplicaSeccion")) Then
|
|
CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
|
|
'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, DdlAFInvPS.SelectedValue.ToEntero)
|
|
'DdlSeccionAlmacen.DataSource = dtt
|
|
'DdlSeccionAlmacen.DataBind()
|
|
|
|
'dtt.Dispose()
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs)
|
|
Imprime()
|
|
End Sub
|
|
Protected Sub BtnExcelCompras_Click(sender As Object, e As EventArgs)
|
|
Imprime("Excel")
|
|
'Dim dt As New DataTable
|
|
'dt.Columns.Add("Factura", GetType(String))
|
|
'dt.Columns.Add("Fecha", GetType(String))
|
|
'dt.Columns.Add("Cantidad", GetType(Double))
|
|
'dt.Columns.Add("UM", GetType(String))
|
|
'dt.Columns.Add("Clasificación", GetType(String))
|
|
'dt.Columns.Add("Producto o Servicio", GetType(String))
|
|
'dt.Columns.Add("Total", GetType(Double))
|
|
'dt.Columns.Add("Moneda", GetType(String))
|
|
'dt.Columns.Add("Proveedor", GetType(String))
|
|
|
|
'For Each Gv As GridViewRow In GVHistorial.Rows
|
|
' Dim Row As DataRow = Nothing
|
|
' Row = dt.NewRow()
|
|
' Row("Factura") = Gv.FCHyperLink("LtlFactura").Text
|
|
' Row("Fecha") = Gv.FCLiteral("LtlFecha").Text
|
|
' Row("Cantidad") = Gv.FCLiteral("LtlCantidad").Text.ToDouble
|
|
' Row("UM") = Gv.FCLiteral("LtlUM").Text
|
|
' Row("Clasificación") = Gv.FCLiteral("LtlIVA").Text
|
|
' Row("Producto o Servicio") = Gv.FCLiteral("LtlPS").Text
|
|
' Row("Total") = Gv.FCLiteral("LtlTotal").Text.ToDouble
|
|
' Row("Moneda") = Gv.FCLiteral("LtlMoneda").Text
|
|
' Row("Proveedor") = Gv.FCHyperLink("LtlProveedor").Text
|
|
' dt.Rows.Add(Row)
|
|
'Next
|
|
'ExportToExcel(dt, "Compras e Insumos")
|
|
End Sub
|
|
Private Sub Imprime(Optional Formato As String = "PDF")
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepComprasInsumos.rdlc", DTCompras, params, "RepComprasInsumos", Formato)
|
|
|
|
End Sub
|
|
End Class |