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>
</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 class="modal-footer">
<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
Imports Extensiones
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports ZXing
Imports Newtonsoft.Json.Linq
Imports Newtonsoft.Json.Linq
Partial Class AF_AF
Inherits ClsPaginas
'Configuración
Inherits ClsPaginas
'Configuración
#Region "PROPIEDADES"
Private Property CveActivoFijo As Integer
Get
@@ -170,11 +169,11 @@ Partial Class AF_AF
Set(value As DataTable)
ViewState("DTCompras") = value
End Set
End Property
End Property
#Region "CLASIFICACIONES"
Private Property DTAFCaracteristicas As DataTable
Get
Return CType(ViewState("DTAFCaracteristicas"), DataTable)
@@ -191,10 +190,10 @@ Partial Class AF_AF
Set(value As Integer)
ViewState("CveCaracteristica") = value
End Set
End Property
End Property
#End Region
#Region "G P S"
Public Property CveClienteGPS As Integer
Get
@@ -234,12 +233,12 @@ Partial Class AF_AF
Set(value As DataTable)
ViewState("DTDescargas") = value
End Set
End Property
End Property
#End Region
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -364,9 +363,9 @@ Partial Class AF_AF
AFInvSerie = ""
CveEmpresaActual = UsuarioActual.CveEmpresa
End Sub
End Sub
#Region " CARGA COMBOS "
Private Sub CargaCombos()
CargaTipoActivoFijo()
@@ -528,7 +527,7 @@ Partial Class AF_AF
Private Sub CargaAFInv()
If UsuarioActual.Empresa.UsaInventarios AndAlso CveActivoFijo <= 0 Then
HLAFInv.Visible= True
HLAFInv.Visible = True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
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.DataBind()
DdlModelos.Items.Insert(0, New ListItem("-", "-1"))
End Sub
End Sub
#End Region
Private Sub CargaDatos()
Dim ObjActivoFijo As New ClsAF()
@@ -690,8 +689,8 @@ Partial Class AF_AF
End If
End If
ObjActivoFijo.Dispose()
End Sub
End Sub
#Region "P L A C A S"
Public Sub CargaPlacas()
Dim ObjAF As New ClsAF()
@@ -804,9 +803,9 @@ Partial Class AF_AF
End If
End If
End If
End Sub
End Sub
#End Region
#Region "L I C E N C I A S"
Public Sub CargaLicencias()
Dim ObjAF As New ClsAF()
@@ -947,9 +946,9 @@ Partial Class AF_AF
End If
End If
End If
End Sub
End Sub
#End Region
#Region "S E G U R O S"
Public Sub CargaSeguros()
Dim ObjAF As New ClsAF()
@@ -1046,11 +1045,11 @@ Partial Class AF_AF
CargaSeguros()
ObjAF.Dispose()
UpDatos.Update()
End Sub
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
@@ -1076,9 +1075,9 @@ Partial Class AF_AF
GvServiciosMant.DataSource = TmpServicios
GvServiciosMant.DataBind()
End Sub
End Sub
#End Region
#Region "F A L L A S"
Public Sub CargaTipoFallas()
Dim ObjAF As New ClsAF()
@@ -1286,9 +1285,9 @@ Partial Class AF_AF
OnError("Ocurrió error al mandar MAIL", ex)
End Try
End Sub
End Sub
#End Region
#Region "A C C I D E N T E S "
Public Sub CargaAccidentes()
Dim ObjAF As New ClsAF()
@@ -1472,9 +1471,9 @@ Partial Class AF_AF
OnError("Ocurrió error al mandar MAIL", ex)
End Try
End Sub
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)
@@ -1608,10 +1607,10 @@ Partial Class AF_AF
e.Row.Cells(5).Text = "Horómetro Final"
End If
End If
End Sub
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 = ""
@@ -1665,81 +1664,81 @@ Partial Class AF_AF
End If
ObjEventos.Dispose()
End Sub
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
'#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
@@ -2054,9 +2053,9 @@ Partial Class AF_AF
ObjActivoFijo.Dispose()
End If
End Sub
End Sub
#End Region
Private Sub CargarArchivo()
Dim StrBuilder As New StringBuilder
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""")
End If
ObjActivoFijo.Dispose()
End Sub
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
@@ -2313,125 +2312,125 @@ Partial Class AF_AF
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 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 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
@@ -2509,10 +2508,10 @@ Partial Class AF_AF
HttpContext.Current.Response.End()
Archivo = Nothing
End Sub
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
@@ -2540,10 +2539,10 @@ Partial Class AF_AF
ObjHistorial.Dispose()
GVHistorial.DataBind()
End Sub
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
@@ -2569,10 +2568,10 @@ Partial Class AF_AF
ObjGral.Dispose()
GVHistModificaciones.DataBind()
End Sub
End Sub
#End Region
#Region "GUARDAR ARCHIVO"
Protected Sub BtnGuardaArchivo1_Click(sender As Object, e As ImageClickEventArgs)
Dim objResguardos As New ClsAF
@@ -2648,16 +2647,16 @@ Partial Class AF_AF
GvResguardos.DataBind()
End Sub
End Sub
#End Region
Protected Sub DdlSubTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoActivoFijo.SelectedIndexChanged
CargaCaracteristicas()
CargaDispositivos()
End Sub
End Sub
#Region "CARGAR CUENTA CONTABLE"
Private Sub CargaCuentasContables()
trCuentaContable.Visible = True
@@ -2738,12 +2737,12 @@ Partial Class AF_AF
ObjContaAC.Dispose()
ObjAF.Dispose()
UpDatos.Update()
End Sub
End Sub
#End Region
#Region "IMPRESIÓN FULL"
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
GenerarPDF("PDF")
End Sub
End Sub
#End Region
#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()
Dim barcodeWriter As New BarcodeWriter
@@ -3048,18 +3047,22 @@ Partial Class AF_AF
Alert("Seleccione un producto.")
Exit Sub
End If
Dim CveSeccionAlmacen As Integer = -1
AFInvSerie = ""
AFInvCvePS = -1
AFInvCveAlmacen = -1
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlAFInvPS.SelectedValue.ToEntero).Rows(0)
Dim Inv_CveMetodoInventario As Integer = DrPS("Inv_CveMetodoInventario").ToString().ToEntero()
AFInvSerie = If(Inv_CveMetodoInventario = 5, TxtAFInvSerie.Text.Trim, "-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, 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
If Inv_CveMetodoInventario = 5 Then
Costo = ObjInventario.GetCostoPSSerie(DdlAFInvPS.SelectedValue.ToEntero, AFInvSerie, DdlAFInvAlmacen.SelectedValue.ToEntero, CveEmpresaActual)
@@ -3243,15 +3246,15 @@ Partial Class AF_AF
End If
ObjAF.Dispose()
UpDatos.Update()
End Sub
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 Sub
#End Region
#Region "AF PADRE E HIJOS"
Public Sub CargaAFPAdreEHijos()
CargaAFPadres()
@@ -3289,10 +3292,10 @@ Partial Class AF_AF
ObjAF.Dispose()
UpDatos.Update()
End Sub
End Sub
#End Region
#Region "G P S"
Protected Sub DdlDispositivo_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaUltimaPosicion(DdlDispositivo.SelectedValue.ToEntero)
@@ -3640,11 +3643,26 @@ Partial Class AF_AF
UpGeocercas.Update()
RegistraScript(SBJS.ToString())
End Try
End Sub
End Sub
#End Region
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
Protected Sub BtnPDFCompras_Click(sender As Object, e As EventArgs)
Imprime()