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 @@
| 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
|