Sistemas/ConfiguracionEmpresa.aspx.vb

@@ -17,7 +17,46 @@ Partial Class Sistemas_ConfiguracionEmpresa
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
+            CargaCuentaClIente()
 
         End If
     End Sub
+
+    Private Sub CargaCuentaCliente()
+        Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+        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
+        End If
+
+    End Sub
+
+    Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
+        CargaCuentaCliente()
+    End Sub
+
+    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+        Dim ObjEmpresas As New ClsSisEmpresas
+        ObjEmpresas.IniciaTransacSQL()
+
+
+
+
+
+        ObjEmpresas.Dispose()
+
+    End Sub
 End Class