SIG/Sistemas/ConfiguracionEmpresa.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones
Imports System.Runtime.InteropServices
Imports System.IO

Partial Class Sistemas_ConfiguracionEmpresa
    Inherits ClsPaginas

#Region " PROPIEDADES "

#End Region


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

            CargaCuentasClientesSIG(DdlCtaContableClientes)
            CargaCuentasClientesSIG(DdlCtaContableProveedores)
            CargaCuentasClientesSIG(DdlCtaContableDeudores)
            CargaCuentasClientesSIG(DdlCtaContableAlmacen)
            CargaCuentasClientesSIG(DdlCtaContableCosto)

        End If
    End Sub
#Region "Carga Cuentas"
    Private Sub CargaCuentasClientesSIG(ddl As DropDownList)
        Dim ObjContabilidad As New ClsContabilidad

        If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
            ddl.Items.Clear()
            ddl.Items.Add(New ListItem("Seleccione", "0"))
            ddl.DataSource = ObjContabilidad.DtResultados
            ddl.DataBind()
        End If
        ObjContabilidad.Dispose()
    End Sub
    Private Sub CargaCuentasClientesCompaq(ddl As DropDownList)
        Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)

        If ObjCompaq.GetCuentas(-1, "-1", 1) Then
            ddl.Items.Clear()
            ddl.Items.Add(New ListItem("Seleccione", "0"))
            ddl.DataSource = ObjCompaq.DtResultados
            ddl.DataBind()
        End If
        ObjCompaq.Dispose()
    End Sub

    'Private Sub CargaCuentasProveedoresSIG()
    '    Dim ObjContabilidad As New ClsContabilidad

    '    If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjContabilidad.Dispose()
    'End Sub
    'Private Sub CargaCuentasProveedoresCompaq()
    '    Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)

    '    If ObjCompaq.GetCuentas(-1, "-1", 1) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjCompaq.Dispose()
    'End Sub

    'Private Sub CargaCuentasDeudoresSIG()
    '    Dim ObjContabilidad As New ClsContabilidad

    '    If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjContabilidad.Dispose()
    'End Sub
    'Private Sub CargaCuentassDeudoresCompaq()
    '    Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)

    '    If ObjCompaq.GetCuentas(-1, "-1", 1) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjCompaq.Dispose()
    'End Sub

    'Private Sub CargaCuentasAlmacenSIG()
    '    Dim ObjContabilidad As New ClsContabilidad

    '    If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjContabilidad.Dispose()
    'End Sub
    'Private Sub CargaCuentasAlmacenCompaq()
    '    Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)

    '    If ObjCompaq.GetCuentas(-1, "-1", 1) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjCompaq.Dispose()
    'End Sub

    'Private Sub CargaCuentasCostoSIG()
    '    Dim ObjContabilidad As New ClsContabilidad

    '    If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjContabilidad.Dispose()
    'End Sub
    'Private Sub CargaCuentasCostoCompaq()
    '    Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)

    '    If ObjCompaq.GetCuentas(-1, "-1", 1) Then
    '        DdlCtaContableClientes.Items.Clear()
    '        DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
    '        DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
    '        DdlCtaContableClientes.DataBind()
    '    End If
    '    ObjCompaq.Dispose()
    'End Sub
#End Region

    Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
        If RblTipo.SelectedValue = "SIG" Then
            DvServidorConta.Visible = False
            CargaCuentasClientesSIG(DdlCtaContableClientes)
            CargaCuentasClientesSIG(DdlCtaContableProveedores)
            CargaCuentasClientesSIG(DdlCtaContableDeudores)
            CargaCuentasClientesSIG(DdlCtaContableAlmacen)
            CargaCuentasClientesSIG(DdlCtaContableCosto)
        Else
            DvServidorConta.Visible = True
            CargaCuentasClientesCompaq(DdlCtaContableClientes)
            CargaCuentasClientesCompaq(DdlCtaContableProveedores)
            CargaCuentasClientesCompaq(DdlCtaContableDeudores)
            CargaCuentasClientesCompaq(DdlCtaContableAlmacen)
            CargaCuentasClientesCompaq(DdlCtaContableCosto)
        End If
    End Sub

    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
        Dim ObjEmpresas As New ClsSisEmpresas
        ObjEmpresas.IniciaTransacSQL()

        Alert("sdfsz")



        ObjEmpresas.Dispose()

    End Sub
End Class