--FIX cuenta complementaria

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -138,20 +138,21 @@ Partial Class Bancos_CuentasBancariasDetalle
             Using ObjContabilidad As New ClsContabilidad
                 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
                 If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
-                    DDlCuentaContable.DataSource = ObjContabilidad.DtResultados
+                    dt = ObjContabilidad.DtResultados.Copy()
+
+                    DDlCuentaContable.DataSource = dt
                     DDlCuentaContable.DataBind()
-                    DDlCuentaContable.Items.Insert(0, New ListItem("Selecione", "-1"))
-                    DDlCuentaContable.DataTextField = "CtaCodigo"
-                    DDlCuentaContable.DataValueField = "CveCuenta"
+                    DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+                    'DDlCuentaContable.DataTextField = "CtaCodigo"
+                    'DDlCuentaContable.DataValueField = "CveCuenta"
                 End If
             End Using
 
-            DDlCuentaContable.DataSource = dt
-            DDlCuentaContable.DataBind()
-            DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+
             DdlCuentaContableComplementaria.DataSource = dt
             DdlCuentaContableComplementaria.DataBind()
             DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
+
             If dt IsNot Nothing Then dt.Dispose()
             trCuentaContable.Visible = True
             trCuentaContableComplementaria.Visible = True