-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Sistemas/ConfiguracionEmpresa.aspx.vb b/Sistemas/ConfiguracionEmpresa.aspx.vb
index 2089a9192..13fb35337 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx.vb
+++ b/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