diff --git a/Sistemas/ConfiguracionEmpresa.aspx b/Sistemas/ConfiguracionEmpresa.aspx index 25a5c123e..6f466baf7 100644 --- a/Sistemas/ConfiguracionEmpresa.aspx +++ b/Sistemas/ConfiguracionEmpresa.aspx @@ -55,7 +55,7 @@ - + @@ -69,7 +69,7 @@ - + @@ -83,7 +83,7 @@ - + @@ -97,7 +97,7 @@ - + @@ -111,12 +111,12 @@ - + -<%-- + <%-- Clave de Empresa: @@ -195,6 +195,53 @@ + +
+
+
+ + Configuración del Servidor de Contabilidad +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + + + + + + + + + +
BDContPAQi: + + <%-- + --%> +
Server ContPAQi: + +
Usuario ContPAQi: + +
Password ContPAQi: + +
+
+
+ diff --git a/Sistemas/ConfiguracionEmpresa.aspx.vb b/Sistemas/ConfiguracionEmpresa.aspx.vb index 13fb35337..a38edceea 100644 --- a/Sistemas/ConfiguracionEmpresa.aspx.vb +++ b/Sistemas/ConfiguracionEmpresa.aspx.vb @@ -17,35 +17,135 @@ Partial Class Sistemas_ConfiguracionEmpresa Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then - CargaCuentaClIente() + CargaCuentasClientesSIG() End If End Sub - - Private Sub CargaCuentaCliente() - Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa) +#Region "Carga Cuentas" + Private Sub CargaCuentasClientesSIG() Dim ObjContabilidad As New ClsContabilidad - If RblTipo.SelectedValue = "SIG" Then - 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 - Else - 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 + 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 CargaCuentasClientesCompaq() + 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 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 - CargaCuentaCliente() + If RblTipo.SelectedValue = "SIG" Then + DvServidorConta.Visible = False + CargaCuentasClientesSIG() + Else + DvServidorConta.Visible = True + CargaCuentasClientesCompaq() + End If End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click