SIG/Planeacion/Sucursal.aspx.vb

Option Explicit On
Option Strict On

Imports Extensiones
Imports System.Data

Partial Class Sucursal
    Inherits ClsPaginas

    Private ReadOnly Property CveSucursal As Integer
        Get
            Return ViewState("CveSucursal").ToString.ToEntero
        End Get
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then

            CType(Me.Master, BaseMasterPage).EsPopup = True
            CType(Me.Master, BaseMasterPage).PopupWidth = 700
            RegistraScript("$get('tdContenido').style.height='400px'")

            If Request("CveSucursal") IsNot Nothing AndAlso IsNumeric(Request("CveSucursal")) AndAlso Request("CveSucursal").ToEntero > 0 Then
                ViewState("CveSucursal") = Request("CveSucursal")
                CargaDatos()
                'Configuración de Modalidad Update
                BtnGuardar.Text = "Guardar Cambios"
            Else
                'Configuración de Modalidad Insert
                ViewState("CveSucursal") = -1
                ChkEstado.Enabled = False
                ChkEstado.Checked = True
                LblFechaCaptura.Text = Now.ToShortDateString()
                LblUsuarioCapturo.Text = UsuarioActual.Usuario
                BtnEliminar.Visible = False
            End If
        End If
    End Sub

    Private Sub CargaDatos()
        Dim DT As New DataTable
        'GlobalDTSucursales.FiltraParametros("CveSucursal = " & CveSucursal)
        If DT.Rows.Count > 0 Then

            TxtSucursal.Text = DT.Rows(0)("Sucursal").ToString
            TxtSerie.Text = DT.Rows(0)("Serie").ToString
            TxtIVA.Text = DT.Rows(0)("IVA").ToString
            TxtCalle.Text = DT.Rows(0)("Calle").ToString
            TxtNoExt.Text = DT.Rows(0)("NoExt").ToString
            TxtNoInt.Text = DT.Rows(0)("NoInt").ToString
            TxtColonia.Text = DT.Rows(0)("Colonia").ToString
            TxtLocalidad.Text = DT.Rows(0)("Localidad").ToString
            TxtMunicipio.Text = DT.Rows(0)("Municipio").ToString
            TxtEstado.Text = DT.Rows(0)("Estado").ToString
            TxtPais.Text = DT.Rows(0)("Pais").ToString
            TxtCP.Text = DT.Rows(0)("CP").ToString
            'TxtCP.Text = DT.Rows(0)("CP").ToString
            Session("FileUpload") = DT.Rows(0)("TipoSucursal").ToString

            If DT.Rows(0)("TipoSucursal").ToString.ToEntero = 1 Then
                Matriz.Checked = True
            Else
                Matriz.Checked = False
            End If
            If System.IO.File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\" & DT.Rows(0)("FormatoFactura").ToString) Then
                'DirectCast("HLVer", HtmlLink). = "<a class=""Texto"" href=""/Empresas/" & UsuarioActual.CveEmpresa & "/Formatos/" & e.Row.DBCampo("FormatoFactura") & """>Ver</a>"
            End If

            ChkEstado.Checked = If(DT.Rows(0)("Estatus").ToString = "Activo", True, False)
            LblFechaCaptura.Text = DT.Rows(0)("Fecha").ToString
            LblUsuarioCapturo.Text = DT.Rows(0)("Usuario").ToString
        Else
            Alert("La Sucursal solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
            BtnGuardar.Enabled = False
        End If
        If DT IsNot Nothing Then DT.Dispose()
    End Sub

    'Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

    '    If CveSucursal = -1 Then
    '        If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
    '            CreaProyectoSubProyectoSucursal()
    '        Else
    '            CreaSucursal()
    '        End If
    '    Else
    '        Dim ObjSucursales As New ClsSucursales()

    '        If ObjSucursales.UpdateSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, Session("FileUpload").ToString, ChkEstado.Checked, UsuarioActual.CveUsuario, CveSucursal, TxtCalle.Text.Trim,
    '                                     TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) Then
    '            CargaDatos()
    '            UpDatos.Update()

    '            updateGlobaldt()
    '            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
    '        Else
    '            Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
    '        End If

    '        ObjSucursales.Dispose()
    '    End If

    'End Sub
    'Private Sub updateGlobaldt()
    '    Dim ObjSucursales As New ClsSucursales()
    '    If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
    '    ObjSucursales.Dispose()
    'End Sub

    'Private Sub CreaSucursal()
    '    Dim ObjSucursales As New ClsSucursales()

    '    If ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
    '                                    TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero) > 0 Then
    '        updateGlobaldt()
    '        Alert("La Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "CerrarVentana(); window.parent.location.reload();")
    '    Else
    '        Alert("Ocurrió un error al guardar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
    '    End If

    '    ObjSucursales.Dispose()
    'End Sub

    'Private Sub CreaProyectoSubProyectoSucursal()
    '    Dim ObjProyectos As New ClsProyectos
    '    Dim ObjSubproyectos As New ClsSubProyectos(ObjProyectos.IniciaTransacSQL())
    '    Dim ObjSucursales As New ClsSucursales(ObjProyectos.IniciaTransacSQL())

    '    Dim TieneError = False

    '    'CREA PROYECTO
    '    Dim CveProyecto = ObjProyectos.AddProyecto(TxtSucursal.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal.ToEntero)

    '    If CInt(CveProyecto) > 0 Then
    '        GlobalDTProyectos(-1) = ObjProyectos.DtResultados

    '        Dim CveSucursal = ObjSucursales.AddSucursal(TxtSucursal.Text.Trim, TxtSerie.Text.Trim, TxtIVA.Text.Trim.ToDouble, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCalle.Text.Trim,
    '                                    TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtMunicipio.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtCP.Text.Trim, IIf(Matriz.Checked, 1, 0).ToString.ToEntero)

    '        'CREA SUCURSAL
    '        If CveSucursal > 0 Then
    '            'CREA SUBPROYECTO
    '            If Not ObjSubproyectos.AddSubProyecto(CInt(CveProyecto), TxtSucursal.Text.Trim, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSucursal) Then
    '                TieneError = True
    '            End If
    '        Else
    '            TieneError = True
    '        End If

    '    Else
    '        TieneError = True
    '    End If


    '    'se regeneran los subproyectos
    '    If Not TieneError Then
    '        If UsuarioActual.Empresa.GralSoloProyecto Then
    '            If ObjSubproyectos.GetSubProyectos() Then
    '                GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
    '            Else
    '                TieneError = True
    '            End If
    '        End If
    '    End If


    '    If Not TieneError Then
    '        ObjProyectos.Commit()
    '        Alert("La nueva Sucursal se guardó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
    '    Else
    '        ObjProyectos.RollBack()
    '        Alert("Ocurrió un error al registrar la Sucursal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
    '    End If

    '    ObjProyectos.Dispose()
    'End Sub

    'Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
    '    Dim ObjSucursal As New ClsSucursales()
    '    If ObjSucursal.RemoveSucursal(CveSucursal) Then
    '        Alert("La Sucursal se eliminó correctamente.", TipoMensaje.MsgInformacion, "opener.location.reload();window.close();")
    '    End If
    '    ObjSucursal.Dispose()
    'End Sub
End Class