Commit inicial Ventas Productivo

Ventas/CatDocumentosClientes.aspx.vb

@@ -0,0 +1,455 @@
+
+
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+Imports System.IO
+
+Partial Class Vta_CatDocumentosClientes
+    Inherits ClsPaginas
+
+    Private Property DTDocumentacion As DataTable
+        Get
+            If ViewState("DTDocumentacion") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDocumentacion"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDocumentacion") = value
+        End Set
+    End Property
+
+
+    Property Documentacion As String
+        Get
+            If ViewState("Documentacion") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("Documentacion").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("Documentacion") = value
+        End Set
+    End Property
+    Property CveDocumentacion As Integer
+        Get
+            If ViewState("CveDocumentacion") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveDocumentacion"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveDocumentacion") = value
+        End Set
+    End Property
+
+    Private Property DocumentacionTipo As String
+        Get
+            If ViewState("DocumentacionTipo") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("DocumentacionTipo").ToString
+            End If
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+
+    Private Property CveDocumentacionTipo As Integer
+        Get
+            If ViewState("CveDocumentacionTipo") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveDocumentacionTipo"), Integer)
+            End If
+        End Get
+
+        Set(value As Integer)
+            ViewState("CveDocumentacionTipo") = value
+        End Set
+    End Property
+
+
+    Property ActualizarDocumentacion As Boolean
+        Get
+            If ViewState("ActualizarDocumentacion") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("ActualizarDocumentacion"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ActualizarDocumentacion") = value
+        End Set
+    End Property
+
+    Property Estatus As Boolean
+        Get
+            If ViewState("Estatus") Is Nothing Then
+                Return 0
+            Else
+                Return DirectCast(ViewState("Estatus"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("Estatus") = value
+        End Set
+    End Property
+
+
+    Property DocumentacionFormato As String
+        Get
+            If ViewState("DocumentacionFormato") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("DocumentacionFormato").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("DocumentacionFormato") = value
+        End Set
+    End Property
+
+    Property Requerido As Boolean
+        Get
+            If ViewState("Requerido") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("Requerido"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("Requerido") = value
+        End Set
+    End Property
+
+    Property DiasLimite As Integer
+        Get
+            If ViewState("DiasLimite") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("DiasLimite"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("DiasLimite") = value
+        End Set
+    End Property
+    Property AplicaDiasLimite As Boolean
+        Get
+            If ViewState("AplicaDiasLimite") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("AplicaDiasLimite"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("AplicaDiasLimite") = value
+        End Set
+    End Property
+    Property AplicaFechaVencimiento As Boolean
+        Get
+            If ViewState("AplicaFechaVencimiento") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("AplicaFechaVencimiento"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("AplicaFechaVencimiento") = value
+        End Set
+    End Property
+
+    Property Orden As Integer
+        Get
+            If ViewState("Orden") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("Orden"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("Orden") = value
+        End Set
+    End Property
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDocumentacion()
+            CargaComboDocumentacion()
+
+
+
+
+        End If
+    End Sub
+
+
+#Region "D O C U M E N T A C I O N"
+
+    Protected Sub BtnAgregarDocumento_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumento.Click
+        ResetFormDocumentacion()
+        RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+    Private Sub ResetFormDocumentacion()
+
+
+        Txtdocumentacion.Text = ""
+        TxtOrden.Text = ""
+        BtnAgregarDocumentoModal.Text = "Agregar"
+        LtlTituloModalDocumentacion.Text = "Agregar documentación"
+        'TxtDocumentacionFormato.Text = ""
+        DdlDocumentacionTipo.SelectedIndex = 0
+        chkEstatus.Checked = True
+        chkRequerido.Checked = True
+
+        TxtDiasLimite.Text = ""
+        ChkAplicaDiasLimite.Checked = False
+        ChkAplicaFechaVencimiento.Checked = False
+
+
+        ActualizarDocumentacion = False
+        UpModalDocumentacion.Update()
+    End Sub
+
+    Private Sub CargaDocumentacion()
+
+        Dim objRH As New ClsEdocumentacion
+
+        If objRH.DocumentacionGet(-1, -1, -1, UsuarioActual.Empresa.CveEmpresa, Modulo:=2) Then
+
+            DTDocumentacion = objRH.DtResultados
+            GvDocumentos.DataSource = objRH.DtResultados
+        Else
+            DTDocumentacion = Nothing
+            GvDocumentos.DataSource = Nothing
+        End If
+
+        objRH.Dispose()
+        GvDocumentos.DataBind()
+        UPGvDocumentos.Update()
+
+    End Sub
+
+    Private Sub CargaComboDocumentacion()
+        Dim objDocumentacion As New ClsEdocumentacion
+
+        If objDocumentacion.DocumentacionTipoGet(UsuarioActual.CveEmpresa, Modulo:=2) Then
+
+            DdlDocumentacionTipo.DataSource = objDocumentacion.DtResultados
+
+        End If
+
+        objDocumentacion.Dispose()
+        DdlDocumentacionTipo.DataBind()
+        DdlDocumentacionTipo.Items.Insert(0, New ListItem("Seleccione un tipo", "-1"))
+    End Sub
+
+    Public Sub Edit_ClickDocumentacion(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion")
+        Documentacion = GvRow.DataKey("Documentacion")
+        DocumentacionFormato = GvRow.DataKey("DocumentacionFormato")
+        CveDocumentacionTipo = GvRow.DataKey("CveDocumentacionTipo")
+        DocumentacionTipo = GvRow.DataKey("DocumentacionTipo")
+        Orden = GvRow.DataKey("Orden")
+        Estatus = GvRow.DataKey("Estatus")
+        Requerido = GvRow.DataKey("Requerido")
+
+        DiasLimite = GvRow.DataKey("DiasLimite").ToEntero
+        AplicaDiasLimite = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False)
+        AplicaFechaVencimiento = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False)
+
+        Txtdocumentacion.Text = Documentacion
+        TxtOrden.Text = Orden
+        DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
+        chkEstatus.Checked = Estatus
+        chkRequerido.Checked = Requerido
+
+        TxtDiasLimite.Text = DiasLimite
+        ChkAplicaDiasLimite.Checked = AplicaDiasLimite
+        ChkAplicaFechaVencimiento.Checked = AplicaFechaVencimiento
+
+        LtlTituloModalDocumentacion.Text = "Actualizar Documento: " & Documentacion
+        BtnAgregarDocumentoModal.Text = "Actualizar"
+
+        UpModalDocumentacion.Update()
+        ActualizarDocumentacion = True
+
+        RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static',  keyboard: false});")
+
+    End Sub
+
+    Private Function GuardarArchivo(_CveDocumentacion As Integer) As String
+
+        Dim respuesta As String = ""
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
+        Dim Filename As String = ""
+
+        For Each fileItem As Archivo In Filesgral
+            Try
+                respuesta = fileItem.filenameO
+                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                Dim tempArray() As String
+                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & fileItem.filenameO
+                Dim docAnterior As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & DocumentacionFormato
+
+                If DocumentacionFormato.Trim.Length > 0 Then
+                    If File.Exists(docAnterior) Then
+                        File.Delete(docAnterior)
+                    End If
+                End If
+
+                If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then
+                    Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos")
+
+                End If
+
+                If System.IO.File.Exists(rutaDestino) Then
+                    System.IO.File.Delete(rutaDestino)
+                End If
+
+                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
+
+            Catch ex As Exception
+                OnError("Error al cargar archivo", ex)
+            End Try
+            TxtFileDocumentacion.Text = ""
+            UpModalDocumentacion.Update()
+        Next
+
+
+        Return respuesta
+    End Function
+
+    Public Sub Remove_ClickDocumentacion(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion")
+        Dim _documetacionFormato As String = GvRow.DataKey("DocumentacionFormato")
+
+
+
+        Dim objEdoc As New ClsEdocumentacion
+
+        If objEdoc.DocumentacionRemove(_CveDocumentacion, UsuarioActual.Empresa.CveEmpresa) Then
+            EliminarDocumentoDisco(_documetacionFormato)
+            Alert("Documento eliminado correctamente", TipoMensaje.MsgInformacion)
+            CargaDocumentacion()
+        End If
+    End Sub
+
+    Private Sub EliminarDocumentoDisco(documento As String)
+
+        Dim archivo As String = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
+
+        If File.Exists(archivo) Then
+            File.Delete(archivo)
+        End If
+
+    End Sub
+
+
+    Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click
+
+        Dim objRH As New ClsEdocumentacion
+        Dim intCompleto As Integer = 0
+        Dim _estatus As Integer = 0
+        Dim _requerido As Integer = 0
+        Dim _formato As String = ""
+
+
+        If chkEstatus.Checked Then
+            _estatus = 1
+        End If
+
+        If chkRequerido.Checked Then
+            _requerido = 1
+        End If
+
+        If ActualizarDocumentacion Then
+
+            _formato = GuardarArchivo(CveDocumentacion)
+            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, UsuarioActual.Empresa.CveEmpresa, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0)) Then
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
+                Alert("Documento Actualizado  correctamente.", TipoMensaje.MsgInformacion)
+                CargaDocumentacion()
+            End If
+
+        Else
+            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.Empresa.CveEmpresa) Then
+
+                CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
+                _formato = GuardarArchivo(CveDocumentacion)
+                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.Empresa.CveEmpresa) Then
+
+                End If
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
+                Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
+                CargaDocumentacion()
+            End If
+        End If
+
+        ActualizarDocumentacion = False
+
+    End Sub
+
+
+    Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero
+            Dim DocumetacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString
+            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+            Dim separado As Char() = {"."}
+            Dim array() As String = DocumetacionFormato.Split(separado)
+            Dim extencion As String = ""
+
+            If array.Length > 0 Then
+                extencion = array(array.Length - 1)
+            End If
+
+            If DocumetacionFormato.Trim.Length > 0 Then
+
+                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & _CveDocumentacion & "_" & DocumetacionFormato
+                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\Formatos\" & _CveDocumentacion & "_" & DocumetacionFormato
+                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 Formato'></i></a>", linkDescarga, DocumetacionFormato)
+                    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 Formato'></i></a>", linkDescarga, DocumetacionFormato)
+                    End If
+                Else
+                    ImgDownLoad.Visible = False
+                End If
+
+            Else
+                ImgDownLoad.Visible = False
+            End If
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+End Class
+