Sistemas/ConfiguracionEmpresa.aspx.vb

@@ -17,134 +17,146 @@ Partial Class Sistemas_ConfiguracionEmpresa
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            CargaCuentasClientesSIG()
+            CargaCuentasClientesSIG(DdlCtaContableClientes)
+            CargaCuentasClientesSIG(DdlCtaContableProveedores)
+            CargaCuentasClientesSIG(DdlCtaContableDeudores)
+            CargaCuentasClientesSIG(DdlCtaContableAlmacen)
+            CargaCuentasClientesSIG(DdlCtaContableCosto)
 
         End If
     End Sub
 #Region "Carga Cuentas"
-    Private Sub CargaCuentasClientesSIG()
+    Private Sub CargaCuentasClientesSIG(ddl As DropDownList)
         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()
+            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()
+    Private Sub CargaCuentasClientesCompaq(ddl As DropDownList)
         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()
+            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
+    '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 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
+    '    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
+    '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 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
+    '    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
+    '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 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
+    '    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
+    '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 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
+    '    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()
+            CargaCuentasClientesSIG(DdlCtaContableClientes)
+            CargaCuentasClientesSIG(DdlCtaContableProveedores)
+            CargaCuentasClientesSIG(DdlCtaContableDeudores)
+            CargaCuentasClientesSIG(DdlCtaContableAlmacen)
+            CargaCuentasClientesSIG(DdlCtaContableCosto)
         Else
             DvServidorConta.Visible = True
-            CargaCuentasClientesCompaq()
+            CargaCuentasClientesCompaq(DdlCtaContableClientes)
+            CargaCuentasClientesCompaq(DdlCtaContableProveedores)
+            CargaCuentasClientesCompaq(DdlCtaContableDeudores)
+            CargaCuentasClientesCompaq(DdlCtaContableAlmacen)
+            CargaCuentasClientesCompaq(DdlCtaContableCosto)
         End If
     End Sub
 
@@ -152,7 +164,7 @@ Partial Class Sistemas_ConfiguracionEmpresa
         Dim ObjEmpresas As New ClsSisEmpresas
         ObjEmpresas.IniciaTransacSQL()
 
-
+        Alert("sdfsz")