644 lines
26 KiB
VB.net
644 lines
26 KiB
VB.net
Option Strict On
|
|
Option Explicit On
|
|
|
|
Imports System.IO
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
|
|
Partial Class AF_ResguardoAF
|
|
Inherits ClsPaginas
|
|
|
|
#Region " PROPIEDADES "
|
|
Private Property ActivosFijos As List(Of Integer)
|
|
Get
|
|
Return CType(ViewState("ActivosFijos"), List(Of Integer))
|
|
End Get
|
|
Set(value As List(Of Integer))
|
|
ViewState("ActivosFijos") = 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 EsLiberacion As Boolean
|
|
Get
|
|
Return CType(ViewState("EsLiberacion"), Boolean)
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("EsLiberacion") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTAF As DataTable
|
|
Get
|
|
Return CType(ViewState("DTAF"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTAF") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Private Sub AF_TraspasoAF_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
If Not Page.IsPostBack Then
|
|
InicializaValores()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
#Region " INICIALIZA VALORES "
|
|
Private Sub InicializaValores()
|
|
EsLiberacion = False
|
|
CveResguardoPadre = -1
|
|
CargaDTResguardos()
|
|
'RESGUARDO
|
|
TxtFecha.Text = Now.ToShortDateString
|
|
CargaAFResguardos()
|
|
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyecto.DataBind()
|
|
DdlSubProyectoF.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoF.DataBind()
|
|
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlSubProyectoF.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
|
|
DdlSubProyectoF.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlResponsable.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
|
|
DdlResponsable.DataBind()
|
|
DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
|
|
'TRASPASO
|
|
|
|
TxtFechaT.Text = Now.ToShortDateString
|
|
CargaAFResguardosTraslado()
|
|
DdlSubProyectoT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoT.DataBind()
|
|
DdlSubProyectoT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlResponsableT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusPersonal = 1", "NombreCompleto")
|
|
DdlResponsableT.DataBind()
|
|
DdlResponsableT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlSubProyectoFT.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoFT.DataBind()
|
|
DdlSubProyectoFT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
|
|
DdlSubProyectoFT.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
|
|
|
|
|
|
'RECEPCION
|
|
|
|
DdlSubProyectoRT.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoRT.DataBind()
|
|
DdlSubProyectoRT.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
|
|
DdlSubProyectoRT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlSubProyectoRTA.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoRTA.DataBind()
|
|
DdlSubProyectoRTA.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
TxtFechaR.Text = Now.ToShortDateString
|
|
|
|
|
|
'LIBERACION
|
|
|
|
DdlSubProyectoRL.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoRL.DataBind()
|
|
DdlSubProyectoRL.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "0"))
|
|
DdlSubProyectoRL.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
DdlSubProyectoL.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
|
DdlSubProyectoL.DataBind()
|
|
DdlSubProyectoL.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
TxtFechaRecepcion.Text = Now.ToShortDateString
|
|
|
|
|
|
DdlPersonalR.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
|
|
DdlPersonalR.DataBind()
|
|
DdlPersonalR.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlPersonalRT.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
|
|
DdlPersonalRT.DataBind()
|
|
DdlPersonalRT.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaDTResguardos()
|
|
Dim AF As New ClsAF
|
|
DTAF = New DataTable
|
|
If AF.GetActivosFijosProyectos(UsuarioActual.CveEmpresa, -1, -1, 1, UsuarioActual.CveUsuario) Then
|
|
DTAF = AF.DtResultados
|
|
End If
|
|
AF.Dispose()
|
|
End Sub
|
|
|
|
Private Sub CargaAFResguardos()
|
|
GVAF.DataBind()
|
|
GVAF.DataSource = DTAF.FiltraParametros("EstatusResguardo = 1")
|
|
GVAF.DataBind()
|
|
UPGVAF.Update()
|
|
End Sub
|
|
Private Sub CargaAFResguardosTraslado()
|
|
GVAFT.DataBind()
|
|
GVAFT.DataSource = DTAF.FiltraParametros("EstatusResguardo = 1")
|
|
GVAFT.DataBind()
|
|
UPGVAFT.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
#Region " RESGUARDAR "
|
|
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
|
|
|
Dim TieneError = True
|
|
|
|
For Each Gvr As GridViewRow In GVAF.Rows
|
|
If Gvr.FCCheckBox("chkAF").Checked Then
|
|
TieneError = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If TieneError Then
|
|
Alert("No hay ningun Activo Fijo para resguardar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
Dim objAF As New ClsAF
|
|
objAF.IniciaTransacSQL()
|
|
|
|
Dim ErrorAF As Boolean = False
|
|
ActivosFijos = New List(Of Integer)
|
|
|
|
|
|
Dim CveResguardo = objAF.ActivoFijoResguardoGpo()
|
|
|
|
If CveResguardo > 0 Then
|
|
For Each row As GridViewRow In GVAF.Rows
|
|
If row.FCCheckBox("chkAF").Checked Then
|
|
If objAF.ActivoFijoResguardoADD(TxtFecha.Text.ToDate, DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero, row.DataKey("CveActivoFijo").ToEntero, "AFR", 1, UsuarioActual.CveEmpresa, TxtObservaciones.Text, CveResguardo) Then
|
|
If Not objAF.UpdateEstatusResguardo(3, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero) Then 'Estatus resguardo 3 = Asignado
|
|
ErrorAF = True
|
|
End If
|
|
Else
|
|
ErrorAF = True
|
|
End If
|
|
End If
|
|
Next
|
|
Else
|
|
ErrorAF = True
|
|
End If
|
|
|
|
Dim Folio = objAF.FolioResguardo
|
|
|
|
If ErrorAF Then
|
|
objAF.RollBack()
|
|
Alert("Ocurrió un error al guardar el Resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
CveResguardoPadre = -1
|
|
Else
|
|
objAF.Commit()
|
|
EsURL2 = False
|
|
Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=1", CveResguardo)))
|
|
Alert($"Resguardo Guardado con el folio: <b>{Folio}</b> <br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
|
|
EsLiberacion = False
|
|
CargaDTResguardos()
|
|
LimpiaResguardo()
|
|
LimpiaTraslado()
|
|
LimpiaRecepcion()
|
|
CveResguardoPadre = CveResguardo
|
|
' RegistraScript("$('#DivArchivo').modal()")
|
|
End If
|
|
|
|
objAF.Dispose()
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Protected Sub DdlSubProyectoF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoF.SelectedIndexChanged
|
|
If DdlSubProyectoF.SelectedValue.Contiene({"-1", "0"}) Then
|
|
CargaAFResguardos()
|
|
Exit Sub
|
|
End If
|
|
GVAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($"EstatusResguardo = 1 AND CveSubProyecto ={DdlSubProyectoF.SelectedValue}")
|
|
GVAF.DataBind()
|
|
UPGVAF.Update()
|
|
End Sub
|
|
|
|
Private Sub LimpiaResguardo()
|
|
CargaAFResguardos()
|
|
CargaAFResguardosTraslado()
|
|
CargaTransitorios()
|
|
DdlSubProyecto.SelectedValue = "-1"
|
|
DdlResponsable.SelectedValue = "-1"
|
|
DdlSubProyectoT.SelectedValue = "-1"
|
|
DdlResponsableT.SelectedValue = "-1"
|
|
DdlSubProyectoL.SelectedValue = "-1"
|
|
TxtObservaciones.Text = ""
|
|
TxtObservacionesR.Text = ""
|
|
TxtObservacionesRecepcion.Text = ""
|
|
TxtObservacionesT.Text = ""
|
|
TxtFecha.Text = Now.ToShortDateString
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " TRASPASO "
|
|
|
|
Protected Sub DdlSubProyectoFT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoFT.SelectedIndexChanged
|
|
If DdlSubProyectoFT.SelectedValue.Contiene({"-1", "0"}) Then
|
|
CargaAFResguardosTraslado()
|
|
Exit Sub
|
|
End If
|
|
GVAFT.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros($"EstatusResguardo = 1 AND CveSubProyecto ={DdlSubProyectoFT.SelectedValue}")
|
|
GVAFT.DataBind()
|
|
UPGVAFT.Update()
|
|
End Sub
|
|
|
|
Protected Sub BtnTrasladar_Click(sender As Object, e As EventArgs) Handles BtnTrasladar.Click
|
|
Dim objAF As New ClsAF
|
|
objAF.IniciaTransacSQL()
|
|
|
|
|
|
Dim CveResguardo = objAF.ActivoFijoResguardoGpo()
|
|
|
|
Dim ErrorAF As Boolean = True
|
|
|
|
For Each Gvr As GridViewRow In GVAFT.Rows
|
|
If Gvr.FCCheckBox("chkAF").Checked Then
|
|
ErrorAF = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If ErrorAF Then
|
|
Alert("No hay ningun Activo Fijo para traspasar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
For Each row As GridViewRow In GVAFT.Rows
|
|
If row.FCCheckBox("chkAF").Checked Then
|
|
If objAF.ActivoFijoResguardoADD(TxtFechaT.Text.ToDate, DdlResponsableT.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectoT.SelectedValue.ToEntero, row.DataKey("CveActivoFijo").ToEntero, "AFT", 2, UsuarioActual.CveEmpresa, TxtObservacionesT.Text, CveResguardo) Then 'TIPO RESGUARDO TRASLADO
|
|
If Not objAF.UpdateEstatusResguardo(2, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero) Then 'Estatus resguardo 2 = EN TRASLADO
|
|
ErrorAF = True
|
|
End If
|
|
Else
|
|
ErrorAF = True
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
Dim Folio = objAF.FolioResguardo
|
|
|
|
If ErrorAF Then
|
|
objAF.RollBack()
|
|
Alert("Ocurrió un error al guardar el traslado de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
CveResguardoPadre = -1
|
|
Else
|
|
objAF.Commit()
|
|
EsURL2 = False
|
|
Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=2", CveResguardo)))
|
|
Alert($"Traslado Guardado con el folio: <b>{Folio}</b> <br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
|
|
EsLiberacion = False
|
|
' RegistraScript("$('#DivArchivo').modal()")
|
|
CveResguardoPadre = CveResguardo
|
|
CargaDTResguardos()
|
|
LimpiaTraslado()
|
|
LimpiaRT()
|
|
LimpiaResguardo()
|
|
End If
|
|
objAF.Dispose()
|
|
End Sub
|
|
Private Sub LimpiaTraslado()
|
|
CargaAFResguardos()
|
|
CargaAFResguardosTraslado()
|
|
DdlSubProyectoT.SelectedValue = "-1"
|
|
DdlResponsableT.SelectedValue = "-1"
|
|
TxtObservacionesT.Text = ""
|
|
TxtFechaT.Text = Now.ToShortDateString
|
|
UPTraslado.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " RECEPCION TRASLADO "
|
|
|
|
Protected Sub BtnCargaTraslado_Click(sender As Object, e As EventArgs) Handles BtnCargaTraslado.Click
|
|
If DdlPersonalRT.SelectedValue = "-1" AndAlso DdlSubProyectoRT.SelectedValue = "-1" AndAlso TxtFolioT.Text.Equals(String.Empty) AndAlso HdnCveAFT.Value = "-1" Then
|
|
Alert("Por favor, seleccione al menos un filtro", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
CargaTransitorios()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaTransitorios()
|
|
|
|
|
|
GvAFTR.DataBind()
|
|
Dim objAF As New ClsAF
|
|
' CveSubProyecto:=DdlSubProyectoRL.SelectedValue.ToEntero, Folio:=If((TxtFolioRL.Text.Equals("")), -1, TxtFolioRL.Text.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa
|
|
If objAF.GetActivosFijosResguardos(HdnCveAFT.Value.ToEntero, -1, DdlPersonalRT.SelectedValue.ToEntero, -1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoRT.SelectedValue.ToEntero, Folio:=If((TxtFolioT.Text.Equals("")), -1, TxtFolioT.Text.ToEntero)) Then
|
|
GvAFTR.DataSource = objAF.DtResultados.FiltraParametros("Tipo = 2 AND FechaFin is NULL")
|
|
GvAFTR.DataBind()
|
|
End If
|
|
HdnCveAFT.Value = "-1"
|
|
UpGVTR.Update()
|
|
objAF.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnRecibiT_Click(sender As Object, e As EventArgs) Handles BtnRecibiT.Click
|
|
|
|
Dim objAF As New ClsAF
|
|
objAF.IniciaTransacSQL()
|
|
Dim ErrorAF = True
|
|
|
|
For Each Gvr As GridViewRow In GvAFTR.Rows
|
|
If Gvr.FCCheckBox("chkAF").Checked Then
|
|
ErrorAF = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If ErrorAF Then
|
|
Alert("No hay ningun traslado para recibir. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim CveResguardo = objAF.ActivoFijoResguardoGpo()
|
|
|
|
For Each row As GridViewRow In GvAFTR.Rows
|
|
If row.FCCheckBox("chkAF").Checked Then
|
|
If objAF.UpdateActivosFijosResguardos(TxtFechaR.Text, TxtObservacionesR.Text, "-1", row.DataKey("CveActivoFijoResguardo").ToString.ToEntero, row.DataKey("CveActivoFijo").ToString.ToEntero, CveSubProyecto:=DdlSubProyectoRTA.SelectedValue.ToEntero, CveResguardo2:=CveResguardo) Then
|
|
If Not objAF.UpdateEstatusResguardo(1, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToString.ToEntero, row.DataKey("CveSubProyecto").ToString.ToEntero, UsuarioActual.CveUsuario) Then
|
|
ErrorAF = True
|
|
End If
|
|
Else
|
|
ErrorAF = True
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If ErrorAF Then
|
|
objAF.RollBack()
|
|
Alert("Ocurrió un error al guardar la liberación de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
CveResguardoPadre = -1
|
|
Else
|
|
objAF.Commit()
|
|
EsURL2 = True
|
|
Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=3", CveResguardo)))
|
|
Alert($"La recepcion traslado del activo fijo se guardó correctamente<br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
|
|
CargaDTResguardos()
|
|
EsLiberacion = False
|
|
LimpiaRT()
|
|
LimpiaResguardo()
|
|
LimpiaTraslado()
|
|
CveResguardoPadre = CveResguardo
|
|
End If
|
|
objAF.Dispose()
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub LimpiaRT()
|
|
GvAFTR.DataBind()
|
|
TxtObservacionesR.Text = ""
|
|
TxtFechaR.Text = Now.ToShortDateString
|
|
DdlPersonalRT.SelectedValue = "-1"
|
|
TxtFolioT.Text = ""
|
|
DdlSubProyectoRT.SelectedValue = "-1"
|
|
CargaTransitorios()
|
|
UpFiltros.Update()
|
|
UpTR.Update()
|
|
UpGVTR.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region " LIBERAR "
|
|
Protected Sub BtnCargaAsignados_Click1(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
|
|
If DdlPersonalR.SelectedValue = "-1" AndAlso DdlSubProyectoRL.SelectedValue = "-1" AndAlso TxtFolioRL.Text.Equals(String.Empty) AndAlso HdnAFR.Value = "-1" Then
|
|
Alert("Por favor, seleccione al menos un filtro", TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
CargaAsignados()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaAsignados()
|
|
GvRecepcion.DataBind()
|
|
Dim objAF As New ClsAF
|
|
|
|
If objAF.GetActivosFijosResguardos(HdnAFR.Value.ToEntero, -1, DdlPersonalR.SelectedValue.ToEntero, -1, CveSubProyecto:=DdlSubProyectoRL.SelectedValue.ToEntero, Folio:=If((TxtFolioRL.Text.Equals("")), -1, TxtFolioRL.Text.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
|
GvRecepcion.DataSource = objAF.DtResultados.FiltraParametros("Tipo = 1 AND FechaFin is NULL")
|
|
End If
|
|
HdnAFR.Value = "-1"
|
|
objAF.Dispose()
|
|
GvRecepcion.DataBind()
|
|
UpGVRecepcion.Update()
|
|
End Sub
|
|
|
|
Private Sub BtnRecibir_Click(sender As Object, e As EventArgs) Handles BtnRecibir.Click
|
|
|
|
Dim objAF As New ClsAF
|
|
objAF.IniciaTransacSQL()
|
|
Dim ErrorAF = True
|
|
|
|
For Each Gvr As GridViewRow In GvRecepcion.Rows
|
|
If Gvr.FCCheckBox("chkAF").Checked Then
|
|
ErrorAF = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If ErrorAF Then
|
|
Alert("No hay ningun Activo Fijo para liberar. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim CveResguardo = objAF.ActivoFijoResguardoGpo()
|
|
|
|
For Each row As GridViewRow In GvRecepcion.Rows
|
|
If row.FCCheckBox("chkAF").Checked Then
|
|
If objAF.UpdateActivosFijosResguardos(TxtFechaR.Text, TxtObservacionesR.Text, "-1", row.DataKey("CveActivoFijoResguardo").ToString.ToEntero, row.DataKey("CveActivoFijo").ToString.ToEntero, CveResguardo2:=CveResguardo, CveSubProyecto:=DdlSubProyectoL.SelectedValue.ToEntero) Then
|
|
If Not objAF.UpdateEstatusResguardo(1, UsuarioActual.CveEmpresa, row.DataKey("CveActivoFijo").ToEntero,) Then
|
|
ErrorAF = True
|
|
End If
|
|
Else
|
|
ErrorAF = True
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
If ErrorAF Then
|
|
objAF.RollBack()
|
|
Alert("Ocurrió un error al guardar la recepción de resguardo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
CveResguardoPadre = -1
|
|
Else
|
|
objAF.Commit()
|
|
EsURL2 = True
|
|
Dim Liga = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", Encripta(String.Format("OP=AFR2&CVER={0}&TIPO=4", CveResguardo)))
|
|
Alert($"La liberación del resguardo se guardó correctamente<br/><br/> {Liga}", TipoMensaje.MsgInformacion, "location.href=""javascript:$('#DivArchivo').modal()""")
|
|
EsLiberacion = False
|
|
CargaDTResguardos()
|
|
LimpiaRecepcion()
|
|
LimpiaResguardo()
|
|
LimpiaTraslado()
|
|
CveResguardoPadre = CveResguardo
|
|
End If
|
|
objAF.Dispose()
|
|
|
|
End Sub
|
|
Private Sub LimpiaRecepcion()
|
|
GvRecepcion.DataBind()
|
|
TxtObservacionesRecepcion.Text = ""
|
|
TxtFechaRecepcion.Text = Now.ToShortDateString
|
|
DdlPersonalR.SelectedValue = "-1"
|
|
DdlSubProyectoRL.SelectedValue = "-1"
|
|
TxtFolioRL.Text = ""
|
|
UpFiltrosR.Update()
|
|
UpRecepcion.Update()
|
|
UpGVRecepcion.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " ARCHIVO "
|
|
|
|
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
|
|
|
|
'SE HIZO UN CASO ESPECIAL PARA LA LIBERACION (SUBIDA DE ARCHIVOS DESDE EL GV).
|
|
If EsLiberacion Then
|
|
If objAF.UpdateActivosFijosResguardosURL($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then
|
|
If filemove <> "" Then
|
|
If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
|
|
File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
|
|
End If
|
|
If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
|
|
HuboError = False
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
End If
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
Else
|
|
If EsURL2 Then
|
|
If objAF.UpdateActivosFijosResguardosURLGpo("-1", $"AFT{CveResguardoPadre}.{FileExtension}", CveResguardoPadre) Then
|
|
If filemove <> "" Then
|
|
If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
|
|
File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
|
|
End If
|
|
If filemove.FilesMove(String.Format("AFT{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
|
|
HuboError = False
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
|
|
End If
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
Else
|
|
|
|
If objAF.UpdateActivosFijosResguardosURLGpo($"AFR{CveResguardoPadre}.{FileExtension}", "-1", CveResguardoPadre) Then
|
|
If filemove <> "" Then
|
|
If File.Exists(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension)) Then
|
|
File.Delete(String.Format("{2}Empresas\{0}\AF\Resguardos\AFR{1}.{3}", UsuarioActual.CveEmpresa, CveResguardoPadre, ModExtensiones.DirectorioBaseEmpresas, FileExtension))
|
|
End If
|
|
If filemove.FilesMove(String.Format("AFR{0}", CveResguardoPadre), String.Format("Empresas\{0}\AF\Resguardos", UsuarioActual.CveEmpresa)) Then
|
|
HuboError = False
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
End If
|
|
Else
|
|
HuboError = True
|
|
End If
|
|
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()
|
|
|
|
CargaAsignados()
|
|
End Sub
|
|
|
|
Public Function FormatearNombreArchivo(nombreArchivoOriginal As String) As String
|
|
Dim nombreArchivoFormateado As String
|
|
nombreArchivoFormateado = nombreArchivoOriginal.Replace(" ", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("'", "")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace(Chr(34), "")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("$", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("#", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("%", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("!", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("&", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("?", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("¿", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("¡", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("*", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("~", "_")
|
|
nombreArchivoFormateado = nombreArchivoFormateado.Replace("^", "_")
|
|
Return nombreArchivoFormateado
|
|
End Function
|
|
|
|
Protected Sub ImgArchivo_Click(sender As Object, e As ImageClickEventArgs)
|
|
CveResguardoPadre = CType(sender, ImageButton).CommandArgument.ToEntero
|
|
EsLiberacion = True
|
|
EsURL2 = False
|
|
RegistraScript("$('#DivArchivo').modal()")
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
End Class
|