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(AppDomain.CurrentDomain.BaseDirectory & "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