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

-- seccion en importacion de AF

Browse Source
This commit is contained in:
rrene
2020-07-25 15:56:45 -07:00
parent f14aa26df1
commit 98e5d27aea
2 changed files with 302 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
AF/AF.aspx
View File

@@ -2903,6 +2903,16 @@
<ajax:ValidatorCalloutExtender ID="VCEAFInvSerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEAFInvSerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div id="DivSeccion" runat="server" visible="false" class="row">
<div class="col-md-2">Sección:</div>
<div class="col-md-10">
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidator9" runat="server" ControlToValidate="TxtAFInvSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor seleccione uno." InitialValue="" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender27" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:Button Text="Cargar Producto" ID="BtnAFInv" CssClass="btn btn-primary" ValidationGroup="GrpAFInv" OnClick="BtnAFInv_Click" runat="server" /> <asp:Button Text="Cargar Producto" ID="BtnAFInv" CssClass="btn btn-primary" ValidationGroup="GrpAFInv" OnClick="BtnAFInv_Click" runat="server" />

566
AF/AF.aspx.vb
View File

@@ -2,17 +2,16 @@
Option Strict On Option Strict On
Imports Extensiones Imports Extensiones
Imports System.Runtime.InteropServices
Imports System.IO Imports System.IO
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports ZXing Imports ZXing
Imports Newtonsoft.Json.Linq Imports Newtonsoft.Json.Linq
Partial Class AF_AF Partial Class AF_AF
Inherits ClsPaginas Inherits ClsPaginas
'Configuración 'Configuración
#Region "PROPIEDADES" #Region "PROPIEDADES"
Private Property CveActivoFijo As Integer Private Property CveActivoFijo As Integer
Get Get
@@ -170,11 +169,11 @@ Partial Class AF_AF
Set(value As DataTable) Set(value As DataTable)
ViewState("DTCompras") = value ViewState("DTCompras") = value
End Set End Set
End Property End Property
#Region "CLASIFICACIONES" #Region "CLASIFICACIONES"
Private Property DTAFCaracteristicas As DataTable Private Property DTAFCaracteristicas As DataTable
Get Get
Return CType(ViewState("DTAFCaracteristicas"), DataTable) Return CType(ViewState("DTAFCaracteristicas"), DataTable)
@@ -191,10 +190,10 @@ Partial Class AF_AF
Set(value As Integer) Set(value As Integer)
ViewState("CveCaracteristica") = value ViewState("CveCaracteristica") = value
End Set End Set
End Property End Property
#End Region #End Region
#Region "G P S" #Region "G P S"
Public Property CveClienteGPS As Integer Public Property CveClienteGPS As Integer
Get Get
@@ -234,12 +233,12 @@ Partial Class AF_AF
Set(value As DataTable) Set(value As DataTable)
ViewState("DTDescargas") = value ViewState("DTDescargas") = value
End Set End Set
End Property End Property
#End Region #End Region
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
@@ -364,9 +363,9 @@ Partial Class AF_AF
AFInvSerie = "" AFInvSerie = ""
CveEmpresaActual = UsuarioActual.CveEmpresa CveEmpresaActual = UsuarioActual.CveEmpresa
End Sub End Sub
#Region " CARGA COMBOS " #Region " CARGA COMBOS "
Private Sub CargaCombos() Private Sub CargaCombos()
CargaTipoActivoFijo() CargaTipoActivoFijo()
@@ -528,7 +527,7 @@ Partial Class AF_AF
Private Sub CargaAFInv() Private Sub CargaAFInv()
If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then
HLAFInv.Visible= True HLAFInv.Visible = True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)" Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes) DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
@@ -554,9 +553,9 @@ Partial Class AF_AF
DdlModelos.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, CveMarca) DdlModelos.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, CveMarca)
DdlModelos.DataBind() DdlModelos.DataBind()
DdlModelos.Items.Insert(0, New ListItem("-", "-1")) DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
End Sub End Sub
#End Region #End Region
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjActivoFijo As New ClsAF() Dim ObjActivoFijo As New ClsAF()
@@ -690,8 +689,8 @@ Partial Class AF_AF
End If End If
End If End If
ObjActivoFijo.Dispose() ObjActivoFijo.Dispose()
End Sub End Sub
#Region "P L A C A S" #Region "P L A C A S"
Public Sub CargaPlacas() Public Sub CargaPlacas()
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
@@ -804,9 +803,9 @@ Partial Class AF_AF
End If End If
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "L I C E N C I A S" #Region "L I C E N C I A S"
Public Sub CargaLicencias() Public Sub CargaLicencias()
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
@@ -947,9 +946,9 @@ Partial Class AF_AF
End If End If
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "S E G U R O S" #Region "S E G U R O S"
Public Sub CargaSeguros() Public Sub CargaSeguros()
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
@@ -1046,11 +1045,11 @@ Partial Class AF_AF
CargaSeguros() CargaSeguros()
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "S E R V I C I O S - M A N T E M I E N T O" #Region "S E R V I C I O S - M A N T E M I E N T O"
Public Sub CargaServicios() Public Sub CargaServicios()
Dim TmpServicios As New DataTable Dim TmpServicios As New DataTable
@@ -1076,9 +1075,9 @@ Partial Class AF_AF
GvServiciosMant.DataSource = TmpServicios GvServiciosMant.DataSource = TmpServicios
GvServiciosMant.DataBind() GvServiciosMant.DataBind()
End Sub End Sub
#End Region #End Region
#Region "F A L L A S" #Region "F A L L A S"
Public Sub CargaTipoFallas() Public Sub CargaTipoFallas()
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
@@ -1286,9 +1285,9 @@ Partial Class AF_AF
OnError("Ocurrió error al mandar MAIL", ex) OnError("Ocurrió error al mandar MAIL", ex)
End Try End Try
End Sub End Sub
#End Region #End Region
#Region "A C C I D E N T E S " #Region "A C C I D E N T E S "
Public Sub CargaAccidentes() Public Sub CargaAccidentes()
Dim ObjAF As New ClsAF() Dim ObjAF As New ClsAF()
@@ -1472,9 +1471,9 @@ Partial Class AF_AF
OnError("Ocurrió error al mandar MAIL", ex) OnError("Ocurrió error al mandar MAIL", ex)
End Try End Try
End Sub End Sub
#End Region #End Region
#Region "A C T I V I D A D E S " #Region "A C T I V I D A D E S "
Private Sub CargaDdlActividades() Private Sub CargaDdlActividades()
DdlActividad.DataSource = GlobalDTMFActividad(UsuarioActual.CveEmpresa, 1) DdlActividad.DataSource = GlobalDTMFActividad(UsuarioActual.CveEmpresa, 1)
@@ -1608,10 +1607,10 @@ Partial Class AF_AF
e.Row.Cells(5).Text = "Horómetro Final" e.Row.Cells(5).Text = "Horómetro Final"
End If End If
End If End If
End Sub End Sub
#End Region #End Region
#Region "P R O G R A M A C I Ó N - D E - E V E N T O S" #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 Private Sub LnkAddEvento_Click(sender As Object, e As EventArgs) Handles LnkAddEvento.Click
TxtAsuntoEvento.Text = "" TxtAsuntoEvento.Text = ""
@@ -1665,81 +1664,81 @@ Partial Class AF_AF
End If End If
ObjEventos.Dispose() ObjEventos.Dispose()
End Sub End Sub
#End Region #End Region
#Region " R E S G U A R D O S" #Region " R E S G U A R D O S"
'#Region "Ordenamiento" '#Region "Ordenamiento"
' Protected Sub LbNombre_Click(sender As Object, e As System.EventArgs) Handles LbNombre.Click, ImgNombre.Click ' Protected Sub LbNombre_Click(sender As Object, e As System.EventArgs) Handles LbNombre.Click, ImgNombre.Click
' If ViewState("ONombre").ToString() = "Nombre DESC" Then ' If ViewState("ONombre").ToString() = "Nombre DESC" Then
' ViewState("ONombre") = "Nombre ASC" ' ViewState("ONombre") = "Nombre ASC"
' ImgNombre.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgNombre.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("ONombre") = "Nombre DESC" ' ViewState("ONombre") = "Nombre DESC"
' ImgNombre.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgNombre.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("ONombre") ' ViewState("Orden") = ViewState("ONombre")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
' Protected Sub LbFechaInicio_Click(sender As Object, e As System.EventArgs) Handles LbFechaInicio.Click, ImgFechaInicio.Click ' Protected Sub LbFechaInicio_Click(sender As Object, e As System.EventArgs) Handles LbFechaInicio.Click, ImgFechaInicio.Click
' If ViewState("OFechaInicio").ToString() = "FechaInicio DESC" Then ' If ViewState("OFechaInicio").ToString() = "FechaInicio DESC" Then
' ViewState("OFechaInicio") = "FechaInicio ASC" ' ViewState("OFechaInicio") = "FechaInicio ASC"
' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("OFechaInicio") = "FechaInicio DESC" ' ViewState("OFechaInicio") = "FechaInicio DESC"
' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgFechaInicio.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("OFechaInicio") ' ViewState("Orden") = ViewState("OFechaInicio")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
' Protected Sub LbFechaFin_Click(sender As Object, e As System.EventArgs) Handles LbFechaFin.Click, ImgFechaFin.Click ' Protected Sub LbFechaFin_Click(sender As Object, e As System.EventArgs) Handles LbFechaFin.Click, ImgFechaFin.Click
' If ViewState("OFechaFin").ToString() = "FechaFin DESC" Then ' If ViewState("OFechaFin").ToString() = "FechaFin DESC" Then
' ViewState("OFechaFin") = "FechaFin ASC" ' ViewState("OFechaFin") = "FechaFin ASC"
' ImgFechaFin.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgFechaFin.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("OFechaFin") = "FechaFin DESC" ' ViewState("OFechaFin") = "FechaFin DESC"
' ImgFechaFin.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgFechaFin.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("OFechaFin") ' ViewState("Orden") = ViewState("OFechaFin")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
' Protected Sub LbObservaciones_Click(sender As Object, e As System.EventArgs) Handles LbObservaciones.Click, ImgObservaciones.Click ' Protected Sub LbObservaciones_Click(sender As Object, e As System.EventArgs) Handles LbObservaciones.Click, ImgObservaciones.Click
' If ViewState("OObservaciones").ToString() = "Observaciones DESC" Then ' If ViewState("OObservaciones").ToString() = "Observaciones DESC" Then
' ViewState("OObservaciones") = "Observaciones ASC" ' ViewState("OObservaciones") = "Observaciones ASC"
' ImgObservaciones.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgObservaciones.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("OObservaciones") = "Observaciones DESC" ' ViewState("OObservaciones") = "Observaciones DESC"
' ImgObservaciones.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgObservaciones.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("OObservaciones") ' ViewState("Orden") = ViewState("OObservaciones")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
' Protected Sub LbURL_Click(sender As Object, e As System.EventArgs) Handles LbURL.Click, ImgURL.Click ' Protected Sub LbURL_Click(sender As Object, e As System.EventArgs) Handles LbURL.Click, ImgURL.Click
' If ViewState("OURL").ToString() = "URL DESC" Then ' If ViewState("OURL").ToString() = "URL DESC" Then
' ViewState("OURL") = "URL ASC" ' ViewState("OURL") = "URL ASC"
' ImgURL.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgURL.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("OURL") = "URL DESC" ' ViewState("OURL") = "URL DESC"
' ImgURL.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgURL.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("OURL") ' ViewState("Orden") = ViewState("OURL")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
' Protected Sub LbUsuario_Click(sender As Object, e As System.EventArgs) Handles LbUsuario.Click, ImgUsuario.Click ' Protected Sub LbUsuario_Click(sender As Object, e As System.EventArgs) Handles LbUsuario.Click, ImgUsuario.Click
' If ViewState("OUsuario").ToString() = "Usuario DESC" Then ' If ViewState("OUsuario").ToString() = "Usuario DESC" Then
' ViewState("OUsuario") = "Usuario ASC" ' ViewState("OUsuario") = "Usuario ASC"
' ImgUsuario.ImageUrl = "/Imagenes/FlechasArriba.gif" ' ImgUsuario.ImageUrl = "/Imagenes/FlechasArriba.gif"
' Else ' Else
' ViewState("OUsuario") = "Usuario DESC" ' ViewState("OUsuario") = "Usuario DESC"
' ImgUsuario.ImageUrl = "/Imagenes/FlechasAbajo.gif" ' ImgUsuario.ImageUrl = "/Imagenes/FlechasAbajo.gif"
' End If ' End If
' ViewState("Orden") = ViewState("OUsuario") ' ViewState("Orden") = ViewState("OUsuario")
' CargaGrid(ViewState("Orden").ToString()) ' CargaGrid(ViewState("Orden").ToString())
' End Sub ' End Sub
'#End Region '#End Region
Private Sub CargaResguardos() Private Sub CargaResguardos()
Dim ObjResguardos As New ClsAF Dim ObjResguardos As New ClsAF
If ObjResguardos.GetActivosFijosResguardos(CveActivoFijo, -1, -1, -1) Then If ObjResguardos.GetActivosFijosResguardos(CveActivoFijo, -1, -1, -1) Then
@@ -2054,9 +2053,9 @@ Partial Class AF_AF
ObjActivoFijo.Dispose() ObjActivoFijo.Dispose()
End If End If
End Sub End Sub
#End Region #End Region
Private Sub CargarArchivo() Private Sub CargarArchivo()
Dim StrBuilder As New StringBuilder Dim StrBuilder As New StringBuilder
Dim TmpDT As DataTable = Nothing Dim TmpDT As DataTable = Nothing
@@ -2205,10 +2204,10 @@ Partial Class AF_AF
Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""") Alert("El Activo Fijo se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/AF/CatAF.aspx""")
End If End If
ObjActivoFijo.Dispose() ObjActivoFijo.Dispose()
End Sub End Sub
#Region "CLASIFICACIONES CARACTERISTICAS" #Region "CLASIFICACIONES CARACTERISTICAS"
Protected Sub GvCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvC.RowDataBound Protected Sub GvCaracteristicas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvC.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If CaracClasif <> e.Row.DBCampo("CaracteristicaClasificacion") OrElse e.Row.RowIndex = 0 Then If CaracClasif <> e.Row.DBCampo("CaracteristicaClasificacion") OrElse e.Row.RowIndex = 0 Then
@@ -2313,125 +2312,125 @@ Partial Class AF_AF
ObjAFCaracteristicas.Dispose() ObjAFCaracteristicas.Dispose()
GvC.DataBind() GvC.DataBind()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
'Protected Sub GuardaValores() 'Protected Sub GuardaValores()
' Dim ObjActivoFijo As New ClsAF ' Dim ObjActivoFijo As New ClsAF
' For Each DR As GridViewRow In GvC.Rows ' For Each DR As GridViewRow In GvC.Rows
' Dim CveCaracteristicaOpcion As Integer = -1 ' Dim CveCaracteristicaOpcion As Integer = -1
' Dim CveValor As Integer = DR.FCHiddenField("HdnCveValor").Value.ToEntero ' Dim CveValor As Integer = DR.FCHiddenField("HdnCveValor").Value.ToEntero
' Dim Valor As String = DR.FCTextBox("TxtValor").Text.Trim ' Dim Valor As String = DR.FCTextBox("TxtValor").Text.Trim
' Dim CveCaracteristica As Integer = DR.FCHiddenField("HdnCveCaracteristica").Value.ToEntero ' Dim CveCaracteristica As Integer = DR.FCHiddenField("HdnCveCaracteristica").Value.ToEntero
' Select Case DR.FCHiddenField("HdnEsOpcion").Value ' Select Case DR.FCHiddenField("HdnEsOpcion").Value
' Case "1" 'Listado o DropDownList ' Case "1" 'Listado o DropDownList
' CveCaracteristicaOpcion = DR.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero ' CveCaracteristicaOpcion = DR.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
' Case "2" 'Radio o RadioButtonList ' Case "2" 'Radio o RadioButtonList
' CveCaracteristicaOpcion = DR.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero ' CveCaracteristicaOpcion = DR.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
' Case "5" ' Case "5"
' Valor = DR.FCCheckBox("ChbValor").Checked.ToString ' Valor = DR.FCCheckBox("ChbValor").Checked.ToString
' Case "6" 'Numerico ' Case "6" 'Numerico
' Valor = DR.FCTextBox("TxtValorNum").Text.Trim ' Valor = DR.FCTextBox("TxtValorNum").Text.Trim
' End Select ' End Select
' ObjActivoFijo.AddUpdActivosFijosValores(CveActivoFijo, CveCaracteristica, CveCaracteristicaOpcion, If(Valor = "", "-1", Valor), UsuarioActual.CveUsuario) ' ObjActivoFijo.AddUpdActivosFijosValores(CveActivoFijo, CveCaracteristica, CveCaracteristicaOpcion, If(Valor = "", "-1", Valor), UsuarioActual.CveUsuario)
' Next ' Next
' GVHistModificaciones.DataSource = ObjActivoFijo.DtResultados ' GVHistModificaciones.DataSource = ObjActivoFijo.DtResultados
' GVHistModificaciones.DataBind() ' GVHistModificaciones.DataBind()
' UPHistModificaciones.Update() ' UPHistModificaciones.Update()
' ObjActivoFijo.Dispose() ' ObjActivoFijo.Dispose()
'End Sub 'End Sub
'Private Sub GuardarAFCaracteristica() 'Private Sub GuardarAFCaracteristica()
' If CveActivoFijo = -1 Then ' If CveActivoFijo = -1 Then
' Dim Correcto As Boolean = True ' Dim Correcto As Boolean = True
' Dim ObjActivosFijos As New ClsAF ' 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, ' 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, ' DdlResponsable.SelectedValue.ToEntero, TxtNoSerie.Text.Trim, TxtAño.Text.Trim.ToEntero,
' DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.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) ' TxtPorDepreciacion.Text.Trim.ToDouble, TxtPorDeduccion.Text.Trim.ToDouble, UsuarioActual.CveUsuario, CveEmpresaActual)
' If RetValue > 0 OrElse RetValue = -2 Then ' If RetValue > 0 OrElse RetValue = -2 Then
' Dim tCveActivoFijo As Integer = ObjActivosFijos.CveActivoFijo ' Dim tCveActivoFijo As Integer = ObjActivosFijos.CveActivoFijo
' Dim Actualizar As Boolean = False ' Dim Actualizar As Boolean = False
' 'registro la encuesta ' 'registro la encuesta
' Dim Clave As Integer = 0 ' Dim Clave As Integer = 0
' 'verifico si ya existe una encuesta registrada ' 'verifico si ya existe una encuesta registrada
' If ObjActivosFijos.GetActivosFijosValores(tCveActivoFijo, CveEmpresaActual) Then ' If ObjActivosFijos.GetActivosFijosValores(tCveActivoFijo, CveEmpresaActual) Then
' If ObjActivosFijos.DtResultados.Rows.Count > 0 Then ' If ObjActivosFijos.DtResultados.Rows.Count > 0 Then
' Clave = ObjActivosFijos.DtResultados(0)("CveCaracteristica").ToString.ToEntero ' Clave = ObjActivosFijos.DtResultados(0)("CveCaracteristica").ToString.ToEntero
' Actualizar = True ' Actualizar = True
' End If ' End If
' End If ' End If
' If Clave > 0 Then ' If Clave > 0 Then
' For Each gvr As GridViewRow In GvC.Rows ' For Each gvr As GridViewRow In GvC.Rows
' Dim CveOpcion As Integer = -1 ' Dim CveOpcion As Integer = -1
' Dim Valor As String = gvr.FCTextBox("TxtValor").Text.Trim ' Dim Valor As String = gvr.FCTextBox("TxtValor").Text.Trim
' Select Case gvr.DataKey("PreguntaTipo") ' Select Case gvr.DataKey("PreguntaTipo")
' Case "1" 'Listado o DropDownList ' Case "1" 'Listado o DropDownList
' CveOpcion = gvr.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero ' CveOpcion = gvr.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
' Case "2" 'Radio o RadioButtonList ' Case "2" 'Radio o RadioButtonList
' CveOpcion = gvr.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero ' CveOpcion = gvr.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
' End Select ' End Select
' Next ' Next
' Else ' Else
' Correcto = False ' Correcto = False
' Alert("El Prospecto ya tiene esta encuesta registrada") ' Alert("El Prospecto ya tiene esta encuesta registrada")
' End If ' End If
' Else ' Else
' Correcto = False ' Correcto = False
' ObjActivosFijos.Dispose() ' ObjActivosFijos.Dispose()
' End If ' End If
' End If ' End If
'End Sub 'End Sub
'Private Sub GuardarCaracteristicas() 'Private Sub GuardarCaracteristicas()
' Dim ObjActivoFijoValores As New ClsAF ' Dim ObjActivoFijoValores As New ClsAF
' For Each GridValores As GridViewRow In GvC.Rows ' For Each GridValores As GridViewRow In GvC.Rows
' Dim CveOpcion As Integer = -1 ' Dim CveOpcion As Integer = -1
' Dim Valor As String = GridValores.FCTextBox("TxtValor").Text.Trim ' Dim Valor As String = GridValores.FCTextBox("TxtValor").Text.Trim
' Select Case GridValores.DataKey("TipoCampo") ' Select Case GridValores.DataKey("TipoCampo")
' Case "1" 'Listado o DropDownList ' Case "1" 'Listado o DropDownList
' CveOpcion = GridValores.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero ' CveOpcion = GridValores.FCDropDownList("DdlRespuesta").SelectedValue.ToEntero
' Case "2" 'Radio o RadioButtonList ' Case "2" 'Radio o RadioButtonList
' CveOpcion = GridValores.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero ' CveOpcion = GridValores.FCRadioButtonList("RbRespuesta").SelectedValue.ToEntero
' End Select ' End Select
' If GridValores.DataKey("CveCaracteristica").ToEntero > 0 Then ' If GridValores.DataKey("CveCaracteristica").ToEntero > 0 Then
' If CveActivoFijo > 0 Then ' If CveActivoFijo > 0 Then
' If ObjActivoFijoValores.AddActivosFijosValores(CveActivoFijo, CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario) Then ' If ObjActivoFijoValores.AddActivosFijosValores(CveActivoFijo, CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario) Then
' Alert("por aqui pasó" & CveActivoFijo & "") ' Alert("por aqui pasó" & CveActivoFijo & "")
' Exit For ' Exit For
' End If ' End If
' ObjActivoFijoValores.Dispose() ' ObjActivoFijoValores.Dispose()
' End If ' End If
' End If ' End If
' Next ' Next
'End Sub 'End Sub
#End Region #End Region
#Region "B I T A C O R A" #Region "B I T A C O R A"
Private Sub CargaBitacora() Private Sub CargaBitacora()
End Sub End Sub
#End Region #End Region
#Region "E V E N T O - B I T A C O R A" #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 Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2509,10 +2508,10 @@ Partial Class AF_AF
HttpContext.Current.Response.End() HttpContext.Current.Response.End()
Archivo = Nothing Archivo = Nothing
End Sub End Sub
#End Region #End Region
#Region " H I S T O R I A L" #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 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.RowType = DataControlRowType.DataRow Then
@@ -2540,10 +2539,10 @@ Partial Class AF_AF
ObjHistorial.Dispose() ObjHistorial.Dispose()
GVHistorial.DataBind() GVHistorial.DataBind()
End Sub End Sub
#End Region #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" #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 Protected Sub GVHistModificaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVHistModificaciones.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -2569,10 +2568,10 @@ Partial Class AF_AF
ObjGral.Dispose() ObjGral.Dispose()
GVHistModificaciones.DataBind() GVHistModificaciones.DataBind()
End Sub End Sub
#End Region #End Region
#Region "GUARDAR ARCHIVO" #Region "GUARDAR ARCHIVO"
Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs) Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF Dim objResguardos As New ClsAF
@@ -2648,16 +2647,16 @@ Partial Class AF_AF
GvResguardos.DataBind() GvResguardos.DataBind()
End Sub End Sub
#End Region #End Region
Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged
CargaCaracteristicas() CargaCaracteristicas()
CargaDispositivos() CargaDispositivos()
End Sub End Sub
#Region "CARGAR CUENTA CONTABLE" #Region "CARGAR CUENTA CONTABLE"
Private Sub CargaCuentasContables() Private Sub CargaCuentasContables()
trCuentaContable.Visible = True trCuentaContable.Visible = True
@@ -2738,12 +2737,12 @@ Partial Class AF_AF
ObjContaAC.Dispose() ObjContaAC.Dispose()
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "IMPRESIÓN FULL" #Region "IMPRESIÓN FULL"
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
@@ -2839,12 +2838,12 @@ Partial Class AF_AF
Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
GenerarPDF("PDF") GenerarPDF("PDF")
End Sub End Sub
#End Region #End Region
#Region "Codigo Barras" #Region "Codigo Barras"
'Codigo barras/QR se retorna como una imagen bmp '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() 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 barcodeWriter As New BarcodeWriter
@@ -3048,18 +3047,22 @@ Partial Class AF_AF
Alert("Seleccione un producto.") Alert("Seleccione un producto.")
Exit Sub Exit Sub
End If End If
Dim CveSeccionAlmacen As Integer = -1
AFInvSerie = "" AFInvSerie = ""
AFInvCvePS = -1 AFInvCvePS = -1
AFInvCveAlmacen = -1 AFInvCveAlmacen = -1
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).Rows(0) Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimero("")
Dim Inv_CveMetodoInventario As Integer = DrPS("Inv_CveMetodoInventario").ToString().ToEntero() If DrPS Is Nothing Then Exit Sub
AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-1") 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 ObjInventario As New ClsInventarios
Dim Existencia = ObjInventario.GetExistenciasPS(DdlAFInvPS.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAFInvAlmacen.SelectedValue.ToEntero, FechaMovto:=Now.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=AFInvSerie) 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 Dim Costo As Decimal = 0
If Inv_CveMetodoInventario = 5 Then If Inv_CveMetodoInventario = 5 Then
Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual) Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3243,15 +3246,15 @@ Partial Class AF_AF
End If End If
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "AF MARCAR / MODELOS" #Region "AF MARCAR / MODELOS"
Private Sub DdlMarcas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMarcas.SelectedIndexChanged Private Sub DdlMarcas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMarcas.SelectedIndexChanged
CargaModelos(DdlMarcas.SelectedValue.ToEntero) CargaModelos(DdlMarcas.SelectedValue.ToEntero)
End Sub End Sub
#End Region #End Region
#Region "AF PADRE E HIJOS" #Region "AF PADRE E HIJOS"
Public Sub CargaAFPAdreEHijos() Public Sub CargaAFPAdreEHijos()
CargaAFPadres() CargaAFPadres()
@@ -3289,10 +3292,10 @@ Partial Class AF_AF
ObjAF.Dispose() ObjAF.Dispose()
UpDatos.Update() UpDatos.Update()
End Sub End Sub
#End Region #End Region
#Region "G P S" #Region "G P S"
Protected Sub DdlDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaUltimaPosicion(DdlDispositivo.SelectedValue.ToEntero) CargaUltimaPosicion(DdlDispositivo.SelectedValue.ToEntero)
@@ -3640,11 +3643,26 @@ Partial Class AF_AF
UpGeocercas.Update() UpGeocercas.Update()
RegistraScript(SBJS.ToString()) RegistraScript(SBJS.ToString())
End Try End Try
End Sub End Sub
#End Region #End Region
Protected Sub DdlAFInvPS_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlAFInvPS_SelectedIndexChanged(sender As Object, e As EventArgs)
DivSerie.Visible = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).FiltroPrimeroValor("AplicaSerie")) 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
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 End Sub
Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs) Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs)
Imprime() Imprime()