2019-09-03 11:31:23 -07:00
parent 26f8373685
commit 91fd865d2f
2 changed files with 172 additions and 25 deletions
--- 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