Cuenrtas bancarias, Compras AF

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -193,13 +193,53 @@ Partial Class Bancos_CuentasBancariasDetalle
 
                 DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
 
-                DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
+                DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
+
+
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
                 Else
-                    DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+
+                    Dim ExisteEnIntems As Boolean = False
+
+                    For Each li As ListItem In DDlCuentaContable.Items
+                        If li.Value.ToEntero = ObjCuentasBancariasDetalle.IdCtaContable Then
+                            ExisteEnIntems = True
+                            Exit For
+                        End If
+                    Next
+
+
+                    If ExisteEnIntems Then
+                        DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+                    Else
+
+                        If UsuarioActual.Empresa.UsaContabilidad Then
+                            Dim objCont As New ClsContPAQi(UsuarioActual.Empresa)
+
+
+                            If objCont.GetCuentas(ObjCuentasBancariasDetalle.IdCtaContable, "-1", -1) Then
+                                If objCont.DtResultados.Rows.Count > 0 Then
+
+                                    DDlCuentaContable.Items.Add(New ListItem(objCont.DtResultados.Rows(0)("CtaCodigo").ToString, objCont.DtResultados.Rows(0)("id").ToString))
+                                    DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+
+                                End If
+                            End If
+
+
+                            objCont.Dispose()
+
+                        End If
+
+
+                    End If
+
+
                     DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+
+
                 End If
 
             Else